如何打开Access数据库

Question

请问在VB环境编程中:
如何实现,用DAO对象打开带口令的Access数据库,以便进行读写.
谢谢!
vb6.0
DAO3.6

Answer 1

Visual Basic对Access数据库的集成非常紧密，通常由以下几个部分组成。

　　引用DAO类型库

　　1、从“工程”菜单中选择“引用”菜单项；

　　2、在可引用列表框中选择“Microsoft DAO 3.51 Object Library”项。

　　3、最后“确定”即可

　　设置DAO数据类型变量

　　DAO数据类型变量共分成两种：

　　1、Database变量

　　对应于Access数据库，通常在模块中被定义为Public全程变量：

　　Public AccessDBF As Database

　　'定义数据库对象实例AccessDBF

　　2、RecordSet变量

　　对应于Access数据库中的一个表，可定义为全程变量或局部变量，亦可作为函数参数进行传递：

　　Dim thePrintTable As RecordSet

　　'定义一个表对象实例thePrintTable

　　打开DAO数据类型

　　1、打开Access的方法

　　通常可设置一个专门的Public函数用来打开一个Access数据库，并且该函数在启动窗体的Private Sub Form_load ( )过程中被调用，函数定义格式如下：

　　Public Sub OpenDatabase ( )

　　Dim sConeect As String

　　SConnect = ";PWD = 8830428; UID = admin "

　　'设置打开时的用户名、口令等参数

　　Set AccessDBF = Nothing

　　'确认关闭对象实例

　　Set AccessDBF = WorksPaces (0 ).OpenDatabase (App.Path&&"/ToXls.MDB",False,sConnect)

　　'打开当前路径的ToXls.MDB数据库

　　End Sub

　　2、打开RecordSet的方法

　　RecordSet遵循即用即开的原则，所以它通常在函数中打开

　　Set thePrintTable = AcessDBF.OpenRecordSet ( "Table_1",dbOpenSnapshot )

　　相关的数据操作

　　数据实际需要对Access表中的记录、字段、数据项进行操作。下列双重循环把数据输出到Excel对应的单元格中：

　　For j = 0 To 2

　　For I = 0 To 3

　　ThePrintTable.MoveNext

　　Excel.Sheet.Range ( Trim ( chr ( 71+j*10+I ) )+"G").Value = thePrintTable.Fields (0)

　　Next I

　　Next j

　　关闭数据库

　　1、关闭Database

　　它通常在整个应用程序的最后进行操作，即通常出现在Private Sub Form_unload (Cannel As Interger )过程中。命令格式实例如下：

　　AccessDBF.Close

　　2、关闭RecordSet

Answer 2

DAO好像打不开ACCESS2000版本的数据库, 如果是ACCESS2000请转换为ACCESS97版本的数据库, 用ACCESS自带的工具就可以转换.要想打开ACCESS2000最好用ADO或引用ADODC控件

参考资料：

Answer 3

1.安装OFFICE 2003.
2.将后缀为ASP的ACCESS数据库文件改后缀为:mdb
3.打开.

Answer 4

在工具里先建个ado控件啊...然后设置属性就可以拉

Answer 5

vb 本身就有
OpenDatabase 函数

楼上的傻啊
只是打开 何苦引用vba
调excel阿

(可能需要引用ado
在工程--引用里)
用datagrid

dim db as database
dim rs as recordset
db=opendatabase("user id=;password=;data source=d:\a.mdb")
rs=db.OpenRecordSet( "Table1",dbOpenSnapshot)

datagrid1.datasouce=rs
datagrid1.bind