VB6.0连接远程mysql连接,要什么编程?请详细把码发出来,谢谢 包括是否要对MYSQL动手脚.

* 服务器: db4free.net ///是否要在其前面加(www.)或(
http://www.
)之类
* 服务器版本: 5.5.16-log
* 协议版本: 10
* 用户: awdaw@88.198.43.24 //实际是我用awdaw这个名就可以通过PHP登录进去
* MYSQL数据库名:asdfajkldjfa//我注册的数据库名

VB6.0与这个mysql连接,要什么编程?请详细把码发出来,谢谢.

最好是绿色连接的,我要这个程序放在客户里,服务器没有程序来连接的.

类似一个登录程序,与远程数据库里的数据相比较,是否有这个人.然后直接从远程数据库里读个人信息,比显示在本机客户机里.

//////////
关键是如何连接远程数据库,并成功读一个表
/////
最好是绿色的连接
最新回答
威猛的小平胸

2025-03-01 12:30:09

下面给你的代码是百分之百可以连接成功的，它也是我正在使用中的代码片段哦。
Private Sub Command1_Click()
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
db_host = "188.88.88.188" '服务器IP地址
db_user = "users" '登陆服务器时的“用户名”
db_pass = "passwords" '登陆服务器时的“密 码”
db_data = "sqlname" '数据库的库名称sqlname（不是表名称）
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 '打开数据库
cn.CursorLocation = adUseClient
If cn.State = adStateOpen Then MsgBox "打开远程MySQL数据库成功"
'下面开始对具体表（假设"userstabel"）进行操作
rs.Open "userstabel", cn, adOpenKeyset, adLockOptimistic '打开表"userstabel"
MsgBox "远程数据表 userstabel 中的记录数量 = " & rs.RecordCount
rs.AddNew '开始添加一条记录
rs.Fields("filed1") = x
rs.Fields("filed2") =y
rs.Fields("filed2") = z
rs.Update
rs.Close '关闭表
cn.Close '关闭数据库
If cn.State = adStateClosed Then MsgBox "远程数据库MySQL关闭成功"
End Sub

注意，要首先知道你的：
1、数据库服务器IP地址
2、登陆服务器的“用户名”
3、登陆服务器的“密 码”
4、数据库的库名称
5、数据库内的表名称
还要在你使用上述代码的计算机上设置DSN或正确安装驱动程序。
追问
还要在你使用上述代码的计算机上设置DSN或正确安装驱动程序。 

/////
请问如何设置DSN,或驱动程序?谢谢,请详细告诉我一下.
/////
请问,你有没有绿色的连接mysql办法没?
追答
我的代码本来就是绿色的。
你看看我下面的几个学习资料吧。关于驱动程序的安装你看第一个就是：
《vb6.0动态加载ODBC驱动（MySQL数据源）的完整vb代码》
1、
http://zhidao.baidu.com/question/195868366.html

2、
http://zhidao.baidu.com/question/325077785.html


你有了我前面给你的绿色代码以及这里的动态加载驱动的知识，访问远程Mysql数据库就完全足够了。这都是我的经验了。
追问
还是不行,真火,我找了2周,还不成功

DLL和OCX已经注册过了
追答
我已经做过这样的项目，所以我可以说一定可以成功。但主要还是根据上述部分知识已经足够，至于你的Dll货Ocx注册过了，是否真正成功、或版本是否一一正确？这都需要你慢慢的研究。再不行你将数据库资料给我，我在这里调试好并登陆成功再给你代码。回去你再自己重改密码和用户资料也可以。
    你都看见我的学习这方面知识的过程了啊，哪个问题不是高分超高分去求助的呢？现在却直接给了你最后的研究结果了，你还是没明白，我都不好意思啦。
睡着的未来

2025-03-01 09:09:32

下面给你的代码是百分之百可以连接成功的，它也是我正在使用中的代码片段哦。
Private Sub Command1_Click()
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
db_host = "188.88.88.188" '服务器IP地址
db_user = "users" '登陆服务器时的“用户名”
db_pass = "passwords" '登陆服务器时的“密 码”
db_data = "sqlname" '数据库的库名称sqlname（不是表名称）
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 '打开数据库
cn.CursorLocation = adUseClient
If cn.State = adStateOpen Then MsgBox "打开远程MySQL数据库成功"
'下面开始对具体表（假设"userstabel"）进行操作
rs.Open "userstabel", cn, adOpenKeyset, adLockOptimistic '打开表"userstabel"
MsgBox "远程数据表 userstabel 中的记录数量 = " & rs.RecordCount
rs.AddNew '开始添加一条记录
rs.Fields("filed1") = x
rs.Fields("filed2") =y
rs.Fields("filed2") = z
rs.Update
rs.Close '关闭表
cn.Close '关闭数据库
If cn.State = adStateClosed Then MsgBox "远程数据库MySQL关闭成功"
End Sub

注意，要首先知道你的：
1、数据库服务器IP地址
2、登陆服务器的“用户名”
3、登陆服务器的“密 码”
4、数据库的库名称

您可能感兴趣问答

Collapsible

热门标签

编程 Python Microsoft 编程语言 C++ C（编程语言） Java javascript PHP MySQL 前端开发 Office 计算机 Java编程 Excel vue dedecms 数据库 计算机语言 正则表达式

热点问答