accessvba编程

A. 如何用vba代码将access数据库连接求代码

在VBA中编写代码以连接Access数据库并将Excel表格中的数据写入数据库，可以通过以下步骤实现。本示例中，程序会读取Excel中的数据，并将它们插入到Access数据库中的特定表中。

首先，定义变量并初始化数据路径。代码如下：

Sub FYMXDL()
Dim XQID As Integer
Dim JZID As Integer
Dim FYID As Integer
Dim FBXZ As String
Dim DW As String
Dim SARR(1 To 31) As Double
Dim rst As New ADODB.Recordset
mYpath = ThisWorkbook.Path & "\jzfydata.accdb"
Set cONn = CreateObject("ADODB.Connection")
cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath
cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "
cONn.Open
XQID = Cells(3, 2).Value
JZID = Cells(3, 5).Value

接下来，执行删除操作，清空特定小区和建筑的费用明细：

Const kshh = 7
hh = kshh
Do While Cells(hh, 3).Value > 0
FYID = Cells(hh, 3).Value
FBXZ = Cells(hh, 11).Text
For i = 1 To 31
SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)
Next i
sql = "delete from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID
cONn.Execute Sql

最后，插入数据到数据库：

Sql = "INSERT INTO fymxb(小区ID,建筑ID,费用ID,分包性质,工作量,单价合计_中标,人工费_中标, 主材费_中标, 辅材费_中标, 机械费_中标, 管理费_中标, 利润_中标,规费_中标,税金_中标,合价_中标,单价合计_标准成本,人工费_标准成本,主材费_标准成本,辅材费_标准成本,机械费_标准成本,管理费_标准成本,利润_标准成本,规费_标准成本,税金_标准成本,合价_标准成本,单价合计_实际成本,人工费_实际成本,主材费_实际成本,辅材费_实际成本,机械费_实际成本,管理费_实际成本,利润_实际成本,规费_实际成本,税金_实际成本,合价_实际成本) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"
For i = 1 To 31
Sql = Sql & "," & SARR(i)
Next i
Sql = Sql & " )"
cONn.Execute Sql
hh = hh + 1
Loop
End Sub

通过以上代码，可以轻松地将Excel表格中的数据写入到Access数据库中，从而实现数据的管理和维护。

B. ACCESS 如何用VBA语言向数据库中填加数据

在ACCESS数据库中，使用VBA（Visual Basic for Applications）语言向数据库中添加数据，是一个较为便捷的操作。以下是具体步骤与方法。

首先，打开ACCESS数据库，确保已连接VBA环境。

其次，使用`sql`语句创建一个插入操作。其格式为`"INSERT INTO 表名(字段1,字段2) VALUES('字段1内容','字段2内容')"`。这里，`表名`代表你要插入数据的表名，`字段1,字段2`代表表中你想要插入数据的字段名，`'字段1内容','字段2内容'`代表你想要插入的数据内容。例如，如果你想要在`Customers`表中插入一个客户数据，其`CustomerName`字段为`John Doe`，`Address`字段为`123 Main St`，则`sql`语句应为`"INSERT INTO Customers(CustomerName,Address) VALUES('John Doe','123 Main St')"`。

接着，使用VBA代码来执行`sql`语句。代码示例如下：

vba
Dim sql As String
sql = "INSERT INTO Customers(CustomerName,Address) VALUES('John Doe','123 Main St')"
DoCmd.RunSQL sql

这段代码中，`sql`变量存储了`sql`语句，然后通过`DoCmd.RunSQL`方法执行插入操作。执行后，新的数据会被添加到`Customers`表中。

如果需要在插入数据前先进行数据验证或者在插入数据后执行额外操作，你可以在`sql`语句中添加适当的逻辑代码。例如，确保`CustomerName`字段不为空或包含特殊字符，或者在成功插入数据后更新其他相关表的信息。

最后，使用`rst.addnew`方法向当前记录集（RecordSet）添加新行，`rst.update`方法更新数据库。这些操作通常在使用`Data宏`或`Query宏`时执行。具体示例代码如下：

vba
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Customers")
rst.AddNew
rst!CustomerName = "John Doe"
rst!Address = "123 Main St"
rst.Update

在这段代码中，`rst`是一个指向`Customers`表的`Recordset`对象。`AddNew`方法用于在记录集的末尾添加一行新记录，然后使用对应的字段名和值更新数据。最后，`Update`方法用于将新记录保存到数据库中。

通过上述步骤，你就能在ACCESS数据库中使用VBA语言向数据库中添加数据，实现数据的高效管理与操作。