Base de datos SQL Server...??

[Mayor_Valenzuela]

Estimados,

Hace mucho que no visito este foro, siempre acudo de ser necesario. voy al grano directamente: debo conectarme a una DB en SQL server, he buscado sin encontrar mucho de donde obtener un ejemplo de como conectar y trabajar con esas tablas. Busque info acerca de "sqlwin" y al compilar faltaban algunos includes y librerias.

¿Hay alguna manera efectiva de poder hacer esta conexión?

Si alguien lo ha logrado, agradecería un poco de ayuda... solo como conectar, necesito solo un empujón.

Agradecido.

[Baxajaun]

Hola Mario,

busca en el foro sobre ADO y en http://www.connectionstrings.com/sql-server/ busca la cadena de conexión a SQL Server.

En el foro encontrarás muchos ejemplos de ADO.

Saludos

[Mayor_Valenzuela]

Hola,

Gracias por la pronta respuesta, busque sobre ADO y casi todo es muy ambiguo, no muy claro, las cadenas de conexion del link ya las habia visto, como aplicarlas es lo que no logro encontrar.

Una vez mas... muchas gracias...

[carlos vargas]

buscar en la web el cliente de ms sql server version 10 (para sqlserver 2008 R2)
instalarlo en la pc cliente

codigo para conectar y crear recordset.

Code: Select all  Expand view  RUN

         cConn := "Server=MYSERVER\TECHNOTEL;Database=monica;Uid=sa;Pwd=Admin2012;";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()
         
 

Code: Select all  Expand view  RUN

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
 

[Mayor_Valenzuela]

Gracias a quienes aportaron a introducirme en este tema, resulta que despues de mucho buscar y de recibir ayuda, ya que esa es la intención de este foro, bueno, logre conectarme a SQL Server por medio de un string de conexión, pero al tratar de tener acceso a una de las tablas me da un error el cuan no se identificar, he tratado de buscar referencias de TOleAuto pero no he encontrado nada, el código quedo asi y lo dejo para futuras referencias por si alguien tenga que enfrentarse a este tema.

Code: Select all  Expand view  RUN

#include "fivewin.ch"

Function Main()
    Local cConn, oConn, oRx, FALSE := .F., cConnection
    Local oCon := TOleAuto():New( "ADODB.Connection" )

/*  oDL = CreateObject( "Datalinks" ):PromptNew()
   if ! Empty( oDL )
      cConnection = oDL:ConnectionString
   endif

    MsgInfo( cConnection ) */

   cConnString := "Provider=MSDASQL.1;Password=xxxxxxxx;Persist Security Info=True;User ID=sa;Data Source=xxxxxxx;Initial Catalog=XXXX"
*    oConn := FW_OpenAdoConnection( cConnection, .t. )
   oConn := FW_OpenAdoConnection( cConnString, .f. )

   IF HB_IsNil( oConn )
     MsgStop( "Acceso al servidor de datos no fue posible." )
     Else
         MsgInfo( "Acceso al servidor de datos fue concedido." )
         cTable := "iw_tprod"
         oRs := TOleAuto():New( "ADODB.Recordset" )
         try
       oRs:Open( "SELECT * FROM iw_tprod" , oConn )
     catch oError
       MsgInfo( oError:Description )
     end

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

     oConn:Close()
   ENDIF

Return ( Nil )

 

Use los dos modo de recordset que es el de Carlos Vargas, a quien agradezco su ayuda mas concreta y la otra del codigo de FIVEDBU de Antonio Linares, el temas es que sigo menos ciego que al principio, mi intención es leer la Tabla SQL y llevarla a un mdb o dbf para proyecto interno. Si hay algo que estoy haciendo mal, agradecido estaré...

[Mayor_Valenzuela]

Al tratar de abrir la tabla me da este error


http://www.subirimagenes.net/i/140808060632301706.jpg


y en FiveDBU estos errores al tratar de abrir la tabla


http://www.subirimagenes.net/i/140808060629301704.jpg
http://www.subirimagenes.net/i/140808060631301705.jpg