Clase para manejar SQL server

[jponce]

Hola a todos.

Existirá alguna clase para el manejo de sql server?

y hay donde puedo conseguirla y sus ejemplos.


Atentamente
Julio Ponce

[Ruben Fernandez]

Julio: hasta donde yo se, que se poco, puede ser con Ado y ver ejemplos aqui en el foro.
Otra solucion es la clase Condor1 de Manu Esposito.

[leandro]

Un ejemplo en ADO

Code: Select all  Expand view

#Include "FiveWin.Ch"
#Include "Ado.Ch"
#Include "xbrowse.Ch"

SapTab()

FUNCTION SapTab()
LOCAL oCon
LOCAL oError
LOCAL cCommandSql
LOCAL oVar
LOCAL oContactos
LOCAL oGrid
LOCAL oBrw
LOCAL aCol := array( 2 )


USE (".\dbfs\barras") ALIAS tMov NEW EXCLUSIVE
SELE tMov
zap
Dbgotop()

Msginfo("Inicia el proceso de conexion via ADO PURO MSSQL")

TRY
  oCon:=toleauto():new("adodb.connection")
CATCH oError
    MsgStop( "No se ha podido crear la conexión !", "Error de datos")
    RETURN(.F.)
END

oCon:ConnectionString:= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=CHANTALL;Data Source=SERVER\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=GERENCIA;Use Encryption for Data=False;Tag with column collation when possible=False"

TRY
  oCon:Open()
CATCH oError
  MsgStop( "No pude abrir la conexión para crear las tablas !", "Error de datos")
  RETURN(.F.)
END

Msginfo("Fin del Proceso de Conexión")

msginfo("vamos a lo del xbrowse")

   *------------------------------------------------------------------
   * Creamos el objeto recordset de ADO
   * un recorset esta formado por Registros(filas) y campos (columnas)
   *------------------------------------------------------------------
   oVar   := "SELECT * FROM MAEINV "

   if oContactos = nil

   TRY
      oContactos := CreateObject("ADODB.Recordset")
   CATCH oError
      MsgStop( "No se ha podido crear el RECORDSET !","Error de Datos" )
      RETURN(.F.)
   END

   oContactos:CursorLocation  := adUseClient //adUseServer
   oContactos:LockType        := adLockOptimistic
   oContactos:CursorType      := adOpenKeyset
   oContactos:Source          := oVar
   oContactos:ActiveConnection( oCon )

   TRY
      oContactos:Open()
   CATCH oError
      MsgStop( "No se ha podido ejecutar el comando !", "Error de Datos" )
      RETURN(.F.)
   END
      // msginfo( oContactos )

   else
     msginfo("no esta nil")
   endif

   nRegistros := oContactos:RecordCount()

   Msginfo(nRegistros)

   if nRegistros > 0
      oContactos:MoveFirst()
      DO WHILE !oContactos:Eof()
         ref:= oContactos:Fields("INV_REFER"):Value
         cod:= oContactos:Fields("INV_REFER"):Value
         odg:= oContactos:Fields("INV_CODIGO"):Value


     SELE tMov
         APPEND BLANK
         tMov->REF:=odg
         tMov->PRECOD:=cod

         oContactos:MoveNext()
      ENDDO
   endif

   msginfo("fin del proceso")

 

Espero te siva