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