#include "fivewin.ch"
#Include "Ado.Ch"
*
function Main()
          Local cConn, oConn, oRx, FALSE := .F., cConnection
          
         cConn := "Server=APLICA\SQLEXPRESS;Database=dbPersonalTajibos;Uid=personal;Pwd=personal;"//;network=dbmssocn
         oConn := FW_OpenAdoConnection( cConn, FALSE )

         IF HB_IsNil( oConn )
            MsgStop( "Acceso al servidor de datos no fue posible." )
         ENDIF

         oRS := KRecordSet( oConn, "SELECT * FROM TABLA")
         IF oRS <> NIL
              xbrowse( oRS )
         ENDIF

         *oRS:Close()
        * oConn:Close()
         
 
return nil
*
FUNCTION KRecordSet( oConn, cSQL, nCursorLocation, nCursorType, nLockType )
   LOCAL oRS, oRST

   DEFAULT nCursorLocation := adUseClient, ;
           nCursorType     := adOpenStatic, ;
           nLockType       := adLockOptimistic

   IF HB_IsObject( oConn )
      IF oConn:State == adStateOpen
         oRST := TOleAuto():New( "ADODB.RecordSet" )
         WITH OBJECT oRST
            :ActiveConnection := oConn
            :Source           := cSQL
            :CursorLocation   := nCursorLocation
            :CursorType       := nCursorType
            :LockType         := nLockType
         END
         TRY
            CursorWait()
            oRST:Open()
            CursorArrow()
         CATCH
            CursorArrow()
            *FW_ShowAdoError( oConn )
            oRST := NIL
         END
      ENDIF
   ENDIF

RETURN oRS

#include "fivewin.ch"
#Include "ado.Ch"

#define FALSE .f.
#define TRUE  .t.

function Main()
   LOCAL cConn, oConn, oRS, cConnection
   
   /*en linux hay que tener cuidado con los nombre de base de datos y tablas, ya que linux distinge entre mayusculas y minusculas en windows no hay problema*/
   cConn := "Driver={MySQL ODBC 5.2 ANSI Driver};Server=192.168.1.100;Port=3306;Database=dbmytest;User=carlos;Password=123456;Option=2048;"
       
   oConn  := FW_OpenAdoConnection( cConn, FALSE )

   IF HB_IsNil( oConn )
      MsgStop( "Acceso al servidor de datos no fue posible." )
      RETURN
   ELSE
      MsgInfo( "Conectado!" )
   ENDIF

   oRS := KRecordSet( oConn, "SELECT * FROM mytabla") 
   IF oRS <> NIL
      XBrowse( oRS )
   ENDIF

   oRS:Close()
   oConn:Close()

return
*
FUNCTION KRecordSet( oConn, cSQL, nCursorLocation, nCursorType, nLockType )
   LOCAL oRS, oRST

   DEFAULT nCursorLocation := adUseClient, ;
           nCursorType     := adOpenStatic, ;
           nLockType       := adLockOptimistic

   IF HB_IsObject( oConn )
      IF oConn:State == adStateOpen
         oRST := TOleAuto():New( "ADODB.RecordSet" )
         WITH OBJECT oRST
            :ActiveConnection := oConn
            :Source           := cSQL
            :CursorLocation   := nCursorLocation
            :CursorType       := nCursorType
            :LockType         := nLockType
         END         
         TRY
            CursorWait()
            oRST:Open()
            CursorArrow()
         CATCH
            CursorArrow()
            FW_ShowAdoError( oConn )
            oRST := NIL
         END
      ENDIF
   ENDIF

RETURN oRST

#include "fivewin.ch"
#Include "ado.Ch"

#define FALSE .f.
#define TRUE  .t.

function Main()
   LOCAL cConn, oConn, oRS, cConnection
    
   cConn := "Driver={SQL Server Native Client 10.0};Server=MYSERVER2\SQLEXPRESS;Database=DBPRUEBA;Uid=sa;Pwd=Admin2014;network=dbmssocn;"
    
   oConn  := FW_OpenAdoConnection( cConn, FALSE )

   IF HB_IsNil( oConn )
      MsgStop( "Acceso al servidor de datos no fue posible." )
      RETURN
   ELSE
      MsgInfo( "Conectado!" )
   ENDIF

   oRS := KRecordSet( oConn, "SELECT * FROM TABLA01")
   IF oRS <> NIL
      XBrowse( oRS )
   ENDIF

   oRS:Close()
   oConn:Close()

return
*
FUNCTION KRecordSet( oConn, cSQL, nCursorLocation, nCursorType, nLockType )
   LOCAL oRS, oRST

   DEFAULT nCursorLocation := adUseClient, ;
           nCursorType     := adOpenStatic, ;
           nLockType       := adLockOptimistic

   IF HB_IsObject( oConn )
      IF oConn:State == adStateOpen
         oRST := TOleAuto():New( "ADODB.RecordSet" )
         WITH OBJECT oRST
            :ActiveConnection := oConn
            :Source           := cSQL
            :CursorLocation   := nCursorLocation
            :CursorType       := nCursorType
            :LockType         := nLockType
         END         
         TRY
            CursorWait()
            oRST:Open()
            CursorArrow()
         CATCH
            CursorArrow()
            FW_ShowAdoError( oConn )
            oRST := NIL
         END
      ENDIF
   ENDIF

RETURN oRST

#include "fivewin.ch"
#include "ado.ch"
#include "xbrowse.ch"

Function Main()
Local oConnect, oCString, oDL, oDbCli, oRs, oBrw

 oConnect:= CreateObject( "ADODB.Connection" )

 oCString := "Provider=SQLOLEDB;server=SIOUX-66C9BEE55\SOSQL2008;database=SIOUX;uid=sa;pwd=Softland914"
*oCString := "Driver={SQL Server Native Client 10.0};Server=SIOUX-66C9BEE55\SOSQL2008;Database=SIOUX;Uid=sa;Pwd=Softland914;network=dbmssocn;"

 oConnect:Open(oCString)

 MsgInfo( HB_IsObject( oConnect ) )  //Compruebo si se creo objeto
 try
   oRs := TOleAuto():New( 'ADODB.RecordSet' )
   WITH OBJECT oRs
      :ActiveConnection := oConnect
      :Source           := 'SELECT * from iw_gsaen'
      :CursorLocation   := 3
      :Open()
   END
 catch oErr
   AdoError(oConnect)
   return .f.
 end try

Return ( Nil )

#include "fivewin.ch"
#include "ado.ch"
#include "xbrowse.ch"

FUNCTION Main()
  LOCAL oConnect, cCString, oError, oRS, lRS := .f.

  cCString := "Driver={SQL Server Native Client 10.0};"
  cCString += "Server=SIOUX-66C9BEE55\SOSQL2008;"
  cCString += "Database=SIOUX;Uid=sa;Pwd=Softland914;network=dbmssocn;"
  
  TRY
    oConnect := CreateObject( "ADODB.Connection" )
    oConnect:Open( cCString )
  CATCH oError
     MsgStop( oError:Description )
     RETURN
  END

  TRY
    oRs := TOleAuto():New( "ADODB.RecordSet" )
    WITH OBJECT oRs
      :ActiveConnection := oConnect
      :Source                 := "SELECT * from iw_gsaen"
      :CursorLocation     := adUseClient
      :CursorType           := adOpenStatic
      :LockType              := adLockOptimistic
      :Open()
    END
    lRS := .t.
  CATCH oError
    MsgStop( oError:Description )
  END
  
  if lRS
    xbrowse( oRS )
  endif

  oConnect:end()

RETURN NIL