Duplicar una tabla con otro nombre dentro de una base de datos de access desde delphi

[feliz-58]

Empezado por ecfisa

Hola feliz-58

Combiné tu último mensaje por que está en relación directa con este hilo.


No entiendo bién lo que buscas, ¿ Podrías explicar con mas detalle la consulta ?

Por otro lado, fijate que es mucho mas simple y eficiente el modo que nos mostró olbeup.

Una variante del mismo puede ser:

Código Delphi [-]
procedure CloneTable(const OldTableName, NewTableName: string;
  Connection: TADOConnection);
begin
  with TADOQuery.Create(nil) do
  try
    Connection := Connection;
    Close;
    SQL.Text := 'SELECT * INTO ' + NewTableName + ' FROM '+ OldTableName;
    ExecSQL
  finally
    Free
  end
end;

Saludos.

Como seria la llamada?

[ecfisa]

Hola feliz-58.

Empezado por feliz-58

...lo que quiero hacer es lo siguiente:
con el boton cada vez que quiera clonar la tabla que sea de una en especifico que si yo pongo en el codigo que la tabla original sea "Base" que siempre clone de esa, y las clonadas le defina el nombre con el edit que ya tengo.

Si no te entendí mal basta con hacer:

Código Delphi [-]
procedure CloneTable(const NewTableName: string; Connection: TADOConnection);
begin
  with TADOQuery.Create(nil) do
  try
    Connection := Connection;
    Close;
    SQL.Text := 'SELECT * INTO ' + NewTableName + ' FROM nombre_de_la_tabla_base';
    ExecSQL
  finally
    Free
  end
end;

Empezado por feliz-58

Como seria la llamada?

Ejemplo de llamada para el código del mensaje #7:

Código Delphi [-]
  CloneTable('TABLA1', 'TABLA2', ADOConnection1);

Para el código de este mensaje:

Código Delphi [-]
  CloneTable('TABLA1', ADOConnection1);

Saludos.

[feliz-58]

Código Delphi [-]
procedure CloneTable(const NewTableName: string; Connection: TADOConnection);
begin
  with TADOQuery.Create(nil) do
  try
    Connection := Connection;
    Close;
    SQL.Text := 'SELECT * INTO ' + NewTableName + ' FROM llllllllll';
    ExecSQL <------------------- me resalta el delphi el problema
  finally
    Free
  end
end;

y la ventana de error es esta

[TOPX]

Por favor cambie las siguientes dos líneas:

Código Delphi [-]
procedure CloneTable(const NewTableName: string; Connection: TADOConnection);

por

Código Delphi [-]
procedure CloneTable(const NewTableName: string; aConnection: TADOConnection);

y

Código Delphi [-]
Connection := Connection;

por

Código Delphi [-]
Connection := aConnection;

-

[ecfisa]

Hola.

Perdón, cambiá el nombre del parámetro 'Connection' por 'aConnection'.

Código Delphi [-]
procedure CloneTable(const NewTableName: string; aConnection: TADOConnection);
begin
  with TADOQuery.Create(nil) do
  try
    Connection := aConnection;
    Close;
    SQL.Text := 'SELECT * INTO ' + NewTableName + ' FROM llllllllll';
    ExecSQL
  finally
    Free
  end
end;

Saludos.


Edito: No había visto el mensaje de TOPX, que ya aclaraba el problema.

[feliz-58]

Gracias Amigos y perdonen las molestias, era que tenia que entregar ese trabajo hoy jeje.

Todo funciono perfectamente.

Saludos