Foros Club Delphi - Buscar Tabla en BD Access

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Buscar Tabla en BD Access (https://www.clubdelphi.com/foros/showthread.php?t=44810)

Buscar Tabla en BD Access

Hola!

Estoy trabajando delphi 5 con Access 2003. En access tengo una Base de datos llamada Listados. Como hago para preguntar desde delphi si existe la tabla Terceros dentro de esa base de datos?

Gracias por la ayuda que me puedan brindar.

Carlos E. :eek:

Me pregunto si el Delphi5 tiene conexión via ADO... yo creo que si. En tal caso te dejo el siguiente código:

Código Delphi [-]var List: TStrings;
begin
 List := TStringList.Create;
 ADOConnection1.GetTableNames(List);
 if List.IndexOf('Terceros') <> -1 then
  MessageBox(0, 'La tabla SI existe.', nil, 0)
 else
  MessageBox(0, 'No hay la tabla "Terceros" en la BD "Listados"!', nil, 0)
 List.Free;
end;

Las propiedades del TADOConnection modificadas en Tiempo de diseño fueron:

Código Delphi [-]    Connected = True
    ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Listados.mdb;Persist Security Info=False'
    LoginPrompt = False

Espero sea lo que buscas, suerte!

La conexión con la base de datos la estoy haciendo mediante ODBC.

Por el momento cree una tabla con el nombre de las tablas que existen en la base de datos, pero creo que no es la forma correcta de hacerlo.

Carlos E.

entra al menu herramientas-> opciones-> mostrar objetos del sistema y podrás ver algunas tablas ocultas una de ellas es msysobjects o algo así no recuerdo bien el nombre en ahi estan el nombre de las tablas y campos.

saludos