Syntaxproblem, bitte um Hilfe

[Benjin]

Hallo, versuche gerade die EDB Komponenten auszuprobieren und möchte eine Verbindung zu einer Access
Datenbank herstellen und Daten auslesen.
nun scheitere ich schon nach wengen Minuten :?
Kann mir jemand sagen was hier falsch ist?

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EDBComboBox, EDB, EDB_const;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    EDB1: TEDB;
    EDBComboBox1: TEDBComboBox;
    Daten: TButton;
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;


var
  Form1: TForm1;




implementation

{$R *.dfm}
begin
if EDB1.CreateDBConnection then begin


end;


end.

Die Fehlermeldung:

[Fehler] Unit1.pas(34): Undefinierter Bezeichner: 'EDB1'



Ist ein Anfängerfehler, gewiss.
Aber dafür wahrscheinlich umso einfacher zu beantworten.

Danke.

[Daniel]

Hallo Benjin,

bitte ändere den Titel Deines Beitrages, so daß dieser etwas mit dem Thema Deiner Frage zutun hat. Danke. ;-)

[BluesKid]

Moin moin

Was ist hier falsch? -> Ich denke erstmal der Titel *hihi*


Spass beiseite.

Delphi-Quellcode:

implementation

{$R *.dfm}
begin
if EDB1.CreateDBConnection then begin


end;

Is das 1:1 dein Code oder ein Tippfehler? Da Fehlt das Ereignis.


schönen Gruß
Sam

[Snoop007]

wenn mich nicht alles trügt fehlt das ne procedure / funktion wann das aufgerufen werden soll

wann soll das if statement denn ausgeführt werden ?

[Morlon]

Versuchs mal so :):

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EDBComboBox, EDB, EDB_const;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    EDB1: TEDB;
    EDBComboBox1: TEDBComboBox;
    Daten: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;


var
  Form1: TForm1;




implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if EDB1.CreateDBConnection then 
    begin
      {tu was}
    end
end;

end.

[Kedariodakon]

lieber net :angel2:

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, EDBComboBox, EDB, EDB_const; 

type 
  TForm1 = class(TForm) 
    Memo1: TMemo; 
    EDB1: TEDB; 
    EDBComboBox1: TEDBComboBox; 
    Daten: TButton; 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private-Deklarationen } 

  public 
    { Public-Deklarationen } 
  end; 


var 
  Form1: TForm1; 




implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  if EDB1.CreateDBConnection then 
    begin 
      {tu was} 
    end;
end; 

end.

Lieber So! :zwinker:

bye

[Morlon]

ach, jeder darf ma nen semikolon vergessen :P
hab bis vor kurzem mit VB gearbeitet, da habsch sowas nich gebraucht ;)

[nailor]

wosn da jetzt der unterschied?

[Morlon]

Zitat:

Zitat von nailor

wosn da jetzt der unterschied?

Ich hab hier:

Delphi-Quellcode:

  if EDB1.CreateDBConnection then
    begin
      {tu was}
    end

das Semikolon hinter dem end vergessen. ;)

[nailor]

muss ja auch nicht. siehe:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  begin
    begin
      beep
    end
  end
end;