Access Db erstlellen und mit D2005 daten dort speichern

[tobiasw]

Das hätte jetzt gefunzt. Jetzt hab ich einen Fehler ab function EditMeineAnwednungDSN(var DSN:string):Boolean; DSN:string):Boolean;
Warum auch immer

Delphi-Quellcode:

unit DatenModulUnit;

interface

uses
  SysUtils, Classes, DB, ADODB, ADOConED;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;

  private
    { Private declarations }
  public
    { Public declarations }
    function OpenDatabase: Boolean;
    function CloseDatabase: Boolean;
    function EditMeineAnwednungDSN(var DSN:string):Boolean;
    function GetMeineAnwednungDSN: string;
    function SetMeineAnwednungDSN(DSN: string):Boolean;
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}
function TDataModule2.OpenDatabase: Boolean;
begin
  result := true;
  try
    ADOConnection1.Open();
  except
    result := false;
  end;
end;


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


end.