建立Connection的问题

wchlilu

在Access的示例中，建立Connection的语句如下：
   Set conPubs = wrkODBC.OpenConnection("Connection1", dbDriverNoPrompt, , "ODBC;DATABASE=pubs;DSN=Publishers")
这个示例中必须使用已建立好的DSN文件（Publisters）。请问高手们，如何可以直接建立Connection。
我试了n种方法都提示连接串参数有误，郁闷中。。。。。。

andymark

ADO
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection   '这里为当前数据库
Rs.Open "select * from 表1", Conn, adOpenKeyset, adLockOptimistic

andymark

Dim Cnxn As ADODB.Connection
    Dim rstEmployees As ADODB.Recordset
    Dim strCnxn As String
     
    ' Open connection
    strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
        "Initial Catalog='Pubs';Integrated Security='SSPI';"
    Set Cnxn = New ADODB.Connection
    Cnxn.Open strCnxn

wchlilu

我是想在DAO建Connection，而且要连SQL数据库的。谢谢