unit HFCon;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, Data.DB, Data.Win.ADODB;
type
TForm1 = class(TForm)
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
procedure FormCreate(Sender: TObject);
private
function GetConnectionString(
handle : THandle; ADOConnection1 : TADOConnection;*sConnection : String = '') : Boolean;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetConnectionString(
handle : THandle; ADOConnection1 : TADOConnection;*sConnection : String = '') : Boolean;
begin
**ADOConnection1.Connected := False;
**// Hier wird der Dialog zum Aufbau des ConnectionString aufgerufen,
**// analog zu dem Aufbau per ObjektInspektor in der
IDE.
**ADOConnection1.ConnectionString := PromptDataSource(
handle, sConnection);
**ADOConnection1.Connected := True;
**Result := ADOConnection1.Connected;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if GetConnectionString(
handle,ADOConnection1) then begin
****// Hier sollte die Datenbankverbindung bestehen.
****// Den ConnctionString kannst Du Dir, bei Bedarf per STRG+C aus dem Dialog
****// kopieren und dann an sinnvoller Stelle speichern bzw. der ADOConnection zuweisen.
****ShowMessage(ADOConnection1.ConnectionString);
**end
else
begin
****MessageDLG('Es konnte keine Datenbankverbindung hergestellt werden.',mtError,[mbOk],0);
**end;
end;
end;
end.