Mit ADO ODBC auf AS400 zugreifen

**alf.stefan**

Hallo zusammen,

ich habe das Problem, dass ich auf eine Datenbank zugreifen soll, das geht aber nicht!

Durch das ADO Tutorial habe ich die Verbindung hinbekommen, das Funktioniert auch und ich kann über ADOConnection
auch die FeldNamen des Tables lesen von dem ich die Daten will!

Aber ob ich ADOQuery, ADOTable oder ADODataSet verwende es kommt immer die gleiche Fehlermeldung

Zitat:

[IBM]iSeries Access ODBC-Treiber][DB2 UDB]SQL0204 - WAKO der Art *FILE in myUser nicht gefunden

Wobei WAKO der Table ist und myUser der User (??) der sich mit Passwort connected!
Kann sich da jemand einen Reim drauf machen?

Wenn ich im ObejktInspektor CommandText anklicke kommt auch ein Auswahlfenster in dem ich die Tabelle (Table) und die Felder der SQL Abfrage eingeben muss/kann. Es besteht also eine Verbindung!

Wie komme ich bloss an die Daten?

Ihr merkt ich habe keine Ahnung, hoffentlich kann mir geholfen werden

Gruß

Stefan

Hier ist mal mein Code!

zusammenfalten · markieren

Delphi-Quellcode:

			unit uDb2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DB, ADODB, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Button2: TButton;

    ADOConnection1: TADOConnection;

    Memo1: TMemo;

    Label2: TLabel;

    Button3: TButton;

    ADODataSet1: TADODataSet;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button3Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

  myWako : TADOTable;

const

  user : string = 'myUser';

  passWord : string = 'myPassword';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

      ADOConnection1.ConnectionString :=

      'Provider=MSDASQL;'

      +'Persist Security Info=False;'

      +'User ID='+user+';'

      +'Password='+passWord+';'

      +'Data Source=rhdbd_16;'

       +'EXTCOLINFO=1;'

       +'Driver=iSeries Access ODBC Driver;'

      +'Initial Catalog=VWWE400;'

      +'DBQ=C:\Programme\Borland\Delphi7\Projects\DB\AS400.mdb;'

      +'Mode=Read;';

      Memo1.Lines.Append(ADOConnection1.ConnectionString);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

    if assigned(myWako) then

    begin

      myWako.Active := False;

      myWako.Free;

    end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

       if ADOConnection1.Connected then ADOConnection1.Close

       else ADOConnection1.Open(user,passWord);

       if ADOConnection1.Connected then Button1.Caption := 'DisConnect'

       else Button1.Caption := 'Connect';

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  fieldNames: TStrings;

begin

        memo1.Clear;

        fieldNames := TStringList.Create;

        ADOConnection1.GetFieldNames('WAKO', fieldNames);

        Label1.Caption := intToStr(fieldNames.Count)+' tFields in WAKO available';

        Memo1.Lines.Clear;

        Memo1.Lines.AddStrings(fieldNames);

        fieldNames.Free;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

  indexList: TStrings;

begin

       indexList := TStringList.Create;

       ADODataSet1.GetIndexNames(indexList);

       memo1.Lines.AddStrings(indexList);

       indexList.Free;

end;

end.

Mit ADO ODBC auf AS400 zugreifen

Mit ADO ODBC auf AS400 zugreifen

Forumregeln