Problema con Insert y Update en ADOQuery

[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.

[Moises22]

He hecho lo que me has dicho y mas o menos como esperaba el error t dice que esta en la linea del usuarioADOQuery1.ExecSQL; . Sigo sin saber cual es el problema...

El codigo quedo asi:

usuarioADOQuery1.SQL.Clear;
try
usuarioADOQuery1.SQL.Add('INSERT INTO usuarios(nombre,apellido1,apellido2,login,password,rango,oficina) VALUES (');
usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit1.Text));
usuarioADOQuery1.SQL.Add(',');
usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit2.Text));
usuarioADOQuery1.SQL.Add(',');
usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit3.Text));
usuarioADOQuery1.SQL.Add(',');
usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit4.Text));
usuarioADOQuery1.SQL.Add(',');
usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit5.Text));
usuarioADOQuery1.SQL.Add(',');
usuarioADOQuery1.SQL.Add(intToStr((usuarioComboBox2.ItemIndex)+1));
usuarioADOQuery1.SQL.Add(',');
usuarioADOQuery1.SQL.Add(intToStr(oficinaux));
usuarioADOQuery1.SQL.Add(')');
usuarioADOQuery1.ExecSQL;
finally
usuarioADOQuery1.Close;
usuarioADOQuery1.SQL.Clear;
end;

No sé, por deciros me queda que la tabla tiene un valor autoincremental que se llama id y que supongo que no influye en el problema. Tambien deciros que hay otra unidad que funciona practicamente igual y funciona perfectamente

[Moises22]

He conseguido que por lo menos funcione, pero no de la manera que yo quiero. La cosa esta en que hay un campo que es de auto incremento, si yo la insercion la hago asi:

usuarioADOQuery1.SQL.Clear;
    try
    usuarioADOQuery1.SQL.Add('INSERT INTO usuarios VALUES(');
    usuarioADOQuery1.SQL.Add('5,');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit1.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit2.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit3.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit4.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit5.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr((usuarioComboBox2.ItemIndex)+1));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr(oficinaux));
    usuarioADOQuery1.SQL.Add(')');
    usuarioADOQuery1.ExecSQL;
    finally
    usuarioADOQuery1.Close;
    usuarioADOQuery1.SQL.Clear;

me funciona pero claro yo quiero que me en vez del valor 5 coja el valor del autoincremento, que seria asi:

usuarioADOQuery1.SQL.Clear;
    try
    usuarioADOQuery1.SQL.Add('INSERT INTO usuarios(nombre,apellido1,apellido2,login,password,rango,oficina) VALUES(');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit1.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit2.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit3.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit4.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit5.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr((usuarioComboBox2.ItemIndex)+1));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr(oficinaux));
    usuarioADOQuery1.SQL.Add(')');
    usuarioADOQuery1.ExecSQL;
    finally
    usuarioADOQuery1.Close;
    usuarioADOQuery1.SQL.Clear;

PUES BIEN ESTA ULTIMA FORMA QUE ES LA QUE QUIERO Y NECESITO NO FUNCIONA DICE QUE HAY UN ERROR DE SINTAXIS SQL EN INSERT INTO.

Por favor necesito que alguien me heche una mano

[lucasarts_18]

Hola: Un consejo para que tengas un mejor orden: Pasa todo a varibles locales, así te evitas de poner directamente los controles en tu Insert Into del objeto Query. Además si es un valor de autoincremento debes dejarselo a la propia BD que lo genere y no tomarlo tú mismo. Trata de ordenarte un poco en el código y una buena forma creo yo, es asignar los valores a variables locales.. Además ,¿ por qué usas QuotedStr ?, si son String, pasalos como String, es decir ya vienen con apostrofes (todos los tipos string). Hasta Luego

[ContraVeneno]

Si vas a pasar un string, lo tienes que pasar entre comillas, o apóstrofes para el caso de SQL; por lo que el quotedstring esta correcto.

Mencionas que el error que te manda es un error de sintaxis de SQL. ¿Me podrías decir en que línea te dice que esta el error? ¿Podrías poner el mensaje exacto que te manda?

Y si le pones nombre representativos a tus controles, creéme que te irá mucho mejor. Es mejor leer un código como
" Nombre:=edtNombre.Text " que uno como "Nombre:=Edit1.Text" ; tal vez con 5 o 6 controles no tengas problema, pero conforme vayan aumentando creeme que vas a llegar al punto donde Edit23.Text no sabes ni cuál es, ni donde esta.

[vtdeleon]

Saludos

    usuarioADOQuery1.SQL.Add('INSERT INTO usuarios VALUES(');
    usuarioADOQuery1.SQL.Add('5,');

La sentencia es:
INSERT INTO usuario Values(5);

    usuarioADOQuery1.SQL.Add('INSERT INTO usuarios 
          (nombre,apellido1,apellido2,login,password,rango,oficina) VALUES(');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit1.Text));

La sentencia es:
INSERT INTO usuarios(nombre,apellido1,apellido2,login,password,rango,oficina) VALUES('textodellabel')