Jump to content


Photo

Insertar registros con un campo UUID

postgres uuid guid delphi dbexpress

  • Please log in to reply
No replies to this topic

#1 genriquez

genriquez

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 539 posts
  • LocationCali, Colombia

Posted 06 April 2015 - 07:32 PM

Hola

 

Estoy tratando de hacer un insert en una tabla de postgres con un campo UUID, pero me presenta problemas.

 

Alguien a trabajado con este campo, aún en otras bases de datos?

 

Gracias.


php
  1.  

function THbDbConnector.CallBackSaveMsg(Guid : TGuid; UserFrom, UserTo, Status,
            DataText : String; DataBin : TStream; Enviado : Boolean): Boolean;
Var
   Query: ISqlQuery;
begin
   Query := SqlConn.NewQuery('');
   Try
      Query.Close;
      Query.SQL.Clear;

      Query.SQL.Add('INSERT INTO sig_callbackmsgs(userfrom, guid, userto,');
      Query.SQL.Add('       status, datatext, enviado)');
      //Query.SQL.Add('       status,datatext, databin, enviado)');
      Query.SQL.Add('VALUES ('''+UserFrom+''', :Guid, '''+UserTo+''',');
      //Query.SQL.Add('      '''+Status+''', :DataText, :DataBin, :Enviado');
      Query.SQL.Add('      '''+Status+''', :DataText, :Enviado)');

      TGuidField(Query.Params.ParamByName('Guid')).AsGuid := Guid;
      //Query.Params.ParamByName('Guid').Value := GUIDToString(Guid);
      Query.Params.ParamByName('DataText').AsString := DataText;
      //Query.Params.ParamByName('DataBin').LoadFromStream(DataBin, ftBlob);
      Query.Params.ParamByName('Enviado').AsBoolean := Enviado;
      Query.Execute

   Finally
      Query.Close;
      Query.FreeInstance;
   End;
end;

 

 


Edited by genriquez, 06 April 2015 - 07:33 PM.

  • 0





Also tagged with one or more of these keywords: postgres, uuid, guid, delphi, dbexpress

IP.Board spam blocked by CleanTalk.