FiveTech Software tech support forums

oCn:DBExist("midatabase") In the Fivewin native class I don't know if the homonymous method exists In Fivewin Native class we have ? oCn:DbExists( cDbName ) If using ADO aDb := FW_AdoCatalogs( oCn )? ...

Armando: Con TDolphin hay un metodo que te permite saberlo oCn:DBExist("midatabase") En la clase nativa de Fivewin no se si existe el método homónimo Pero puedes sino hacerlo desde el esquema ocn:Query('SELECT schema_name FROM information_schema.schemata ...

necesito saber si con DOLPHIN sigue funcionando,
esta integrado ahora dolphin con fwh?
donde puedo ver los sources?

gracias.

Estoy mas perdido que mi perro cuando le apago la luz.

en xharbour mas dolphin

Code: Select all  Expand view

if (::oCnx:DBEXIST("dbdato"))
? "existe"
endif

Code: Select all  Expand view

 

y ahora en harbour, como seria?

...          oGet:Assign()           // Assign typed text      CASE nKey >= 32 .And. nKey <= 256           responsables -> ( DBEXIST( cStartTxt, "nombre", .T. ) )           cItem := responsables -> nombre              IF LEFT( cItem, LEN(cStartTxt) ...

... ) IF oCon:lError MsgStop( "Error: No se estableció conexión, verifique y reintente...","Alto" ) RETURN NIL ENDIF IF !oCon:DBExist( "tutor" ) MSGRun( "Creando Base de Datos, aguarde...",, {|| oCon:CreateDataBase( "tutor")} ) ENDIF oCon:SelectDB( ...

... 3306)} ) IF oCon:lError MsgStop( "Se ha generado un error, no hay conexión, verifique...","Alto" ) RETURN NIL ENDIF IF !oCon:DBExist( "tutor" ) MSGRun( "Creando contenedor, espere...",, {|| oCon:CreateDataBase( "tutor")} ) ENDIF oCon:SelectDB( ...

... 3306)} ) IF oCon:lError MsgStop( "Se ha generado un error, no hay conexión, verifique...","Alto" ) RETURN NIL ENDIF IF !oCon:DBExist( "tutor" ) **MSGRun( "Creando contenedor, espere...",, {|| oCon:DBCreate( "tutor")} ) MSGRun( "Creando contenedor, ...

Miguel Angel, tmysql.prg contiene algunas sentencias que no estan soportadas en Harbour, como por ejemplo el uso de IN: METHOD DBExist( cDB ) INLINE ( cDB IN ::ListDBs() ) Prueba a añadir #define IN $ al principio por si ayuda Ok Antonio lo voy a intentar. Un abrazo y gracias. El loco ...

Miguel Angel,

tmysql.prg contiene algunas sentencias que no estan soportadas en Harbour, como por ejemplo el uso de IN:

METHOD DBExist( cDB ) INLINE ( cDB IN ::ListDBs() )

Prueba a añadir #define IN $ al principio por si ayuda