我正在尝试将一些数据从 .mbd 文件导入 Excel。我可以将整个数据库复制到电子表格中,没有问题。我也可以使用这样的语句
sSQL = "SELECT HOEHE " & "FROM h_datei WHERE HOEHE >= 53 "
在类型不是 int 或 float 的字段上使用 WHERE 时会出现问题。(我没有 MS Access,但 MDB Plus 告诉我 .mdb 中文本字段的类型称为“Widestring”)
我从 Excel 的 MsgBox 中得到这个:运行时错误'-2147217913 (80040e07)':自动化错误
我一直在谷歌搜索和修补很长一段时间,但我被卡住了。下面是我的 VBA 代码。我不知道这是否与提供商(Microsoft.ACE.OLEDB.12.0)有关,但我尝试了其他一些。我也在考虑 unicode,因为这个数据库来自一个德国测量程序。
sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & _
sPath & "Oskarb04.mdb"
sSQL = "SELECT HOEHE " & "FROM h_datei WHERE PNR >= 53 "
Set rsData = New ADODB.Recordset
Debug.Print sSQL
rsData.Open sSQL, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdUnknown