Access DB erzeugen und noch mehr Schweinkram

lambruco · Beiträge: 100 Win 2000/2000 Server/XP D6 Prof.

Hallo Forum,

ich hab da mal ein kleines Problem. Ich soll eine Konsolen Applikation programmieren, die eine Access-Datenbank erzeugt und anschliessend einen strukturierten Text importiert. Das ganze wird über eine INI-Datei konfiguriert. Den INI-Kram kann ich, aber eine Access-DB erzeugen, bzw. Daten in DB importieren??? Nennt mir doch mal ein paar Stichwörter oder noch besser ein Beispiel.

gruß aus HH
Lars

Klabautermann · Verfasst: Mo 02.06.03 15:50

Hallo,

ich würde ein leere Access-DB in die Resource der Anwendung aufnehmen und dann bei bedrf Extrahieren. Beispiele sollten im Forum zu finden sein.

Auf die DB kannst du dann am besten per DAO oder ADO zugreifen.

Gruß
Klabautermann

lambruco · Beiträge: 100 Win 2000/2000 Server/XP D6 Prof.

Ich weiss nicht, ob es an der Konsolen Anwendung liegt aber
wenn ich den AdoConnection.ConnectionString setze, dann passiert
garnichts, bzw. das Programm verabschiedet sich einfach ohne Fehlermeldung. Hier der Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function TDataModule1.CreateDatabase(dbName : String) : boolean;
var
   dataSource : String;
begin
   dataSource := 'Provider=Microsoft.Jet.OLEDB.4.0' +
                        ';Data Source=dbName;Persist Security Info=False';
   ADOConnection1.LoginPrompt := False;
   ADOConnection1.ConnectionString := dataSource;
end;

Hab ich irgendetwas vergessen ???
Benutze Delphi 6 und Win2000 Server.

Moderiert von Klabautermann: Delphi-Tags hinzugefügt.

Klabautermann · Verfasst: Mi 04.06.03 10:16 Titel: Re: Klappt nicht

Hallo,

lambruco hat folgendes geschrieben:

Ich weiss nicht, ob es an der Konsolen Anwendung liegt aber wenn ich den AdoConnection.ConnectionString setze, dann passiert garnichts, bzw. das Programm verabschiedet sich einfach ohne Fehlermeldung.

Versuche es mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TDataModule1.CreateDatabase(dbName : String) : boolean;
var
   dataSource : String;
begin
   dataSource := 'Provider=Microsoft.Jet.OLEDB.4.0' +
                        ';Data Source=' + dbName + ';Persist Security Info=False';
   ADOConnection1.LoginPrompt := False;
   ADOConnection1.ConnectionString := dataSource;
   ADOConnection1.Connected := TRUE;
end;

Gruß
Klabautermann

lambruco · Beiträge: 100 Win 2000/2000 Server/XP D6 Prof.

Hab ein wenig weiter getestet und glaube, es liegt daran, dass es als
application-console laufen soll.
hab ein datenmodul erstellt mit einem adoconnection , den connectionstring korrekt eingegeben und getestet, anschliessend 2
billige funktionen zum öffnen und schliessen geschrieben.
wenn ich jetzt eine standard-application mit zwei buttons benutze,
klappt alles wunderbar.
benutze ich dieses datenmodul in einer consolen-application, dann
kommt eine access-violation.
anscheinend kann man von der console nicht auf die db zugreifen,
oder gibt es da einen trick ????

lambruco · Beiträge: 100 Win 2000/2000 Server/XP D6 Prof.

hab das consolenproblem gelöst, musste activeX einbinden und coInitialize
benutzen oder so ähnlich.

Aber wie erzeugt man jetzt eine leere access-db ???

einfach filecreate('db.mdb') kann es ja nicht sein, oder ??

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme