Base de datos SQL Server...??

Base de datos SQL Server...??

Postby Mayor_Valenzuela » Wed Aug 06, 2014 6:40 pm

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. :oops: :oops: :oops:
Mario Valenzuela M.
Santiago, Chile.
User avatar
Mayor_Valenzuela
 
Posts: 62
Joined: Tue Jul 08, 2008 4:27 pm
Location: Santiago, Chile

Re: Base de datos SQL Server...??

Postby Baxajaun » Wed Aug 06, 2014 6:53 pm

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
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Re: Base de datos SQL Server...??

Postby Mayor_Valenzuela » Wed Aug 06, 2014 7:04 pm

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...
Mario Valenzuela M.
Santiago, Chile.
User avatar
Mayor_Valenzuela
 
Posts: 62
Joined: Tue Jul 08, 2008 4:27 pm
Location: Santiago, Chile

Re: Base de datos SQL Server...??

Postby carlos vargas » Wed Aug 06, 2014 7:16 pm

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
 
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
carlos vargas
 
Posts: 1721
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Re: Base de datos SQL Server...??

Postby Mayor_Valenzuela » Fri Aug 08, 2014 3:43 pm

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é...
Mario Valenzuela M.
Santiago, Chile.
User avatar
Mayor_Valenzuela
 
Posts: 62
Joined: Tue Jul 08, 2008 4:27 pm
Location: Santiago, Chile

Re: Base de datos SQL Server...??

Postby Mayor_Valenzuela » Fri Aug 08, 2014 4:02 pm

Mario Valenzuela M.
Santiago, Chile.
User avatar
Mayor_Valenzuela
 
Posts: 62
Joined: Tue Jul 08, 2008 4:27 pm
Location: Santiago, Chile


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 102 guests