¿Como eliminar Una Tabla en una Base de datos De Access?

[feliz-58]

Como puedo eliminar una tabla con una base de datos en MS Access, y que seleccione la tabla a borrar por un Combobox?

Los componentes son ADOtable y ADOconection.

Gracias









Saludos

[ecfisa]

Hola feliz-58.

Código Delphi [-]
procedure TForm1.DeleteTable(const TableName: string);
const
   MSG = '¡Atención! se borrará la tabla %s ¿ Continua ?';
begin
  if MessageBox(Handle, PChar(Format(MSG,[TableName])), '', MB_ICONWARNING+MB_YESNO) = IDYES then
    with ADOQuery1 do
    begin
      Close;
      SQL.Text := 'DROP TABLE ' + TableName;
      ExecSQL;
    end;
end;

Llamada ejemplo:

Código Delphi [-]
  if ComboBox1.ItemIndex > -1 then
    DeleteTable(ComboBox1.Items[ComboBox1.ItemIndex]);

Saludos.

[feliz-58]

Empezado por ecfisa

Hola feliz-58.

Código Delphi [-]
procedure TForm1.DeleteTable(const TableName: string);
const
   MSG = '¡Atención! se borrará la tabla %s ¿ Continua ?';
begin
  if MessageBox(Handle, PChar(Format(MSG,[TableName])), '', MB_ICONWARNING+MB_YESNO) = IDYES then
    with ADOQuery1 do
    begin
      Close;
      SQL.Text := 'DROP TABLE ' + TableName;
      ExecSQL;
    end;
end;

Llamada ejemplo:

Código Delphi [-]
  if ComboBox1.ItemIndex > -1 then
    DeleteTable(ComboBox1.Items[ComboBox1.ItemIndex]);

Saludos.

Donde voy a Poner el Codigo base?

[feliz-58]

Como puedo eliminar una tabla con una base de datos en MS Access, y que seleccione la tabla a borrar por un Combobox?

Los componentes son ADOtable y ADOconection.

Gracias

[ecfisa]

Empezado por feliz-58

Donde voy a Poner el Codigo base?

Hola.

Si usas un TDataModule, sería un buen lugar para ubicarlo:

Código Delphi [-]
...
implementation

uses Windows, Forms;

procedure TtuDataModule.DeleteTable(const TableName: string);
const
   MSG = '¡Atención! se borrará la tabla %s ¿ Continua ?';
begin
  iif MessageBox(Screen.ActiveForm.Handle, PChar(Format(MSG,[TableName])), '',
                 MB_ICONWARNING+MB_YESNO) = IDYES then
    with ADOQuery1 do
    begin
      Close;
      SQL.Text := 'DROP TABLE ' + TableName;
      ExecSQL;
    end;
end;

Llamada desde un form:

Código Delphi [-]
...
implementation

uses uDataModule; // tuDataModule

procedure TForm1.btnBorraClick(Sender: TObject);
begin
  if ComboBox1.ItemIndex > -1 then
    tuDataModule.DeleteTable(ComboBox1.Items[ComboBox1.ItemIndex]);
end;

Saludos.

[[ElDioni]]

Buenas.

tienes la respuesta en un hilo que has abierto con la misma pregunta.

http://www.clubdelphi.com/foros/showthread.php?t=82932

[ecfisa]

Hola feliz-58

Supongo que ha sido una confusión, pero te ruego que no publiques la misma consulta en diferentes hilos. (combiné ambos en este)

Saludos y gracias por tu colaboración

[feliz-58]

Empezado por ecfisa

Hola feliz-58

Supongo que ha sido una confusión, pero te ruego que no publiques la misma consulta en diferentes hilos. (combiné ambos en este)

Saludos y gracias por tu colaboración

Lo siento, pero no tengo idea de lo que me disjiste que haga XD no tengo experiencia con los Modulos de datos :/ me explicas como?

[ecfisa]

Empezado por feliz-58

Lo siento, pero no tengo idea de lo que me disjiste que haga XD no tengo experiencia con los Modulos de datos :/ me explicas como?

Hola.

Te adjunto un pequeño demo basado en dbdemos.mdb. Para usarlo con tu base de datos, deberás modificar la propiedad ConnectionString del TADOConnection por la ruta donde se halle.

Saludos.

[feliz-58]

Empezado por ecfisa

Hola.

Te adjunto un pequeño demo basado en dbdemos.mdb. Para usarlo con tu base de datos, deberás modificar la propiedad ConnectionString del TADOConnection por la ruta donde se halle.

Saludos.

el query tiene algun codigo? porque me sale en blanco en la propiedad SQL?

[feliz-58]

Empezado por ecfisa

Hola.

Te adjunto un pequeño demo basado en dbdemos.mdb. Para usarlo con tu base de datos, deberás modificar la propiedad ConnectionString del TADOConnection por la ruta donde se halle.

Saludos.

el query tiene algun codigo? porque me sale en blanco en la propiedad SQL?

o sera otra cosa porque me sale un error, miralo:

[feliz-58]

aqui estan los dos errores

[ecfisa]

Empezado por feliz-58

el query tiene algun codigo? porque me sale en blanco en la propiedad SQL?

o sera otra cosa porque me sale un error, miralo:

Hola.

No, el query no tiene código SQL en diseño, sólo en que se le asigna en el procedimiento. Acabo de probarlo y funciona perfectamente, no me explico ese error que te está dando.

Aunque por las dudas y por el tipo de error, revisa que en: Project -> Options -> Forms -> Auto-create forms, el DataModule esté situado en primer término.

Es decir que si haces: Project -> View source, tendrías que ver algo parecido a:

Código Delphi [-]
program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2); // Primero el DataModule
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

(Aunque no comprendo como podría haberse cambiado el órden ya que en el adjunto figura el correcto...)

Saludos.

[feliz-58]

Empezado por ecfisa

Hola.

No, el query no tiene código SQL en diseño, sólo en que se le asigna en el procedimiento. Acabo de probarlo y funciona perfectamente, no me explico el error.

Aunque por las dudas y por el tipo de error, revisa que en: Project -> Options -> Forms -> Auto-create forms, el DataModule esté situado en primer término.

Es decir que si haces: Project -> View source, tendrías que ver algo parecido a:

Código Delphi [-]
program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2); // Primero el DataModule
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

(Aunque no comprendo como podría haberse cambiado el órden ya que en el adjunto figura el correcto...)

Saludos.

Excelente Eres un Genio lo resolvi, cambie el orden y lo puse de primero incluso hasta que el de inicio de sesion Muchisisimas Gracias