实现VB与MySQL的连接

Option Explicit

Dim strConn As String
Dim Conn As New ADODB.Connection
Dim rstType As New ADODB.Recordset
Dim rstBook As New ADODB.Recordset
Dim sql As String

Private Sub Command1_Click()
rstType.MoveNext
If rstType.EOF Then
rstType.MoveLast
End If
End Sub

Private Sub Form_Load()
    Dim i As Integer
    
    '使窗体居中显示
    Me.Top = (Screen.Height - Me.Height) / 2
    Me.Left = (Screen.Width - Me.Width) / 2
    
    
    
    '打开数据库和type表
    strConn = "Driver=MySQL ODBC 3.51 Driver;Server=localhost;DataBase=bookdb;User Id=root;Password=nan"
    Conn.Open strConn
    Conn.Execute ("SET NAMES 'gb2312'")
    sql = "select * from book"
    Set rstType = Conn.Execute(sql)
    Text1.Text = rstType.Fields("Bno")
    Text2.Text = rstType.Fields("Blei")
    Text3.Text = rstType.Fields("Bname")
    Text4.Text = rstType.Fields("Bauthor")
    Text5.Text = rstType.Fields("Bpress")
    Text6.Text = rstType.Fields("Bdan")
    
Label1.Caption = rstType("Bname").Value
'用控件label1控件显示字段aaa

'rstType.Close  '关闭表
'Set rstType = Nothing  '释放资源

'Conn.Close  '关闭数据库
'Set Conn = Nothing  '释放资源
End Sub