VB如何连接网络数据库
有人说用SQL Server但我不知道怎么弄得，就是多客户端连接服务器的数据库修改、查询记录，服务器IP固定,意思就是连接网络数据库是通过IP地址访问,具体怎么实现？可不可以详细一点？
QQ:347789464
最新回答
孤独儛埗
2025-03-01 06:48:34
Private Sub Coammand1_Click()
Adodc1.connectionstring="Driver={SQL Server};Server=服务器IP;Uid=用户名;Pwd=密码;DataBse=数据库名"
Adodc1.RecordSource="SELECT * FROM 表名 WHERE 条件"
Adodc1.Refrsh
End Sub
要进行数据操作就这样引用:
Adodc1.RecordSet.Fields("字段名")这就是操作数据字段
把Adodc1绑定到数据控件那就是绑定数据源
作业天天追着我告白！
2025-03-01 15:35:25
【方法举例】你可以采用“vb+asp+数据库”的结构来设计，即vb代表客户端、asp作为连接客户与数据库之间的桥梁。asp和数据库放在服务器。然后你通过vb访问asp和向asp发送数据的形式来间接达到访问数据库的目的。
追问
有没有更直接的方法?就像VB连接本地数据库一样? 因为要涉及到大量的查询操作和新增记录操作,ASP能够足够方便么？不是很了解，
追答
假设你的vb要连接到远程服务器的MySQL专用数据库上，可以用以下代码：
Private Sub Form_Load()
Dim cn As New ADODB.Connection '创建数据库对象
Dim rs As New ADODB.Recordset '创建表对象
Dim strCn As String '连接字符串
Dim db_host As String '服务器IP地址
Dim db_user As String '用户名
Dim db_pass As String '密码
Dim db_data As String '数据库名称
Dim db_table As String '表名称
db_host = "100.9.88.100" '服务器IP地址
db_user = "zhangsan" 'Mysql数据库登陆用户名
db_pass = "zhangsan" 'Mysql数据库登陆密码
db_data = "zhangsansql" '数据库的库名称
db_table = "zhansanTable" '表名称
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数据库成功"
'下面开始对具体表（假设"zhansanTable"）进行操作
rs.Open db_table, cn, adOpenKeyset, adLockOptimistic '打开表
'这里你可以对打开的表进行操作【增加、删除和修改等】
MsgBox "远程数据表中的记录数量 = " & rs.RecordCount
rs.Close '关闭表
cn.Close '关闭数据库
End Sub
******************************************************************
【补充】
你要连接远程数据库还有很重要的是：第一你必须申请并开通了数据库服务器、另外在运行vb客户端的电脑必须做好正确的ODBC设置，我这里给你的代码中采用的ODBC驱动是“ODBC 3.51 Driver”。
我已经跟你说的很明白啦，上面就是给你的详细代码。明白了吧，拜拜，睡觉。
追问
好吧，，最后一个问题，服务器上的MySql怎么设置？ 我所在的网络是内网,需要映射端口吧？怎么设置mysql? 公网IP是固定的,服务器内部IP也是固定的,怎么设置MySQL呢？而且数据库是要求在互联网中都可以访问的，不是只在局域网内访问。提供个教程也行，谢谢了！
追答
看来你想使用自己的内网做服务器？并且要在公网访问？......给你建议是“不可行”，原因太多，“怎么设置”实在一言难尽。
最后建议你先去向服务器提供商购买一个自己在费用上能承受的数据服务器吧、甚至是一个带数据库的虚拟空间也行啊。那样你就不用设置什么东东了，购买成功、人家会提供给你服务器的固定IP的，你只要在里面新建一些你的数据表即可用我上述的代码访问了。
追问
我现在连接上了，如何判断服务器是否连通呢？ conn.open 虽然在连接失败之后用错误捕获可以判断，但是需要10几秒的时间，程序还会假死，有什么其他办法呢？最后一个问题，解决了多加分。谢谢
追答
这个可以给你一个非常简单的方法即可达到你的目的“如何判断服务器是否连通”，这个与上述的数据库无关。废话少说、开始解答吧：
****************************采用Ping IP的方法来判断*******************************
假设你的服务器IP地址是192.168.1.1(假设的哦)，我想你有了服务器、应该会有个固定的IP吧
以下是完整代码，你只要在需要检测的位置调用函数：Call PingIp("192.168.1.1")
如果PingIP返回的是true则通了，false就没通。
.............
【哎呀，烦死人喽，代码太长，这里发不出来啊？？？？？】
这段代码我给你临时放在“竹木小屋”网站下，放置时间估计1个月，你自己去下载了。
地址这里也放置不上来，只有给你用图片形式显示啦，如下：
热门标签
