access操作

uses
ADODB;
procedure TForm1.SetupTable(sender:tobject);
Var
adocon1:TADOConnection;
strSQL:string;
Const
SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
begin
adocon1:=TADOConnection.creat(self);
adocon1.ConnectionString:=format(SConnectionString,[ExtractFilePath(application.ExeName)+'Happle.mdb','111111']);
strsql:='Create table Shops('+
'ShopID counter PRIMARY KEY,'+
'ShopName char(20),'+
'ShopADD char(30),'+
'ShopPhone char(15),'+
'ShopManager char(10),'+
'ShopMangerPhone char(15),'+
'Remark char(20))';
adocon1.Execute(strsql);
//表Shops建立
adocon1.close;
adocon1.free;
end;
3.添加记录
方法类似上面
strsql:='insert into shops (shopname) values(''Newshop'')';
adocon1.Execute(strsql);
注意的是,insert into 可以仅插入必需的或指定的字段值
----------------------------------------------------------------------------------------------
1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库)
以下代码在WIN2K,D6,MDAC2.6下测试通过,
编译好的程序在WIN98第二版无ACCESS环境下运行成功.
//声明连接字符串
Const
 SConnectionString       = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
                               +'Jet OLEDB:Database Password=%s;';
//=============================================================================
// Procedure: GetTempPathFileName
// Author   : ysai
// Date     : 2003-01-27
// Arguments: (None)
// Result   : string
//=============================================================================
function GetTempPathFileName():string;
//取得临时文件名
var
 SPath,SFile:array [0..254] of char;
begin
 GetTempPath(254,SPath);
 GetTempFileName(SPath,'~SM',0,SFile);
 result:=SFile;
 DeleteFile(result);
end;