Problema con Insert y Update en ADOQuery

[Moises22]

Wenas a todos.

Tengo un problema cuando hago una insercion o un update. Resulta que hay una parte del programa que es casi repetida que usa UPDATE e INSERT, esta funciona correctamente, pues bien, en otra Unidad utilizo una instruccion muy parecida a la de la que me funciona bien pero me da un error diciendo que la sintaxis del INSERT INTO o del UPDATE (dependiendo de la opcion que elija) no es correcta.

Lo he revisado todo pero no doy con la solucion.Utilizo un DataModule con un AdoConnection para la conexion, y un en cada unidad un ADOQuery para las consultas e instrucciones. El codigo es el siguiente:

...

if (usuarioComboBox1.ItemIndex>0) then
begin
if (usuarioComboBox2.ItemIndexthen
ShowMessage('No puede asignar ese rango de usuario')
else
begin
if ((usuarioComboBox2.ItemIndex=userrango-1)and(id=userid))or
(usuarioComboBox2.ItemIndex>userrango-1) then
begin
usuarioADOQuery1.SQL.Clear;
try
usuarioADOQuery1.SQL.Add('Update usuarios set nombre='+
QuotedStr(usuarioLabeledEdit1.Text)+
',apellido1='+QuotedStr(usuarioLabeledEdit2.Text)+
',apellido2='+QuotedStr(usuarioLabeledEdit3.Text)+
',login='+QuotedStr(usuarioLabeledEdit4.Text)+
',password='+QuotedStr(usuarioLabeledEdit5.Text)+
',oficina='+intToStr(oficinaux)+' where Id='+intTostr(id));
//usuarioLabeledEdit1.Text:=usuarioADOQuery1.SQL.Text;
usuarioADOQuery1.ExecSQL;
finally
usuarioADOQuery1.Close;
usuarioADOQuery1.SQL.Clear;
end;
usuarioComboBox1Change(nil);
end
else
ShowMessage('No puede asignar ese rango de usuario');
end;
end
else
begin
usuarioADOQuery1.SQL.Clear;
try
usuarioADOQuery1.SQL.Add('Insert into usuarios(nombre,apellido1,apellido2,' +
'login,password,rango,oficina) values(' +
QuotedStr(usuarioLabeledEdit1.Text)+','+
QuotedStr(usuarioLabeledEdit2.Text)+','+
QuotedStr(usuarioLabeledEdit3.Text)+','+
QuotedStr(usuarioLabeledEdit4.Text)+','+
QuotedStr(usuarioLabeledEdit5.Text)+','+
intToStr((usuarioComboBox2.ItemIndex)+1)+','+
intToStr(oficinaux)+')');
usuarioADOQuery1.ExecSQL;
finally
usuarioADOQuery1.Close;
usuarioADOQuery1.SQL.Clear;
end;
usuarioLabeledEdit1.Text:='';
usuarioLabeledEdit2.Text:='';
usuarioLabeledEdit3.Text:='';
usuarioLabeledEdit4.Text:='';
usuarioLabeledEdit5.Text:='';
 
end;
end;

Espero que me puedan ayudar, muchas gracias por adelantado

[delphi.com.ar]

Empezado por Moises22

...me da un error diciendo que la sintaxis del INSERT INTO o del UPDATE (dependiendo de la opcion que elija) no es correcta...

Que pasa si pones un breakpoint antes del ExecSQL, copias el SQL y lo ejecutas en la consola del RDBMS???... Te da el mismo error?

[Moises22]

No he utilizado nunca la consola RDBMS, lo que si he utilizado es el breakpoint y en elvalucador de expreciones elijo el ExecSQl y me da el siguiente error Delphi exception EDatabaseError at $570F949 .

Pero si t sirve un poco, quite la el ExecSQL y capture la consulta, le puse un valo por defecto y en el access se lo añadi. El resultado fue perfecto.

Que me puede pasar???

[delphi.com.ar]

Empezado por Moises22

No he utilizado nunca la consola RDBMS

No me refiero a "la consola RDBMS", me refiero a la consola de tu base de datos que recien ahora me entero que es access. A lo que me refiero es a que captures el SQL y lo ejecutes en el editor de consultas de Access.

Empezado por Moises22

...he utilizado es el breakpoint y en elvalucador de expreciones elijo el ExecSQl y me da el siguiente error Delphi exception EDatabaseError at $570F949

La idea es que evelúes el valor del SQL no del ExecSQL!!!... y que copies la consulta!

Empezado por Moises22

...Pero si t sirve un poco, quite la el ExecSQL y capture la consulta, le puse un valo por defecto y en el access se lo añadi. El resultado fue perfecto.

A eso me refiero!... Pero que significa que le puesiste un valor por defecto??.. modificaste la consulta??.. no ejecutaste exactamente lo mismo que esta ejecutando tu aplicación??

[Moises22]

Yo hice una paso intermedio para ver como quedaba la sentencia SQL en un ShowMessage y la copie y pegue en la consola de consultas de access y funciono perfectamente, sin embargo en el programa me dice error de sintaxis SQL.

Espero alguien pueda ayudarme...

[ContraVeneno]

yo te recomendarias que uasaras un SQL.Add('...'); por cada línea de tu consulta, ya que si utilizas SQL.Add('...+...+..+...'); lo único que te dirá es que tienes un error en la línea 1. En cambio si utilizas SQL.Add(); por cada línea, te dirá exactamente en que línea tienes el error.