SQL - Zugriff, evtl. sogar ohne BDE

[Gollum]

Hallo,

hast Du die Query mit der Connection verbunden?


Vorteil: Die Komponenten arbeiten viel besser mit dem SQL-Server zusammen als die BDE-Komponenten oder sonstige Komponenten. Ein gutes Buch dazu: "Andreas Kosch - ADO und Delphi", ISBN: 3935042108

[Evilboyz]

Zitat von Gollum:

hast Du die Query mit der Connection verbunden?

Ja, habe ich. Bei Ausführen bekomme ich die Meldung "CoInitialize wurde nicht aufgerufen"

[Gollum]

Hallo,

ich hatte mit diese Fehlermeldung im Zusammenspiel mit ADO noch nicht. Ich benutze ein Datenmodul und lege dort alle datensensitiven Komponenten wie Connection und Query ab.

Evtl. hilft es Dir, wenn Du in der Unit, in der die ADOQuery bzw. Connection genutzt wird, folgendes einträgst:

Code:

...
initialization
  CoInitialize(nil);

finalization
  CoUninitialize;

[Evilboyz]

CoInitialize, etc. habe ich jetzt auch eingetragen (es gibt dazu ja auch einige Threads im Forum).
Komischerweise bekomme ich noch immer die gleiche Fehlermeldung! *verzweifel*
Was macht CoInitialize eigentlich genau? Hat irgendwer eine Info darüber, die Hilfe schweigt sich da aus, bzw. erzählt mir nur Dinge, die mir absolut unverständlich sind!

[Gollum]

Hallo,

ich würde einmal auf der Borland-Seite vorbeischauen, ob es ein Update für ADO gibt. Außerdem kann es nicht schaden, die neueste MDAC-Version zu installieren.

[Sharky]

Zitat von Evilboyz:

...
mein Code für den Zugriff sieht nun wie folgt aus:

Code:

Form1.Query.Active:=false;
Form1.Query.SQL.Clear;
Form1.Query.SQL.Add('SELECT Info FROM Table1 WHERE test='+GetWord(sIncome, 'nx', 1));
Form1.Query.Open;
Form1.Query.First;
sResult:= Form1.Query.FieldList.Values['Info'];

Von welchem Typ ist denn test in der Tabelle?
Wenn es ein "String" ist muss Du deinen Vergleichsoperator in zwei ' setzen.

Welcher Fehler kommt den beim Query.Open?
Achja, und ist sichergestellt das GetWord einen Wert zurückliefert?

[Evilboyz]

Hallo Sharky,

also, Test ist in meiner Datenbank vom Typ Char, bei Query.Open kommt der Fehler: "...Exception der Klasse EOleException aufgetreten. Meldung:'Coinitialize wurde nicht aufgerufen'"
GetWord liefert immer einen Wert zurück.
Coinitialize führe ich in der Unit, die Form1 definiert aus, trotzdem erhalte ich diese Fehlermeldung ...

[Sharky]

Versuche es doch einmal so:

Delphi-Quellcode:

Form1.Query.Active:=false; 
Form1.Query.SQL.Clear; 
Form1.Query.SQL.Add('SELECT Info FROM Table1 WHERE test='
   + QuotedStr (GetWord(sIncome, 'nx', 1)));   // Hier habe ich QuotedStr eingefügt!!!!
Form1.Query.Open; 
Form1.Query.First; 
sResult:= Form1.Query.FieldList.Values['Info'];

[Evilboyz]

Nein, funktioniert auch so nicht, nach wie vor der gleiche Fehler!!! Warum gibt es keinen weinenden Smiley???

[MadMason]

Zitat von Evilboyz:

Code:

Form1.Query.Active:=false;
Form1.Query.SQL.Clear;
Form1.Query.SQL.Add('SELECT Info FROM Table1 WHERE test='+GetWord(sIncome, 'nx', 1));
Form1.Query.Open;
Form1.Query.First;
sResult:= Form1.Query.FieldList.Values['Info'];

ich glaube es muss heisen
Form1.Query.SQL.Add('SELECT Info FROM Table1 WHERE test='''+GetWord(sIncome, 'nx', 1)+''''); probiersmal so