Mam dwa pytania dotyczące baz danych:
-
Jak z poziomu programu (lub używając STANDARDOWYCH komponentów) założyć nową baze danych, tzn. ustawić jej alias, ścieżkę ? Podobą rzecz można zrobić bez trudu w SQLExplorer, ale ja chcę, żeby to robił mój program, np. przy instalacji.
-
Jak na komputerze bez Delphi czy Buildera zainstalować i zarejestrować sterowniki BDE (bez używania InstallShield i podobnych)? Wiem, że Borland umożliwia wykorzystanie pliku BDEINST.DLL ale jak to zrobić?
Ad 1.
procedure TForm1.Button1Click(Sender: TObject);
var
AliasParams: TStringList;
begin
AliasParams := TStringList.Create;
try
with AliasParams do begin
Add('Default Driver=Paradox');
Add('Type=Standard');
Add('PATH=C:\sciezka');
end;
Session.ModifyAlias('nazwaaliasu',AliasParams) ;
Session.Close;
finally
AliasParams.Free;
end;
end;
jeśli musisz też zmieniać net dir (który standardowo jest C:)
to zrób to tak
...
AliasParams.Add('Net Dir=C:\sciezka');
session.ModifyDriver('paradox',AliasParams);
Session.SaveConfigFile ;
...
żeby zadziałało to żadna baza nie może być otwarta (dotyczy również innych programów) .
Ad 2.
plik BDEINST.DLL rejestrujemy wydając polecenie :
regsvr32.exe BDEINST.DLL
ale nigdy tego nie próbowałem, i jest to niezgodne z licencją.