Popmenu tabla y mysql

International Español
1

Necesito de ayuda , no logro visualizar varias tablas de mysql con un popup menu,mi idea es que con un popupmenu pueda elegir una la tabla y visualizarla en un listbox , pero no logro como hacerlo funcionar :frowning: Gracias de antemano!

2

Lo he logrado con de la siguiente manera
If Not IsConnected Then
MsgBox(“Connect to the database first.”)
End If

popupmenu2.DeleteAllRows

dim rs as RecordSet = mDb.SQLSelect(“show tables”)
if rs <> Nil Then
if rs.RecordCount > 0 Then
do until rs.EOF
popupmenu2.AddRow rs.Field(“Tables_in_nexus”).getString
rs.MoveNext
loop
end if
end if

pero no consigo visualizar los datos en el listbox, alguien que me eche una mano, gracias

3

[quote=175938:@Mike Marcus]Lo he logrado con de la siguiente manera
If Not IsConnected Then
MsgBox(“Connect to the database first.”)
End If

popupmenu2.DeleteAllRows

dim rs as RecordSet = mDb.SQLSelect(“show tables”)
if rs <> Nil Then
if rs.RecordCount > 0 Then
do until rs.EOF
popupmenu2.AddRow rs.Field(“Tables_in_nexus”).getString
rs.MoveNext
loop
end if
end if

pero no consigo visualizar los datos en el listbox, alguien que me eche una mano, gracias[/quote]
Falta hacer algo cuando el usuario cambie el popupmenu, para eso se usa el evento “Change” de popupmenu2
En ese evento se llena el listbox, algo como:

[code]Sub Change()
listbox1.DeleteAllRows

Dim nomTabla As String= Me.Text
Dim rs As RecordSet = mDb.SQLSelect("SELECT * FROM "+ nomTabla )
If rs= Nil Then Return
If rs.RecordCount= 0 Then Return

do until rs.EOF
ListBox1.AddRow rs.IdxField(0).StringValue // solo se agrega el primer campo
rs.MoveNext
Loop
End Sub
[/code]