MySQL tabellen naar ListBox

Status
Niet open voor verdere reacties.

Stinuz

Terugkerende gebruiker
Lid geworden
14 jun 2003
Berichten
1.245
Ik wil graag dat de tabellen in tabel1 worden weergegeven in ListBox1

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
Dan krijg ik;
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
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 :D

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
Er bovenop dus :D
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan