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:
...
Código:
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