|
Muy buenas, te envío un ejemplo de un Insert y un Update contra SQL Server
SqlText:='INSERT INTO Citas (Id, FechaHora, IdTSoc, IdCSoc, IdZona, IdPersona, IdAtPublico, IdExpediente, Atendido) VALUES ('
+IntToStr(IdCitasSig)+', '+QuotedStr(DateToStr(FCita2.Date)+Chr(32)+Hora.Text)+', '+QuotedStr(TSoc2.Caption)+','
+QuotedStr('1')+', '+QuotedStr('1')+', '+XIdPersona.Caption+', '+XAtPublico.Caption+', '+NExpediente.Caption+', '+QuotedStr(YaAtendido.Caption)+')';
ADOQuery2.SQL.Add(SqlText);
try
ADOQuery2.ExecSQL;
{$I '.\includes\ExceptErrorBD.inc'}
end;
SqlText:='UPDATE Citas SET FechaHora='+QuotedStr(DateToStr(FCita2.Date)+Chr(32)+Hora.Text)+', IdTSoc='+QuotedStr(TSoc2.Caption)
+', IdCSoc=1, IdZona=1, IdPersona='+XIdPersona.Caption+', IdAtPublico='+XAtPublico.Caption+', IdExpediente='+NExpediente.Caption+', Atendido='+QuotedStr(YaAtendido.Caption)
+' WHERE Id='+QuotedStr(XIdCitas.Caption);
ADOQuery2.SQL.Add(SqlText);
try
ADOQuery2.ExecSQL;
{$I '.\includes\ExceptErrorBD.inc'}
end;
Como puedes ver siguen la sintáxis estándar de SQL.
Un saludo,
__________________
Rafita.
|