Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Canont perform this operation on a closedataset (https://www.clubdelphi.com/foros/showthread.php?t=53298)

yhoho 18-02-2008 09:29:51

Canont perform this operation on a closedataset
 
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 18-02-2008 09:32:19

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

Un saúdo.

yhoho 18-02-2008 09:35:19

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

kuan-yiu 18-02-2008 10:03:48

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

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

yhoho 18-02-2008 10:39:03

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 18-02-2008 11:01:10

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

PeterPunk 18-02-2008 11:38:32

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

yhoho 18-02-2008 11:39:29

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 18-02-2008 12:00:37

Cita:

Empezado por PeterPunk (Mensaje 266576)
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 18-02-2008 12:21:43

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 18-02-2008 12:46:40

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 18-02-2008 13:05:40

Cita:

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 18-02-2008 13:37:26

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 18-02-2008 14:08:39

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 :eek:

Delphius 18-02-2008 14:26:34

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 18-02-2008 15:49:20

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 18-02-2008 16:22:35

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 18-02-2008 16:35:27

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 18-02-2008 16:45:31

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 18-02-2008 16:52:58

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??


La franja horaria es GMT +2. Ahora son las 19:27:31.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi