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:
- Code: Select all Expand view
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:
- Code: Select all Expand view
_oSqlConex:=tDolphinSrv():New( _cHost, _cUser, _cPasswordUser, val(_cPuertoMysql),, _cDataBase, { | oConex, nError | SQL_ConnetError( oConex, nError ) })
Gracias !!