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語言向資料庫中添加數據，實現數據的高效管理與操作。