Canont perform this operation on a closedataset

[yhoho]

A ver si me aclaro esplicando esto porque he dado ya tantas vueltas que nos e ni lo que he hecho jajajajja a ello voy.

Tengo un adoquery que en la sentencia SQL:

insert into incidencia(numero,cod) values(valor1,valor2);

en las propiedades parameter esta valor1 que es un integer como en la bdd y valor2 que es un string como en la bbdd y luego al pulsar un boton hago lo siguiente:

adoquery2.insert;
adoquery2.fieldbyname('valor1').value:=strtoint(edit2.Text);
adoquery2.fieldbyname('valor2').value:=edit1.Text;
adoquery2.post;

solo eso nada mas.

Y todo eso me da un error en el adoquery2 canont perform this operation os a closedataset.process stoped....

Y ya no se pq puede ser pq he ido adelantando el adoquery con documentacion del foro pero al final ya no sabia que ahcer muchas gracias.

[[Ivanzinho]]

Hola yhoho, en que línea de da el error.

Un saúdo.

[yhoho]

Cuando esta en el primer field by name sorry por no detallar eso.

[[kuan-yiu]]

Yo nunca utilizo ".value" si puedo utilizar ".asInteger"

Cuanto más atado esté todo menos errores de I/O

[yhoho]

Poniendo eso sigue igual dandome el error y en la bbdd esta puesto como numerico asu que nos e que ahcer la verdad m tiene ya loko....

[[kuan-yiu]]

Yo lo haría así.

Código Delphi [-]
adoquery2.fieldbyname('valor1').asInteger:=strtoint(edit2.Text);
adoquery2.fieldbyname('valor2').asString:=edit1.Text;

[PeterPunk]

Código Delphi [-]
  ADOQuery2.SQL.Text := 'INSERT INTO INCIDENCIA (numero, cod) ' +
                        'VALUES (' + StrToInt(edit2.Text) + ', ''' + edit1.Text + ''')';
  ADOQuery2.ExecSQL;

[yhoho]

He modificado el codigo y he puestos:
adoquery2.open;
adoquery2.insert;
adoquery2.fieldbyname('valor1').asInteger:=strtoint(edit2.Text);
adoquery2.fieldbyname('valor2').asstring:=edit1.Text;
adoquery2.post;
adoquery2.close;
con esto dicho error paraba, pero ahora me dice que el proveedor no permite mas de unr ecordset, eso me lo ha dixo despues de desacerme de un error de que duplicaba datos, he ido he borrado todos los registros y ahora me da ese error no se porque....
El error es despues del open.

[PeterPunk]

Empezado por PeterPunk

Código Delphi [-]
  ADOQuery2.SQL.Text := 'INSERT INTO INCIDENCIA (numero, cod) ' +
                        'VALUES (' + StrToInt(edit2.Text) + ', ''' + edit1.Text + ''')';
  ADOQuery2.ExecSQL;

Esto me pasa por escribir sin probar nada. Evidentemente no puedes meter ahí el StrToInt, ya que no compilará.
Lo correcto sería:

Código Delphi [-]
  ADOQuery2.SQL.Text := 'INSERT INTO INCIDENCIA (numero, cod) ' +
                        'VALUES (' + edit2.Text + ', ''' + edit1.Text + ''')';
  ADOQuery2.ExecSQL;

ya que si es un número la diferencia en la instrucción SQL es que no va entre comillas, pero necesito que sea una cadena.

[yhoho]

Me dice que no puee devolver mas de un recordset eso porque eso??? si en teoria no devuelve nada de nada....
Me lo dice tanto de la manera en que lo ahce peterpunk y de la manera que ponia yo eso no se porque es....






Como se complica todo con lof acil que parece jajajajaja.A jugar

[PeterPunk]

Vaya proveedor raro. ¿Que base de datos y proveedor estás usando? De todas formas supongo que si cierras el otro recordset que tengas abierto (imagino que ADOQuery1) debería funcionarte éste.

[[Ivanzinho]]

Empezado por yhoho

Me dice que no puee devolver mas de un recordset eso porque eso??? si en teoria no devuelve nada de nada....

¿Tienes algún trigger before/after insert en el que tengas una sentencia select into? Puede que que estés realizando una consulta que devuelva más de un registro.

Un saúdo

[yhoho]

La verdad no tengo anda de eso y la query1 me la acavo de cargar asi q no se la verdad voy a probar con una tabla y un query en un solo form algo simple apra ver que puee pasar desde cero...

[yhoho]

El problema con una trabla sola con dos campos creados y una nueva aplicacion accediendo a esa tabla tambien da lo de los recorset sera por culpa del acces?? o tiene solucion, he probado tambien con adocommand como dice en otro hilo pero m peta por repetirse los datos cuando la tabla esta bacia no se que ahcer

[[Delphius]]

Hola yhoho,
¿Podríamos ver más código?
Es posible que el error provenga desde otro lado. Si nos detallas con mayor precisión que estuve haciendo y/o probando es probable que encontremos al causante.

¿Además podrías señalar apropiadamente el error?
Te sugiero que emplees las etiquetas DELPHI para que el código se visualice correctamente.

Saludos,

[yhoho]

Bueno cuento lo que he hecho ahora en vez de complicar tanto el tema lo he simplificado:
Una bbdd con una sola tabla con dos campos.
Un solo form con un adoquery.

SQL:
insert into usuario(cod,nombre) values(valor1,valor2);

un boton que ahce lo siguiente:

adoquery1.open;
adoquery1.insert;
adoquery1.fieldbyname('valor1').asstring:=edit2.Text;
adoquery1.fieldbyname('valor2').asstring:=edit1.Text;
adoquery1.post;
adoquery1.close;

Y en pareametres definido valor1 y valor2 como olestring.
Si ejecuto me dice que no han podido realizar los cambio correctamente porque crearia valores duplicados, que cambie los datos o que vuelva a definir el indice.
Y los campos son distintos y no hay ninguna fila creada en la bbdd.
El adoquery empieza como false pq no m deja ponerlo a true pero eso es asi no??
Me he dado cuenta que no se porque crea una linea sin valores en la tabla no se porque aunque eso si que pienso que es culpa de acces.

[[Ivanzinho]]

Y si pruebas con lo siguiente, ya que estás haciendo un open cuando realmente no estás seleccionado ningun campo.

Código Delphi [-]
adoquery1.close;
adoquery1.fieldbyname('valor1').asstring:=edit2.Text;
adoquery1.fieldbyname('valor2').asstring:=edit1.Text;
adoquery1.ExecSQL;

No he usado nunca los componentes ADO, pero con todos los que usé, para una consulta que no devuelve registros no se podía utilizar el Open, ya que éste se usa para operaciones de selección.

Un saúdo.

[yhoho]

Bueno por lo menos ahora ha cambiado y dice que el valos 1 not found.
Pero en realidad si que tiene valos asi que no se jajajajaja madre mia como m complco tanto la vida .....

[[kuan-yiu]]

Bueno, es que en realidad si es un insert que quieres ejecutar el código debería ser así:

Código Delphi [-]
adoquery1.close;
adoquery1.paramByName('valor1').asstring:=edit2.Text;
adoquery1.paramByName('valor2').asstring:=edit1.Text;
adoquery1.ExecSQL;

Lo que le pasas son parámetros de entrada, no recoges campos de salida.

[yhoho]

Vale si la manera de ejcutarlo esta claro pero el problema es que poniendolo como lo pones tu ya he comentado que m daba error entonces que tendria que ahcer para que eso no ocurrira por lo que tu dices de los valores de entrada/salida??