Remobjects & Dataabstract & PostgreSQL

[bundy]

Hallo Leute !

Ich hab eine kleines Problem:

Ich arbeite geade an einem Kundenmanagement System, und habe mich für eine PostgreSQL Datenbank & Dataabstract von RemObjects entschieden. Diese Komponenten sind einfach genal find ich, für Client Server Applications.

Ich verwende Buissenes Prozessoren (Kopmponente zu verwendung von eigenen Deltacommands, weil in PostgreSQL ja alles Colums und Tabellen in " " stehen müssen.), das funktioniert auch einwand frei.

Aber wenn ich versuche Umlaute wie "Ä Ü Ö" in mein Grid einzugeben, dann setzt er diesen Parameter in "".
Das heisst ich setzte als Parameter z.B :parVorname = Özi dann macht er bei der übertragung diese Parameter aus Özi "Özi".
Er setzt das ganze in "".

Erklärung:
Deltacommand für den Uppdate Command
Update public."kunden" set "Vorname"= :parVorname where "KundenID" = :parKundenID Bei eingabe keiner Umlaute wird aus dem ganzen dann: Nehmen wir mal an :parVorname = Martin und :parKundenID = 10
Update public."kunden" set "Vorname"= Martin where "KundenID" = 10 das funktioniert.

Aber wenn ich dann :parVorname = Özi und KundenID = 10 dann passiert folgendes
Update public."kunden" set "Vorname"= "Özi" where "KundenID" = 10

Da kommt es dann zum feheler, weil der Server das dann als Column definiert, weil es in Quoats steht.

Hat jemand von euch ne Ahnung wie ich das umgehen kann, ich will keine "" um meinen Parameter den ich übergebe.

[Elvis]

Zitat von bundy:

Diese Komponenten sind einfach genal find ich, für Client Server Applications.

Da scheint mein Tip damals richtig gewesen zu sein.
Ich muss aber gestehen, dass ich bisher nur je einen kurzen Blick auf die Trials von 3 bzw 4.0 werfen konnte
Für schnelle und prof. Hilfe empfehle ich die Newsgroups von RO.
Dort werden dir Marc, Alessandro & Co zur Seite stehen. (kenne ich so von einem anderen, hier unerwünschten, RO-Produkt)

[bundy]

Ja danke nochmals für diesen tip, aber ich hab inzwischen mit den Proggern gesprochen, die wissen auch noch nicht wo der fehler liegt

[bundy]

OK Jetzt hab ich es gelöst
Das problem liegt nicht bei den RemObjects Komponenten, sondern in den ADO Kompos.


so hab ich das gemacht:
ich suche nach Parameter und bereite dann den SQL Script neu auf ohne ""

Delphi-Quellcode:

procedure StringFieldValidator(Sender: TDABusinessProcessor;
  aChangeType: TDAChangeType; aChange: TDADeltaChange;
  const aCommand: IDASQLCommand);
var
  currParam : TDAParam;
  paramName, newSQL, oldSQL : string;
  paramValue : variant;
  i, parNameLength, lpos, oldSQLLength : integer;
begin
  newSQL := '';
  oldSQL := aCommand.SQL;
  oldSQLLength := length(oldSQL);
   for i := 0 to aCommand.Params.Count-1 do
   begin
      currParam := aCommand.Params[i];
      if currParam.DataType = datString then
      begin
        paramValue := '''' + VarToStr(currParam.Value) + '''';
        paramName := ':'+currParam.Name;
        parNameLength := length(paramName);
        lpos := pos(paramName, oldSQL);
        while lpos > 0 do
        begin
          if not (oldSQL[lpos + parNameLength] in ['0'..'9', 'a'..'z', 'A'..'Z', '_']) then
          begin
            newSQL := copy(oldSQL, 0, lpos - 1) + paramValue +
              copy(oldSQL, lpos + parNameLength, oldSQLLength);
            oldSQL := newSQL;
            oldSQLLength := length(oldSQL);
            lpos := pos(paramName, oldSQL);
          end
          else
          begin
            if ( pos(paramName, copy(oldSQL, lpos + parNameLength, oldSQLLength)) > 0 ) then
              lpos := lpos + parNameLength - 1 +
                pos(paramName, copy(oldSQL, lpos + parNameLength, oldSQLLength))
            else lpos := -1;
          end;
        end;
      end;
   end;
   aCommand.SQL := newSQL;
end;

Dann das ganze in den BusinessProcessor ins OnProcessChange Event. und es funktioniert !!!!

Wollte euch nur die Lösung preisgeben.
Allso merke PostgreSQL & Dataabstract & Umlaute geht nicht ohne diese Funktion.

lg
Bundy