connectdb.txt

VB使用ADO控件实现对MySQL数据库的访问的源码 我就是根据那个实现对数据库的访问的

Private Sub Command1_Click()
Text2 = Text1
End Sub

Private Sub connect_Click()
    Dim conn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset

    'connect to MySQL server using MySQL ODBC 3.51 Driver
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
    "SERVER=localhost;" & _
    "DATABASE=bs;" & _
    "UID=root;PWD=;OPTION=3"
    conn.Open
    cmd.CommandText = "select * from student"
    cmd.ActiveConnection = conn
    rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
    Do While Not rs.EOF
    pic.Print "Name: " & rs("sname")
    rs.MoveNext
    Loop
    'cmd.CommandText = "create table ss(tt char(5))"
    'cmd.ActiveConnection = conn
    'cmd.Execute
End Sub