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;