连接局域网SQL数据库（VB制作的程序）

Question

我用VB做了个小程序想连接局域网SQL数据库，我已经用ini文件配置好了连接信息，防火墙也关了，开了来宾！还是连不上！我没做过局域网连接，请各位高手能告诉我该怎么来设置可以连接上呢？是不是还要夹DSN呀，SQL配置器是不是要设置呀！icp/ip我都已经启用了！数据库连接也开了，就是连不上，是不是另外一台机也要装SQL呀！    Call GetPrivateProfileString("SQL_SERVER", "ServerName", "[]", KeyPath, 200&, App.Path & "\Confechg.ini")
    mServerName = Left(KeyPath, InStr(KeyPath, vbNullChar) - 1)
    Call GetPrivateProfileString("SQL_SERVER", "UID", "[sa]", KeyPath, 200&, App.Path & "\Confechg.ini")
    mUID = Left(KeyPath, InStr(KeyPath, vbNullChar) - 1)
    Call GetPrivateProfileString("SQL_SERVER", "Password", "[501338]", KeyPath, 200&, App.Path & "\Confechg.ini")
    mPWD = Left(KeyPath, InStr(KeyPath, vbNullChar) - 1)
    Call GetPrivateProfileString("SQL_SERVER", "DataBase", "[xingfa]", KeyPath, 200&, App.Path & "\Confechg.ini")
    mDataBase = Left(KeyPath, InStr(KeyPath, vbNullChar) - 1)
Set Con = New ADODB.Connection
Con = "Provider=SQLOLEDB.1;password=" & mPWD & ";persist security info=true;user ID=" & mUID & ";initial catalog=" & mDataBase & ";data source=" & mServerName & ""
Con.Open
[SQL_SERVER]
ServerName = WWW-F43D208FD9B\SQLEXPRESS   我也换过用IP来连接也是不行，电脑是自动获取IP的
UID = sa
Password = 501338
DataBase = xingfa还请各位教教我该怎么做！该怎么来连接
我自由这么点分了谢谢了还有谁知道我用DataReport1做读取数据，生成后在另外一台机运行时出现
运行时错误‘713’应用程序定义或对象定义的错误，是哪个东西少了，我把引用的DLL、OCX都复制过去了呀！

Answer 1

你单独用SQL能连到 那台电脑的SQL 吗?

Answer 2

提示什么错误呢？单步调试看最后赋给Con是什么字符串，格式有没有错
有没有引用ADO啊

Answer 3

我也遇到过连不上的情况，但我不是自己写的程序，是一个小型的数据库管理工具。
你把servername 改成主机名\ip的方式试下呢

Answer 4

先用查询分析器在你程序的电脑连一下你的SQL，看看能不能连得上？

Answer 5

Con = "Provider=SQLOLEDB.1;password=" & mPWD & ";persist security info=true;user ID=" & mUID & ";initial catalog=" & mDataBase & ";（电脑是自动获取IP的）如果用data source=" & mServerName & "如果用“计算机名”会出现很多的问题第一访问速度慢，第二无法链接。
你可以这样做，第一你把你的sql SERVER服务器改成固定IP,在程序里把数据源改成IP地址
如:
如果你是在用局域网那么：
Data Source=192.168.0.10
（但是其它客户机也必须是192.168.0.XXX,同在一个网段，网关也要相同如：192.168.0.1)
至于DataReport1报错，也是同上面的问题，请不要用“计算机名”来设置数据源！

Answer 6

如果SQL所在机器的操作系统是XP，则需要安装SQL2000SP4

Answer 7

在本可以连接的上数据库，在其它机上都可以访问那太电脑的共享，就是打开程序连接数据库是就出现
run-time error'-214746259(80004005)'
[DBNETLIB][CONNECTIONOPEN(CONNECT())].SQL.Serrer 不存在或拒绝访问

Answer 8

可我的数据库是SQL2005SP3的有没有什么问题

Answer 9

DataReport1报错 我已经解决了，少了个控件