Accesar a las tablas tipo SQL

Post Reply
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Accesar a las tablas tipo SQL

Post 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.
User avatar
Rick Lipkin
Posts: 2397
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Accesar a las tablas tipo SQL

Post 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
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Re: Accesar a las tablas tipo SQL

Post 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.
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Re: Accesar a las tablas tipo SQL

Post 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.
artu01
Posts: 306
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: Accesar a las tablas tipo SQL

Post by artu01 »

Adriano
me parece que tienes que agregarlo desde el sql management studio, presiona attach y selecciona tu archivo .mdf
Image
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Re: Accesar a las tablas tipo SQL

Post 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
artu01
Posts: 306
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: Accesar a las tablas tipo SQL

Post 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()
 
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:

Re: Accesar a las tablas tipo SQL

Post 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
 
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Re: Accesar a las tablas tipo SQL

Post 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.
Post Reply