AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Mit ADO ODBC auf AS400 zugreifen
Thema durchsuchen
Ansicht
Themen-Optionen

Mit ADO ODBC auf AS400 zugreifen

Ein Thema von alf.stefan · begonnen am 19. Mai 2010 · letzter Beitrag vom 19. Mai 2010
 
alf.stefan

Registriert seit: 11. Apr 2003
88 Beiträge
 
Delphi 7 Professional
 
#1

Mit ADO ODBC auf AS400 zugreifen

  Alt 19. Mai 2010, 07:56
Datenbank: Acess • Zugriff über: ADO
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!
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 Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz