VBA中的ADODB记录集说excel字段不是空的答案

【问题标题】：ADODB recordset in VBA says excel field is empty when it's notVBA中的ADODB记录集说excel字段不是空的
【发布时间】：2011-01-05 03:58:52
【问题描述】：

我有一个 Excel 工作表需要导入到我的 Access 数据库中。工作表如下所示：

日期接收面额项目 N° 数量 RECUE 06/01/2010 DVD-欲望都市 PCR-PA21550167 5 06/01/2010 DVD-Avatar Natie 2 PCR-PA21550209 10

然后我使用 adodb 将此文件传输到数据库中：


Dim rs2 As New ADODB.Recordset
Dim cnn2 As New ADODB.Connection
Dim cmd2 As New ADODB.Command
Dim intField As Integer
Dim strFile As String

strFile = fncOpenFile
If strFile = "" Then Exit Sub

With cnn2
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & strFile& "; " & "Extended Properties=Excel 8.0"
    .Open
End With

Set cmd2.ActiveConnection = cnn2
cmd2.CommandType = adCmdText
cmd2.CommandText = "SELECT * FROM [PCR$]"
rs2.CursorLocation = adUseClient
rs2.CursorType = adOpenDynamic
rs2.LockType = adLockOptimistic

rs2.Open cmd2

While Not rs2.EOF
        strNaam = rs2.Fields(3).Value
Loop

现在我的问题是：某些字段中有文本。那么字段值应该是item0001，但据报道它是NULL

当该字段有一个常规数字时，它可以正常工作。

奇怪的是：工作表中还有其他文本字段，它们工作正常。

【问题讨论】：

如果您在 Access 中运行此代码，为什么不直接使用 DoCmd.TransferSpreadsheet？

标签： excel ms-access vba adodb recordset

【解决方案1】：

在您的扩展属性部分更具体（并且不要在此处省略内引号）。

特别是，尝试Extended Properties="Excel 8.0;HDR=Yes;IMEX=1" 以允许混合数字和文本数据。

更多详情请访问http://connectionstrings.com/。

【讨论】：