Error desconocido en MySql (SOLUCIONADO)

Board index FiveWin para Harbour/xHarbour Error desconocido en MySql (SOLUCIONADO)

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Error desconocido en MySql (SOLUCIONADO)
Posted: Sun Jun 15, 2025 04:39 PM

Amigo del foro:

Tengo este código que me ha traído loco por un buen rato:

      FW_ReOpenRecordSet(oRsDet,oApp:oCon,"SELECT " +;
                                             "* " +;
                                          "FROM " +;
                                             "DetVdm "+;
                                          "ORDER BY " +;
                                             "DET_MOD,DET_FOL",adLockOptimistic,adOpenDynamic,0)

      IF oRsDet == nil
         MsgStop("No pude abrir la tabla DETVDM !",oApp:cAplicacion)
         FW_ShowAdoError(oApp:oCon)
         RETURN(.F.)
      ENDIF

      IF oRsDet:BOF() .AND. oRsDet:EOF()
         MsgStop("Ningun material ha tenido movimientos !",oApp:cAplicacion)
         FW_ShowAdoError(oApp:oCon)   <<<<=============  Aquí el error
         RETURN(.F.)
      ELSE
         oRsDet:MoveFirst()
         nHasta	:= oRsDet:RecordCount()
      ENDIF

Como ven, solo se trata de abrir una simple tabla, efectivamente esta vacía pues recién se ha creado
FW_ShowAdoError(oApp:oCon) me tira el error ADO ERROR UNKNOW.

Si la tabla tiene registros, obvio, no tira el error

A alguien le ha pasado, que me cuente su experiencia de por donde van los tiros.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Antonio Linares

Posts: 44158