Marco Canhoto

Eu alterei pelas propriedades mesmo. Bom, eu fucei a função de sincronização do windows media player e consegui consertar quase tudo, menos a ordenação de tipo de arquivo do celular. Mesmo assim, vou dar uma olhada por ai nas ferramentas como audiograbber. Obrigado pelas orientações!

Boa tarde a todos. Tenho um aparelho celular LG Scarlet II. Quando eu passo arquivos mp3 para o celular, alguns albuns aparecem desorganizados, como se não tivesse nada preenchido nas propridades ou como se em cada arquivo, estivesse com um artista diferente ou album diferente na propriedade. Então eu conecto no pc, e altero as propriedades. No pc fica tudo certo, mas isso não é alterado no celular!!! Continua a mesma bagunça! Será que isso deve ser alterado no proprio celular? Ele guarda essas informações de alguma forma? Não sei mais o que fazer. Agradeço desde já.

Realmente as aspas duplas não funcionam. Daltro, eu reproduzi o seu caso aqui e deu certo. Tanto para o INSERT, quanto para o UPDATE. Eu usei um form com um botao e uma textbox, criei um banco com a tabela satelites e os campo spoco0 e poco_00. Para em conectar, criei uma DSN. O que seria esse vInclusão? Para inserir os dados, você insere no campo poco0 e para altera-los você altera o campo poco_00. Está correto? Mande o seu código inteiro pra gente dar uma olhada. Se ele for muito grande, pode mandar pro meu email, se quiser.

O Insert é quase igual. Só o ponto e vírgula de diferente mesmo. Por ser que o seu commandtext esteja sendo executado sem as aspas, uma vez que as aspas estão lá para identificar o comando apenas. Tente colocar aspas duplas.

Esses comandos de Update e Insert em parecem meio estranhos... Para Insert eu uso de forma que fica assim: "Insert into Satelites " & "(Poco0) Values ('" & Text1.Text & "')" E para o Update: "UPDATE Satelites Set Poco_00 = '" & Text1.text & "'"

Perceba que no primeiro modo, você mantem a vírgula entre o C.NOME e o FROM (C.NOME, FROM). Ai dá erro mesmo.

Uma pergunta: Porque os contratos estão sendo listados com dois códigos de custo em uma pagina e mais um na próxima pagina?

Na exclusão, alteração e viazualização, aponta sempre para a linha: .empresa.Text = dg.Columns.Item(0) & "" Me parece que o erro acontece quando os campos do datagrid vão ser transportados para os campos do formulario, pois na inclusão (onde não há o preenchimento de campos) não acontece o erro.

Olá a todos! Estou desenvolvendo uma aplicação em VB6 com banco de dados Mysql, que visa o controle de visitantes pela portaria. Eu desenvolvi o formulário principal, onde são incluidas, alteradas, excluidas e finalizadas as movimentações de entrada e saida. Além desse formulário, há um outro exclusivo para cadastro dos visitantes. Ambos os formulários usam um dataGrid, onde eu clico em algum registro e em seguida clico em algum botão (alterar, excluir, visualizar), onde abre um formulário com os campos. O problema é que, na parte de movimentações, funciona perfeitamente e para a parte de cadastro de visitantes, eu apenas COPIEI E COLEI os códigos, substituindo apenas os recordsets, uma vez que até os campos são os mesmos. Mesmo tendo código idêntico o cadastro de visitantes não funciona corretamente. A inclusão está Ok, mas as funções de alteração, exclusão e visualização (onde os campos do datagrid são transportados para os campos do formulario secundario) acusam o erro 6160 'Data access error'. Já mudei o nome do campo, já mudei a conexão, já tentei criar o formulario de novo, mas nada resolve. O projeto simplesmente empacou porque não faço idéia do que pode ser. Abaixo envio os códigos. Conexão com as tabelas de visitas e visitantes. Option Explicit Public Const caminho As String = "c:/fotos/" Public arquivo As String Public cn As New ADODB.Connection Public cmd As New ADODB.Command Public rs As New ADODB.Recordset Public cmd1 As New ADODB.Command Public rs1 As New ADODB.Recordset Public sql As String Public Sub carrega() If cn.State = adStateOpen Then cn.Close cn.Open "DSN=teste" sql = "SELECT * FROM visitante" With cmd1 Set .ActiveConnection = cn .CommandType = adCmdText .CommandText = sql End With With rs1 .LockType = adLockPessimistic .CursorType = adOpenKeyset .CursorLocation = adUseClient .Open cmd1 End With sql = "SELECT * FROM visita" With cmd Set .ActiveConnection = cn .CommandType = adCmdText .CommandText = sql End With With rs .LockType = adLockPessimistic .CursorType = adOpenKeyset .CursorLocation = adUseClient .Open cmd End With End Sub Agora o código do formulário que contem o DataGride não está funcionando Private Sub alterar_Click() With cadvisit For Each ctrl In cadvisit If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then ctrl.ForeColor = vbBlue End If Next .Caption = "Alteração de registro" .Frame1.Enabled = True .empresa.Text = dg.Columns.Item(0) & "" .nome.Text = dg.Columns.Item(1) & "" .documento.Text = dg.Columns.Item(2) & "" .endereco.Text = dg.Columns.Item(3) & "" .cidade.Text = dg.Columns.Item(4) & "" .estado.Text = dg.Columns.Item(5) & "" .telefone.Text = dg.Columns.Item(6) & "" .email.Text = dg.Columns.Item(7) & "" .obs.Text = dg.Columns.Item(8) & "" arquivo = Dir(caminho & dg.Columns.Item(4) & ".jpg") If arquivo = dg.Columns.Item(4) & ".jpg" Then .imagem.Picture = LoadPicture(caminho & arquivo) End If .registro.Caption = dg.Columns.Item(9) .Show vbModal End With End Sub Private Sub excluir_Click() On Error Resume Next With cadvisit For Each ctrl In cadvisit If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then ctrl.ForeColor = vbRed End If Next .Caption = "Exclusão de registro" .empresa.Text = dg.Columns.Item(0) & "" .nome.Text = dg.Columns.Item(1) & "" .documento.Text = dg.Columns.Item(2) & "" .endereco.Text = dg.Columns.Item(3) & "" .cidade.Text = dg.Columns.Item(4) & "" .estado.Text = dg.Columns.Item(5) & "" .telefone.Text = dg.Columns.Item(6) & "" .email.Text = dg.Columns.Item(7) & "" .obs.Text = dg.Columns.Item(8) & "" arquivo = Dir(caminho & .documento.Text & ".jpg") If arquivo = .documento.Text & ".jpg" Then .imagem.Picture = LoadPicture(caminho & arquivo) End If .registro.Caption = dg.Columns.Item(9) .Show End With If MsgBox("Excluir registro?", vbYesNo, "Atenção") = vbYes Then If rs1.State = adStateOpen Then rs1.Close rs1.Open "delete from visitante where registro = '" & cadvisit.registro.Caption & "'" rs1.Open "select * from visitante where documento = '" & cadvisit.documento.Text & "'" If rs1.EOF And cadvis.imagem.Picture <> 0 Then Kill caminho & arquivo Form_Load End If Unload cadvisit End Sub Private Sub Form_Load() atualiza End Sub Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub Private Sub incluir_Click() arquivo = "" With cadvisit .Caption = "Inclusão de visita" .Show vbModal End With End Sub Private Sub sair_Click() Unload Me End Sub Public Sub atualiza() carrega Set Me.dg.DataSource = rs1 formata End Sub Public Sub formata() dg.Columns(9).Visible = False If rs1.RecordCount = 0 Then visualizar.Enabled = False alterar.Enabled = False excluir.Enabled = False Else visualizar.Enabled = True alterar.Enabled = True excluir.Enabled = True End If End Sub Private Sub visualizar_Click() With cadvisit .Caption = "Visualização de registro" .gravar.Enabled = False .Frame1.Enabled = False .empresa.Text = dg.Columns.Item(0) & "" .nome.Text = dg.Columns.Item(1) & "" .documento.Text = dg.Columns.Item(2) & "" .endereco.Text = dg.Columns.Item(3) & "" .cidade.Text = dg.Columns.Item(4) & "" .estado.Text = dg.Columns.Item(5) & "" .telefone.Text = dg.Columns.Item(6) & "" .email.Text = dg.Columns.Item(7) & "" .obs.Text = dg.Columns.Item(8) & "" arquivo = Dir("c:/fotos/" & .documento.Text & ".jpg") If arquivo = .documento.Text & ".jpg" Then .imagem.Picture = LoadPicture("c:/fotos/" & arquivo) End If .registro.Caption = dg.Columns.Item(9) .Show vbModal End With End Sub Desde já, agradeço!!!

Sobre salvar a imagem, você está indicando o caminho do diretório a ser salvo + nome da imagem + extensão? Eu uso uma imagebox e uso o seguinte código para salvar: SavePicture imagem.Picture, "c://fotos/" & nome da imagem & ".jpg"

Inclusive, estamos precisando de baixista. Se alguém da cidade de São Paulo estiver interessado em um projeto sério, entre em contato, responde por aqui mesmo deixando email, MSN, telefone, etc.

Bom, a banda é nova... Acabamos de fechar a formação para começar os ensaios para shows, gravação, divulgação, etc. No perfil do myspace tem um breve release e uma demo acustica para audição inicial. Tão logo as coisas aconteçam na banda, posso postar por aqui. Obs.: A banda vai se apresentar(duas músicas) em formato acústico no sarau da Camarilha, a ser realizado no parque do Ibirapuera, dia 24/01 às 14hs.

www.myspace.com/quatrilho

Eu solucionei essa questão com um inner join com as duas tabelas.

você precisa reiniciar a sua conexão depois de gravar os dados. Depois de gravar você fecha e abre novamente a conexão, assim ele atualiza.