Conexion ADO - DSN de Sistema

25/07/2003 - 18:57 por Estrella Negra | Informe spam
Buenas.

Como hago para configurar en los clientes Windows XP y en
el Server Windows 2000, una conexion ADO, ADOX, DAO, etc.
definiendo el DSN de sistema en cada cliente y en el
server, si es que es asi. Tengo windows 2000 Server con
IIS 5.1 y base de datos en access llamada automovil.mdb y
deseo realizar una intranet bajo ASP.

Gracias de antemano

Preguntas similare

Leer las respuestas

#1 Softjaen
27/07/2003 - 17:34 | Informe spam
"Estrella Negra" escribió:

Como hago para configurar en los clientes Windows XP y en
el Server Windows 2000, una conexion ADO, ADOX, DAO, etc.
definiendo el DSN de sistema en cada cliente y en el
server, si es que es asi.



Hola, Estrella:

No entiendo muy bien el contenido de tu mensaje.

Si en el servidor Server Windows 2000 ya tienes creado y debidamente
configurado un origen de datos (DSN) de sistema, entiendo que en los equipos
clientes con Windows XP no tienes que configurar nada, porque un origen de
datos de sistema es local para el equipo donde se encuentre configurado y
cualquier usuario con los permisos apropiados puede tener acceso al DSN de
sistema.

Si deseas que la aplicación que se ejecuta en los equipos cliente se conecte
con el origen de datos de sistema, simplemente deberas de utilizar el
proveedor de datos OLEDB para ODBC de Microsoft, y especificar en la cadena
de conexión el nombre del origen de datos (DSN).

El siguiente ejemplo, escrito con Visual Basic, establece una conexión con
el origen de datos de sistema llamado «Ejemplo_DSN_Sistema», al cual se le
ha indicado la ruta de acceso al archivo de información de grupos de
trabajo (archivo «System.mdw») a fin de validar la cuenta de usuario y su
respectiva contraseña:

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

' Configuramos la conexión
Set cnn = New ADODB.Connection
With cnn
.Provider = "MSDASQL.1"
.ConnectionString = "Data Source = Ejemplo_DSN_Sistema;" & _
"User Id = Estrella;" & _
"Password = 1234"
' Abrimos la conexión
.Open
End With

' Creamos un nuevo objeto Recordset
Set rst = New ADODB.Recordset
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
' Abrimos una tabla de la base de datos
.Open "Tabla1", cnn, , , adCmdTable
End With

En fin, es lo que he entendido de tu mensaje.

Un saludo.

Enrique Martínez
[MS MVP - VB]
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida