Zum Ausprobieren habe ich einfach eine Form erstellt und eine ADOTable und eine ADOConnection drauf gestellt. Wenn ich jetzt deinen Code übernehme, sieht das aus, wie folgt:
Delphi-Quellcode:
type
TForm1 =
class(TForm)
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
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.
Die markierte Zeile in der Funktion wird mit „E2003 Undeklarierter Bezeichner” markiert. Was muss ich da noch rein machen?
Gruß
Oswald