Sub ConnectToServer() '连接服务器
On Error GoTo Errorhandle
Set MyConn = New ADODB.Connection
With MyConn
.Provider = "SQLOLEDB.1"
.ConnectionString = "Driver={SQL Server};SERVER=computer\mdfss;DATABASE=stljsh;UID=sa;PWD=***"
.CursorLocation = adUseClient
.Open
End With
Exit Sub
Errorhandle:
MsgBox "出现错误:" & Err.Description
End Sub
以上代码是我在EXCEL2003里用的,想在局域网环境开发C/S架构,服务器是WINDOWS2003,在网上找了很久,总是说客户端一定要安装SQLSERVER客户端,可是为什么我的机器不用安装也可以连接上呢?是否连接的驱动都在ADO2.8里了呢?是否只要安装了ADO2.8就可以不用安装SQLSERVER客户端了呢?
On Error GoTo Errorhandle
Set MyConn = New ADODB.Connection
With MyConn
.Provider = "SQLOLEDB.1"
.ConnectionString = "Driver={SQL Server};SERVER=computer\mdfss;DATABASE=stljsh;UID=sa;PWD=***"
.CursorLocation = adUseClient
.Open
End With
Exit Sub
Errorhandle:
MsgBox "出现错误:" & Err.Description
End Sub
以上代码是我在EXCEL2003里用的,想在局域网环境开发C/S架构,服务器是WINDOWS2003,在网上找了很久,总是说客户端一定要安装SQLSERVER客户端,可是为什么我的机器不用安装也可以连接上呢?是否连接的驱动都在ADO2.8里了呢?是否只要安装了ADO2.8就可以不用安装SQLSERVER客户端了呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货