contenido archivo conexion.prg
Código: Seleccionar todo
FUNCTION conectar
LOCAL oErr
LOCAL oConn
IF ( oConn := Win_OleCreateObject( "ADODB.Connection" ) ) != NIL
BEGIN SEQUENCE WITH ErrorBlock( { | oErr | Break( oErr ) } )
oConn:Open( "Provider=SQLNCLI11;Server=SERVER;Database=DB;Uid=user;Pwd=pass;" )
RECOVER USING oErr
? hb_Utf8ToStr( 'Error de conexión: ' + oErr:Description )
RETURN NIL
END SEQUENCE
ELSE
? 'Error: [' + Win_OleErrorText() + ']'
ENDIF
RETURN oConn