Hola Armando,
Yo lo Hago Asi:
Primero que nada me aseguro de tener una base de datos de CONTROL que S脥 exista para poder conectar al servidor, esa base de datos debe estar en el mismo schema de la que voy a validar, ya que no se como conectar al servidor con TDolphin sin indicar un nombre de base de datos v谩lido.
Luego hago esto:
聽 聽 cDataBaseName:="nombreBaseDeDatos"
聽 聽 cQuery:="SHOW DATABASES LIKE '"+cDataBaseName+"';"
聽 聽 TRY
聽 聽 聽 聽oFacturas:=_oSqlConex:Query( cQuery )
聽 聽 CATCH
聽 聽 聽聽 Fnct_MsgErrorBD("NoMySql" 聽, .f. , "No hay conexi贸n al Servidor de Datos" , "Sin Acceso a La Red","Error en servicio de Datos",)
聽 聽 聽 聽_Close()
聽 聽 聽 聽return .f.
聽 聽 END TRY
聽 聽 if oFacturas:RecCount>0
聽 聽 聽 聽 msginfo('Si Existe')
聽 聽 else
聽 聽 聽 聽 Msginfo('No existe')
聽 聽 endif
PD: C茅sar amigo, como conectas al servidor sin abrir una base de datos? si nos indicas por aca estaria agradecido, ya que asi me evito la creacion de la base de datos de control. La unica forma que se de conectar con TDolphin es asi, indicando una base de datos:
_oSqlConex:=tDolphinSrv():New( _cHost, _cUser, _cPasswordUser, val(_cPuertoMysql),, _cDataBase, 聽{ | oConex, nError | 聽SQL_ConnetError( oConex, nError ) })
Gracias !!
