34,590
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
愉快的登山者 2003-01-16
- 打赏
- 举报
连接属性值：VB与数据库的连接参数。
pengdali 2003-01-15
- 打赏
- 举报
是ADO吗？？
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
& "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
& "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
& "Use Encryption for Data=False;Tag with column collation when possible=False"
dim AcSys as new adodb.connection
With AcSys
If .State = adStateOpen Then .Close
.NonnectionString = StrCon
.ConnectionTimeout = 30
.Open
End With
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
& "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
& "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
& "Use Encryption for Data=False;Tag with column collation when possible=False"
dim AcSys as new adodb.connection
With AcSys
If .State = adStateOpen Then .Close
.NonnectionString = StrCon
.ConnectionTimeout = 30
.Open
End With
