vb和sql server2000数据库连接问题

Question

Public cnData As New ADODB.Connection
cnData.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=库名;Data Source=服务器名"
cnData.Open

Answer 1

楼主到这里看看吧，都是测试过的函数！！http://expert.csdn.net/Expert/topic/1099/1099599.xml?temp=.2735712其实我看了一下，ODBC和OLE DB连接SQL Server2000的函数，有以下几种：
1、使用ODBC的OLE DB提供者打开连接（DSN方式）
2、使用ODBC的OLE DB提供者打开连接（无DSN方式）
3、使用SQL Server的OLE DB提供者打开连接
4、使用SQL Server的OLE DB提供者打开可靠连接
5、使用Connection对象的属性打开连接
6、使用UDL文件与SQL Server进行连接(更多信息，可参考SQL Server2000的帮助)
7、使用Data Link对话框来连接SQL Server

Answer 2

2》' DSNLess Connection using the OLE DB provider for ODBC - MSDASQL
Public Function ConnectSQLServer(ByVal ServerName As String, ByVal DBName As String, ByVal UserName As String, ByVal PWD As String, Optional ByVal ConnectionTimeOut As Integer = 15) As Boolean
    Dim strConnect As String
    
    On Error GoTo Error_ConnectSQLServer
    ' DSNLess Connection using the OLE DB provider for ODBC - MSDASQL
    cn.CursorLocation = adUseClient
    strConnect = "Driver={SQL Server};Server=" & ServerName & ";DataBase=" & DBName & ";UID=" & UserName & ";PWD=" & PWD & ";"
    cn.ConnectionTimeOut = ConnectionTimeOut
    cn.Open strConnect
        
    ConnectSQLServer = True
    Exit Function
    
Error_ConnectSQLServer:
    ConnectSQLServer = False
End Function

Answer 3

1》' Connect using the OLE DB provider for SQL Server - SQLOLEDB
Public Function SQLOLEDBConnect(ByVal ServerName As String, ByVal DBName As String, ByVal UserName As String, ByVal PWD As String, Optional ByVal ConnectionTimeOut As Integer = 15) As Boolean    Dim strConnect As String
    
    On Error GoTo Error_SQLOLEDBConnect
    
    
    ' Connect using the OLE DB provider for SQL Server - SQLOLEDB
    strConnect = "PROVIDER=SQLOLEDB;Server=" & ServerName & ";DataBase=" & DBName & ";UID=" & UserName & ";PWD=" & PWD & ";"
    cn.ConnectionString = strConnect
    cn.ConnectionTimeOut = ConnectionTimeOut
    cn.Open    SQLOLEDBConnect = True
    Exit Function
    
Error_SQLOLEDBConnect:
    SQLOLEDBConnect = False
    
End Function