Gegevens opvragen met een ComboBox.

[alberto10]

In de ComboBox met de naam CmbTabellen worden de Tabelnamen geladen.
In VB6 kon men dan gegevens opvragen met onderstaande code :

"SELECT * FROM " + CmbTabellen + "

Hoe moet ik bovenstaande code aanpassen zodat deze in VB2008 werkt want zelf kom ik er niet uit.

Dank bij voorbaat.

 

[ArComAr]

Je gaat de selectedItem property van je combobox moeten opvragen:

dim str as string = "SELECT * FROM " & combobox.selectedItem

Je moet geen extra dubbele quote meer plaatsen na de tabel

 

[st0ne2thedge]

TabelNamen ophalen en in lijst brengen

    Dim DatabasePath As String = "Database Path Here;" 

    Dim ConnString As String = _

        "Provider=Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=" & DatabasePath & _

        "Persist Security Info=False;"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim SchemaTable As DataTable

        Dim conn As New System.Data.OleDb.OleDbConnection(ConnString)

        Try

            LstTabelNm.Items.Clear()

            conn.Open()

            SchemaTable =   conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})

 

            Dim int As Integer

            For int = 0 To SchemaTable.Rows.Count - 1

                If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then

                    LstTabelNm.Items.Add(SchemaTable.Rows(int)!TABLE_NAME.ToString())

                End If

            Next
 
        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString, Application.ProductName,    
                        MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally

        conn.Close()

        End Try
 
    End Sub

Deze code zou je alle tabelnamen moeten opgeven, buiten de systeemtabellen dan.