Access - Excel (VBA) - несоответствие типов

Question

Мы пытаемся загрузить данные из базы данных Access с помощью VBA в Excel. Но наш код не работает нормально.

SQL1 = "SELECT Name " & _
SQL1 = SQL1 & "FROM February" & _
SQL1 = SQL1 & "WHERE Gender = 'F'" & _
SQL1 = SQL1 & "ORDER BY Name"
Set rs1 = db.OpenRecordset(SQL1, dbOpenSnapshot)

 If rs1.RecordCount = 0 Then
    MsgBox "No data retrieved from database", vbInformation + vbOKOnly, "No Data"
     GoTo SubExit
 Else
     rs1.MoveLast
     recCount = rs1.RecordCount
     rs1.MoveFirst
End If
  xlSheet.Range("B28").CopyFromRecordset rs1

Мы получаем сообщение об ошибке «Несоответствие типов» в строке:

Set rs1 = db.OpenRecordset(SQL1, dbOpenSnapshot)

Может кто-нибудь помочь нам и объяснить, почему мы получаем эту ошибку?

Answer 1

SQL1 = "SELECT Name " & _
SQL1 = SQL1 & "FROM February" & _
SQL1 = SQL1 & "WHERE Gender = 'F'" & _
SQL1 = SQL1 & "ORDER BY Name"

должно быть

SQL1 = " SELECT Name " & _
       " FROM February" & _
       " WHERE Gender = 'F'" & _
       " ORDER BY Name"

... или не используйте продолжение строки и используйте SQL1 = SQL1 &, но вы можете использовать только один из этих параметров.