如果在代码中写数据连接，就是adoconnection那个组件里的连接字符串，数据库路径的

Question

数据库access和sql的都给人例子好不

Answer 1

procedure TDataModuleADO.DataModuleCreate(Sender: TObject);
begin
  adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source='
  +mypath+'\data\bookmanage.mdb;Persist Security Info=False';
  adoquery1.Connection :=adoconnection1;
  adotable1.Connection :=adoconnection1;
end;

Answer 2

//读出文件所在位置
procedure TMainform.FormCreate(Sender: TObject);
begin
  mypath:=extractfilepath(paramstr(0));
 // shortdateformat:='yyyy/mm/dd';
end;