VB连接远程数据库SQL SERVER 连接不上

Question

Private Sub Timer1_Timer()
Dim ConnX As New ADODB.Connection
'生成连接字符串
 ConnX.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=jnjw2008;Initial Catalog=tygl;Data Source=192.168.0.119"On Error GoTo ConnErr
    '连接数据库
    ConnX.Open
    MsgBox "连接数据库成功！服务已启动...", vbInformation, "连接"
    
    Exit Sub
ConnErr:
    MsgBox "连接数据库错误！", vbInformation, "连接"
    End Sub以上为本人用vb6.0写的个远程连接数据库的小程序，有个问题在本地机上测试完全正常，但是当我放到其他机器上的时候就不能访问请问各为是什么原因！！！

Answer 1

因为你的Source=192.168.0.119，远程机器没有访问权限。你要先连通网络，才能够直接用这个方法打开数据库。建议使用ODBC

Answer 2

能不能给个odbc的连接语句啊，谢谢

Answer 3

http://www.cnblogs.com/tongnaifu/archive/2008/10/21/1316141.html

Answer 4

1，SQL服务所在机器关闭防火墙
2，在连接不上的机器上安装mdactyp2.8mdactyp.exe
3，在连接不上的机器的控制面板中手工配制ODBC数据源到SQL

Answer 5

Public cn  As New ADODB.Connection
        cn.ConnectionString = "provider=" & providercob & ";server=" & servernametxt & ";uid=" & uidtxt & ";pwd=" & UserPwd & ";database=" & DatabaseName
        cn.CursorLocation = adUseClient
        cn.Open