ACCESS操作范例（基于VB编写，其他环境可参考）

发布时间：2020-12-17 08:08:08 所属栏目：百科来源：网络整理

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

下面是一个用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

以下是运行的效果：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!