90 respuestas en este tema

[kafastoforman]

Hola que tal, creo que la primera linea esta de mas, puesto que tu estas ejecutando una consulta update y por lo tanto no es necesario que pongas el dataset en modo edit.

Del a misma manera te comento que query1 ya es en si un Tdataset, asi que no creo que sea necesario hacer referencia al datasource y despues al dataset si no solamente ponerlo

delphi

query1.edit

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.datasource.dataset.edit; <--- Creo que esa linea esta de mas
   query1.SQL.text:='update BLIBROS set AREA= :area,FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').AsString:=edit1.Text;
   query1.Parambyname('FOLIO').AsString:=edit2.text;
   QUERY1.ParamBYNAME('titulo').AsString:=edit3.Text;
   query1.ParamByName('ISBN').AsString:=edit6.Text;
   query1.ExecSQL;
   query1.post;
 
end;

Saludos

Kafastoforman

[enecumene]

Está de más la primera y última línea, intentemoslo de esta manera:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.text:='update BLIBROS set AREA= :area, FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').Value := edit1.Text;
   query1.Parambyname('FOLIO').Value := edit2.text;
   QUERY1.ParamBYNAME('titulo').Value := edit3.Text;
   query1.ParamByName('ISBN').Value := edit6.Text;
   query1.ExecSQL;
end;

Saludos.

[mariarosina1984]

Está de más la primera y última línea, intentemoslo de esta manera:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.text:='update BLIBROS set AREA= :area, FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').Value := edit1.Text;
   query1.Parambyname('FOLIO').Value := edit2.text;
   QUERY1.ParamBYNAME('titulo').Value := edit3.Text;
   query1.ParamByName('ISBN').Value := edit6.Text;
   query1.ExecSQL;
end;

Saludos.

despues de eso cuando le pinchoo guardar lo hace pero no se ven los cambios en el dbgrid principal  que pudriis hacer?

[enecumene]

Lo que tienes que hacer es abrir y cerrar la tabla para que se refresque los datos, Suponiendo que el Grid está conectado a un dataset llamado Tabla1, sólo debes agregar estas dos líneas al final:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.text:='update BLIBROS set AREA= :area, FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').Value := edit1.Text;
   query1.Parambyname('FOLIO').Value := edit2.text;
   QUERY1.ParamBYNAME('titulo').Value := edit3.Text;
   query1.ParamByName('ISBN').Value := edit6.Text;
   query1.ExecSQL;
 
   Tabla1.Close;
   Tabla1.Open;
end;

[mariarosina1984]

Lo que tienes que hacer es abrir y cerrar la tabla para que se refresque los datos, Suponiendo que el Grid está conectado a un dataset llamado Tabla1, sólo debes agregar estas dos líneas al final:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.text:='update BLIBROS set AREA= :area, FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').Value := edit1.Text;
   query1.Parambyname('FOLIO').Value := edit2.text;
   QUERY1.ParamBYNAME('titulo').Value := edit3.Text;
   query1.ParamByName('ISBN').Value := edit6.Text;
   query1.ExecSQL;
 
   Tabla1.Close;
   Tabla1.Open;
end;

es un query pero con otro form

[enecumene]

Pos es lo mismo, sólo agregas el form donde está el otro query en el form5, suponiendo que el otro form se llama Form4:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.text:='update BLIBROS set AREA= :area, FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').Value := edit1.Text;
   query1.Parambyname('FOLIO').Value := edit2.text;
   QUERY1.ParamBYNAME('titulo').Value := edit3.Text;
   query1.ParamByName('ISBN').Value := edit6.Text;
   query1.ExecSQL;
 
   Form4.Tabla1.Close;
   Form4.Tabla1.Open;
end;

[mariarosina1984]

Pos es lo mismo, sólo agregas el form donde está el otro query en el form5, suponiendo que el otro form se llama Form4:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.text:='update BLIBROS set AREA= :area, FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').Value := edit1.Text;
   query1.Parambyname('FOLIO').Value := edit2.text;
   QUERY1.ParamBYNAME('titulo').Value := edit3.Text;
   query1.ParamByName('ISBN').Value := edit6.Text;
   query1.ExecSQL;
 
   Form4.Tabla1.Close;
   Form4.Tabla1.Open;
end;

no hace el cambio pero gracias

[enecumene]

Algo mal estás haciendo, po favor, trata de dar más detalles del problema, ¿cómo lo hiciste?, ¿qué hiciste?, ¿cual fue el cambio que hiciste?, ¿cuales son los datasets, datasources que tienes?, ¿cuales son los forms que tienes involucrados?, ¿cómo tienes conectado el DBGrid?, etc etc. Esto no es un chat y tampoco cobramos por letras o oraciones, por favor, envíanos detalles más completos, porque francamente nos tienes adivinando (que conste, no nos molesta), y queremos darte una solución definitiva, pero debes ser más explicativa.

Saludos.

[Caral]

Hola
Maria; Habla con tu jefe, cambia a Ado y le entramos a esto.
No es que sea pesado, pero me gustaría darte una mano y me seria mas fácil con ADO.
Saludos

[Alfredo]

podrías poner unas capturas de tus pantallas y explicar exactamente cual es el comportamiento que quieres que tengan?, tengo alguna idea de lo que quieres pero prefiero no comentar todavia nada hasta tener claro cual es tu idea de lo que quieres lograr.

[mariarosina1984]

tengo el form3 es el involucrado por que selecciono una fila y lo paso mediante un boton al form para hacer los cambios de la base de datos por eso por que  en el form3 antes del showmodal puse campo por campo y de ahi lo paso al los edit  a la seleccion ke seleccione en la tabla y de ahi hice campo por campo en el boton guardar lo que quiero hacer es que se cambien los datos y se vean en el form3 tengo todos tquery en todos los forms ligado con los datasource

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.close;
   query1.sql.clear;
   query1.SQL.text:='update BLIBROS set AREA= :area,FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').AsString:=edit1.Text;
   query1.Parambyname('FOLIO').AsString:=edit2.text;
   QUERY1.ParamBYNAME('titulo').AsString:=edit3.Text;
   query1.ParamByName('ISBN').AsString:=edit6.Text;
   query1.ExecSQL;
   form3.query1.Close;
   form3.query1.open;
   end;

lo ke quiero hacer es que le doy guardar y de ahi cuando se actualize la base de datos se muestre en el form3 que es el principal es todo lo que quiero hacer no mas ni menos

[enecumene]

Pues así como lo tienes debería de funcionar, ahora deberías revisar si estás haciendo el refrescado con el Query correcto, ¿segura no tienes otros Querys en el Form3?, ¿segura que el DataSource del DBGrid tiene apuntado ese mismo Query?.

Saludos.

[enecumene]

María, las capturas las debes de subir al foro, al momento de publicar más abajo antes del botón guardar hay una opción que dice "Opciones adicionales" le das click y te saldrá la casilla para subir imágenes y/o archivos, por favor, edita el post anterior y publica las capturas .

[mariarosina1984]

SOLAMENTE KE DIVIDA tengo dos querys en el mismo query1  o en form3 solamente que pase el select*from a otro query

[mariarosina1984]

TENGO DOS QUERYS EN UNO SOLO TQUERY UNO ES PARA MOSTRAR LOS DATOS EN EL DBGRID Y EL OTRO ES PARA RELIZAR LA BUSQUEDA EN UN BOTON

[enecumene]

TENGO DOS QUERYS EN UNO SOLO TQUERY UNO ES PARA MOSTRAR LOS DATOS EN EL DBGRID Y EL OTRO ES PARA RELIZAR LA BUSQUEDA EN UN BOTON

Pues ya vamos avanzando, antes de continuar: Por favor, evita las mayúsculas, aquí lo consideramos como una vociferación, ahora, continuemos, pues aquí no es nada recomendable, utiliza dos Querys, cada uno haga el trabajo de manera exclusiva, uno para mostrar los datos y el otro para realizar la búsqueda, nos comentas.

Saludos.

[mariarosina1984]

TAMPOCO JALA puse el query2 ahi pase lo de la busqueda tampoco hace la busqueda ni tampoco con el query1. no se ven los datos en el dbgrid actualizado

[kafastoforman]

TAMPOCO JALA puse el query2 ahi pase lo de la busqueda tampoco hace la busqueda ni tampoco con el query1. no se ven los datos en el dbgrid actualizado

y ¿si ligaste el query2 con el dataset y el datasource y del grid?

Es decir:

delphi

query2.close;
query2.SQL.clear;
query2.SQL.text:= 'SELECT * FROM tabla';
datasource1.dataset:= query2;
dbgrid1.datasource:= datasource1;
query2.open;

Saludos

Kafastoforman

[Caral]

Hola
Veamos asi:
Tienes el form5 que hace el update, parece que ya esta bien, segun entiendo:

delphi

procedure TForm5.Button1Click(Sender: TObject);
begin
   query1.close;
   query1.sql.clear;
   query1.SQL.text:='update BLIBROS set AREA= :area,FOLIO= :FOLIO, TITULO = :titulo WHERE ISBN = :ISBN';
   query1.Parambyname('area').AsString:=edit1.Text;
   query1.Parambyname('FOLIO').AsString:=edit2.text;
   QUERY1.ParamBYNAME('titulo').AsString:=edit3.Text;
   query1.ParamByName('ISBN').AsString:=edit6.Text;
   query1.ExecSQL;
   end;

Ahora lo que quieres hacer es que cuando salgas del form5 y entres en el form3 se muestre el dbgrid actualizado, creo que es asi:
Busca el procedimiento onshow del form3 y coloca este codigo:

delphi

procedure TForm3.FormShow(Sender: TObject);
begin
 query1.Close;
 query1.open;
end;

Estoy asumiendo que el query1 esta en el form3.
No se, digo...
Saludos

[luk2009]

Que estas usando para conectarte a la base de datos
ADO, ZEOS o que?

Seria bueno que pusieras los dos querys que estas usando y si indicas que usas para conectarte con la base de datos, tambien por ahi podria andar el problema.