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

yanyanstar 2009-04-13 11:46:50
我写的连接代码如下:
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

为什么运行的时候没有反应呢
...全文
91 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
bpm520 2009-04-21
  • 打赏
  • 举报
回复
我晕,你的代码没有问题
我测试的时候没有付你的值。直接在值里面修改我的值运行的。
你的问题:
1 添加部件ADO
2 你的MYSQL是否正常运行。
检查上面2个问题
bpm520 2009-04-21
  • 打赏
  • 举报
回复
"UID=" & db_user & ";PWD=" & db_pass & ";" & _

刚才没写好,这样
bpm520 2009-04-21
  • 打赏
  • 举报
回复
"UID=" & db_user & ";PWD=" & db_pass & ";" & _ 

去掉红色部分,连接成功
lsztzccby 2009-04-16
  • 打赏
  • 举报
回复
比较了一下,应该是没设置端口
feixiangzaici 2009-04-16
  • 打赏
  • 举报
回复
给你个正确的连接方法

Public Function ConnData_us() As String '连接数据库函数

ConnData_us = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "Port=3306;" _
& "DATABASE=test_ch_us;" _
& "UID=ch;PWD=123456; OPTION=3"
End Function

localhost:本机
test_ch_us:数据库名
ch:mysql的用户名
123456:密码
jekkyyu 2009-04-15
  • 打赏
  • 举报
回复
肯定是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"
这段出错误啦!仔细看看。
xrongzhen 2009-04-13
  • 打赏
  • 举报
回复
设置断点,调试一下,看看错误出现在那条语句上

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧