Ch08ACCESS数据库类.ppt

1,第8章 ACCESS 数据库类,8.1 私有变量与辅助函数的定义 8.2 属性 8.3 构造函数 8.4 数据源的更新 8.5 序号自动操作方法 8.6 其它方法 8.7 应用测试 8.8 本章小结,2,Private _strConnection As String Private _strQuery As String Private _adapter As OleDbDataAdapter 私有方法 GetAccessConnection 获取 Access 数据库的连接字符串 私有方法 GetTableName 获取查询字符串 _strQuery 中的表名,8.1 私有变量与辅助函数的定义,3,8.2 属性,4,Public Sub New(ByVal strDB As String, ByVal strQuery As String) permit only one select with primary key If InStr(strDB, “Provider“, CompareMethod.Text) 0 Then _strConnection = strDB Else _strConnection = GetAccessConnection(strDB) End If _strQuery = strQuery _strTableName = GetTableName() _adapter = New OleDbDataAdapter(_strQuery, _strConnection),8.3 构造函数,5,6,Public Function WriteData() As Integer 初始化 OleDbDataAdapter 对象的 SelectCommand Dim conn As OleDbConnection = New OleDbConnection(_strConnection) Dim cmdSelect As OleDbCommand = New OleDbCommand(_strQuery, conn) _adapter.SelectCommand = cmdSelect Dim cmdBuilder As OleDbCommandBuilder = _ New OleDbCommandBuilder(_adapter),8.4 数据源的更新,7,_adapter.UpdateCommand = cmdBuilder.GetUpdateCommand _adapter.DeleteCommand = cmdBuilder.GetDeleteCommand _adapter.InsertCommand = cmdBuilder.GetInsertCommand Try _adapter.Update(_ds , _dt.TableName) _strErrorWrite = “ Return 0 Success Catch ex As Exception _strErrorWrite = ex.Message Return -1 Error End Try End Function,8,EnlargeID 方法放大序号字段，具体算法是将原来的序号乘以2再加上记录数，确保数据集中的序号和数据源中的序号不产生重叠，以免在更新数据源的时候产生异常。这种算法放大序号后，序号之间的整数不连续，可以根据需要对序号进行调整 。 调用 EnlargeID 方法放大序号后，可以调用 NormalID 方法标准化序号。该方法通过循环将第一条记录的序号修改为1，然后，逐条加1。,8.5 序号自动操作方法,9,DeleteAll 方法清空数据库中的记录 Public Sub DeleteAll() For I As Integer = _dt.Rows.Count - 1 To 0 Step -1 _dt.Rows(I).Delete() Next I End Sub,8.6 其它方法,10,Dim strDb As String Dim strQuery As String = “Select * From PhoneBook Order By ID“ Dim myData As ADO_NET_ACCESS strDb = GetAppPath() & “PhoneBook.mdb“ myData = New ADO_NET_ACCESS(strDb, strQuery),8.7 应用测试,11,自定义 Access 数据库类 ADO_NET_ACCESS，其属性囊括了