用ADO与SQL SERVER连接时发生的问题，向高手求救！！！

Question

    cnt.Open "Provider=SQLOLEDB;Data Source=192.168.1.25;initial catalog=pubs;user id=sa;password="

Answer 1

我是这样写的：
cnt.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data001;Data Source=Server"
    cnt.Open注：其中Data001为数据库名，Server为数据库所在的服务器名称

Answer 2

dim const db_server, db_name, uid, passwordConnectString = "Provider=msdatashape;Data Provider=msdasql;Driver={sql server};" & _"Server=" & db_Server & ";Database=" & db_Name & ";UID=" & UserID & ";PWD=" & Password

Answer 3

记录号是xBase的概念，在SQL中没有记录号。SELECT查询返回的记录并不考虑物理顺序。如果xBase的记录号概念真的很重要，你可以需要增加一个字段来记录该条记录被加入的时间。 

Answer 4

'DSNLess Use ODBC
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

Answer 5

ConnectString= "provider=sqloledb;server=servername;uid=sa;pwd=sa;database=databasename"
   Dim cnn As ADODB.Connection
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString

Answer 6

也许是因为你装98的问题
在98里的ADO版本问题
你装MDAC试试

Answer 7

你的Connection连接字符串有问题
还有，在建立Connection时候可以用
Dim NewConn as Adodb.connection
Set NewConn = new Adodb.connection最好不用Set NewConn=CreateObject("Adodb.connection")
容易出问题！