mySQL med Visual Basic

http://www.icarz.com/mysql/

Skulle være et svar

Hej! Jeg er ved at udvikle et program hvor jeg anvernder mysql som database. Jeg anvender vb 6.0
Opret en odbc connection til databasen.
Opretmen reference til ADO under project>references

Derefter koder du følgende

Sub DB_Conn()
Dim Conn As adodb.Connection
Dim rs As adodb.Recordset
Dim DbId As Collection

Set Conn = New adodb.Connection
Set rs = New adodb.Recordset
   
'Variable til parametre til oprettelse af connection
Dim strConn
strConn = "Driver={MySql}; Server=localhost; Option=16834; Database=MEDIEADMIN;"


Conn.Open strConn, "brúgernavn", "password"
Dim SqlString As String
SQLString = "SELECT MEDIE.ID, MEDIE.Name, MEDIE.description, MEDIETYPES.tYPE FROM MEDIE, " _
& " MEDIETYPES where MEDIE.TypeId=MEDIETYPES.id"


rs.Open SQLString, Conn, adOpenStatic, adLockReadOnly, adCmdText
    Do While Not rs.EOF
   
      List1.AddItem rs!id & " - " & rs!Name & " - " & rs!Description & " - " & rs!Type
     
   
        rs.MoveNext
        DoEvents
   
    Loop
    rs.Close

Så spiller det

Fik du det til at virke ??

Skal spg. ikke snart lukkes! :-)

lukkes