Unit rdbtool_MDB

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

rdbtool_MDB is set functions for working with MDB database file by using of DAO; can be used for updating of database structure by application.

Date: Apr 2008 Author: Rosi (http://www.rosinsky.cz/delphi) Full functional demo

Overview

Classes, Interfaces, Objects and Records

Name Description
record TFieldRec  
record TIndexRec  
record TQueryDef  
record TRelationRec  

Functions and Procedures

function IsAccess97(DBName: string): boolean;
function OpenMDB(DBName, Pwd: string): Database;
procedure CompactMDBEx(SrcName, DstName, OldPwd, NewPwd: string);
function CompactMDB(DBName, Pwd: string): boolean;
function ReadMDBUsers(DBName: string; List: TStrings): boolean;
procedure GetTableList(DBName, Pwd: string; List: TStrings); overload;
procedure GetTableList(db: Database; List: TStrings); overload;
function GetTableFields(DBName, Pwd, TableName: string; List: TStrings): TFieldRecArray; overload;
function GetTableFields(db: Database; TableName: string; List: TStrings): TFieldRecArray; overload;
function GetTableIndexes(DBName, Pwd, TableName: string; NotRelations: boolean; List: TStrings): TIndexRecArray; overload;
function GetTableIndexes(db: Database; TableName: string; NotRelations: boolean; List: TStrings): TIndexRecArray; overload;
function CreateTable(db: Database; TableName: string; FieldRecArray: TFieldRecArray; IndexRecArray: TIndexRecArray): TableDef;
procedure DropTable(db: Database; TableName: string);
procedure DeleteIndexes(db: Database; TableName: string; LeftPrimaryKey: boolean);
procedure RenameTable(db: Database; SrcTableName, DstTableName: string);
function GetQueryDefs(DBName, Pwd: string; List: TStrings): TQueryDefArray; overload;
function GetQueryDefs(db: Database; List: TStrings): TQueryDefArray; overload;
procedure ClearQueryDefs(db: Database);
function CreateQueryDef(db: Database; QDef: TQueryDef): QueryDef;
procedure CreateQueryDefs(db: Database; QDefArr: TQueryDefArray);
function GetRelations(DBName, Pwd: string; List: TStrings): TRelationRecArray; overload;
function GetRelations(db: Database; List: TStrings): TRelationRecArray; overload;
procedure CreateRelations(db: Database; RelationRecArray: TRelationRecArray);
procedure ClearRelations(db: Database);
procedure RegDAO350;

Types

TFieldRecArray = array of TFieldRec;
TIndexRecArray = array of TIndexRec;
TQueryDefArray = array of TQueryDef;
TRelationRecArray = array of TRelationRec;

Description

Functions and Procedures

function IsAccess97(DBName: string): boolean;
 
function OpenMDB(DBName, Pwd: string): Database;
 
procedure CompactMDBEx(SrcName, DstName, OldPwd, NewPwd: string);
 
function CompactMDB(DBName, Pwd: string): boolean;
 
function ReadMDBUsers(DBName: string; List: TStrings): boolean;
 
procedure GetTableList(DBName, Pwd: string; List: TStrings); overload;
 
procedure GetTableList(db: Database; List: TStrings); overload;
 
function GetTableFields(DBName, Pwd, TableName: string; List: TStrings): TFieldRecArray; overload;
 
function GetTableFields(db: Database; TableName: string; List: TStrings): TFieldRecArray; overload;
 
function GetTableIndexes(DBName, Pwd, TableName: string; NotRelations: boolean; List: TStrings): TIndexRecArray; overload;
 
function GetTableIndexes(db: Database; TableName: string; NotRelations: boolean; List: TStrings): TIndexRecArray; overload;
 
function CreateTable(db: Database; TableName: string; FieldRecArray: TFieldRecArray; IndexRecArray: TIndexRecArray): TableDef;
 
procedure DropTable(db: Database; TableName: string);
 
procedure DeleteIndexes(db: Database; TableName: string; LeftPrimaryKey: boolean);
 
procedure RenameTable(db: Database; SrcTableName, DstTableName: string);
 
function GetQueryDefs(DBName, Pwd: string; List: TStrings): TQueryDefArray; overload;
 
function GetQueryDefs(db: Database; List: TStrings): TQueryDefArray; overload;
 
procedure ClearQueryDefs(db: Database);
 
function CreateQueryDef(db: Database; QDef: TQueryDef): QueryDef;
 
procedure CreateQueryDefs(db: Database; QDefArr: TQueryDefArray);
 
function GetRelations(DBName, Pwd: string; List: TStrings): TRelationRecArray; overload;
 
function GetRelations(db: Database; List: TStrings): TRelationRecArray; overload;
 
procedure CreateRelations(db: Database; RelationRecArray: TRelationRecArray);
 
procedure ClearRelations(db: Database);
 
procedure RegDAO350;
 

Types

TFieldRecArray = array of TFieldRec;
 
TIndexRecArray = array of TIndexRec;
 
TQueryDefArray = array of TQueryDef;
 
TRelationRecArray = array of TRelationRec;
 

Generated by PasDoc 0.13.0 on 2017-06-17 14:57:21