前端之家收集整理的这篇文章主要介绍了
实现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