MySQL med Visual Basic
Förord
Litet exempl på hur man ansluter till MySQL via Visual Basic 6.Innehåll
Lägg till följande i en modul:
------------------------------------------------------------------------------------
------------------------------------------------------------------------------------
Lägg nu till följande i en command
------------------------------------------------------------------------------------
Ladda hem mysql och odbc drivrutinen på
Lycka till!
------------------------------------------------------------------------------------
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Function ConnDB()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & "localhost" & ";" _ ' HOSTNAME TILL SERVER
& "DATABASE=" & "mydb" & ";" _ ' NAMNET PÅ DATABASEN
& "UID=" & "root" & ";" _ ' ANVÄNDARNAMNET TILL MySQL
& "PWD=" & "******" & ";" _ ' LÖSENORDET TILL MySQL
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
conn.Open
End Function
Public Function CloseDB()
Set rs = Nothing
conn.Close
Set conn = Nothing
End Function
------------------------------------------------------------------------------------
Lägg nu till följande i en command
------------------------------------------------------------------------------------
ConDB
rs.Open "SELECT * FROM test WHERE 1=0", conn, adOpenStatic, adLockOptimistic
rs.AddNew
rs!Namn = "MIN DATA"
rs.Update
rs.Close
CloseDB
Ladda hem mysql och odbc drivrutinen på
Lycka till!
0 Kommentarer