35 respuestas en este tema

[FGarcia]

De nuevo yo!

esto me funciona perfectamente

delphi

with dmDatos.dstEntrada do
    begin
      Open;
      Append;
      FieldByName('ESTADOB').Value := 'ENPROCESO';
      Post;
    end;

pero esto no

delphi

with dmDatos.dstEntrada do
    begin
      Open;
      Edit;
      FieldByName('ESTADOB').Value := 'TERMINADO';
      Post;
    end;

no recibo mensaje de error ni nada semejante, el registro no se actualiza al nuevo estado o valor.

¿alguna idea?

[egostar]

¿ Esa tabla solo tiene un registro ? ¿ O es un query que te muestra solo un registro ?

Así a ojos de buen cubero, me parece que no estás modificando el registro adecuado.

Salud OS

[Caral]

Hola
Pero append no es el equivalente de insert ??.
No debería de ser:

delphi

ith dmDatos.dstEntrada do
    begin
      Open;
      Insert;
      FieldByName('ESTADOB').Value := 'TERMINADO';
      Post;
    end;

Saludos

[TiammatMX]

De nuevo yo!

esto me funciona perfectamente

[
.
.
.
pero esto no

.
.
.

no recibo mensaje de error ni nada semejante, el registro no se actualiza al nuevo estado o valor.

¿alguna idea?

La idea es:
1.- En tu primer código, estás creando un registro nuevo, no necesitas posicionar el puntero al registro que debería ser.
2.- En tu segundo código, APARENTEMENTE ya estás posicionado en el registro que debería ser, pero al no verse explícitamente infiero que no estás donde debes.

Solución: Antes de darle el EDIT al registro, asegúrate que estás correctamente posicionado en el registro que debe ser actualizado, y entonces y sólo entonces, haces todos tus procesos de actualización.

[FGarcia]

¿ Esa tabla solo tiene un registro ? ¿ O es un query que te muestra solo un registro ?

Así a ojos de buen cubero, me parece que no estás modificando el registro adecuado.

Salud OS

Esa Tabla tiene varios registros pero solo quiero modificar este unico registro.

Append o Insert si, son para crear nuevos registros pero no para modificar uno existente.

Jeje ¡si me equivoco me corrijen!

digo, no se...

[egostar]

Efectivamente ese fué el sentido de mi primer comentario y asumo que el registro que se modifica siempre es el primero.

La otra es que no veo que tengas un close o un commit a la base y el registro nunca existe para ser modificado.

Salud OS

PD, la diferencia entre el insert y el append es que mientras el insert agrega un registro en donde está posicionado el cursor en la tabla el append lo hace al final de la tabla.

[FGarcia]

mmmmm....  dejame masticarlo Felipe

creo que por ahi va el asunto...

[Delphius]

A pos... quería responder y justo veo que Eliseo me ganó

EDITO:
Además de lo que dice Eliseo, quizá tenga algo que ver el hecho de que en términos prácticos, para un motor SQL no tiene sentido la instrucción "Insert". Los registros no se colocan en la "posición" que se indica, no al menos físicamente. Eso está fuera de nuestro alcance... el motor solito se encarga de guardarlo en el lugar más conveniente del árbol.

Sería oportuno que nos indiques que componentes empleas y que versión de Firebird usas.

Saludos,

[egostar]

A pos... quería responder y justo veo que Eliseo me ganó

Saludos,

Salud OS

[FGarcia]

A pos... quería responder y justo veo que Eliseo me ganó

EDITO:
Además de lo que dice Eliseo, quizá tenga algo que ver el hecho de que en términos prácticos, para un motor SQL no tiene sentido la instrucción "Insert". Los registros no se colocan en la "posición" que se indica, no al menos físicamente. Eso está fuera de nuestro alcance... el motor solito se encarga de guardarlo en el lugar más conveniente del árbol.

Sería oportuno que nos indiques que componentes empleas y que versión de Firebird usas.

Saludos,

D2010, IBX y FB 2.1

[FGarcia]

Bueno, pues continuo con esto. Un poco de teoria (jajajajaja)

Si puedo ver los datos del dbgrid entonces el datsource.dataset.query esta abierto
Cuando selecciono un registro en un DBgrid el registro seleccionado se vuelve el registro activo
Si creo otro form en tiempo de diseño (ahi es donde voy a usar los datos del registro activo) ¿que pasa con la query? ¿se cierra, sus datos dejan de estar disponibles?

Al parecer esto me esta sucediendo, pues los datos que obtengo son los del primer registro de la BD y no los que seleccione en el DBGrid

¡¡¡extraño, no lo entiendo!!!

[Rolphy Reyes]

Saludos.

Quizás quisiste decir en Run-Time, podrás acceder al mismo cursor siempre y cuando tu componente TDataSet este en un lugar publico para los formularios que necesitan del mismo;  una vez abierto por con solo asociar tu TDataSource se ve los datos.

Una recomendación, verifica antes de abrir si esta activo tu TDataSet.

[FGarcia]

Saludos.

Quizás quisiste decir en Run-Time, podrás acceder al mismo cursor siempre y cuando tu componente TDataSet este en un lugar publico para los formularios que necesitan del mismo;  una vez abierto por con solo asociar tu TDataSource se ve los datos.

Una recomendación, verifica antes de abrir si esta activo tu TDataSet.

De nuevo por aqui, andaba en otros asuntos y no habia podido revisar, ¡Efectivamente estoy mal!

Ando con tantas cosas en la cabeza que no se ni que ...

En el grid muestro datos de un Query, selecciono un item y ¡lo quiero usar en otro formulario como registro activo del dataset!

Eso va a funcionar el dia de .............LSV

creo que lo correcto es llamar a una funcion del otro formulario enviando el item seleccionado como parametro, pero aqui me encuentro con algo que nunca he hecho o intentado: ¿Si creo el form en run-time seria posible llamar a esa funcion?

bueno es sabado

[FGarcia]

¿Pueden revisar esto y decirme si la sintaxys esta correcta?

delphi

with dmDatos.qyBoletos do
    begin
        close;
        sql.Clear ;
        sql.Add('UPDATE dmDatos.dstEntradas SET ');
        sql.Add('EstadoB = ' + QuotedStr('TERMINADO') + ''','); //Este seria el unico campo a actualizar
        .
	.
	.
	.
        sql.Add('TRANSITO=''' + be.Transito + ''',');
        sql.Add('TRANSPORTE= ''' + be.Transporte + ''''); //Este y los anteriores son los campos y valores que ya existen y se conservan
        sql.Add(' WHERE ID = ''' + IntToStr(be.ID) + '''');
        ExecSQL;
    end;

Gracias!

Cuando ejecuto la SQL me devuelve:

SQL Parse Error: EOF in String

[Caral]

Hola
No entiendo lo de que los registros ya estan y se mantienen?.

delphi

with dmDatos.qyBoletos do
    begin
        close;
        sql.Clear ;
        sql.Text:= 'UPDATE dmDatos.dstEntradas SET '+
                  'EstadoB = TERMINADO'+ //Este seria el unico campo a actualizar
                  ',TRANSITO = '+QuotedStr(be.Transito)+
                  ',TRANSPORTE = '+QuotedStr(be.Transporte)+
                  'WHERE ID = '+IntToStr(be.ID);
        ExecSQL;
    end;

Saludos

[enecumene]

Pues por lo que entiendo dmDatos es el datamodule y dstEntradas sería un Dataset, lo qué no sé si es válido dentro de una consulta SQL, ya que no lo he probado.

[egostar]

hola, solo pasa el dato que deseas modificar, no es necesario que envíes los que no vas a modificar.

delphi

with dmDatos.qyBoletos do
    begin
        close;
        sql.Clear ;
        sql.Text:= 'UPDATE Entradas '+
                  ' SET EstadoB = "TERMINADO" '+ //Este seria el unico campo a actualizar
                  ' WHERE ID = '+IntToStr(be.ID);
        ExecSQL;
    end;

Salud OS

Edito, ahora que lo veo, yo creo que solo es el nombre de la tabla, para que estas enviado el datamodule y el dataset, buen punto Fernando.

[Caral]

Hola
Pues si, ademas creo que es repetitivo lo del datamodule:
dmDatos ya se usa con el with:

delphi

with dmDatos.qyBoletos do
    begin
        close;
        sql.Clear ;
        sql.Text:= 'UPDATE dstEntradas SET '+
                  'EstadoB = TERMINADO'+ //Este seria el unico campo a actualizar
                  'WHERE ID = '+IntToStr(be.ID);
        ExecSQL;
    end;

saludos

[FGarcia]

Parece que lo que necesitaba era un reset pues ando con varias cosas que no se ni que carajos. Al final esto quedo asi y ya funciona adecuadamente

delphi

with dmDatos.dstEntradas do
    begin
      Close;
      Modifysql.Clear ;
      Modifysql.Add('update ENTRADAS SET ');
      Modifysql.Add('EstadoB = ' + QuotedStr('TERMINADO'));
      Modifysql.Add(' WHERE ID = ' + QuotedStr(IntToStr(be.ID)));
      Open;
      Edit;
      Post;
    end;

Por mi parte podemos dar este hilo por cerrado pero si alguien quiere aportar algo mas pues bienvenido.

[Caral]

Hola

delphi

with dmDatos.dstEntradas do
    begin
      Close;
      Modifysql.Text:= 
      'update ENTRADAS SET '+
      'EstadoB = ' + QuotedStr('TERMINADO')+
      'WHERE ID = ' + QuotedStr(IntToStr(be.ID));
      Open;
      Edit;
      Post;
    end;

Asi me gusta mas jejejeje
Saludos