实现VB与MySQL的连接

发布时间：2020-12-17 00:01:17 所属栏目：大数据来源：网络整理

导读：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.MoveLas

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!