Set conn = CreateObject("ADODB.Connection") 有几种方法?

Question

Set conn = CreateObject("ADODB.Connection")  我现在收集到方法有以下三种方法.
请教各位大侠还有其它方法？？？谢谢。
1、文本 数据库连接
   Set conn = CreateObject("ADODB.Connection") 
   Set rs = CreateObject("adodb.recordset") 
   conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=d:\", "", "" 
   rs.Open "select * from mmm.txt where aa  <> '' ", conn, 1, 3 
2、MDB 数据库连接
  Private Function CreateConnection(AccessDbName As String) As ADODB.Connection 
  Dim ConStr As String, Cnn As ADODB.Connection 
   
  Set Cnn = New ADODB.Connection 
  With Cnn 
    .CursorLocation = adUseClient 
    .Provider = "Microsoft.Jet.OLEDB.4.0" 
    ConStr = "Data Source =" & ThisWorkbook.Path & AccessDbName 
    Cnn.Open ConStr 
  End With 
  Debug.Print "Have been Connection " & ThisWorkbook.Path & AccessDbName 
  Set CreateConnection = Cnn 
End Function 3、Excel 数据连接
  Dim strSql As String
  Dim cnn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
  strSql = "SELECT distinct aa.aa,aa.bb,bb.dd"
  strSql = strSql & " FROM [Sheet1$] AS aa "
  strSql = strSql & "Inner Join [Sheet2$] as bb On aa.dd =bb.cc"

Answer 1

一般可以根据数据库的不同连接字符串也不一样的.一般都可以用MDAC来生成连接字符串.^_^.比如说:
MSSQL:Provider=SQLOLEDB.1;Password=MyPassworkd;Persist Security Info=True;User ID=SA;Initial Catalog=MyDataBase;Data Source=ServerIP

Answer 2

   Set conn = CreateObject("ADODB.Connection")  
   Set rs = CreateObject("adodb.recordset")是 VB Script 的写法，常见于动态网页代码。  Dim Cnn As ADODB.Connection  
  Set Cnn = New ADODB.Connection 是 VB 中建立连接对象的常规做法。   Dim cnn As New ADODB.Connection 是 VB 中的可选用法。它的代价是直至 cnn 实例化之前，会有附加的一句编译后代码反复执行。

Answer 3

去这个里面找找看http://www.connectionstrings.com/