problema con borrado de datos de una tabla

[rogercito]

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

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]

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]

Hola.

¿ Con que componentes estás trabajando ?

Saludos.

[rogercito]

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

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]

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

Empezado por rogercito

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;

Dbase III dbf ???

[[oscarac]]

Empezado por ecfisa

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.... me di cuenta.... jejejeje

[rogercito]

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

estas usando el componente tquery que te recomendo ecfisa?

[rogercito]

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

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í]

Empezado por oscarac

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