dao与Access数据库
㈠ 如何在VB中用DAO方法创建、打开、修改数据库
引用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
㈡ VB怎么连接访问Access数据库
使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：
①数据访问对象/Jet
②为ODBC API编程
③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程
④RDO 远程数据对象(RemoteData Objects)
⑤ADO 数据对象(Active Data Objects)
1、数据访问对象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。
注释：Form Declarations
Dim mydb As Database
Dim mydynaset As Dynaset オ
Private Sub Form_Load()
Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")
Set mydynaset = mydb CreateDynaset("Select*from Customers") オ
End Sub ァ
上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。
2、利用ODBC API编程
ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn注释：t happen!"
End If
If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn注释：t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select * from Customers Where City = "Hunan""
myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
3、使用VBSQL对DB库API编程
DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：
VBSQL.VBX： 包含库函数，具有访问重要的消息和处理错误的能力