Verbindung geht nicht. Was ist falsch?

[Jack23]

Hallo ich habe das von dsdt.info flexible ADO Conection angefangen aber komme nicht weiter.

Wo liegt in diesem Code der Fehler?

Delphi-Quellcode:

unit DatenmodulUnit;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
   function OpenDatabase: Boolean;
  function CloseDatabase: Boolean;

  function TDataModule2.OpenDatabase: Boolean;

begin
  OpenDatabase:=true;
  try
    ADOConnection1.Open;
  except
    OpenDatabase:=false;
  end;
end;

function TDataModule2.CloseDatabase: Boolean;
begin
  CloseDatabase:=true;
  try
    ADOConnection1.Close;
  except
    CloseDatabase:=false;
  end;
end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

[DeddyH]

Schau Dir mal genau an, was in den interface- und was in den implementation-Teil gehört

[s-off]

Hallo,

vielleicht solltest Du mit einem Grundlagentutorial beginnen, damit Du auch weisst, an welche Stelle in Deinem Quelltext Du die zusammengesuchten Codeschnipsel hinkopieren musst.

Desweiteren ist es für zukünftige Anfragen sinnvoll, exakt zu beschreiben, wie sich Dein Problem bemerkbar macht.

Edit: sorry DeddyH. - aber es kam kein roter Kasten

[DeddyH]

@s-off Macht nichts, ich kenne das