Public db As ADODB.Connection Public rs As New ADODB.RecordsetPublic Sub DB_Open() Dim strconn As String
'open database Set db = New ADODB.Connection strconn = "Provider=sqloledb;Data Source=sql-server;User Id=new;Password=new;"其中sql-server为主机名,provider=sqloledb是驱动程序供应商,是固定串。 db.Open strconn End Sub
再将考下来的连接字符串赋给strcnnstring
";server=" & txtServer & _
";uid=" & txtUserName & _
";pwd=" & txtUserPwd & _
";database=" & txtDB
txtServer是服务器IP地址
如果服务器不是固定IP地址,那么上网后SqlServer2000要重启动一下
只要 Telnet xxx.xxx.xxx.xxx 1433 成功,就能连接上
我好像连接不成功,怎么在SQL SERVER 2000中开启这个服务和这个端口!?
解决:
1。选择服务器网络实用工具,看TCP/IP协议是否被禁用,有断口选项
1433 是SQL Server默认的端口
2。服务器上网后重新注册或重启一下适宜市
Public rs As New ADODB.RecordsetPublic Sub DB_Open()
Dim strconn As String
'open database
Set db = New ADODB.Connection
strconn = "Provider=sqloledb;Data Source=sql-server;User Id=new;Password=new;"其中sql-server为主机名,provider=sqloledb是驱动程序供应商,是固定串。
db.Open strconn
End Sub
客户端一样
试试
谢谢!