with那段代码就是设定connection对象。
你使用的是ODBC连接的数据库,先察看ODBC能否连接上SQL Server
你使用的是ODBC连接的数据库,先察看ODBC能否连接上SQL Server
解决方案 »
- cBottons和dwextraInFo参数是什么意思
- 初来论坛,两个函数给大家献上,谁找出毛病,给谁分
- 关于命令行编译的问题,高手帮忙看看?
- VB怎么访问用JAVA写的程序?
- 在VB中,如何将PICTUREBOX的图像复制到IMAGE控件中,并以IMAGE裁剪后的大小存储成一个BMP文件?
- 求能支持多线形的日期输入框控件。
- 朋友提了个智力问题,苦想后无解,请大家帮忙!
- MSFlexGrid控件的rowdata属性是什么意思?
- 有关VB中类生存期的问题?
- vb的一个程序如何使它作为windows 2000 server的一个服务运行?急!急!急!急!急!急!
- 函数的含义????
- 请教MedialPlayer的问题
.Connect = "dsn=testserver;uid=jw_liu;pwd=Jw_liu;database=pisdata"
.CursorDriver = rdUseOdbc
.EstablishConnection Prompt:=rdDriverNoPrompt
End With上面的代码其实是使用DSN文件用ODBC的方法连接SQL Server(RDO)
其实尽量不要用DSN,下面是一个用ADO写的连接函数!'DSNLess Use ODBC(ADO)
Private Function ConnectSQLServer(ByVal ServerName As String, ByVal DataBase As String, ByVal UID As String, ByVal PWD As String, ByVal Timeout As Integer) As Boolean
Dim strConnect As String
On Error GoTo Error_ConnectServer
cn.CursorLocation = adUseClient
strConnect = "Driver={SQL Server};Server=" & ServerName & ";DataBase=" & DataBase & ";UID=" & UID & ";PWD=" & PWD & ";"
cn.ConnectionString = strConnect
cn.ConnectionTimeout = Timeout
cn.Open
ConnectSQLServer = True
Exit Function
Error_ConnectServer:
ConnectSQLServer = FalseEnd Function