SAP ASE Anleitung: mit Delphi verbinden

Sie sollten danach ein kleines Fenster mit dem Namen “Form1“ sehen. In diesem können Sie eine “TADOConnection“ hinzufügen. Diese finden Sie unten rechts in der Palette.

Nachdem Sie diese in das kleine Fenster hineingezogen haben, können Sie mit einem Doppelklick oder einem Rechtsklick auf die Komponenten und wählen “Verbindungs-String bearbeiten“.

Dann klicken Sie auf den Knopf “Aufbauen…“. Es öffnet sich ein neues Fenster, in dem Sie sich aussuchen können mit welcher Art Sie sich verbinden wollen. Um mit dem SAP ASE eine Verbindung aufzubauen wird der “Microsoft OLE DB Provider for ODBC Drivers“ verwendet.

Drücken Sie anschließend auf den Knopf “Weiter>>“. Der Reiter geht weiter zur Verbindung und Sie können sich eine ODBC-Datenquelle aussuchen, die der Connector verwenden soll.

Bevor wir hier weiter machen, müssen wir eine 32-Bit ODBC-Datenquelle erstellen. Suchen Sie mit Windows Start auf der Suchleiste “ODBC“ und öffnen Sie den “ODBC Data Source (32-Bit)“.

Wechseln Sie den Reiter von “Benutzer-DNS“ auf “System-DNS“ und fügen dort eine weitere DNS hinzu.

Wählen Sie bei der Datenquelle “Adaptive Server Enterprise“ aus und klicken auf den Button “Fertig stellen“.

Tragen Sie die Daten ein und benennen Sie die Datasource passend. Nachdem Sie alles eingestellt haben, können Sie eine Testverbindung erstellen.

Damit die Datenquelle erstellt wird, drücken Sie auf den Knopf “OK“. Danach sollte die ODBC-Datenquelle in der Liste erscheinen.

Sie können nun das Fenster mit den ODBC-Datenquellen schließen. Danach wechseln Sie zurück zu Delphi und aktualisieren die ODBC-Liste des Connectors. Die ODBC-Datenquelle sollte nun bei der Dropdown-Liste vorhanden sein. Wählen Sie diese anschließend aus.

Sie haben hier die Möglichkeit, bevor Sie das Fenster des Connector schließen, die ID und das Passwort für den SAP ASE einzutragen und zu testen. Nachdem Sie die Verbindung erstellt haben kopieren Sie diese in die Zwischenablage. Danach fügen Sie einen Knopf in das Form-Fenster von Delphi und wechseln die Ansicht zum Code.

Um über Delphi mit einem SAP ASE eine Verbindung aufzubauen, benutzen Sie folgenden Code:

unit Unit1;


interface


uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, Data.Win.ADODB;


type

  TForm1 = class(TForm)

    ADOConnection1: TADOConnection;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;


  const

    ConnectionStr='Provider=MSDASQL.1;Persist Security Info=False;Data Source=;Port=;Uid=;Pwd=';


var

  Form1: TForm1;

  AdoConnection: TADOConnection;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

procedure ConnectServer(DataBase:string);

begin

    ShowMessage('Verbindung zum Server wird hergestellt');

    AdoConnection:=TADOConnection.Create(nil);

    AdoConnection.LogInPrompt:=False;

    AdoConnection.ConnectionString:=Format(ConnectionStr,['Tobax',dataBase]);

    AdoConnection.Connected:=True;

end;


procedure ReadData;

var AdoQuery: TADOQuery;

begin

   AdoQuery:=TADOQuery.Create(nil);

   try

    AdoQuery.Connection:=AdoConnection;

    AdoQuery.SQL.Add('SELECT * FROM );

    AdoQuery.Open;

    while not AdoQuery.eof do

        begin

           ShowMessage(Format('% % %',[AdoQuery.FieldByname('').asInteger,AdoQuery.FieldByname('').asString,AdoQuery.FieldByname('').asString]));

           AdoQuery.Next;

        end;

   finally

     AdoQuery.Free;

   end;

end;


procedure disconnectServer;

begin

if ADoConnection.Connected then

    AdoConnection.Close;

    AdoConnection.Free;

    ShowMessage('Verbindung zum Server getrennt');

end;


begin

  try

  ShowMessage('Init');

    try

    ConnectServer('');

    ReadData;

    disconnectServer;

    except

    on E : Exception do

    ShowMessage(E.Classname + ' , ' + E.Message);

    end;

  finally

  end;

end;


end.

Nachdem Sie den Code für ihre Datenbank ergänzt haben, können Sie diesen testen. Nutzen Sie oben auf der Leiste die grüne Abspieltaste, um das Projekt zu erzeugen.

Drücken Sie auf den Knopf und kontrollieren Sie, ob die Daten angezeigt werden.