50分问个简单问题（SQL）

Question

Public 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 = "201.71.207.221" '服务器的名字
conn.Properties("initial catalog").Value = "vss_xinxi" '库名"
conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "目前无法连接服务器"
Call MsgBox(mag, , "Error:Data connect")
addFlag = False
End
End Function
这是我在网上找到的 连接服务器的过程 我在本机试过了 停好用
但是现在碰到的问题是 我要连接远程服务器上的数据库，发现连不上去什么原应我IP 和库名都正确
我发现远程登陆上的数据库需要密码： 如果帐号是 “SA”  密码是 “PW” 在这个过程中如何改？

Answer 1

dbconnectionstring = "PROVIDER=MSDASQL;Driver={sql server};server=李伟;database=killer;uid=;pwd=;"
Dim adodb As New adodb.Connection
adodb.Open dbconnectionstring
Dim adors As New adodb.Recordset
adors.Open "select * from liwei92", adodb, adOpenStatic, adLockOptimistic

Answer 2

参考下，可以用你的conn.open里面输入连接字符串，用户，密码等,记得给分

Answer 3

不是说了吗，在conn.open 后面写

Answer 4

Public 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 = "201.71.207.221" '服务器的名字
conn.Properties("initial catalog").Value = "vss_xinxi" '库名"
conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Open
dbconnectionstring = "PROVIDER=MSDASQL;Driver={sql server};server=李伟;database=killer;uid=;pwd=;"
Dim adodb As New adodb.Connection
adodb.Open dbconnectionstring
Dim adors As New adodb.Recordset
adors.Open "select * from liwei92", adodb, adOpenStatic, adLockOptimistic
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "目前无法连接服务器"
Call MsgBox(mag, , "Error:Data connect")
addFlag = False
End
End Function这样吗？  不对啊 错误？

Answer 5

Public 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 = "201.71.207.221" '服务器的名字
conn.Properties("initial catalog").Value = "vss_xinxi" '库名"
conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Open
dbconnectionstring = "PROVIDER=MSDASQL;Driver={sql server};server=李伟;database=killer;uid=;pwd=;"
Dim adodb As New adodb.Connection'增加
IF Adodb.stats=1 then '判断Adodb的连接状态，如果是打开的 你在打开当然出错。
  adodb.close
Endifadodb.Open dbconnectionstring
Dim adors As New adodb.Recordset
adors.Open "select * from liwei92", adodb, adOpenStatic, adLockOptimistic
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "目前无法连接服务器"
Call MsgBox(mag, , "Error:Data connect")
addFlag = False
End
End Function‘下次有错误吧 错误描述业写出来 要不人家知道那里错了

Answer 6

conn.Properties("uid").Value = "sa" 
conn.Properties("pwd").Value = "PW"

Answer 7

在conn.Properties("integrated security").Value = "SSPI" '登陆类型
后加
conn.Properties("uid").Value = "sa" 
conn.Properties("pwd").Value = "PW"
应该没问题

Answer 8

你们都错了 连接远程SQL 把conn.Properties("integrated security").Value = "SSPI" 去掉
然后加上：
conn.Properties("user id").Value = "sa" 
conn.Properties("pwd").Value = "PW"
保证可以 我以前也碰到过这个问题用的跟你一样是这个函数