Einzelnen Beitrag anzeigen

Benutzerbild von p0ke
p0ke

Registriert seit: 21. Dez 2003
Ort: Osnabrück
121 Beiträge
 
Turbo Delphi für Win32
 
#1

Einen BDE Alias ohne Datenbankkomponenten erzeugen

  Alt 16. Jan 2004, 17:58
Folgende kleine Prozedur wurde mit Hilfe der der BDE beiliegenden "Introduction to programming" erzeugt:

Delphi-Quellcode:
uses BDE;

procedure NewAlias(Alias, Driver, Params : PChar);
begin
  DbiInit(nil);
  try
    DbiAddAlias(nil, Alias, Driver, Params, True);
    DbiCfgSave(nil, nil, True);
  except
    ShowMessage('BDE Fehler!');
  end;
  DbiExit();
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Übergabe der Parameter mit Eigenschaft : Wert
  // Mehrere Parameter durch ; trennen
  // Beispiel für das Anlegen eines Interbase Alias mit 2 Parametern
  NewAlias('MyAlias','INTRBASE','USER NAME: MYNAME; SQLQRYMODE: LOCAL');
end;
[edit=Matze]Code korrekt formatiert. Mfg, Matze[/edit]
René
  Mit Zitat antworten Zitat