CONEXAO VB 2010 EXPRESS COM O MYSQL

CAPLATERO 20/10/2011 13:08:07
#387177
olá, pessoal!

Sou novo no forúm e faz um tempo de não desenvolvo baixei o VB 2010 Express para me atualizar, só que estou com dificultadas de acessar os dados da tabela do mysql, aparentemente a conexão foi estabelecida mas não consigo ler os dados dos campos, alguem pode me ajudar?

Segue abaixo o código

Dim rs1 As ADODB.Recordset
Dim ssQL As String

tb = New ADODB.Connection
tb.Open([Ô]DRIVER={MySQL ODBC 5.1 Driver};user= root ;password= 1234;server=localhost;database=teste[Ô])
rs1 = New ADODB.Recordset
ssQL = [Ô]select * from usuario[Ô]
rs1.Open(ssQL, [Ô]DRIVER={MySQL ODBC 5.1 Driver};user= root ;password= 1234;server=localhost;database=teste[Ô])
KERPLUNK 20/10/2011 13:59:53
#387183
Resposta escolhida
Amigo, é possível acessar o banco via ADO com um um driver ODBC, que é o que vc está fazendo. Mas é muuuuuuuito mais aconselhável usar o ADO.NET. O MySql tem um client para .NET que vc encontra no site do mysql mesmo.
CHARLESTON10 20/10/2011 15:03:31
#387199
CAPLATERO

Eu realmente aconselho o mesmo que o nosso colega KERPLUNK comentou, usando a forma de acesso ADO vai mudar tudo
é bem simples e rápido.

Se quiser saber mais sobre ADO entre no link abaixo
http://www.macoratti.net/ado_net1.htm

Acessando o banco de dados MySQL via ADO no VB10 (Passo a Passo)
http://www.macoratti.net/net_msql.htm


CAPLATERO 20/10/2011 16:26:00
#387222
Pessoal, valeu pela dica, realmente o ADO.NET é melhor, segue abaixo o codigo que eu utilizei para enxergar os dados, não sei se é o melhor mas resolveu meu problema.


Dim sql As String
Dim myCon As New ADODB.Connection
Dim myRS As New ADODB.Recordset
Dim var As String


sql = [Ô]SELECT * FROM usuario[Ô]
myCon.Open([Ô]DSN=Conexao[Ô])
myRS = myCon.Execute(sql)


var = myRS(1).Value

Obrigado galera
KERPLUNK 20/10/2011 16:27:21
#387225
Isso AINDA é ADO normal...
Tópico encerrado , respostas não são mais permitidas