Ideen für spezielle Stringbearbeitung

[toyoman]

du hast Recht marabu. Sorry hab mir das nochmals vor Augen geführt und umgesetzt:

Definition der SQL Statements:

Delphi-Quellcode:

unit mySQLstatements;

interface

uses Windows, myGlobals, nsa_spezial;

const
  sql_read_benutzer:      string = 'SELECT iid, domain, user_account from DWWinUserID';
  sql_read_briefkorb:     string = 'SELECT name, password, guid, settings, active from DWUser where name = $benutzername';
  sql_update_xml:         string = 'UPDATE DWUser set settings = $xml where name = $benutzername';

Prozedur:

Delphi-Quellcode:

procedure Tfrmxml.edmutClick(Sender: TObject);
const
  XPATH = '//Basket[%d]/@path';
  XANZAHL = '//Baskets/@totalNumber';
var
  doc: IXMLDOMDocument2;
  n: IXMLDOMNode;
  sqltext:string;
  s:string;
begin
  s:=chr(39); // Hochkomma
  // Briefkorb Pfad speichern
  if CreateDocument(doc, dbMemo1.Text) then
  begin
    n := doc.selectSingleNode(Format(XPATH, [strtoint(ednummer.text)-1]));
    n.nodeValue:=(edpfad.text);
    sqltext:=stringreplace(sql_update_xml,'$benutzername',s+edbenutzername.text+s,[rfIgnoreCase]);
    sqltext:=stringreplace(sqltext,'$xml',s+doc.xml+s,[rfIgnoreCase]);
    datamodule2005.ADOQuery3.SQL.Text:=sqltext;
    datamodule2005.ADOQuery3.ExecSQL;
    showmessage(sqltext);
    //edpfad.text:=(VarToStr(n.nodeValue));
  end else ShowParseError(doc.parseError);
end;

Parameter object is improperly defined. Inconsistent or incomplete information was provided.

Kann nix mit der Meldung anfangen. Hab ich was vergessen?