FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Problema con Insert y Update en ADOQuery
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; Última edición por Moises22 fecha: 30-12-2005 a las 11:31:13. Razón: Modifiqué el código para que el hilo no crezca horizontalmente |
#2
|
||||
|
||||
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
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??? Última edición por Moises22 fecha: 29-12-2005 a las 13:40:23. |
#4
|
||||
|
||||
Cita:
Cita:
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
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... |
#6
|
||||
|
||||
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.
__________________
|
|
|
|