Como registrar un modulo de datos

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

Empezado por lledesma

...Agrego el modulo de datos (sqlserver) a mi aplicacion, pero tengo que verificar si la base de datos sqlserver existe y solo en este caso declarar el modulo de datos.

Coloca un ADOConnection e intenta conectar (capturando error con Try..except, por ejemplo) a la Base de Datos de SQLServer. Si la conexión falla, puedes suponer que el módulo no está.

De todas formas no acabo de entender muy bien, si es esto lo que preguntas.

[olbeup]

Hola Lledesma,

La solución a tu problema es muy simple:

1.) Para saber si existe una base de datos utiliza este código:

Código SQL [-]
SELECT
    COUNT(*) AS Existe
  FROM master..sysdatabases
  WHERE name = 'BaseDeDatos'

Te devuelve 1 si encuentra la base de datos
Te devuelve 0 si no la ha encontrado

2.) Para saber si existe una tabla utiliza este otro codigo:

Código SQL [-]
SELECT
    COUNT(*) AS Existe
  FROM BaseDeDatos..sysobjects
  WHERE name = 'Tabla'

Te devuelve 1 si encuentra la tabla
Te devuelve 0 si no la ha encontrado

Espero que te sirva

Un saludo.

[lledesma]

Gracias Neftali por tu pronta respuesta.
La idea es que no muestre el error al usuario que utiliza la aplicacion. Tendria que manejar el evento del error si la excepcion falla?.
Gracias de nuevo

[lledesma]

Olbeup, gracias.
Pruebo lo que me indicas y te aviso

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

Empezado por lledesma

Gracias Neftali por tu pronta respuesta.
La idea es que no muestre el error al usuario que utiliza la aplicacion. Tendria que manejar el evento del error si la excepcion falla?.

Pues sí; En tu caso en el EXCEPT en lugar de mostrar el error te apuntarás que eso lo está instalado y listo.

Algo así:

Código Delphi [-]
try
  // intentar conectar
  ....

  _ModuloInstalado := True;
except
  on E:EOLEException do begin
    // error en la conexión 
    _ModuloInstalado := False;
  end
  else begin
    // otro error 
    _ModuloInstalado := False;  // igualmente no podremos usarlo
    //  hacer otras cosas
    // ....
  end;
end;

[lledesma]

Mil Gracias