利用VBA从Access数据库中查找数据？

insert

into

表名(字段1,字段2)

values（'字段1内容','字段2内容'）

可以用vba和access链接后

用update功能

rst.addnew

...'添加的内容

rst.update

vba设置根据输入的内容查找数据位置的方法如下：

查找用Range对象的Find方法，返回Rang对象，然后再取Range对象的Row属性或Column属性返回行或列

要注意的是Find方法可能会返回Nothing，要先检查一下，否则后出错

例如SetC=Range("A1:E10").Find("abc")If Not C Is Nothing thenR=C.Row '返回行,Cl=C.Column '返回列end if,或者：Set C=Range("A1:E10").Find("abc")If Not C Is Nothing then,C.SelectR=Selection.Row '返回行Cl=Selection。

新建一张表格，在表格中导入学生的成绩表，如图所示，我们将建立一个按钮，通过它来实现查找。

单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

在d出的查找红对话框中选择“录制”，在d出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

现在我们来输入代码：

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

If Not c Is Nothing Then

p = c.Address

Do

c.Interior.ColorIndex = 4

q = q &c.Address &vbCrLf

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <>p

End If

End With

MsgBox "查找数据在以下单元格中：" &vbCrLf &vbCrLf _

&q, vbInformation + vbOKOnly, "查找结果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7

现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

http://jingyan.baidu.com/article/9989c746021d4af649ecfe4a.html