標題: [分享] 使用ADO查詢DataBase [打印本頁]

---

作者: Min    時間: 2010-6-29 22:16     標題: 使用ADO查詢DataBase

本帖最後由 Min 於 2010-6-29 22:20 編輯

需引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本

1. Sub ADO_QueryTable()
   
2.     Dim Cnnl As New ADODB.Connection
   
3.     Dim Rst As New ADODB.Recordset
   
4.     Dim SQL As String
   
5.     Dim lCol As Long
   
6.     Dim lRow As Long
   
7.    
   
8.     Cnnl.Open "Driver={MySQL ODBC 3.51 Driver};Server=TEST;Port=3306;Database=TEST;CharSet=big5;Uid=TEST;Pwd=TEST;Option=16387"  '連接System
   
9. 
   
10.     SQL = "SELECT COL0,COL1,COL2,COL3,COL4,COL5 FROM TABLE"
    
11.     Rst.Open SQL, Cnnl, adOpenKeyset, adLockOptimistic
    
12.     Do Until Rst.EOF
    
13.         For lCol = 0 To Rst.Fields.Count - 1
    
14.             Cells(lRow, lCol + 1).Value = Rst(lCol)
    
15.         Next
    
16.         lRow = lRow + 1
    
17.         Rst.MoveNext
    
18.     Loop
    
19.    
    
20.     Set Cnnl = Nothing
    
21.     Set Rst = Nothing
    
22. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)