Delphi-Quellcode:
type
TForm1 =
class(TForm)
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
function GetConnectionString(
handle : THandle; ADOConnection1 : TADOConnection;*sConnection :
String = '
') : Boolean;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.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.
Da die Procedure nicht Teil der Klasse TForm ist, kennt sie ADOConnection1 nicht.
Grüße
Klaus