itemlist met mysql data

[timboiscool]

Hoi lezers!
ik ben bezig met een soort informatie programma die kan connecten met mysql maar nu wil ik een listbox met data uit mysql.
weet iemand hoe dit moet dit had ik tot nu toe maar werkte niet.

Imports MySql.Data.MySqlClient
Imports System.Data
Public Class users
    Dim conn As MySqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'connect to DB
        conn = New MySqlConnection()
        conn.ConnectionString = "server=localhost; user id=root; password=root; database=test"
        'see if connection failed.
        Try
            conn.Open()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        End Try
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim items = "SELECT username FROM members"
        ListBox1.= items
    End Sub
End Class

help me alsjeblieft:thumb:

 

[Jabber]

Zet anders ook even je foutmelding erbij.

Misschien heb je hier wat aan:

http://dev.mysql.com/tech-resources/articles/ebonat-connection-string-vb-net.html

 

[timboiscool]

nou ik wil het eigenlijk met een textbox doen.
kijk dit heb ik nou:

Imports MySql.Data.MySqlClient
Imports System.Data

 Private Sub main_menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        w1.Navigate("5.140.245.229/nieuws.html")
        'connect to DB
        conn = New MySqlConnection()
        conn.ConnectionString = "server=localhost; user id=root; password=root; database=test"
        'see if connection failed.
        Try
            conn.Open()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        End Try
        Dim items = "SELECT * FROM nieuws"
        nieuws.Text = items


    End Sub

er komt geen error meer maar nu is de text van nieuws(label) : SELECT * FROM niews


please help me!

 

[Jabber]

[CPP] Dim mMySqlCommand = New MySqlCommand
Dim myAdpapter as New MySqlDataAdapter
Dim myData As New DataTable

With mMySqlCommand
.Connection = conn
.CommandText = "SELECT * FROM nieuws"
End With

myAdapter.SelectCommand = myCommand
myDataAdapter.Fill(myData)[/CPP]

Dit zal een table teruggeven met al je data.
Als je het wilt laten zien in de testbox moet je toch anders doen.
Je kunt een tabel niet laten zien in een string.

dataGridView1 is een datagridview op je form.
Je kunt het testen door een [CPP]datagridview1.DataSource = myData[/CPP] te doen.

Voor meer info:
http://www.vbmysql.com/articles/vbnet-mysql-tutorials