Foros Club Delphi - problema con borrado de datos de una tabla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - problema con borrado de datos de una tabla (https://www.clubdelphi.com/foros/showthread.php?t=75604)

rogercito

06-09-2011 16:48:37

problema con borrado de datos de una tabla

hola el problema que tengo es el siguiente:

Yo tengo un dbgrid que me muestra datos proveniente de una tabla.
Yo quisiera:

1) Una vez que los datos son mostrados.Guardarlos en otra tabla auxiliar y eliminar la tabla que esta enlazada al dbgrid

oscarac

06-09-2011 16:54:00

eliminar la tabla o eliminar los datos de la tabla

me imagino que es eliminar los datos de la tabla porque este post tiene que ver con el que pusiste anteriormente

a grandes rasgos

Código Delphi [-] 
Insert into TablaAuxiliar Select * from TabladelGrid
delete from TabladelGrid

rogercito

06-09-2011 17:03:11

eso lo tendria que poner donde estoy poniendo el boton de guardar supuestamente. Pero pongo el codigo y me sale un error. Ya abri la otra tabla

gracias

ecfisa

06-09-2011 17:04:00

Hola.

¿ Con que componentes estás trabajando ?

Saludos.

rogercito

06-09-2011 17:07:59

estoy trabajando con tablas dbase III+ el codigo que tengo es el siguiente

procedure TForm23.Button3Click(Sender: TObject);
begin

table6.open;
dbgrid1.show;
table7.open;
Insert (into table7 Select * from table6)
delete from Table6

end;

oscarac

06-09-2011 17:10:00

eso mismo... con que componentes estas trabajando?

podrias colocar un adoquery y en la propiedad Sql podrias colocar las instrucciones que te mencione anteriormente.. algo asi

Código Delphi [-] 
Adoquery1.Clear;
adoquery1.Sql.Add('Insert into TablaAuxiliar Select * from TabladelGrid')
adoquery1.ExecSQL;
 
Adoquery1.Clear;
adoquery1.Sql.Add('delete from TabladelGrid')
adoquery1.ExecSQL;

ahora es una forma... no quiere decir que no existan otras mejores

ecfisa

06-09-2011 17:10:35

Hola.

Agrega un TQuery al form y luego este código:

Código Delphi [-]  // Pasar y borrar
  with Query1 do
  begin
    SQL.Text:='INSERT INTO TABLE7 * FROM TABLE6';
    ExecSQL;
    Close;
    SQL.Text:= 'DELETE FROM TABLE6';
    ExecSQL;
  end;

Saludos.

oscarac

06-09-2011 17:11:01

Cita:

Empezado por rogercito (Mensaje 411035)

Dbase III dbf ???

oscarac

06-09-2011 17:13:11

Cita:

Empezado por ecfisa (Mensaje 411037)

Hola.

Agrega un TQuery al form y luego este código:

Código Delphi [-]
// Pasar y borrar
with Query1 do
begin
SQL.Text:='INSERT INTO TABLE7 * FROM TABLE6';
ExecSQL;
Close;
SQL.Text:= 'DELETE FROM TABLE6';
ExecSQL;
end;

Saludos.

lo corregiste.... :eek::eek::eek::eek: me di cuenta.... jejejeje

rogercito

06-09-2011 17:22:44

si es dbf pongo lo que vos me pusiste y me dice sale un error en el * de la sentencia sql pero no se porque.

oscarac

06-09-2011 17:25:23

estas usando el componente tquery que te recomendo ecfisa?

rogercito

06-09-2011 17:28:06

si lo estoy usando y me sale el error.Ahora no se si tambien tengo que poner esa sentencia en SQL o solamente en mi form

oscarac

06-09-2011 17:33:26

rogercito... la bolita de cristal que tenia casimiro y con la que se podia adivinar ya se rompio

podrias decir que error sale?

solo tienes que colocar el componente y copiar lo que te sugirio ecfisa en el evento donde presionas el boton

Casimiro Noteví

06-09-2011 22:34:31

Cita:

Empezado por oscarac (Mensaje 411043)

rogercito... la bolita de cristal que tenia casimiro y con la que se podia adivinar ya se rompio

Y va para largo, no se encuentran repuestos y hay que esperar que en la fábrica se dignen a fabricar las piezas que faltan, puede que para dentro de unos años :confused::confused::confused:

La franja horaria es GMT +2. Ahora son las 03:48:25.