Page 1 of 1

Accesar a las tablas tipo SQL

Posted: Wed Oct 28, 2020 5:28 pm
by ACC69
Hola buenas tardes estimados, despues de casi 3 años que estuve fuera de programacion, ya reactive de nuevo mi cuenta y restableci mi clave, ya que me sali fuera de la programacion de fivewin.

Espero que se encuentren todos bien en este foro tan esplendido que al parecer ya existen nuevas actualizaciones y mejoras, es un gusto saber que aun continuan mejorando el lenguaje y ando desactualizado y creo que ya olvide como programar segun yo.

El motivo por el cual estoy segun de regreso es por una necesidad de solicitarles un favor de como accesar al motor de las bases de datos tablas de SQL con un pequeño codigo de programacion en prg de como hacer conexiones y mostrarlo en browse, les adjunto las tablas de sql.
Es que necesito extraer alguna informacion de consulta, pero no logro como hacer la conexion o que se necesita instalar en una pc aparte y no estar directamente en el servidor principal que ahi se encuentran la base principal ando perdido en ese detalle de conexiones a las tablas SQL.

Espero que con esos datos sea suficiente para el acceso a la tabla.

usuario : sa
Clave : Solo1$$

Aqui le adjunto en archivo comprimido de las tablas que extrai.

https://www.4shared.com/account/home.jsp#dir=a_9IZFb7


Sera que me puedan apoyar al respecto por favor?

Espero sus comentarios.
Gracias

Atte: Adriano C. C.

Re: Accesar a las tablas tipo SQL

Posted: Thu Oct 29, 2020 1:50 pm
by Rick Lipkin
Have a look at \samples\adorick.prg ... shows how to make a connection to MS Access .. how to access tables via ADO ( recordsets ) .. browses with xBrowse

Rick Lipkin

Re: Accesar a las tablas tipo SQL

Posted: Fri Oct 30, 2020 3:47 pm
by ACC69
Rick Lipkin wrote:Have a look at \samples\adorick.prg ... shows how to make a connection to MS Access .. how to access tables via ADO ( recordsets ) .. browses with xBrowse

Rick Lipkin

Hola buenos dias Ing. Rick gracias por responder, pero el detalle es este por la extension de la base de datos que no logro ubicarme que no me deja accesar a la tabla, y pues no tengo ni idea que necesito instalar pero en el servidor esta instalado SQL Server Management Studio no se que version sea, pero el detalle por prg es lo que no logro como hacer conexion, no se si tenga que ver estas dos extensiones que de la base de datos, es por eso que adjunte en el archivo comprimido.

Estas son las dos bases de datos pero de diferente extension uno es de .mdf y el otro .LDF

ct004_MEZZ_CORP_SA_DE_CV_DIC_2014_C.mdf
ct004_MEZZ_CORP_SA_DE_CV_DIC_2014_C_log.LDF

Y entonces cual de estos es lo que yo necesito accesar, alguien que tenga experiencia y haya logrado conectarse desde programa de un ejemplo de prg de fivewin?, solo necesito hacer consultas a los registros de la base de datos y crear informes, eso es todo lo que se me dificulta es hacer la conexion y por medio de un browse visualizar registros o si el Ing. Nages me puede apoyar al respecto.

Gracias y saludos a todos.

Atte: Adriano C. C.

Re: Accesar a las tablas tipo SQL

Posted: Fri Oct 30, 2020 3:48 pm
by ACC69
Rick Lipkin wrote:Have a look at \samples\adorick.prg ... shows how to make a connection to MS Access .. how to access tables via ADO ( recordsets ) .. browses with xBrowse

Rick Lipkin

Hola buenos dias Ing. Rick gracias por responder, pero el detalle es este por la extension de la base de datos que no logro ubicarme que no me deja accesar a la tabla, y pues no tengo ni idea que necesito instalar pero en el servidor esta instalado SQL Server Management Studio no se que version sea, pero el detalle por prg es lo que no logro como hacer conexion, no se si tenga que ver estas dos extensiones que de la base de datos, es por eso que adjunte en el archivo comprimido.

Estas son las dos bases de datos pero de diferente extension uno es de .mdf y el otro .LDF

ct004_MEZZ_CORP_SA_DE_CV_DIC_2014_C.mdf
ct004_MEZZ_CORP_SA_DE_CV_DIC_2014_C_log.LDF

Y entonces cual de estos es lo que yo necesito accesar, alguien que tenga experiencia y haya logrado conectarse desde programa de un ejemplo de prg de fivewin?, solo necesito hacer consultas a los registros de la base de datos y crear informes, eso es todo lo que se me dificulta es hacer la conexion y por medio de un browse visualizar registros o si el Ing. Nages me puede apoyar al respecto.

Gracias y saludos a todos.

Atte: Adriano C. C.

Re: Accesar a las tablas tipo SQL

Posted: Fri Oct 30, 2020 5:21 pm
by artu01
Adriano
me parece que tienes que agregarlo desde el sql management studio, presiona attach y selecciona tu archivo .mdf
Image

Re: Accesar a las tablas tipo SQL

Posted: Mon Nov 02, 2020 6:44 pm
by ACC69
artu01 wrote:Adriano
me parece que tienes que agregarlo desde el sql management studio, presiona attach y selecciona tu archivo .mdf
Image
Hola gracias Ing. Art01, esa parte ya logre adjuntar el archivo, pero ahora como hacer conexion desde mi codigo fuente de prg y editar la base de datos solo consultar registros es lo que requiero, alguien me puede tirar un ejemplo?.

Gracias.

Atte: Adriano C. C.

acc69@hotmail.com

Re: Accesar a las tablas tipo SQL

Posted: Tue Nov 03, 2020 2:47 am
by artu01
Adriano en el foro puedes encontrar muchos ejemplos de accesar a tablas sql, aqui tienes un ejemplo

Code: Select all

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

   xsource:="localhost"   //nombre servidor
   xCatalog:="arturo"     // nombre bd
   xUserID:= "root"       // user
   xPassword:="123456"    // password
   
   oCn := FW_OpenAdoConnection( { "SQL", xSource, xCatalog, xUserID, xPassword }, .t. )
   if oCn == nil
      ? "conexion fallida"
      return nil
   endif
   ? "Conexion exitosa"
   
    lRs:=.f.
    cSql:= "SELECT * from tu_tabla "
     
     
    TRY
      oRs   := FW_OpenRecordSet( oCn, cSql )
      lRs:=.t.
    catch
      ? "Error en lectura"
    endtry
    
    if lRs
        DEFINE DIALOG oDlg RESOURCE "BRW_GUIA" TITLE "Notas de Pedido" 

        REDEFINE XBROWSE oBrw                                    ;
         DATASOURCE oRs                                        ;
         COLUMNS "FACBOL","FECHA","NUMERO","RAZSOC","MONEDA",    ;
                 "TOTBRUTO","TOTDSCTO","TOTSUB","TOTIGV","TOTAL" ;
          FIELDSIZES 30,68,54,200,30,85,60,60,60,85              ;
          HEADERS                               ;
                 "F/B"                          ;
                ,"FECHA"                        ;
                ,"NUMERO"                       ;
                ,"CLIENTE"                      ;
                ,"MON."                         ;
                ,"T.BRUTO"                      ;
                ,"T.DSCTO"                      ;
                ,"SUBTOT"                       ;
                ,"IGV"                          ;
                ,"TOTAL"                        ;
          ID 4001 OF oDlg                       ;
          LINES CELL NOBORDER UPDATE            
          ACTIVATE DIALOG oDlg
          
          oRs:Close()
   endif
   oCn:Close()
 

Re: Accesar a las tablas tipo SQL

Posted: Tue Nov 03, 2020 11:16 am
by leandro
Aqui otra manera de conectarse

Code: Select all

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

oCnMsq:ConnectionString:="Driver={SQL Server};"+;
                        "Server=SERVER;"+;
                        "Database=mydbase;"+;
                        "Uid=SA;"+;
                        "Pwd=miclave;"
TRY
  oCnMsq:Open()
CATCH oError
  MsgStop( "No pude abrir la conexión para crear las tablas !", "Error de datos")
  RETURN(.F.)
END
 

Re: Accesar a las tablas tipo SQL

Posted: Tue Nov 03, 2020 2:37 pm
by ACC69
leandro wrote:Aqui otra manera de conectarse

Code: Select all

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

oCnMsq:ConnectionString:="Driver={SQL Server};"+;
                        "Server=SERVER;"+;
                        "Database=mydbase;"+;
                        "Uid=SA;"+;
                        "Pwd=miclave;"
TRY
  oCnMsq:Open()
CATCH oError
  MsgStop( "No pude abrir la conexión para crear las tablas !", "Error de datos")
  RETURN(.F.)
END
 

Hola buenos dias gracias a ambos al Ing. Artu01 y al ing. Leandro por sus amables ejemplos, lo adaptare a mi necesidad y lograr conectarme.

Saludos y buen dia!

Atte: Adriano C. C.