Добавить запрашиваемый набор записей в таблицу в Access

Question

Я запрашиваю Active Directory для получения списка пользователей и других полей в Access. Есть ли способ добавить мои запрошенные результаты в существующую таблицу? В настоящее время я пытаюсь использовать INSERT INTO, но у меня проблемы с тем, что моя переменная Object не установлена ​​или не заблокирована.

Private Sub Command0_Click()

Dim objRecordSet As Object
Dim objCommand As Object
Dim objConnection As Object
Dim dbs As Database

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Sort On") = "whenCreated"

objCommand.CommandText = _
"SELECT Name,Title,PhysicalDeliveryOfficeName,WhenCreated,Mail FROM 'LDAP://OU=Standard Users,OU=Active Users,OU=All Users,DC=contoso,dc=local' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
  dbs.Execute " INSERT INTO ADUsers" & "(Name,Title,Site,Created,Email) VALUES " & "(objRecordSet.Fields('Name').Value,objRecordSet.Fields('Title').Value,objRecordSet.Fields('physicalDeliveryOfficeName').Value,objRecordSet.Fields('whenCreated').Value,objRecordSet.Fields('Mail').Value);"
  dbs.Close
  Debug.Print objRecordSet.Fields("Name").Value; "," & objRecordSet.Fields("Title").Value; "," & objRecordSet.Fields("physicalDeliveryOfficeName").Value; "," & objRecordSet.Fields("whenCreated").Value; "," & objRecordSet.Fields("Mail").Value

objRecordSet.MoveNext

Loop

End Sub

Answer 1

Все внутри двойных кавычек " интерпретируется как строка, а не как код и строки (значения objRecordSet.Fields("myFieldName").Value) должны быть указаны в заявлении о включении.

dim strSQLInsert as String

strSQLInsert = "INSERT INTO ADUsers(Name,Title,Site,Created,Email) VALUES ('" & _ 
  objRecordSet.Fields("Name").Value & "','" & _
  objRecordSet.Fields("Title").Value & "','" & 
  objRecordSet.Fields("physicalDeliveryOfficeName").Value & "','" & _
  objRecordSet.Fields("whenCreated").Value & "','" & _
  objRecordSet.Fields("Mail").Value & "');"

Debug.Print strSQLInsert

dbs.Execute strSQLInsert

Сохраните ваши SQL-операторы в строке, тогда вы можете проверить это с Debug.Print,

Answer 2

Рассмотрим параметризованный запрос, используя querydefs, чтобы избежать необходимости в кавычках. Также не забудьте инициализировать объект базы данных, который может быть вашей основной проблемой: set dbs = CurrentDb,

...
Dim strSQL As String
Set dbs = CurrentDb

strSQL = "PARAMETERS NameParm TEXT(255), TitleParam TEXT(255), SiteParam TEXT(255)," _
             & " CreatedParm Date, EmailParam TEXT(255);" _
             & " INSERT INTO ADUsers (Name, Title, Site, Created, Email)" _
             & " VALUES ([NameParm], [TitleParam], [SiteParam], [Created], [Email]);"

Do Until objRecordSet.EOF

   Set qdef = dbs.CreateQueryDef("", strSQL)

   qdef!NameParam = objRecordSet![Name]
   qdef!TitleParam = objRecordSet![Title]
   qdef!SiteParam = objRecordSet![PhysicalDeliveryOfficeName]
   qdef!CreatedParam = objRecordSet![WhenCreated]
   qdef!EmailParam = objRecordSet![Mail]

   qdef.Execute (dbfailOnError)
   Set qdef = Nothing

   objRecordSet.MoveNext
Loop