Saber si ADOTable Existe

[Neftali [Germán.Estévez]]

No comentas la BD que usas, ya que con ADO puedes conectar a varias de ellas. De todas formas, se me ocuurren 2. Algunas Base de Datos poseen una tabla (sysObjects, por ejemplo para SQLServer) donde están todos los objetos de la BAse de Datos, basta con que consultes si hay algun elemento de tipo tabla con ese nombre. Otra más "ruda", pero más simple, es lanzar una SQL como ésta:

Código SQL [-]
   Select * from tabla1

Y capturar el posible error (por si no existe); Si no da error es que ya existe.
MEJORA: Haz un TOP 1 (si lo permite) y pregunta por un único campo en lugar de por todos (*).

[Barzaugc]

Estoy usando un base de datos en Access, me dices que capture el error, pero para ese error no se como hacerlo, cuando ejecuto la consulta en SQL, sale "class EOleException, el motor de BD no encuentra la tabla INVTABLA", Hice esto para reconocer el error, pero me marca error en el EOleException, lo tengo asi:

adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from INVTABLA');
try
adoquery1.ExecSQL;
except
On EOleException do
Showmessage('No Existe la Tabla');
end;

Esta es la manera de capturar el error o hay otras?

[Neftali [Germán.Estévez]]

Pues esa es una buena manera:

Código Delphi [-]
   try
     ADOQuery1.ExecSQL;
     MessageDlg('Si sale éste mensaje es que la tabla existe.', mtWarning, [mbOK], 0);
   except
     On E:EOleException do begin
       Showmessage('Si sale éste, es que no existe');
     end;
   end;

[Barzaugc]

Con esos ajustes ya salio muy bien, te agradezco mucho tu tiempo.

Hasta Luego!

[MaMu]

Empezado por Neftali

Pues esa es una buena manera:


Código Delphi [-]
try
ADOQuery1.ExecSQL;
MessageDlg('Si sale éste mensaje es que la tabla existe.', mtWarning, [mbOK], 0);
except
On E:EOleException do begin
Showmessage('Si sale éste, es que no existe');
end;
end;

Tenia el mismo problema y la misma duda, pero no me funciona, me sigue saltando la excepcion, no la captura.

Listo, lo solucione, era una pavada, habia hecho un par de procedimientos con nombres muy similares y seleccionaba mal, jejej, a veces pasa.

[Neftali [Germán.Estévez]]

Esta es otra manera; Mira este hilo:
http://www.clubdelphi.com/foros/show...67&postcount=3