Hallo ich bin neu im Forum und kenn mich auch nicht so mit Foren aus brauche auch nur kurz eure Hilfe weil ich im Internet nichts dazu gefunden habe.
Ich möchte die Tabellennamen meiner Datenbank in einer Combobox darstellen so das man sich dort eine aussuchen kann die man dargestellt haben möchte
das klappt allerdings nicht.

Hier der Code :



Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

Dim eingabe As String = ComboBox1.Text

Dim Adapt As New MySqlDataAdapter
Dim DatTab As New DataTable

Adapt = New MySqlDataAdapter("use " & eingabe & "", vb)
MsgBox("Datenbank " & eingabe & " wurde ausgewählt ")

Adapt.Fill(DatTab)

Dim Adapt2 As New MySqlDataAdapter
Dim DatTab2 As New DataTable

Adapt2 = New MySqlDataAdapter("show tables", vb)

Adapt2.Fill(DatTab2)

ComboBox2.DataSource = DatTab2
ComboBox2.DisplayMember = "table_name"
ComboBox2.ValueMember = "table_name"

End Sub


Wäre gut wenn mir da jemand weiterhelfen könnte

Datenbank-Schema auslesen - DataViewer
kannste downloaden und bei dir ausführen - sieht das bischen nach was aus in Richtung was du suchst?

Nein das ist nicht das was ich brauche.

Ich schreibe ein Datenbanken Programm wo man sich per Combobox zuerst eine DB aussucht und in der nächsten Combobox dann eine Liste mit Tabellen in dieser DB angezeigt bekommt und wieder wählen kann.Bei der DB hat das auch prima geklappt

siehe hier :


Dim Adapt As New MySqlDataAdapter
Dim DatTab As New DataTable
Adapt = New MySqlDataAdapter("show databases", vb)

Adapt.Fill(DatTab)

ComboBox1.DataSource = DatTab
ComboBox1.DisplayMember = "Database"

Dadurch bekomm ich ne Liste mit allen DBs nun möchte ich dasselbe für die Tabellen haben bekomme aber entweder einen Fehler oder es wird nur System.data.datarowview angezeigt.

komisch - mir war, als könnte man mit meinem Werk die Tabellen der Datenbank auslesen, und dann eine anwählen, und würde dann deren Inhalt sehen.

Dann hab ich dich wohl falsch verstanden, und du willst das garnet

Kann sein das es das ist aber ich möchte es gerne so weitermachen wie ich bereits angefangen habe bei der DB waren es ja auch nur ein paar zeilen kann ja nicht sein das es bei Tabellen dann so kompliziert wird

Ok habs selbst hinbekommen

Code :

Dim Adapt2 As New MySqlDataAdapter
Dim DatTab2 As New DataTable

Adapt2 = New MySqlDataAdapter("Select * from information_schema.tables where table_type = 'base table' and table_schema ='" & eingabe & "'", vb)

Adapt2.Fill(DatTab2)

ComboBox2.DataSource = DatTab2
ComboBox2.DisplayMember = "table_name"
ComboBox2.ValueMember = "table_name"