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.

Oi, eu faço dessa forma: Para carregar os dados de um banco na combobox: While Not ADODC.EOF COMBOBOX.AddItem ADODC!campo_da_tabela Wend Para carregar dados relacionados, no evento click: ADODC.Open "select campo_relacionado from tabela where campo_da_combobox = '" & conteudo_carregado_na_combobox & "'" If Not ADODC.EOF Then campo_a_ser_preenchido.Text = ADODC.Fields.Item(0).Value & "" End If Lembrando que (0) é a ordem do campo na tabela. Exmplo, o segundo campo da tabela será o (1), o terceiro campo será o (2), etc.... Mas você pode começar com (1) também que funciona. o ".Value & "" é para aceitar, caso o campo esteja com valor nulo. Eu uso conexão via código, então apenas substitui pelo adodc, espero que funcione, haha!

tenho uma aplicação que tem em seu banco de dados uma coluna para gravar as datas. Essa coluna de datas é usada para emitir relatórios por intervalo entre datas. Até aí ela funciona perfeitamente. Na interface do programa existe um campo para pesquisa, onde eu digito a data. esse campo de pesquisa é um textbox e no evento change desse textbox ele procura dentro do banco de dados e vai mostrando os dados. O problema é que quando eu tento procurar por data, o programa dá erro devido ao campo da tabela estar n formato Date. Então a solução seria converter o campo de date para varchar, assim o campo pesquisaria um texto e a pesquisa funcionaria. Sei que devo usar um SELECT ou um CONVERT, mas não conheço a linha de código. alguém poderia me ajudar/ Desde já, obrigado!

Olá a todos! tenho um formulário de exportação/importação de tabelas do banco de dados e gostaria de saber se é possível eu preencher automaticamente uma combobox com os nomes das tabelas para que seja escolhida a tabela para a exportação/importação. Obrigado!

Olha Kuroi, apenas mudando o campo de text para varchar não resolveu o problema. substitui o '=' pelo 'like' na condição do rs.find e com isso resolveu. Mesmo assim troquei o campo para varchar. Qual a diferença entre varchar e text e o que isso influi? Obs.: Esses campos de descrição e responsável estão passíveis de receber qualquer tipode caracter(texto, numero, acento, sinal, etc.)

Olá a todos! Tenho uma pesquisa que possui dois formulários. No formpesquni, eu tenho um DataGrid com dados de uma tabela. Então, ao clicar no botão "Pesquisar", é aberto o formulário pesquni, que contem apenas uma combo com o tipo de pesquisa, uma caixa de texto para digitar o registro a ser encontrado e um botão para executar o comando. Nessa combobox, estão listadas três opções: "Código da unidade", "Descrição da unidade" e "Responsável pela unidade". O problema é que quando eu faço a pesquisa por código da unidade, ele encontra normalmente, selecionando o registro encontrado no Grid do formpesquni, mas se eu tento fazer a pesquisa por descrição da unidade ou pelo responsável da unidade, ele retorna sem encontrar nenhum registro! Vejam o código: Private Sub lista_Click() If (formpesquni.data1.SelBookmarks.Count <> 0) Then formpesquni.data1.SelBookmarks.Remove 0 If rs2.RecordCount <> 0 Then rs2.MoveFirst Select Case cbo.Text Case "Código da unidade" rs2.Find "codigo = '" & pesq.Text & "'" If rs2.EOF Then MsgBox "registro não encontrado" Else formpesquni.data1.SelBookmarks.Add rs2.Bookmark formpesquni.formata End If Case "Descrição da unidade" rs2.Find "descricao = '" & pesq.Text & "'" If rs2.EOF Then MsgBox "registro não encontrado" Else formpesquni.data1.SelBookmarks.Add rs2.Bookmark formpesquni.formata End If Case "Responsável pela unidade" rs2.Find "responsavel = '" & pesq.Text & "' " If rs2.EOF Then MsgBox "registro não encontrado" Else formpesquni.data1.SelBookmarks.Add rs2.Bookmark formpesquni.formata End If End Select End Sub Quando eu escolho a opção "Descrição..." ou "Responsável..." ele retorna o msgbox da condição no código acima. No banco de dados, o campo codigo está como decimal(10,0) e os campos descricao e responsavel estão como text. Obrigado!

Realmente com o Mouse move não dará certo porque ele funcionar por todo o grid como você falou. Mas então, posso fazer isso ao acionar um botão, não posso? O meu grid está com o MarqueeStyle em 3 - dbgHighLightRow. (quando eu clico em uma linha, a mesma é inteiramente selecionada) Sendo assim eu preciso que, ao selecionar uma linha no Grid e apertar F2, o ttt apareça mostrando os dados dessa linha. Isso é possível?

Então Kuroi, quando eu posiciono o mouse em cima da l.inha selecionada no datagrid e aperto F2, o tooltip aparece bem depois, isso quando aparece. E depois fica aparecendo involuntariamente, sem que eu o acione. Acho que no meu caso, o que resolve mesmo é o acionamento por algum botão do teclado mesmo, pois se eu tento usa-lo em eventos como Mouse Move por exemplo, ai ele fica aparecendo sempre.

Boa tarde! tenho uma aplicação em VB6 que possui um Data grid no form. Como a tabela possui muitos campos, eu mostro no DataGrid apenas os campos mais importantes. Mas preciso que o usuário visualize todos os dados dos campos da tabela em forma de ToolTipText ao selecionar a linha inteira(no record Selector a esquerda) ou então ao teclar F2 após ter selecionado a linha inteira, por exemplo. Sei que é no evento KeyPress ou KeyDown, mas não sei como fica o código. testei alguns que achei no google, mas não funcionaram. Tentei algo como if KeyCode = VbKeyF2 then data1.ToolTipText = data1.Columns.Item(0) ou if KeyAscii = 113 then data1.ToolTipText = data1.Columns.Item(0) Desde já, muito obrigado.

Olá a todos! tenho alguns relatórios no dataReport que seguem a mesma lógica, então postarei o código de um. ele usa um código de agrupamento e relacionamento de tabelas. ele usa duas tabelas para tal. A tabela uniadde e a tabela registro. O problema é que os campos da tabela registro estão retornando em branco! Segue o código: Private Sub DataReport_Initialize() If cn.State = adStateOpen Then cn.Close cn.CursorLocation = adUseClient cn.ConnectionString = DataEnvironment1.Connection1 cn.Open "DSN=odonto" With formdata strInicio = .dataini.Value strAte = .datafin.Value End With DataReport2.Title = "Período de: " & strInicio & " até: " & strAte sql = "SHAPE { " sql = sql & "SELECT DISTINCT u.* " sql = sql & "FROM unidade u INNER JOIN registro r ON u.codigo = r.codigo " sql = sql & "WHERE r.dia " sql = sql & "BETWEEN '" & Format(strInicio, "yyyy-mm-dd") & "' " sql = sql & "AND '" & Format(strAte, "yyyy-mm-dd") & "' " sql = sql & "ORDER BY u.codigo " sql = sql & "} AS Command1 " sql = sql & "APPEND ({ " sql = sql & "SELECT registro.* " sql = sql & "FROM registro " sql = sql & "WHERE dia " sql = sql & " BETWEEN '" & Format(strInicio, "yyyy-mm-dd") & "' " sql = sql & "AND '" & Format(strAte, "yyyy-mm-dd") & "' " sql = sql & "ORDER BY dia " sql = sql & "} AS Command2 " sql = sql & "RELATE 'codigo' TO 'codigo') " sql = sql & "AS Command2 " rs.Open sql, cn, adOpenForwardOnly Set DataReport2.DataSource = rs Estou usando um DataEnvironment onde o Command1 é da tabela unidade e o command2 é da tabela registro e está como filho do command1. Desde já, obrigado!

Iria escrever sobre uma situação parecida, mas crei oque a resposta desse deva sanar minha dúvida tb. Se alguém puder nos ajudar...