Große Texte mit Sonderzeichen in Datenbank speichern

[emsländer]

Moin,

Habe da noch ein großes Problem.
Das Datenfeld ist Text und dort möchte ich eine XML-Datei "RAW" reinschieben.
Leider klappt das nicht, weil dort auch Kommas, Sonderzeichen und Klammern etc. drin sind.

Wer hat da eine Idee?

Gruss

EL

[Bernhard Geyer]

Mit Paramtrisierten Abfragen sollte das kein Problem darstellen.
Besser aber statt text ntext nehmen um nicht auf Nicht-Westeuropäischen Systemen Probleme zu bekommen.

Alternativ gibts noch eine XML-Datentyp beim MS SQL Server. Hab damit aber noch nix gemacht.

[emsländer]

Moin,

acuh parametrisiert klappt es nicht:

Delphi-Quellcode:

function insert_antrag(code, user_code, nachricht, dossier, f_xml,timestamp, zuAkte, kunden_ip, fdd_ip, progversion : string) : string;

var stmp : string;
_query : TSQLQuery;


begin
  try
    _query := TSQLquery.Create(nil);
    _query.SQLConnection := fddservice.SQLConnFDD;
    with _query do begin
      insert;
      sql.text := 'insert into antraege(code,user_code,nachricht,dossier,xml,timestamp,zu_Akte,kundenip,fddip,progversion)  values'+ '(:_code,:_usercode,:_nachricht,:_dossier,:_xml,:_timestamp,:_zuAkte,:_kundenip,:_fddip,:_progversion)';

 

      ParamByName('_code').AsString := code;
      ParamByName('_usercode').AsString := code;
      ParamByName('_nachricht').AsString := nachricht;
      ParamByName('_dossier').AsString := dossier;
      ParamByName('_xml').AsWideString := f_xml;
      ParamByName('_timestamp').AsString := timestamp;
      ParamByName('_zuAkte').Asinteger := strtoint(zuAkte);
      ParamByName('_kundenip').AsString := kunden_ip;
      ParamByName('_fddip').AsString := fdd_ip;
      ParamByName('_progversion').AsString := progversion;
      ExecSQL;
      sleep(100);
      result:='';
    end;
  except
    result('Nix da - klappt nicht');
  end;
  freeandnil(_query);
end;

Es hakt wie es aussieht an "_nachricht" (dort sind z.B. %20,0D0A etc. drin) und an _xml .. (dort sind massig Sonderzeichen)
Die Table nachricht ist Typ ntext, xml ist Typ xml.

Des Weiteren: Wie kann ich da eine Fehlerabfrage realisieren?

Gruss

EL

[Bernhard Geyer]

Welcher Fehlermeldung kommt den?

[mkinzler]

Versuch mal

Delphi-Quellcode:

ParamByName('_nachricht').Value := nachricht;

[emsländer]

Zitat:

Zitat von Bernhard Geyer

Welcher Fehlermeldung kommt den?

Keine .... ist ein Dienst. Daher suche ich eine Möglichkeit, an dieser Stelle den Fehlertext zu "lesen".

Gruss

EL

[Bernhard Geyer]

Zitat:

Zitat von emsländer

Keine .... ist ein Dienst. Daher suche ich eine Möglichkeit, an dieser Stelle den Fehlertext zu "lesen".

Aber in eine Logdatei schreiben sollte kein Problem darstellen.
Ohne genaue Fehlermeldung können wir hier alle unsere Glaskugeln auspacken.

[emsländer]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von emsländer

Keine .... ist ein Dienst. Daher suche ich eine Möglichkeit, an dieser Stelle den Fehlertext zu "lesen".

Aber in eine Logdatei schreiben sollte kein Problem darstellen.
Ohne genaue Fehlermeldung können wir hier alle unsere Glaskugeln auspacken.

Wie kann ich in diesem "Code-Konstrukt" die SQL-Fehlermeldungen auslesen?


Gruss

EL

[Bernhard Geyer]

Zitat:

Zitat von emsländer

Wie kann ich in diesem "Code-Konstrukt" die SQL-Fehlermeldungen auslesen?

hast du doch schon in einem anderen Thread gefragt.
Verwende doch die dort vorgestellten Lösungen.

[emsländer]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von emsländer

Wie kann ich in diesem "Code-Konstrukt" die SQL-Fehlermeldungen auslesen?

hast du doch schon in einem anderen Thread gefragt.
Verwende doch die dort vorgestellten Lösungen.

Genau das funktioniert dort nicht, weil das nicht ADO ist

Gruss

EL

[Bernhard Geyer]

Aber mein Vorschlag mit

Delphi-Quellcode:

on e: Exception
 SchreibeInLog(e.Message)

geht.

[mkinzler]

Steht im Exception-Objekt.

Delphi-Quellcode:

except
   on e: Exception do
   ...
end;

[emsländer]

Zitat:

Zitat von mkinzler

Steht im Exception-Objekt.

Delphi-Quellcode:

except
   on e: Exception do
   ...
end;

oki und da kommt nun: Operation bei geschlossener Datenmenge nicht ausführbar


Tolle Meldung ...

Gruss

EL

[mkinzler]

Wird am

Delphi-Quellcode:

insert;

liegen

[emsländer]

Zitat:

Zitat von mkinzler

Wird am

Delphi-Quellcode:

insert;

liegen

Nun bekomme ich: Unable to load dbxmss30.dll (ErrorCode 126). It may be missing from the system path.

Ich finde die Datei weder auf dem SQL-Server, noch auf meiner Workstation.

Wo soll die sein?

Gruss

EL

[Bernhard Geyer]

Zitat:

Zitat von emsländer

Nun bekomme ich: Unable to load dbxmss30.dll (ErrorCode 126). It may be missing from the system path.

Ich finde die Datei weder auf dem SQL-Server, noch auf meiner Workstation.

Wo soll die sein?

Verwendest du jetzt wohl DBExpress (Auch wenn TAdoquery eigentlich für ADO steht)?

[Bernhard Geyer]

Zitat:

Zitat von emsländer

Nun bekomme ich: Unable to load dbxmss30.dll (ErrorCode 126). It may be missing from the system path.

Ich finde die Datei weder auf dem SQL-Server, noch auf meiner Workstation.

Wo soll die sein?

Verwendest du jetzt wohl DBExpress (Auch wenn TAdoquery eigentlich für ADO steht)?

[Bernhard Geyer]

Zitat:

Zitat von emsländer

Nun bekomme ich: Unable to load dbxmss30.dll (ErrorCode 126). It may be missing from the system path.

Ich finde die Datei weder auf dem SQL-Server, noch auf meiner Workstation.

Wo soll die sein?

Verwendest du jetzt wohl DBExpress (Auch wenn TAdoquery eigentlich für ADO steht)?