VBA中的ADODB記錄集說excel字段爲空時它不是

我有一個Excel表，我需要在我的Access數據庫中導入。該表如下：VBA中的ADODB記錄集說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

當字段有一個常規號碼時，它可以正常工作。

奇怪的是：表格中還有其他文本字段，它們工作在FINE。

來源

2010-01-14 skerit

如果您在Access中運行此代碼，爲什麼不使用DoCmd.TransferSpreadsheet？ – 2010-09-27 17:51:33

請在您的擴展屬性部分更具體（並且不要忽略內部引號）。

特別嘗試Extended Properties="Excel 8.0;HDR=Yes;IMEX=1"以允許混合數字&文本數據。

更多詳細信息在http://connectionstrings.com/。

來源

2010-01-14 16:51:21 GSerg

這樣做，謝謝。 – skerit 2010-01-14 18:16:43

VBA中的ADODB記錄集說excel字段爲空時它不是

回答

相關問題