@Repository("brandDAO")
public class BrandDAO extends HibernateDao<Integer>{
}
dao层的作用隔离了数据访问代码和业务逻辑代码,隔离了不同数据库实现。业务逻辑代码直接调用DAO方法即可,完全感觉不到数据库表的存在。分工明确,数据访问层代码变化不影响业务逻辑代码,这符合单一职能原则,降低了耦合性,提高了可复用性。不同的数据库为采用面向接口编程,如果底层数据库变化,如由MySQL变成Oracle只要增加DAO接口的新实现类即可,原有MySQL实现不用修改。这符合开到闭原则。该原则降低了代码的耦合性,提高了代码扩展性和系统的可移植性。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 = 8830428UID = 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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)