Announcement

**Andreas Kosch** · 12.02.2003, 08:47

Hallo,

welches Datenbankformat verwendet die ACCESS-Datenbank (95er, 97er oder 2000er MDB-Format)? Da der Zugriff �ber TTable erfolgt, ist einer der beiden BDE-Link-Treiber f�r das Microsoft DAO Object im Spiel. Welchen Wert zeigt die BDE-Verwaltung f�r diesen Alias auf der Registerseite Konfiguration in der Spalte DLL32 f�r den Eintrag MSACCESS an? Wenn dort IDDA3532.DLL angezeigt wird und es sich um ein altes MDB-Datenbankformat handelt, was passiert, wenn zum Test IDDAO32.DLL ausgew�hlt wird?

>...was kann ich dagegen tun?

Anstelle der BDE (SQL-Link zum alten DOA-Objektmodell) kann das eigene Programm �ber ADO oder ADO Express (alias dbGo) auf die MDB zugreifen.

P.S: Sind UNICODE-Zeichen in dieser ACCESS-Tabelle? Werden zusammengesetzte Indizies verwendet

**HSBC** · 12.02.2003, 15:24

Sehr geehrter Herr Kosch, 
vorerst mal herzlichen Dank f�r Ihre rasche Antwort. Ich habe die Access-Tabellen mit Microsoft-Access 2002 erstellt und greife �ber ODBC darauf zu (vielleicht ginge das mit dem Native-Access besser, nur weiss ich nicht, wie ich darauf zugreifen kann). Unicode-Zeichen sind keine in den Tabellen, jedoch werden zusammengesetzte Indizies verwendet. Ich hatte auch schon versucht, anstatt TTable TQuery zu verwenden, was aber am Ergebnis nichts �nderte. Die Spalte DLL32 f�r MSACCESS zeigt unter Native IDDA3532.DLL und unter ODBC IDODBC32.DLL an. Mit ADO habe ich schon herumgespielt, doch scheitern viele Dinge mangels einer vern�nftigen Beschreibung. Welchen Befehl verwende ich in ADO anstatt TTable.Setkey oder TTable.GotoNearest, usw. Die Hilfe von Delphi 7 schweigt leider dar�ber. 
MFG 
Herbert Schneide

**Andreas Kosch** · 14.02.2003, 09:16

Hallo,

>..jedoch werden zusammengesetzte Indizies verwendet.

das k�nnte der Grund f�r das Problem sein, Borland hat in seinen FAQs auf der Community-Webseite eine derartige Fehlerbeschreibung (wenn ich mich richtig erinnere).

>..doch scheitern viele Dinge mangels einer vern�nftigen Beschreibung.

Hinter den ADO Express- alias dbGo-Komponenten stecken nur VCL-Wrapperkomponenten f�r die nativen ADO-Objekte von Microsoft. Da diese COM-Objekte sind, gelten die Dokumentations-Regeln von COM: Der Anbieter der Objekte (also in diesem Fall Microsoft) ist f�r die Dokumentation zust�ndig, was Microsoft �ber die Hilfedatei aus dem MDAC SDK in vorbildlicher Art und Weise auch macht. Allerdings liefert Borland diese Doku nicht mit Delphi aus, so dass wird uns das Microsoft Platform SDK selbst besorgen m�ssen. Und da gibt es ja auch noch mein Buch "ADO und Delphi"....

>Welchen Befehl verwende ich in ADO anstatt TTable.Setkey oder TTable.GotoNearest...

ADO verwendet eine andere Philosophie als die BDE, daher sollte man auf die Kompatibilit�tskomponenten wie TADOTable etc. verzichten und direkt mit TADODataSet und TADOCommand arbeiten. Bei einer ACCESS-Datenbank im cmdTableDirect-Modus stehen somit folgende Funktion zur Verf�gung: 
- TADODataSet-Eigenschaft IndexName (Index-Name zuweisen) 
- TADODataSet-Methode Seek mit der soBeforeEQ-Option sucht den Eintrag, der dem Suchbegriff am �hnlichsten ist

**HSBC** · 15.02.2003, 13:32

Hallo, Herr Kosch, 
Habe die zusammengesetzten Indizies entfernt, Ergebnis blieb gleich. 
Alleine nur das Einbinden einer TADODataSet-Komponente verursacht bei der Programmausf�hrung folgenden Fehler: Im Projekt ... ist eine Exception der Klasse EOleSysError aufgetreten. 'Colnitialize wurde nicht aufgerufen'. Prozess wurde angehalten. 
Wenn ich hingegen in einer neuen Anwendung die TADODataSet-Komponente verwende, so funktioniert das. 
Das Ergebnis der TADODataSet-Methode Seek mit der Option soBeforeEQ liefert immer das Ergebnis False, also es wird kein entsprechender Datensatz gefunden. Der Aufruf erfolgt so: 
TADODataSet1.IndexName := 'Familienname'; 
TADODataSet1.Active := True; 
TADODataSet1.Seek('Mayer', soBeforeEQ); 
Das Ergebnis ist false, der Datenzeiger im TDBGrid hat sich nicht bewegt, obwohl mehrere 'Mayer' in der Datenbank vorhanden sind. 
Nun noch zu Ihrem Buch - w�rde mich sehr interessieren - wo kann ich dieses beziehen, bzw. welche Themen werden dort beschrieben. Liefern Sie auch nach �sterreich gegen Nachnahme, etc.? 
Mit freundlichen Gr�ssen 
Herber

**Andreas Kosch** · 17.02.2003, 08:19

Hallo,

>..'Colnitialize wurde nicht aufgerufen'....

in diesem Fall wurde die .DPR-Datei (Projektdatei) von einer zu alten Delphi-Version angelegt. Um das Problem zu beseitigen, muss die Zeile Application.Initialize an erster Stelle eingef�gt werden, wie das folgende Beispiel zeigt:
<pre>
..
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
</pre>

>...Seek ...

Hinter ADO steckt eine "eierlegende Wollmilchsau", die sehr freiz�gig konfiguriert werden kann. Je nach gew�hlter Einstellung verh�lt sich das Teil jedoch anders, so dass das Recordset-Objekt die Methode Supports bereitstellt, �ber die man nachfragen kann, was das Objekt in der aktuellen Einstellung zur Zeit kann und was nicht.

Im Fall von Seek zeigt der folgende Auszug aus der Objektinspektor-Konfiguration, auf was es ankommt: 
- CursorLocation = clUseServer 
- CommandType = cmdTableDirect 
- IndexName = 'ByName'
<pre>
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Buch\ADO\CDROM\D' +
'atabase\dbdemos.mdb;Persist Security Info=False'
CursorLocation = clUseServer
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 136
Top = 96
end
object ADODataSet1: TADODataSet
Active = True
Connection = ADOConnection1
CursorLocation = clUseServer
CommandText = 'employee'
CommandType = cmdTableDirect
IndexName = 'ByName'
Parameters = <>
Left = 168
Top = 96
object ADODataSet1EmpNo: TIntegerField
DisplayWidth = 6
FieldName = 'EmpNo'
end
object ADODataSet1LastName: TWideStringField
DisplayWidth = 17
FieldName = 'LastName'
end
object ADODataSet1FirstName: TWideStringField
FieldName = 'FirstName'
Size = 15
end
object ADODataSet1PhoneExt: TWideStringField
FieldName = 'PhoneExt'
Size = 4
end
object ADODataSet1HireDate: TDateTimeField
FieldName = 'HireDate'
end
object ADODataSet1Salary: TFloatField
FieldName = 'Salary'
end
end
</pre>

>... ADO-Buch...

Siehe http://www.entwickler.com/itr/buecher/psecom,id,7,nodeid,92,ps_lo,20.html.

&#10

**HSBC** · 22.02.2003, 09:17

Hallo Hr. Kosch, 
Es funktioniert. Entscheidend war TApplication.Initialize und die Tatsache, dass Indexname unmittelbar vor dem Aufruf der Funktion Seek nochmals aufgerufen wurde (obwohl die Datens�tze beim �ffnen der Datei im Objektinspektor bereits mit dem Indexnamen gesetzt war). Ich m�chte mich auf diesem Wege nochmals sehr herzlich bei Ihnen f�r Ihre rasche Hilfe bedanken. 
Ich h�tte mir auch sehr gerne Ihr Buch bestellt, habe aber hier von �sterreich aus leider keine M�glichkeit, da ich keine Visa-Card oder �hnliche Karten besitze und ein Versand mittels Nachnahme leider nicht angeboten wird. Vielleicht k�nnen Sie mir noch den Verleger bzw. eine Buchnummer bekanntgeben, dann werde ich dies nochmals in einer �rtlichen Buchhandlung versuchen. 
Mit freundlichen Gr�ssen<BR
Herber

**Andreas Kosch** · 24.02.2003, 08:36

Hallo,

mein ADO-Buch hat die ISDN 3-935042-10-

Announcement

TDataSource liefert falsche Ergebnisse

TDataSource liefert falsche Ergebnisse

Comment

Comment

Comment

Comment

Comment

Comment

Comment