vb ado 连接mysql

1,从mysql网站下载odbc驱动 mysql-connector-odbc-noinstall-5.1.4-win32 MySQL ODBC 5.1 Driver

 

2,从 http://www.connectionstrings.com/网站上查找连接mysql得驱动

 

3,添加对ado得引用

 

4,声明打开

  Dim cn  As ADODB.Connection

  Dim rs As ADODB.Recordset

  Dim command As ADODB.command

 

5,打开数据库，连接，

 

   Set cn = New ADODB.Connection

   Set rs = New ADODB.Recordset

   cn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=db1; User=;Password=;Option=3;"

   cn.Open

 

   rs.Open "select * from user1", cn, adOpenStatic, adLockBatchOptimistic, -1

   Do While Not rs.EOF

      Debug.Print rs(0)

      Debug.Print rs(1)

      Debug.Print rs(2)

     rs.MoveNext
  Loop

 

6，关闭数据库

   If Not rs Is Nothing Then

       If rs.State = ObjectStateEnum.adStateOpen Then

          rs.Close

       End If

    End If
   
    Set rs = Nothing

    If Not cn Is Nothing Then

       If cn.State = ObjectStateEnum.adStateOpen Then

         cn.Close

       End If

    End If

    Set cn = Nothing