关于vb连接mysql数据库的问题

2009-04-13 11:46:50 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB访问MySQL数据库的实现与源码在VB中可以使用ADO数据控件实现对MySQL数据库的访问，但ADO控件不能直接访问MySQL，需要安装MyODBC(可以在网上下载)并在ODBC中注册一个用户DSN(控制面板/管理工具/数据源)，这样就能使VB顺利连接到MySQL数据库了。连接上了还需要执行SQL查询操作并能取得查询结果，可以使用ADODB的Command对象和RecordSet对像。实现VB对MySQL的访问的具体代码如下：P 阅读详情

我写的连接代码如下：
Private Sub sjk_connect()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
Dim sql As String
db_host = "localhost"
db_user = "root"
db_pass = "123456"
db_data = "yanyan"
strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
cn.Open strCn
If cn.State = 1 Then
MsgBox "连线成功!"
Else
MsgBox "无法连线!"
End If
cn.Close
End Sub

为什么运行的时候没有反应呢

...全文