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
