VB COM MYSQL
Estou iniciando no VB.NET usava o VB6, e estou sem conseguir exibir em uma combobox os arquivos de banco de dados no Mysql.
Explicando melhor, estou fazendo um sistema em que o usuario ao fazer login possa escolher qual o schema(banco no Mysql) quer usar, estas informações devem estar em uma combobox.
Encontrei na net o seguinte exemplo usando ADO:
SQL = [Ô]SHOW DATABASES[Ô]
Dim rs As ADODB.Recorset
Set rs = New ADODB.Recorset
rs.Open SQL, conn, 3, 3
cmbBanco.Clear
While Not rs.EOF
cmbBanco.AddItem rs!Database
rs.MoveNext
wend
Mas estou usando uma conecção Mysql e não estou conseguindo fazer.
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = [Ô]server=localhost;user id=root;password=xxxxx;database=Cli2008[Ô]
SQL = [Ô]SHOW DATABASES[Ô]
Try
conn.Open()
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
cmbBanco.Clear
While not conn.EOF
cmbBanco.AddItem (databases)
wend
end try
Alguem pode me ajudar, pois os livros em que eu pesquisei não tem nenhum exemplo.
Obrigado a todos.
Explicando melhor, estou fazendo um sistema em que o usuario ao fazer login possa escolher qual o schema(banco no Mysql) quer usar, estas informações devem estar em uma combobox.
Encontrei na net o seguinte exemplo usando ADO:
SQL = [Ô]SHOW DATABASES[Ô]
Dim rs As ADODB.Recorset
Set rs = New ADODB.Recorset
rs.Open SQL, conn, 3, 3
cmbBanco.Clear
While Not rs.EOF
cmbBanco.AddItem rs!Database
rs.MoveNext
wend
Mas estou usando uma conecção Mysql e não estou conseguindo fazer.
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = [Ô]server=localhost;user id=root;password=xxxxx;database=Cli2008[Ô]
SQL = [Ô]SHOW DATABASES[Ô]
Try
conn.Open()
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
cmbBanco.Clear
While not conn.EOF
cmbBanco.AddItem (databases)
wend
end try
Alguem pode me ajudar, pois os livros em que eu pesquisei não tem nenhum exemplo.
Obrigado a todos.
Segue um modelo que fiz já com uma classe de conexão... Acredito que isso irá resolver todos os seus problemas...
Atenciosamente,
Jonathan Stecker
Atenciosamente,
Jonathan Stecker
Faz assim
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New MySqlConnection
Dim cmd As New MySqlCommand
con.ConnectionString = [Ô]server=localhost;user=root;password=cadinho;[Ô]
con.Open()
cmd.CommandText = [Ô]show databases[Ô]
cmd.Connection = con
cmd.ExecuteNonQuery()
Dim dta As New MySqlDataAdapter
dta.SelectCommand = cmd
Dim dst As New DataSet
dst.Tables.Add([Ô]table[Ô])
dta.Fill(dst.Tables([Ô]table[Ô]))
ComboBox1.DataSource = dst.Tables([Ô]table[Ô])
ComboBox1.DisplayMember = [Ô]database[Ô]
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New MySqlConnection
Dim cmd As New MySqlCommand
con.ConnectionString = [Ô]server=localhost;user=root;password=cadinho;[Ô]
con.Open()
cmd.CommandText = [Ô]show databases[Ô]
cmd.Connection = con
cmd.ExecuteNonQuery()
Dim dta As New MySqlDataAdapter
dta.SelectCommand = cmd
Dim dst As New DataSet
dst.Tables.Add([Ô]table[Ô])
dta.Fill(dst.Tables([Ô]table[Ô]))
ComboBox1.DataSource = dst.Tables([Ô]table[Ô])
ComboBox1.DisplayMember = [Ô]database[Ô]
End Sub
Valeu,
Funcionou 100% com a dica de RXGOMES, muito obrigado mesmo.
Agradeço a todos.
Funcionou 100% com a dica de RXGOMES, muito obrigado mesmo.
Agradeço a todos.
Tópico encerrado , respostas não são mais permitidas