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

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!

bye

[Morlon]

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

[nailor]

wosn da jetzt der unterschied?

[Morlon]

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;