VBA（Visual Basic for Applications）是一种用于编写Windows应用程序的编程语言。在开发高效录入与查询系统时，我们可以使用VBA来实现数据的录入、查询和处理等功能。以下是一个简单的VBA示例，展示了如何实现这些功能：
1. 数据录入功能：我们可以创建一个表单，让用户输入数据。当用户点击“提交”按钮时，程序会将这些数据存储到数据库中。
```vba
Private Sub CommandButton1_Click()
Dim conn As Object
Dim rs As Object
Dim strSQL As String
Dim strConn As String
' 创建数据库连接
Set conn = CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "Database.mdb"
conn.Open strConn
' 创建记录集
Set rs = conn.CreateRecordset
strSQL = "INSERT INTO TableName (Column1, Column2) VALUES ('Value1', 'Value2')"
rs.Execute strSQL
' 关闭记录集和连接
rs.Close
conn.Close
End Sub
```
2. 数据查询功能：我们可以创建一个查询界面，让用户输入查询条件，然后执行查询操作。
```vba
Private Sub CommandButton2_Click()
Dim conn As Object
Dim rs As Object
Dim strSQL As String
Dim strConn As String
' 创建数据库连接
Set conn = CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "Database.mdb"
conn.Open strConn
' 创建记录集
Set rs = conn.CreateRecordset
strSQL = "SELECT * FROM TableName WHERE Column1='Value' AND Column2='Value2'"
rs.Open strSQL, conn
' 显示查询结果
If Not rs.EOF Then
- Debug.Print rs.Fields(0).Value & "
- " & rs.Fields(1).Value
Else
MsgBox "没有找到符合条件的记录。"
End If
' 关闭记录集和连接
rs.Close
conn.Close
End Sub
```
3. 数据处理功能：我们可以使用VBA对查询结果进行进一步的处理，例如排序、筛选等。
```vba
Sub ProcessResults()
Dim rs As Object
Dim strSQL As String
Dim strConn As String
Dim ws As Worksheet
' 获取工作表对象
Set ws = ThisWorkbook.Worksheets("Sheet1")
' 设置查询条件
strSQL = "SELECT * FROM TableName WHERE Column1='Value' AND Column2='Value2'"
' 执行查询并处理结果
Set rs = ws.QueryTables("TableName").Range
rs.Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlYes
' 遍历结果并处理
For i = 1 To rs.Rows.Count
' 在这里添加你的处理逻辑，例如筛选、排序等
' ...
Next i
End Sub
```
通过以上三个步骤，我们可以实现一个基本的录入与查询系统。你可以根据实际需求对其进行扩展和优化，例如增加数据校验、分页显示等功能。
