- 註冊時間
- 2012-7-14
- 最後登錄
- 2023-8-13
- 主題
- 查看
- 積分
- 10
- 閱讀權限
- 20
- 文章
- 27
- 相冊
- 0
- 日誌
- 0
狀態︰
離線 
|
以下是小弟寫的 function
'這個是將 connection 傳入, 和你的 Access 的檔案為子傳入,
Public Function MY_DB(ByRef conn As ADODB.Connection, strFile As String) As String
Dim strProvider As String
Dim strDatasource As String
Dim strConn As String
Set conn = New ADODB.Connection
' Close Connection
If conn.State = adStateOpen Then conn.Close
' Set Provider and Connection
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
strDatasource = "Data Source=" & strFile & ";Persist Security Info=False"
strConn = strProvider & strDatasource
conn.ConnectionTimeout = 10
conn.Open (strConn)
End Function
'這個是將 你已完成的 connection 傳入, 和你的 RecordSet 跟 SQL 字串傳入,
Public Function MY_DATA(ByRef RecSet As ADODB.Recordset, conn As ADODB.Connection, strSQL As String) As String
If RecSet.State = adStateOpen Then RecSet.Close
Set RecSet = Nothing
Set RecSet = New ADODB.Recordset
RecSet.Open strSQL, conn, adOpenStatic, adLockOptimistic
End Function
完成後, 再依照2樓的說法, 因該就可以了. |
-
總評分: 威望 + 2
查看全部評分
|
發表於 2010-10-25 21:11:59
