Access数据库操作

//压缩与修复数据库,覆盖源文件
function CompactDatabase(AccessFullName: String): Boolean;
implementation
//////////////////////////////////////////////////////////////////////////////////
AccessCont.GetTableNames(TableList);
//Result := TableList.IndexOfName(ATable) <> -1;
for i := 0 to TableList.Count - 1 do
if TableList[i] = ATable then
//取得Access数据库表列表
procedure GetTableList(AccessDBName: String; var TableList: TStringList);
//判断Access数据库中是否存在表
function TableExists(AccessFullName: String; //Access数据库完整文件名
ATable: String //SQL Server表名
);
//从Access导出表至Access数据库 16:15:37
procedure Access2Access(AccessFromName: String; //源Access数据库完整文件名
begin
Result := True;
Break;
end;
AccessCont.Close;
finally
AccessCont.Free;
TableList.Free;
end;
end;
/////////////////////////////////////////////////////////////////////////////////
DB, ADODB;
//创建Access数据库，DBFileName为数据库文件的完整路径
// ForceWrite为是否强制建立
//创建成功返回True，否则返回False
function CreateAccessDB(DBFullName: String; ForceWrite: Boolean): Boolean;
/////////////////////////////////////////////////////////////////////////////////
//判断Access数据库中是否存在表
function TableExists(AccessFullName: String; //Access数据库完整文件名
);
//从SQL Server导出表至Access数据库
procedure SQLServer2Access( AccessFullName: String; //Access数据库完整文件名
ASQLServer: String; //SQL Server服务器名
/////////////////////////////////////////////////////////////////////////////////
procedure SQLServer2Access( AccessFullName: String; //Access数据库完整文件名
AccessCont.LoginPrompt := False;
AccessCont.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + AccessFullName;
AccessCont.Open;
参考一下：
////功能：Access数据库操作
////原创：Peter_Xiong
////最后修改时间：2004.09.02
unit Access;
interface
uses
Windows, SysUtils, Variants, Classes, Graphics, Controls, StdCtrls, ComObj,
end;
/////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////
begin
Result := False;
AccessCont := TADOConnection.Create(nil);
TableList := TStringList.Create;
try
mandTimeout := 0;
//AccessCont.Provider := 'Microsoft.Jet.OLEDB.4.0';
try
mandTimeout := 300;
//AccessCont.Provider := 'Microsoft.Jet.OLEDB.4.0';
AccessCont.LoginPrompt := False;
AccessCont.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + AccessDBName;
ATable: String //表名
): Boolean;
var
TableList: TStringList;
AccessCont: TADOConnection;
i: Integer;
Result := False;
Exit;
end;
AccessDB := CreateOleObject('ADOX.Catalog');
AccessDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBFullName);
//删除Access数据库表
procedure DropAccessTable( AccessFullName: String; //Access数据库完整文件名
ATable: String //表名
ATable: String //表名
): Boolean;
//创建Access数据库表索引
procedure CreateAccessIndex( AccessFullName: String; //Access数据库完整文件名
ASQLServer: String; //SQL Server服务器名
AUserID: String; //SQL Server用户名
APassword: String; //SQL Server用户口令
//取得Access数据库表列表
procedure GetTableList(AccessDBName: String; var TableList: TStringList);
var
AccessCont: TADOConnection;
i: ITADOConnection.Create(nil);
IsUnique: Boolean; //是否无重复索引
IsPrimary: Boolean //是否主键
);
if not DeleteFile(DBFullName) then
begin
Result := False;
Exit;
end;
if not ForceWrite and FileExists(DBFullName) then
begin
AccessCont.Open;
AccessCont.GetTableNames(TableList);
AccessCont.Close;
finally
AccessCont.Free;
end;
end;
/////////////////////////////////////////////////////////////////////////////////
AUserID: String; //SQL Server用户名
APassword: String; //SQL Server用户口令
ADBName: String; //SQL Server数据库名
ATable: String; //表名
AIndex: String; //索引名
AFields: String; //字段描述
function CreateAccessDB(DBFullName: String; ForceWrite: Boolean): Boolean;
var
AccessDB: OleVariant;
begin
Result := True;
if ForceWrite and FileExists(DBFullName) then
AccessToName: String; //目的Access数据库完整文件名
ATable: String //Access表名
);