BED 串連 Paradox

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Session1 do
  begin
    ConfigMode := cmSession;
    try
    AddStandardAlias('bendix', ExtractFilePath(ParamStr(0))+'db', 'PARADOX');
    finally
    ConfigMode := cmAll;
    end;
  end;
  Query1.DatabaseName := 'bendix';
  Session1.AddPassword('password');
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from make');
  Query1.Active := true;
end;

 

檢查別名

procedure TForm1.FormCreate(Sender: TObject);
var
  strAlias:TStringList; 
begin
  strAlias:=TStringList.Create;
  with Session1 do
  begin
    GetAliasNames(strAlias);
    if (strAlias.IndexOf('A3') = -1) then
    begin
      ConfigMode := cmSession;
      try
      AddStandardAlias('A3', ExtractFilePath(ParamStr(0))+'db', 'PARADOX');
      finally
      ConfigMode := cmAll;
      end;
    end;
  end;
  Query1.DatabaseName := 'A3';
  Session1.AddPassword('password');
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from Product');
  Query1.Active := true;
end;