VBA의 ADODB 레코드 집합은 Excel이 비어있을 때 필드가 비어 있다고 말합니다.

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 일 수 있습니다.

필드에 일반 번호가 있으면 제대로 작동합니다.

이상한 점은 : 시트에 다른 텍스트 필드가 있으며 FINE으로 작동한다는 것입니다.

Answer 1

확장 속성 부분에 더 구체적으로 표시하고 내부 인용 부호를 생략하지 마십시오.

특히 을 시도해 혼합 숫자 & 텍스트 데이터를 허용하십시오.

자세한 내용은 http://connectionstrings.com/입니다.