怎么样在VB中打开.mdb数据库

1.首先在控件箱中添加“ADODC”和“DBGRID”2个控件.方法：右键点击控件箱，在d出的菜单中左键单击“部件”，在部件选项卡中选择“Microsoft ADO Date Control 6.0(OLEDB)”和“Microsoft DataGrid Control 6.0(OLEDB)”复选框，然后“确定”。这样ADODC 和DATAGRID 控件就添加在控件箱中了。 2.然后在窗体上放置放置一个adodc控件，单击控件，在属性窗口点击“connectionstring”属性右侧的带…的按钮，选择“使用字符串（C）”选项，点击“生成”按钮，在d出的“数据库链接属性”的“提供程序”选项卡中选择“Microsoft Jet 4.0 OLE DB Provider”，点击“下一步”，在“链接”选项卡中选择你的数据库，单击“测试链接”按钮，成功后单击“确定”按钮，则创建ADO Data控件的链接就成功了。在ADODC属性窗口点击“recordsource”右侧带…的按钮，选择“命令类型”为“2-adcmdtable”，设置一个表或存储过程名位记录源。在“表或存储过程名称”的下拉列表中选择你要显示的表，单击确定按钮。ADODC控件的属性设置完成。 3.在窗体上放置一个datagrid控件，单击控件，在属性窗口点击datasource，在右侧下拉菜单中选择adodc1，如果你的窗体上有多个数据源，这里下拉菜单中就会有多个选择。 4.右键单击datagrid控件，然后选择“检索字段（retrieve fields）命令，就会用数据源的记录集自动填充该控件。单击“属性”。使用“属性页”选项卡设置该控件的适当属性。 5.F5，这里就可以查看和修改了。 还有另外一种办法 在vb菜单栏点击“外接程序”，选择“可视化数据管理器”，在d出的“可视化数据管理器”窗口visadata中选择“文件”“打开数据库”选择“microsoft access”命令打开你的数据库。你的数据库的大部分信息就会在新d出的“数据库窗口”中显示了。窗口中有什么功能，自己去摸索吧，我还没完全搞清楚，只能给你讲这么多了。 打字真累啊！！

dim

dbConn

As

ADODB.Connection

'定义一个ADODB连接

dim

MenuRs

As

ADODB.Recordset

'定义Recordset对象

dim

WordRs

As

ADODB.Recordset

Function

Conn2DB(byval

dbname

as

string)

As

Boolean

'数据库连函数，dbname为数据库文件的绝对路径

Dim

connStr

As

String

'

Access连接字符串

conStr

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

dbName

&

"Persist

Security

Info=FalseJet

OLEDB:Database

Password=abcdef"

Set

dbConn

=

New

ADODB.Connection

'定义一个ADODB连接对象

If

dbConn.State

<>

adStateOpen

Then

'判断ADODB连接是否打开

dbConn.Open

conStr

'如果不是打开状态

就打开连接

End

If

Conn2DB

=

True

End

Function

Function

CloseDb()

As

Boolean

If

dbConn.State

=

adStateOpen

Then

dbConn.Close:

Set

dbConn

=

Nothing

End

If

End

Function

Private

Sub

Form_Load()

dim

dbname

as

string

dbname="D:\db.mdb"

‘数据库文件路径

if

Conn2DB(dbname)=true

then

msgbox

"连接数据库成功!"

CloseDb

end

if

End

sub

在此本人使用ADO对象访问ACCESS数据库，但ADO对象在使用前你先要进行添加，启动VB6后，单击菜单“工程-引用”，打开引用对话框，选择“Microsoft ActiveX Data Objects 2.0 Library”，将其勾选，（以2.0版本为例，实际可以选择系统中的最高版本如本人的就是2.6版本），然后在当前目录下建立一个名为“学生”的ACCESS数据库，其中表名为“表”,字段共有：学号，姓名，年龄，性别四个字段，接下来就是设计界面了(自己设计)

现在介绍如何使用代码访问ACCESS数据库：

在代码窗口中编写一个返回字符型的函数

Function Connection() As String

'数据库的连接设置配置

Connection = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path + "\学生.mdb"

End Function

该函数用于连接数据库用

Private Form_Load()

Dim cnn As New ADODB.Connection

Dim Rst As New ADODB.Recordset

cnn.Open Connection

Set Rst = New ADODB.Recordset

Rst.Open "select * from 表", cnn, adOpenKeyset, adLockOptimistic

End Sub

注：

Dim cnn As New ADODB.Connection创建一个ADO数据库连接对象

Dim Rst As New ADODB.Recordset为创建一个ADO数据库记录对象

select * from 表 是SQL查询语言，这里为数据源，意思就是打开数据库“学生”中的表“表”

下面是将数据库表中的字段值显示出来的一个过程

Sub View()

Dim i As Integer

For i = 0 To 2

Text1(i) = Rst.Fields(i)'text1为控件数组

Next

If (Rst.Fields(3) = True) Then

Text1(3) = "男"

Else

Text1(3) = "女"

End If

End Sub

要访问ACCESS数据库就这样可以实现，访问SQL也差不多，稍有不同，回答完毕，如还有问题请继续和我联系，本人是专使用VB+SQL/Delphi+SQL开发数据库管理系统的程序员。

别忘了采纳我的回答，谢谢！

---