Power Builder - Verificar DSN

   
Vista:

Verificar DSN

Publicado por Josue Sequeiros (11 intervenciones) el 19/02/2008 21:37:43
Buenas tardes, deseo saber mediante PB descubrir si existe un DSN creado en ODBC, y si no existe poder crearlo. Por favor ayudenme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Verificar DSN

Publicado por Leopoldo Taylhardat (690 intervenciones) el 01/03/2008 21:27:05
Saludos...
Los DSN existen dentro de un archivo de texto con estructura en 'arbol' tipo Profile (perfil)...
Para leer el perfi utiliza estas instrucciones... en este caso del archivo Perfil_Caja.INI el cual contiene...
[Caja]
Estacion=Estación
Empresa=1
Numero=4
Tipo=0

...Proceso...

//Perfil de la Estación...
IF FileExists("C:AplicacionPerfil_Caja.INI") THEN
PC = ProfileString("C:AplicacionPerfil_Caja.INI", "Caja", "Estacion", "")
ig_empresa =integer ProfileString "C:AplicacionPerfil_Caja.INI", "Caja", "Empresa", "0"))
ig_caja =integer(ProfileString("C:AplicacionPerfil_Caja.INI", "Caja", "Numero", ""))
ig_tipo_caja=integer(ProfileString("C:AplicacionPerfil_Caja.INI", "Caja", "Tipo", ""))

IF PC = "" THEN
// Error de configuración.
MessageBox("Error!","Caja No Configurada! (Falta Perfil)")
HALT
ELSE
...
END IF

El archivo de los DSN (ODBC) es ODBC.INI que está en la carpeta donde esté instalado el Windows...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar