Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

soloplayer

servidor on mysql odbc.

Recommended Posts

Ola amigos, tenho uma aplicacao em VB utilizando bando MYSQL ele roda local redendo sem problemas, mas na hora que eu o coloco em um cliente em uma rede ele da o ERRO no ODBC e Diz SERVER ON sendo que o server esta rodando perfeitamente. codigo de busca:Private Sub lvlconsultar_Click() invisivel Adodc1.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _ "SERVER=192.168.0.34;DATABASE=arteid;UID=ODBC;PWD=;" & _ "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 Adodc1.CommandType = adCmdText Adodc1.RecordSource = "SELECT * FROM busca" Adodc1.Refresh Adodc1.Recordset.AddNew On Error GoTo Error If txtbusca = "" Then MsgBox "Favor informe um valor", vbInformation, "Informe o código" End If Adodc1.Recordset!cod = txtbusca Adodc1.Recordset.Update'======================================================================================'SELECIONANDO MINHA TABELA VIA COMANDO MYSQL E FAZENDO AS COMPARACOES COM O CAMPO BUSCA'====================================================================================== Adodc1.RecordSource = "SELECT * FROM artes_mod,busca where artes_mod.cod=" & txtbusca.Text Adodc1.Refresh txtcod = txtbusca txtdat = Adodc1.Recordset!Data cmblinha = Adodc1.Recordset!linha cmbsetor = Adodc1.Recordset!setor lstsituacao = Adodc1.Recordset!situacao txtnome = Adodc1.Recordset!nome txtcaminho = Adodc1.Recordset!caminho txtdate = Adodc1.Recordset!datae cmbresp = Adodc1.Recordset!resp If Adodc1 = txtnome Then MsgBox "OK existente", vbInformation, "OK" Else If Adodc1.Recordset!nome <> txtnome Then MsgBox "Código inexistente", vbInformation, "Banco de Dados" End If End If 'Adodc1.RecordSource = "DELETE FROM busca" 'txtcaminho = Adodc1.Recordset!caminho Adodc1.RefreshError: 'txtnome = Adodc1.Recordset.BookmarkEnd SubEnd SubO CODIGO FUNCIONA CORRETO EM MAQUINA LOCAL AI EM REDE DA O ERRO NO SERVER.este é o codigo que conecta no server so que o erro persiste, sera que meu ADODC ou tenho que usar um sockets como em uma materia que eu vi, so que na materia que eu vi no proprio IMASTERS o luiz diz para o cara esquecer o tipo de conexao em sockets e usar ADODC, mas o que tenho que configurar, meu codigo é o acima. grato

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.