提问人:james amatrais 提问时间:10/20/2023 更新时间:10/20/2023 访问量:85
运行时错误“3706”:找不到提供程序
Run time error '3706': Provider cannot be found
问:
我遇到了很多关于这个主题的问题,但似乎没有什么适合我的代码。
我已经添加了 ACE 提供程序和喷气机提供程序,它们都不起作用,这是我的代码。
Dim err As Integer
Dim cnn1 As ADODB.Connection
Dim rstMoneyCounter_T As ADODB.Recordset
Dim strCnn
Dim mydb As String
'Check that all fields are filled in
txtCashboxbalance.SetFocus
If txtCashboxbalance.Text = "" Then
err = err + 1
MsgBox "Please fill in the name box!" & err
End If
'if no errors insert data
If err < 1 Then
' Open a connection.
Set cnn1 = New ADODB.Connection
mydb = "C:\Users\Administrator\Desktop\Admin CEC\BOH Admin\BOH Admin2.0.accdb"
strCnn = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mydb
cnn1.Open strCnn
' Open Money counter table table.
Set rstMoneyCounter_T = New ADODB.Recordset
rstMoneyCounter_T.CursorType = adOpenKeyset
rstMoneyCounter_T.LockType = adLockOptimistic
rstMoneyCounter_T.Open "MoneyCounter_T", cnn1, , , adCmdTable
我所需要的只是从未绑定的表单到表格的数据。 我使用未绑定表单的原因是因为它只是暂时的,只是为了计算和预览输入的信息。
答: 暂无答案
评论
BOH Admin2.0.accdb
Debug.Print CurrentProject.Connection.Provider