Comprobar si existe la tabla...

[Acanol]

Muy buenas, necesitaria saber la forma de comprobar si existe una tabla antes de borrarla, en un principio estoy utilizando access pero voy a pasar todas las tablas a paradox, me vendria bien ambos ejemplos (si son distintos). Una ultima pregunta tengo el programa desarrollado con Adotables y adoquerys para conectar con tablas de acces y querria saber que proveedor a la hora de realizar la conexion he de seleccionar para utilizar estos mismos componentes con paradox... muchas gracias por su tiempo.

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

Creo recordar que desde el componente ADOConnection puedes consultar las tablas existentes. Revisa los métodos.

[Acanol]

Muchas gracias Netfali, creo que lo he solucionado con esto:

Código Delphi [-]
ADOConnection1.GetTableNames(ListBox1.Items, False);

Tengo que mirarlo mas a fondo. Y sobre lo de conectar con tablas paradox con los adotables y AdoQuerys, me podrias orientar¿ es que no encuentro el proveedor adecuado, para access se que es provider=Microsoft.Jet.OLEDB.4.0;. Muchas gracias por atender mi peticion.

[mariofur]

Creo que en paradox funciona así:
if MiTabla.Exist do, then, etc....

Espero que te sirva.

[LUCHO]

Otra opcion seria asi :

If FileExist('MiTabla.DB') Then
Hacer algo....

[Acanol]

Muchas gracias por su dedicacion me sirvio en parte para realizar lo que necesitaba pero aun mas para otra aplicacion .

[Acanol]

Y en firebird?, existe alguna posibilidad como las anteriores?
Gracias por su paciencia.

[[Lepe]]

La solución de Neftali tambien sirve para Firebird... En realidad el Objeto TDatabase guarda todas las tablas de la base de datos.

Si deseas tambien que salga las vistas, prueba esto:

Código Delphi [-]
procedure CheckTablename(const TableName:string);
var Tablas:TStringList;
    m :TMDOQuery;
begin
  Tablas := TStringList.Create;
  m := TMDOQuery.Create(nil);
  try
    m.Database:= dtm.DB;
    m.Transaction:= dtm.Trans;
{----------------------------NOMBRES DE TABLAS Y VISTAS ----------------------}
    m.SQL.Text:=   'SELECT RDB$RELATION_NAME FROM RDB$RELATIONS' + {do not localize}
                          ' WHERE RDB$SYSTEM_FLAG = 0'; {do not localize}

    m.Open;
    if not m.Locate('RDB$RELATION_NAME',TableName,[locaseinsensitive]) then
      raise Exception.Create(Format('La Tabla "%s" no existe en la BBDD.',[TableName]))

Saludos

[Acanol]

Buenas Lepe, creo que si que me puede servir, aunque no tenga que pulsar en una lista, jeje(le pasare el nombre directamente), bueno a lo que iva, perdona mi ignorancia pero soy nuevo en este tema, que se supone que es "TMDOQuery" (adoquery??), en solucionar eso lo probare . Muchas gracias.

[[Lepe]]

Para atacar una base de datos Firebird yo uso los componentes MDOLIB que son OpenSource, TMDOQuery equivale a un TQuery del BDE, y por tanto a un ADOQuery.

Lo creo en tiempo de ejecución porque es una rutina que tengo en un fichero .pas y realmente no tiene Form asociado. Si vas a hacerlo en un Form, puedes poner el componente TADOQuery en el form y configurar sus propiedades.

[Acanol]

Ok, probare a ver que tal, yo utilizo FibPlus, en probarlo te comento