如何用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出的“数据库窗口”中显示了。窗口中有什么功能，自己去摸索吧，我还没完全搞清楚，只能给你讲这么多了。

打字真累啊！！

VB中打开数据库的方法有很多，给你一个用ADO打开数据库的方法：首先在“工程”中引用"Microsoft Activex Data Objects 2.8 Library"'安装Offices后就会有的。Dim DB As Connection

Dim rs As Recordset Private Sub Command1_Click()

Set DB = New ADODB.Connection

Set rs = New ADODB.Recordset

DB.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\数据库名.mdbjet oledb:database password=123456"

DB.Open

rs.Open "select * from 表名", DB, adOpenStatic, adLockReadOnly

rs.Close注意：1.在“工程”中引用"Microsoft Activex Data Objects 2.8 Library" 2.代码写好后先保存，然把准备好的Access数据库放到代码保存的文件夹下。 3."select * from 表名"，是打开数据库中叫做“表名”的一个表中全部数据。 可以用Msgbox rs.Fields(1).Value来调出表中的第一个值

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

''d:\123.mdb 这里要写名你的文件在D盘上的绝对路径

Private Sub Command1_Click()

ShellExecute Me.hwnd, "open", "d:\123.mdb", "", "", 1

End Sub

---