Ik wil graag dat de tabellen in tabel1 worden weergegeven in ListBox1
Dit werkt niet;
Dan krijg ik;
System.Data.DataRowView
In plaats van de echte tabelnamen.
Dit werkte "half" (van 't internet geplukte code)
Deze code werkt dus wel met " SELECT * FROM tabel1 LIMIT 10 " maar niet met " SHOW TABLES FROM tabel1 "
Dan krijg ik foutmelding;
"You have specified an invalid column ordinal"
Ben nog beginnende met VB dus kan de code niet ontcijferen en zien wat ik verkeerd doe.
Edit:
Al gelukt
Tabel
Veld in tabel;
Er bovenop dus 
Dit werkt niet;
Code:
Public Sub retriveDataToDataGrid3()
Try
Dim query As String = "SHOW TABLES FROM tabel1"
Dim connection As New MySqlConnection(connStr)
Dim da As New MySqlDataAdapter(query, connection)
Dim ds As New DataSet()
If da.Fill(ds) Then
ListBox1.DataSource = ds.Tables(0)
End If
connection.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
System.Data.DataRowView
In plaats van de echte tabelnamen.
Dit werkte "half" (van 't internet geplukte code)
Code:
Public Sub retriveDataToDataGrid2()
Dim stringConn As String
Dim stringCmd As String
Dim myConn As MySqlConnection
Dim myCmd As MySqlCommand
stringCmd = "SELECT * FROM tabel1 LIMIT 10"
stringConn = "SERVER=127.0.0.1;DATABASE=blabla;UID=lala;PASSWORD=lalala;"
myConn = New MySqlConnection(stringConn)
myCmd = New MySqlCommand(stringCmd, myConn)
myConn.Open()
Dim myReader As MySqlDataReader
myReader = myCmd.ExecuteReader()
While (myReader.Read())
ListBox1.Items.Add(myReader.GetString(1))
End While
myReader.Close()
myConn.Close()
End Sub
Dan krijg ik foutmelding;
"You have specified an invalid column ordinal"
Ben nog beginnende met VB dus kan de code niet ontcijferen en zien wat ik verkeerd doe.

Edit:
Al gelukt

Tabel
Code:
If CheckBox1.CheckState = CheckState.Indeterminate Then
Dim querystring2 As String
Dim querystringdone2 As String
querystring2 = "SHOW TABLES FROM DBNAMEHERE"
querystringdone2 = querystring2.Replace("DBNAMEHERE", DbName.Text)
Dim query As String = querystringdone2
Dim connection As New MySqlConnection(connStr)
Dim da As New MySqlDataAdapter(query, connection)
Dim ds As New DataSet()
da.Fill(ds)
ListBox1.DisplayMember = "Tables_in_" & DbName.Text
ListBox1.ValueMember = "Tables_in_" & DbName.Text
ListBox1.DataSource = ds.Tables(0)
connection.Close()
Veld in tabel;
Code:
Public Sub callonfield()
Try
Dim querystring As String
Dim querystringdone As String
querystring = "SHOW FIELDS FROM TABLENAMEHERE"
querystringdone = querystring.Replace("TABLENAMEHERE", ListBox1.SelectedValue)
Dim query2 As String = querystringdone
Dim connection2 As New MySqlConnection(connStr)
Dim da2 As New MySqlDataAdapter(query2, connection2)
Dim ds2 As New DataSet()
da2.Fill(ds2)
ListBox2.DisplayMember = "Field"
ListBox2.ValueMember = "Field"
ListBox2.DataSource = ds2.Tables(0)
connection2.Close()
CheckBox1.CheckState = CheckState.Unchecked
CheckBox1.Enabled = True
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
Code:
ListBoxX.DisplayMember = "Tables_in_" & TabelnaamVariabeleHier
ListBoxX.ValueMember = "Tables_in_" & TabelnaamVariabeleHier

Laatst bewerkt: