В этой статье блога мы рассмотрим различные методы добавления новых записей в базу данных Access с использованием Visual Basic для приложений (VBA) и объектов данных ActiveX (ADO). Мы предоставим примеры кода для каждого метода, чтобы помочь вам понять и реализовать их в своих проектах. Давайте погрузимся!

Метод 1: использование Recordset.AddNew и Recordset.Update

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("TableName", dbOpenDynaset)
rs.AddNew
rs("Field1") = "Value1"
rs("Field2") = "Value2"
' Set values for other fields
rs.Update
rs.Close
Set rs = Nothing

Метод 2: использование оператора SQL INSERT

Dim strSQL As String
strSQL = "INSERT INTO TableName (Field1, Field2) VALUES ('Value1', 'Value2')"
CurrentDb.Execute strSQL

Метод 3: использование оператора SQL INSERT INTO SELECT

Dim strSQL As String
strSQL = "INSERT INTO TableName (Field1, Field2) SELECT Field1, Field2 FROM OtherTable WHERE Condition"
CurrentDb.Execute strSQL

Метод 4. Использование набора записей DAO

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TableName")
rs.AddNew
rs("Field1") = "Value1"
rs("Field2") = "Value2"
' Set values for other fields
rs.Update
rs.Close
Set rs = Nothing

Метод 5: использование командного объекта ADO

Dim cmd As New ADODB.Command
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Database.accdb"
cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO TableName (Field1, Field2) VALUES ('Value1', 'Value2')"
cmd.Execute
conn.Close
Set cmd = Nothing
Set conn = Nothing

В этой статье мы обсудили пять различных методов добавления новых записей в базу данных Access с помощью VBA и ADO. Каждый метод имеет свои преимущества и может использоваться в зависимости от ваших конкретных требований. Используя эти методы, вы можете эффективно добавлять новые данные в базу данных Access и расширять функциональность своих приложений.