VB程序员博客

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写的个远程连接数据库的小程序，有个问题在本地机上测试完全正常，但是当我放到其他机器上的时候就不能访问请问各为是什么原因！！！

首先确定这台机子能不能访问那台机子.

在这台机子上开始运行，输入那台机子的IP地址，看能不能访问到。

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

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

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

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

如果再连不上，就要重点参照6楼的建议了。

标签: , server, 数据库, 远程