一個excel檔案，建了一個保存按鈕，點擊后就保存資料。
資料庫名稱是db.mdb，與excel檔案在同一檔案夾目錄下。
1. 如果要更改資料庫的路徑，例如將資料庫單獨放在D:\123的檔案夾下， 如何更改？
2. 資料庫加密后，密碼為456，如何在程式中添加密碼？
Private Sub CommandButton1_Click()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sq1 As String
Dim x As Long
x = [a65536].End(xlUp).Row
For i = 2 To 10
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\db.mdb"
sq1 = "select * from wBGA"
rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst.Fields("X") = Range("Q" & i)
rst.Update
cnn.Close
Set cnn = Nothing
Next i
MsgBox "保存成功"
End Sub
謝謝！
uj5u.com熱心網友回復：
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\db.mdb"改成
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & "D:\123\db.mdb",,"456"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/128854.html
下一篇：外部程式控制word檔案內容