Memo in MS SQL Speichern und Auslesen

[mkinzler]

Weil es 1. unübersichtlich ist und 2. unnötigen Code produziert.

[Andidreas]

Ich hab Eure Lösungsansätze allesamt ausprobiert...
Ich bekomme überall den Fehler mit dem "Invalid class typecast"

Delphi-Quellcode:

  mem_message.Text := MSSQL_Query1.FieldByName('Message').Text;

So erhalte ich keinen Fehler, aber in meinem Memo steht dann nur (MEMO) aber nicht der Inhalt aus dem MS SQL Tabellen Feld...

[DeddyH]

http://www.devart.com/unidac/docs/in...data_types.htm (ganz unten):

Zitat:

A BLOB values can be retrieved from the server in two ways. The first way is using a SELECT query from the table containing a BLOB field:

Delphi-Quellcode:

UniQuery.SQL.Text := 'SELECT TextField FROM UniDAC_Text WHERE ID = 1';

UniQuery.Open;

(UniQuery.FieldByName('TextField') as TBlobField).SaveToFile('A_file_name');

UniQuery.Close;

The second way is to use output parameters like in the following example. Note that the query may differ depending on your database server.

Delphi-Quellcode:

UniSQL.SQL.Text := 'SELECT :TEXTValue = TextField FROM UniDAC_Text WHERE ID = 1';

UniSQL.ParamByName('TEXTValue').ParamType := ptOutput;

UniSQL.Execute;

ShowMessage(UniSQL.ParamByName('TEXTValue').AsString);

[Andidreas]

@DeddyH
Many Thanks!
Es funktioniert =)

Edit: Hab das Parameter Beispiel verwendet!

[Andidreas]

Noch ein OT Frage...

Das Programm in dem ich das Text Feld in der MS SQL DB benötige wird als DLL erstellt und in den Projekt opitonen ist der hacken bei "Laufzeit-Packages" gesetzt, da die DLL in eine andere Form geladen wird...

Allerdings Funktionieren hier meine Try Except Blöcke nicht ganz:

Delphi-Quellcode:

Try
Except
  On E:EUniError Do
  Begin
    ShowMessage(E.Message);
  End
End;

Will heißen er gibt mir die Fehlermeldung nicht mehr aus... Liegt das an den Laufzeit-Packages? Muss ich die von der Datenbank Komponente mit angeben?

[haentschman]

Moin...

und noch eine OT Antwort...
With (MSSQL_Query1) Do ...mach das WITH weg. Ich mußte deswegen schon wieder den Tisch putzen...
...Im Moment mag das funktionieren. Bei komplexeren Sachen macht es das Debuggen z.T unmöglich.

[Andidreas]

Zitat von haentschman:

Ich mußte deswegen schon wieder den Tisch putzen...

Naja ansichtssache... Weißt ja, mit Source Code ises wie mit der Kunst...