Question

vb6 连接mysql

这是我的mysql空间 gongzuo.in 只创建了一个数据库,其它的表,字段都还没有创建,我现在要连接怎么连接不上,初次使用外网IP来连接,以前都是在电脑上用的127.0.0.1连接的.原因不明,百度过都没有视频看,请懂的人指教,如果知道哪有相关的视频看,也请提供下.我用这个远程数据库只需要两个功能,查询和添加,其它删除等暂时还不需要

Answer 1

我没有做过外网 本地测试我的没问题，你试下你的rs.Open带上参数，另外 检查下你的adodc1控件的属性窗口的“connectionstring”属性和adodc1.recordsource这2个属性不要有值，代码方式就不要再在属性里设置 双设置会李察有冲突 另外 你的 sql="select * from users" 我不明白是什么意思 你试下 sql="select * from erqiuda"  或 sql="select * from erqiuda where users"   还不成我也就不知瞎扰坦道了......

Option Explicit
 Private adoxConn As New ADODB.Connection      '定义连接对象
 Private adoxrdst As New ADODB.Recordset       '定义记录集对象
 Private adoxcomd As New ADODB.Command         '定义命令对象
Private Sub Form_Load()
  
  On Error GoTo Errmdbs
  
  Dim Connstr As String
  '无密码本地数据库
  Connstr 磨桐= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MDB数据库.mdb;Persist Security Info=False"
  adoxConn.Open Connstr
  '“MDBdate”就是数据库表名
  adoxrdst.Open "select * from MDBdate", adoxConn, adOpenKeyset, adLockOptimistic
  adoxConn.CursorLocation = adUseClient
  adoxrdst.Requery
  '绑定DataGrid1控件
  Set DataGrid1.DataSource = adoxrdst
Exit Sub
'检测到错误
Errmdbs:
  MsgBox "错误号：" & Err.Number & vbCrLf & "错误信息： " & Error, 0 + 16 + 0, "程序终止"
  
  '关闭连接
  'adoxConn.Close
  '释放对象
  Set adoxConn = Nothing
  Set adoxrdst = Nothing
  Set adoxcomd = Nothing
End
End Sub

追问

我本地测试也是可以的,就是外网怎么连不上

我本地测试也是可以的,就是外网怎么连不上

追答

我刚网上看了下远程数据库 跟本地完全是2回事。。。我没条件装SQL 帮不了你了。不过感觉演示示例也不是很难 自己多研究下吧或等待别人回答你了。不好意思。
这个是别人的资料 估计对你有帮助
http://www.doc88.com/p-617721597230.html

追问

我自己解决了,分给你吧

Answer 2

变量 dbhost的值是 远程数据库服务器主机的IP地址或主机名

追问

能不能给点有实际作用的,这个我知道
我就是不知道这人 db_data这个是什么意思,我理解 是数据源的意思