unit Unit1;
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
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetConnectionString(
Handle : THandle;
*****************************ADOConnection : TADOConnection;
*****************************sConnection :
String = '
') : Boolean;
begin
**ADOConnection.Connected := False;
**
// Hier wird der Dialog zum Aufbau des ConnectionString aufgerufen,
**
// analog zu dem Aufbau per ObjektInspektor in der IDE.
**ADOConnection.ConnectionString := PromptDataSource(
handle,sConnection);
**ADOConnection.Connected := True;
**Result := ADOConnection.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.