2,496
社区成员
发帖
与我相关
我的任务
分享
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;