Question

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

DATE RECEPTION  DENOMINATION        ITEM N°     QUANTITE RECUE
06/01/2010  DVD-Sex & the City  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

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

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

Answer 1

在扩展属性部分中更具体（并且不要在那里省略内部引号）。

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

http://connectionstrings.com/的更多详情。

VBA中的ADODB记录集表示excel字段为空时不是

1 个答案: