在vb.net中如何查询MDB数据库的数据

以下是完整模块

Imports

System.Data

Imports

System.IO

Imports

System.Data.OleDb

Module

Module1

Public

cn

As

New

OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

Application.StartupPath

&

"\mdb数据库名字.mdb")

'定义连接

Public

DataBaseRST

As

Integer

'用来返回数据库执行结果

Public

Function

DataModify(ByVal

str

As

String)

As

Boolean

'进行数据库修改 *** 作

Dim

cmdinsert

As

New

OleDbCommand

Try

cmdinsert.CommandText

=

str

cmdinsert.Connection

=

cn

If

cn.State

=

ConnectionState.Closed

Then

cn.Open()

DataBaseRST

=

cmdinsert.ExecuteNonQuery()

'用来返回执行的结果

cn.Close()

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

Public

Function

Search(ByVal

str

As

String,

ByVal

DGV

As

DataGridView)

As

Boolean

'查询

str---查询命令，DGV---DataGridView，用来显示数据的控件

Dim

tb

As

New

DataTable

Try

Dim

ap

As

New

OleDb.OleDbDataAdapter(str,

cn)

ap.Fill(tb)

DGV.DataSource

=

tb

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

End

Module

'以下是调用方法

DataModify("

insert

into

aa

values

('1','2')")'-------这里是数据库更新 *** 作

Search("select

bb

from

aa",DataGridView1)'-----------这里是数据表查询 *** 作

update A,B set A.重复=1 where A.身份z号码=B.身份z号码

还有就是“重复”字段在这里我是当作数字类型，如果是字符串，要改为：A.重复='1'

如果还不行，难道2013改用标准的SQL语句了？我没这版本，你试试： UPDATE A SET A.重复=1 FROM A , B WHERE A.身份z号码=B.身份z号码

象中粘贴表即可。

SELECT 学生信息.学号, 学生信息.姓名, 学生信息.性别, 学生信息.出生日期, 学生信息.家庭住址 INTO 新表名 FROM 学生信息

一般来说一个MDB文件就是一套管理系统，可以有无数个表，没必要用无数个数据可。

---