Galera do forum, bom dia!!!
Então estou aqui para agradecer a todos os colaboradores, realmente fiz os testes de conexão do vb com o banco mysql de outra plataforma. Para isso são necessários:
==========================================================================
Em seu windows:
Instalar o MyOdbc3.5 ou MyOdbc5.1
==========================================================================
Em seu projeto, pode fazer uma referencia ao ADO2.8
e criar uma Clase chamada clsConexaoMysql e dentro dela inserir:
Public Function ConexaoMysql() As Boolean
On Error GoTo ConexaoMysql
ConexaoMysql = False
If cnn.State = 1 Then cnn.Close
cnn.Open "DATABASE=BANCODEDADOS;DRIVER={MySQL ODBC 3.51 Driver};OPTION=0;PORT=0;SERVER=IPDOBANCODEDADOS;UID=root;"
ConexaoMysql = True
Exit Function
ConexaoMysql:
ConexaoMysql = False
MsgBox Err.Number & " - " & Err.Description
End Function
========================================================================
Em um módulo criar as variaveis:
Global cnn As New ADODB.Connection 'variavel de conexao ao mysql
Global f_cla_ConcexaoMysql As New clsConexaoMysql 'instancia da classe de conexao
========================================================================
Em um botão do fomr add(exemplo de pesquisa):
Private Sub cmdConectMysql_Click()
Dim adoRes As New ADODB.Recordset
Dim str1 As String
If f_cla_ConcexaoMysql.ConexaoMysql Then
str1 = "select * from cdr"
If adoRes.State = 1 Then adoRes.Close
adoRes.Open str1, cnn, adOpenStatic
Do While Not adoRes.EOF
List1.AddItem adoRes.Fields(0) & " | " & Space(50 - Len(Trim(adoRes.Fields(1)))) & Trim(adoRes.Fields(1)) & " | " & adoRes.Fields(2)
adoRes.MoveNext
Loop
End If
End Sub
=====================================================================
NO MYSQL É NECESSÁRIO LIBERAR O ACESSO DOS HOSTS, O COMANDO É ESSE:
=====================================================================
Em fim resolvido meu problema, espero que sirva para mais alguem.
T+
