初学者提问：怎么可以让自己的VB程序在别人的电脑里可以访问我电脑上的服务器啊？

Question

没搞明白，怎么可以让自己的VB程序在别人的电脑里可以访问我电脑上的服务器啊？

Answer 1

Provider=SQLOleDb;data source=IP_address;Initial Catalog=db_name;User ID=sa;Password=admin

Answer 2

我的adodc控件的ConnectionString属性值设为Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=Cpmaa01;Data Source=218.80.18.197
这样好像还是不行嘛 何故吖？ 有点晕了

Answer 3

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As BooleanPublic Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "218.80.18.197" ''服务器的名字
conn.Properties("initial catalog").Value = "Cpmaa01" ''库名
conn.Properties("integrated security").Value = "SSPI" ''登陆类型
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can''t connect"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
End Function
Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End SubPublic Function openrs(ByVal strsql As String) As Boolean ''连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openrs = True
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKCancel, "error:connect")
openrs = False
End
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub 

Answer 4

楼主的问题貌似不是很详细～～～
第一个，楼主安装的数据库是什么？？？
第二，如果是SQL2000有没有安装SP3以上版本的补丁
第三，1433的端口有没有打开，
第四，检查防火墙
第五，打开VB，VB6还是.NET，如果是VB6要引用一个ACTIVEX 2.1的类文件

Answer 5

非常感谢各位，我已经连通了，立刻抓紧时间上来和大家通报一声，免得后来者继续上来浪费时间打字了。希望以后有地方也可以帮到大家的。
总结一下，我用的是VB6，adodc控件的ConnectionString属性值设为Provider=SQLOLEDB.1;Password=1234;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=Cpmaa01;Data Source=218.80.18.197 
是没有问题的。
这两天，开始研究一下farpoint公司的spread控件了以及恶补sql语法。最终我是希望做一个商用的客户端，数据库可能会用postgresql和h2.如果谁有spread的使用心得，或者正在使用的朋友，一起交流啊。

Answer 6

问题又来了，因为我是adsl的，所以重新拨号之后我就重写了一下程序，sql2k也重新设置了一下，结果就连不上了，请教该怎么排查啊？