Access Db erstlellen und mit D2005 daten dort speichern

[tobiasw]

hi

ich möchte gerne ein prog schreiben das infos in einer Access DB abspeichert. Ich setzte Delphi 2005 ein. Habt ihr ein paar Infos und Tutorials wie ich sowas machen kann mit Delphi, wie ich die ACCESS Db erstellt wird und wie ich mit dieser Verbindung aufnehmen kann. Was ich weiß ist das ich DbEdit Felder brauch.

Gruß

[Duffy]

Hallo tobiasw,
wie möchtest Du denn in eine Access Tabelle schreiben.

• mit Delphi 2005 Win32

• mit Delphi 2005 .NET

• mit Delphi 2005 C#

bye
Claus

[tobiasw]

mit Delphi 2005 Win32

[Duffy]

Hallo tobiasw,
also wie gehabt ADO

bye
Claus

[tobiasw]

gut habe eine Tutorial gefunden bei delphi source
Jetzt habe ich folgendes Problem und zwar kennt er TdataModule2.openDatabse nicht das habe ich gelöst bekommen in dem ich geschrieben hab TDataModule2OpenDatabase der nächste Fehler tritt bei openDatabase:=true; auf. Was mache ich falsch

Delphi-Quellcode:

function TDataModule2OpenDatabase: Boolean;
begin
openDatabase:=true;
try
ADOConnection1.Open;
except
OpenDatabase:false;
end;
end;
end.

[HomerGER]

ähhh erst die Connection und dann datamodul?

[tobiasw]

und zwar ist mein Problem wie oben beschrieben wenn ich zwischen mehreren Datenbank wechseln möchte. Ich weiß ja auch net woran es liegt aber ich hab das so wie in dem tutorial beschrieben nur abgeschrieben

Gruß

[Robert_G]

Zitat von tobiasw:

Was mache ich falsch

Nunja... ... alles

Delphi-Quellcode:

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

Das Ganze sah ziemlich krass nach VB-Syntax aus.

[tobiasw]

du kannst es dir ja mal anschauen unter www.tutorials.delphi-source.de Flexible ADOConnection zur Ansteuerung einer Access Datenbank

[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.