如何在VB中用DAO方法创建、打开、修改数据库？

Answer 1

引用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

它遵循用完即关的原则，所以通常出现在函数中。当完成了相关的数据操作后就关闭它，下次再用时再打开即可：

thePrintTable.Close

Answer 2

建立一个模块：（将下列代码写入）
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub OpenConn()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\zyhg.mdb;Persist Security Info=False;"
End Sub
'关闭数据库连接
Public Sub CloseConn()
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

在form页加入
call openconn(为打开数据库）
call closeconn（为关闭数据库）
修改数据库加入下列语句
dim i as long
i=msgbos("是否修改该数据？",vbyesno,"数据修改")
if i=vbyes then
msgbox"数据修改成功!"
else
rs.cancelUpdate
end if