Habe es geschafft.
Hier die Lösung, vielleicht hilft die ja auch jemand anders
Gruß
Krebsbachbub
Hier die Lösung, vielleicht hilft die ja auch jemand anders
Code:
sdfconn = New SqlServerCe.SqlCeConnection("Data Source=" & strDBPfad & "\" & strDBName) ' ## Datenbank öffnen sdfconn.Open() ' ## Füllen der Combobox2 Try Dim sdfsql = New SqlServerCe.SqlCeCommand("Select * from information_Schema.tables ", sdfconn) Dim adapter As SqlServerCe.SqlCeDataAdapter adapter = New SqlServerCe.SqlCeDataAdapter(sdfsql) Dim ds As New DataSet adapter.Fill(ds) For i As Integer = 0 To ds.Tables.Count - 1 Dim Dt As DataTable = ds.Tables(i) For j As Integer = 0 To Dt.Rows.Count - 1 Dim R As DataRow = Dt.Rows(j) For k As Integer = 0 To Dt.Columns.Count - 1 'Debug.Print(Dt.Columns(k).Caption & ": " & R.Item(k).ToString) If Dt.Columns(k).Caption = "TABLE_NAME" Then ComboBox2.Items.Add(R.Item(k).ToString) End If Next Next Next
Krebsbachbub
Comment