各位高手能不能给我写一个ADO连接阿，谢谢了！！！！

Question

谢谢高手们了！！！

Answer 1

'连接 SQL ANYWHERE 数据库
    'cn.ConnectionString = "Driver={Sybase SQL Anywhere 5.0};DatabaseFile=" & App.Path & "\数据库\Refer.DB;DatabaseName=Refer;UID=dba;PWD=sql;AutoStop=yes;Agent=engine;Start=" & App.Path & "\数据库\dbeng50.exe -Q"
    cn.ConnectionString = "DSN=refer;UID=dba;PWD=sql"    '连接 SYBASE 数据库
    cn.ConnectionString = "Driver={Sybase System 11};SRVR=Cuizm;DATABASE=ResManage;UID=sa;PWD=admind"
    
    '连接 SQL SERVER 数据库
    'cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
    cn.ConnectionString = ls_Constring    '连接 ACCESS 数据库
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
    App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
    "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
    "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"    cn.Open

Answer 2

'连接 SQL ANYWHERE 数据库
    'cn.ConnectionString = "Driver={Sybase SQL Anywhere 5.0};DatabaseFile=" & App.Path & "\数据库\Refer.DB;DatabaseName=Refer;UID=dba;PWD=sql;AutoStop=yes;Agent=engine;Start=" & App.Path & "\数据库\dbeng50.exe -Q"
    cn.ConnectionString = "DSN=refer;UID=dba;PWD=sql"    '连接 SYBASE 数据库
    cn.ConnectionString = "Driver={Sybase System 11};SRVR=Cuizm;DATABASE=ResManage;UID=sa;PWD=admind"
    
    '连接 SQL SERVER 数据库
    'cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
    cn.ConnectionString = ls_Constring    '连接 ACCESS 数据库
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
    App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
    "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
    "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"    cn.Open

Answer 3

告诉你个办法，新增一个窗体，数据窗体向导，按需要生成后，把其中的代码COPY出来。
记住这个方法，还能学习到各种数据库的使用方法。

Answer 4

'¶ÁÈ¡Êý¾Ý¿âÓÃadoʵÏÖ
Public Function ReadDataBase(rs As ADODB.Recordset, cn As ADODB.Connection, Optional ByVal bAsyncConnect As Boolean) As Boolean
On Error GoTo ERR
    Dim strCn  As String
      
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockPessimistic '= adLockOptimistic
    strCn = "driver={SQL Server};server=192.168.0.2;uid=sa;pwd=;database=MT2000"
            
    cn.ConnectionString = strCn
    cn.CommandTimeout = 120
    If bAsyncConnect = True Then
        cn.Open , , , adAsyncConnect 'strCn
    Else
        cn.Open
    End If
    rs.Open , cn, , , adCmdText
    ReadDataBase = True
    Exit Function
ERR:
    If ERR.Number = 3713 Then
        ReadDataBase = True
        Exit Function
    End If
    MsgBox ERR.Description, vbCritical
    ReadDataBase = False
End Function

Answer 5

添加一个adodc控件，然后在其属性页中，选择“生成连接”，进入下一步，根据你要连接的数据库的不同选择不同的引擎（如for sql sever, access, oracle等等），然后再下一步，选择数据源等信息。确定后，你会发现“生成连接”左边的textbox控件中有一长串字符。这就包含了连接库的基本信息。将其复制
    在程序中声明 dim cn as new adodb.connecting。如果你不熟悉，你完全不用将该字符串分成cn.provider等信息，直接cn.connectstring＝该字符串就可以了。
    这个最简单，而且能学会连接不同数据库的方法。

Answer 6

'连接 ACCESS 数据库
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
    App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
    "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
    "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"    cn.Open