2,507
社区成员




var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+slj+'cache.mdb');
end;
var stab:string;
begin
DataModule2.adoconnection1.connected:=true;
DataModule2.adoquery1.Close;
DataModule2.adoquery1.SQL.Clear;
DataModule2.adoquery1.SQL.Add('CREATE TABLE cache (item1 text(400),item2 text(400),item3 varchar(16),item4 varchar(16))');
try
DataModule2.adoquery1.Open;
finally
DataModule2.adoquery1.Close;
end;
{stab:='table1';
condatabase.DataModule1.refreshdb(stab); }
end;