下面是一个用VB操作ACCESS数据库的一个例子，当中支持添加，删除，修改，查询等基本操作，虽然很多都是使用的是固定字符，但是足够用来做参考了。
ACCESS数据库的名字是“db1.mdb”，数据库里面有一个表格，名字是“学生信息表”，表格里有4个字段，分别是“学号”、“姓名”、“语文”和“英语”

VB工程里面需要添加两个部件

在菜单->工程->部件里面添加以下两个部件，一是Microsoft ADO Data Control 6.0 (SP6) (OLEDB)，第二个Microsoft DataGrid Control 6.0 (SP6) (OLEDB)



以下是代码全文：


'本例子中，ADODB作为数据的修改操作源，ADODC作为数据显示源
'ADODB是一个数据模型，他使用的是microsoft.jet.oledb.4.0的数据库引擎
'ADODC是一个数据控件。他是使用了microsoft.jet.oledb.4.0的数据引擎的一个控件


'注意不要把datagrid1的tabindex属性0.就是程序启动时不是datagrid是第一个焦点，否则会出现“索引或主关键字不能包含一个空(null)值”报错
'注意不要把ACCESS数据库的字段设置为何系统关键字一样的名字，例如password之类的，否则的话会出现sql语句语法错误的报警


Dim ind As Integer
Dim mystr
Dim cn As ADODB.Connection


Private Sub CommandCheck_Click()
Adodc1.RecordSource = "select * from 学生信息表"
Adodc1.Refresh
mystr = Choose(ind + 1,"学号","姓名","语文","英语")
Adodc1.RecordSource = "select * from 学生信息表 where " + mystr + "='" + Text1.Text + "'"
Adodc1.Refresh
End Sub


Private Sub CommandAdd_Click()

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
cn.Execute "insert into 学生信息表(学号,姓名,语文,英语) values('15','赵六','77','60')"
cn.Close
Set cn = Nothing

Adodc1.Refresh
End Sub


Private Sub CommandChange_Click()


Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
cn.Execute "update 学生信息表 set 姓名='陈七' where 学号 = '15'"
cn.Close
Set cn = Nothing

Adodc1.Refresh

End Sub




Private Sub CommandDelect_Click()

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
cn.Execute "delete from 学生信息表 where 学号 = '15'"
cn.Close
Set cn = Nothing

Adodc1.Refresh


End Sub


Private Sub CommandReload_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 学生信息表"
Adodc1.Refresh
End Sub


Private Sub Form_Load()


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 学生信息表"
Adodc1.Refresh
End Sub


Private Sub Option1_Click(Index As Integer)
ind = Option1(Index).Index

End Sub

以下是运行的效果：

原文链接：https://www.f2er.com/vb/258557.html