vb与mysql实现登录界面_实现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