DB MYQSL
olá gente,
bom é o seguinte, estou fazendo um projeto em mysql e vb6, e preciso de uma ajuda
consegui fazer conexao entre os dois, porem tenho que ficar editando na source a table que eu quero que leia,
ai que eu preciso de ajuda, eu queria que depois de conectado ao mysql, ele retorna-se em uma Listbox todas as tabelas que existem na db.
se possivel comentando linha por linha, para que eu possa enteder.
Grato, Ivo Gabriel.
bom é o seguinte, estou fazendo um projeto em mysql e vb6, e preciso de uma ajuda
consegui fazer conexao entre os dois, porem tenho que ficar editando na source a table que eu quero que leia,
ai que eu preciso de ajuda, eu queria que depois de conectado ao mysql, ele retorna-se em uma Listbox todas as tabelas que existem na db.
se possivel comentando linha por linha, para que eu possa enteder.
Grato, Ivo Gabriel.
nao entedi, como usar ele com mysql
Private Sub Command1_Click()
Dim con As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim Idx As New ADOX.Index
[ô]estabelecendo a conexao
Set con = New ADODB.Connection
conexao = [Ô]Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;[Ô]
con.Open conexao
Set cat.ActiveConnection = con
[ô]exibindo o nome e os tipos das tabelas
For Each tbl In cat.Tables
listatabelas.AddItem tbl.Name
For Each Idx In tbl.Indexes
listacolunas.AddItem Idx.Name
Next
Next
End Sub
Dim con As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim Idx As New ADOX.Index
[ô]estabelecendo a conexao
Set con = New ADODB.Connection
conexao = [Ô]Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;[Ô]
con.Open conexao
Set cat.ActiveConnection = con
[ô]exibindo o nome e os tipos das tabelas
For Each tbl In cat.Tables
listatabelas.AddItem tbl.Name
For Each Idx In tbl.Indexes
listacolunas.AddItem Idx.Name
Next
Next
End Sub
tem que adicionar algum dll,ocx ou selecionar algo qndo aperta crt t, para funcionar ado X?
desculpa pergunta besta, mas to iniciando n sei nd mesmo.
desculpa pergunta besta, mas to iniciando n sei nd mesmo.
Sim, precisa ir em PROJECT -> REFERENCES LOCALIZAR MICROSOFT ACTIVEX DATA OBJECTS TEM DE 2 ATé 6, pode mudar de micro a micro por causa das atualizações selecione um de manda brasa, eu sempre seleciono o ultimo.
Tópico encerrado , respostas não são mais permitidas