Como crear DNS con Base de datos Acces mediante codigo

On Fri, 29 Jul 2005 04:37:11 -0700, "Hector Quiñones"
wrote:

Hola foro:
Por favor si pueden orientarme para crear un DNS con una base de datos de
Acces y luego eliminar este DNS.
El uso es que debo entregar un medio magnetico (disket o memory USB) con
un ejecutable y tablas para que carguen fuera de red, y creo conveniente
entregar en base de datos Acces para poder dar algo de seguridad con un
pasword.
Hector

Simplemente no uses un DSN y te resuelves el problema.

http://fox.wikis.com/wc.dll?Wiki~ProgrammaticallyCreatingDSNs
http://fox.wikis.com/wc.dll?Wiki~VFPCommandSQLStringConnect
http://www.carlprothman.net/Default.aspx?tabid
http://www.carlprothman.net/Default.aspx?tabid‡#OLEDBProviderForMicrosoftJet



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

Hola Hector...

me imagino que te refieres a un DSN (Data Source Name), bien lo que te
recomiendo es que en tu programa pincipal crees la cadena de conexion al
abase de datos access, y todas las consultas las hagas usando el "handle"
que te devuelva la conexion. Esto hace que no tengas que crear el DSN,
pues cada que se ejecuta el programa se conecta a la base de datos a
traves de la cadena de conexion, y evidentemente, al salir del programa,
la conexion se cierra. Un ejemplo de esto

**********************************************************
* se conecta a la base de daros de ACCESS

cCadConnDSN = "DRIVER=Driver do Microsoft Access (*.mdb);" ;
+ "UID=admin;" ;
+ "DefaultDir="+TuDirectorio+";" ;
+ "DBQ="+TuDirectorio+"\TuBaseDatos.MDB;"

nHanConn = Sqlstringconnect(m.cCadConnDSN)
If .Not. nHanConn > 0
=Messagebox("Error al conectarse a la base de datos de Access",16,'Falla
en la conexion..')
* Rutina de salida
=SQLDISCONNECT(0)
** mas instrucciones para controlar la salida del sistema
quit
endif
*************************************************************
Cuando se logro la conexion, pues ya haces tus consultas usando el valor
de nHanConn. Checa la ayuda de SQLEXEC().

Espero te sirva

Saludos

David



Con Fox, todo se puede !!


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Gracias David, es exactamente lo que estaba buscando, ya lo probe y
funciona bien, solo tuve que agregar:
+ "PWD=mipasword;" ;
Las consultas y actualizaciones los realizo con total normalidad.



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway