2

使用下面的代码,当找不到运行提供程序时,我收到以下错误,下面的代码是从网上复制和编辑的,它以前使用过 .mdb 文件,但我试图将其更改为 .accdb,因为这是我需要的格式.我正在尝试制作一个宏,在运行时将某些单元格复制到数据库中,并添加到其中。

我收到这个错误

 run-time error "3706"
 Provider cannot be found it may not be properly installed

-

Const TARGET_DB = "testdb.accdb"

Sub AlterOneRecord()
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim fld As ADODB.Field
   Dim MyConn
   Dim lngRow As Long
   Dim lngID As String
   Dim j As Long
   Dim sSQL As String

   'determine the ID of the current record and define the SQL statement
   lngRow = ActiveCell.Row
   lngID = Cells(lngRow, 1).Value

   sSQL = "SELECT * FROM tblPopulation WHERE PopID = " & lngID

   Set cnn = New ADODB.Connection
   MyConn = ThisWorkbook.path & Application.PathSeparator & TARGET_DB

   With cnn
     .Provider = "Provider=Microsoft.ACE.OLEDB.12.0;"
     .Open MyConn
   End With

   Set rst = New ADODB.Recordset
   rst.CursorLocation = adUseServer
   rst.Open Source:=sSQL, _
            ActiveConnection:=cnn, _
            CursorType:=adOpenKeyset, _
            LockType:=adLockOptimistic

   'Load contents of modified record from Excel to Access.
   'do not load the ID again.
   For j = 2 To 7
      rst(Cells(1, j).Value) = Cells(lngRow, j).Value
   Next j
   rst.Update

   ' Close the connection
   rst.Close
   cnn.Close
   Set rst = Nothing
   Set cnn = Nothing
End Sub

有没有更简单的方法来做到这一点?还是我应该尝试解决这个问题?

4

1 回答 1

4

您缺少的是数据库文件的完整连接字符串。

(有关连接字符串的更多信息)

我给你一个粗略的想法,通常适用于我的代码:

删除代码中的这一行:

.Provider = "Provider=Microsoft.ACE.OLEDB.12.0;"

而是使用这个:

.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;"

或者您可以改用这个:

.Provider = "Microsoft.ACE.OLEDB.12.0"    

如需更多信息,您可以查看这个 w3schools 网站

于 2013-08-13T10:51:53.980 回答