Pegar dados do BD Mysql

[mestre fyoda 1]

'Conexao MYSQL

Imports MySql.Data.MySqlClient

Public Class Form1

Dim Con As MySqlConnection

Dim r As MySqlDataReader

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

Con = New MySqlConnection()

 

Con.ConnectionString = "Server=localhost;Database=v2interativa;Uid=root;Pwd=rafael"

Con.Open()

Dim Con_Bd As New MySqlCommand("Select * from AQCAD")

r = Con_Bd.ExecuteReader()

r.Read()

LbSts.Text = "Seja bem vindo: " + r[0].ToString();

Con.Close()

End Sub

 

End Class

pq nao esta dando certo ?

[André Baltieri 0]

'Conexao MYSQL

Imports MySql.Data.MySqlClient

Public Class Form1

Dim Con As MySqlConnection

Dim r As MySqlDataReader

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

Con = New MySqlConnection()

 

Con.ConnectionString = "Server=localhost;Database=v2interativa;Uid=root;Pwd=rafael"

Con.Open()

Dim Con_Bd As New MySqlCommand("Select * from AQCAD")

r = Con_Bd.ExecuteReader()

r.Read()

LbSts.Text = "Seja bem vindo: " + r[0].ToString();

Con.Close()

End Sub

 

End Class

pq nao esta dando certo ?

 

Tipo, nunca usei o MySQLConnection, só o ODBC, dá uma olhada na linha

LbSts.Text = "Seja bem vindo: " + r[0].ToString();

ao invés de +, coloca &, pode parecer bobagem, mas...

e ao invés de [0], usa sempre o nome do item.

 

espero ter ajudado um poquinho.

 

abraços