vb.6 - mysql

[manero 0]

Olá,galera estou com uma grande dúvida, como faço para estabelecer uma conexão do VB6 com MySQL, sendo que estou trabalhando com MDIPAI e MDICHIlDS...estou desenvolvendo um projeto e tenho que entregar até o final do ano...é mto urgente galera se alguem poder me ajudar....meu email: jonathan.noia@terra.com.brSds,Jonathan Goulart [Manero]

[cassitos 2]

a conexão pode ser feita num módulo, criando um Sub ou Function. Neste módulo declarar uma variável p/ ser a conexão nos formulários:

  Citar

'DeclararPublic Banco as New Adodb.Connection 'Criar rotina de conexãoPublic Sub Conectar()    Banco.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _        "SERVER=localhost;DATABASE=basededados;UID=root;PWD=;" & _                          "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 Banco.OpenEnd Sub

No Load do MDIPai, você chama a conexão:

  Citar

Private Sub MDIForm_Load() Call ConectarEnd Sub

Daí a conexão está feita, agora nos demais formulários basta apontar a conexão para a que está aberta, ex:

  Citar

Dim RsTeste as New Adodb.RecordSetRsTeste.Open "SELECT * FROM CLIENTE",Banco

flws

[manero 0]

bah cara mto obrigado...vo faze um teste aew vlw mesmu!!!

[rafa-martin 2]

está dando pau em banco.open. porque?

[cassitos 2]

qual a mensagem do erro? :huh: