✔ Füllen einer cbo mit Tabellennamen

[czemmel]

Hallo zusammen,
möchte aus einer sdf-DB die Tabellen auslesen und in einer cbo anzeigen lassen.
Leider habe ich irgendwo einen Fehler und komme einfach nicht weiter.
Es wird in der cbo immer nur "System.Data.DataView ManagerListItem Typ Descriptor" angezeigt.

Bitte um Hilfe
Hier mein Code:

sdfconn = New SqlServerCe.SqlCeConnection("Data Source=" & strDBPfad & "\" & strDBName)
        
  ' ## Datenbank öffnen
 sdfconn.Open()
        
 ' ## Füllen der Combobox2
 Dim sdfsql = New SqlServerCe.SqlCeCommand("Select * from inforamteion_Schema.tables  ", sdfconn)

 Dim adapter As SqlServerCe.SqlCeDataAdapter
 adapter = New SqlServerCe.SqlCeDataAdapter(sdfsql)

 adapter.TableMappings.Add(tableMapping)

Dim ds As New DataSet
adapter.Fill(ds)

 ComboBox2.DataSource = ds
                '  ComboBox2.DisplayMember = "Table_name"
  Finally

 End Try
 sdfconn.Close()

Irgendwo ist der Wurm drinn
Danke
Czemmel

 

[Norbert Eder]

Zumindest mal sicher im SQL Statement: inforamteion solltest du umbenennen.

 

[czemmel]

Danke, bekomme aber immer noch die gleiche anzeige
Gruß
Krebsbachbub

 

[FwDonnerbalken]

Hi,

vielleicht solltest du aus dem DataSet explizit die Tabelle mit den Schemainformationen der DataSource der Combobox zuweisen.

Gruß,
Sebastian

 

[czemmel]

Danke für den Hinweis,
aber ich habe mittlerweile eine Lösung gefunden, die funktioniert:

 ' ## Füllen der Combobox2
  Try
sdfsql = New SqlServerCe.SqlCeCommand("Select Table_name 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)
                       cboTabellen.Items.Add(R.Item(0).ToString)
                        cboTabellen.SelectedIndex = 0
                        cboTabellen.SelectedValue = cboTabellen.SelectedIndex
                        Next
                     Next
     Finally
   End Try

Die cbo wird Richtig gefüllt und bei der Auswahl der Tabellen bekomme ich dann auch meine komplette Anzeige.

Gruß
Krebsbachbub