Abrir tabla de SQL Server

[Fernando López]

Buenos días,

tengo una base de datos tipo mdb desde la cual necesito acceder vía código a
una base de datos SQL.

Lo que necesito hacer es que cuando en desde un formulario de access creo un
nuevo registro o lo modifico, debo actualizar una base de datos SQL que es
la que está visible en Internet.

Mi servidor SQL se llama Artemis y la base de datos Candidatos. Dentro de
esta base de datos tengo una tabla llamada Usuarios que es a la que tengo
que tener acceso para crear un nuevo registro en el caso de no existir o
modificarlo si ya existe.


Muchas gracias.

Fernando López
Madrid

[Javier Terán González]

Buenas tardes.
pues vinculala al access por odbc.

Crea una DSN de sistema desde el panel de datos odbc donde esté la BBDD
access con la configuración del sqlserver y después vete al access, abrir y
vincular desde origenes de datos ODBC


Un saludo.

Post by Fernando López
Buenos días,
tengo una base de datos tipo mdb desde la cual necesito acceder vía código
a una base de datos SQL.
Lo que necesito hacer es que cuando en desde un formulario de access creo
un nuevo registro o lo modifico, debo actualizar una base de datos SQL que
es la que está visible en Internet.
Mi servidor SQL se llama Artemis y la base de datos Candidatos. Dentro de
esta base de datos tengo una tabla llamada Usuarios que es a la que tengo
que tener acceso para crear un nuevo registro en el caso de no existir o
modificarlo si ya existe.
Muchas gracias.
Fernando López
Madrid

[Antonio Ortiz]

Asumiendo que tienes abiertos los puertos TCP 1433 y UDP 1434 (utilizados
por defecto en SQL Server), en el servidor y que cuentas con un usuario y
password, puedes colocar el codigo siguiente en el evento 'Despues de
Actualizar' o que creas mas conveniente.

Dim Cnx As New ADODB.Connection
Dim R As New ADODB.Recordset

Cnx.Open "Provider=SQLOLEDB;Data Source=IP;Initial Catalog=Candidatos;User
ID=tu_usuario;Password=tu_password;
If(Cnx.State = Adstateopen) Then
'Busca el cliente que coincide por nombre, se supone que es el criterio
de busqueda
R.Open "Select * From Usuarios Where Nombre = '" & Me!Nombre & "'", Cnx,
adOpenKeyset, adLockOptimistic
If(R.Eof) Then
'NO Existe, dar de alta usuario
Else
'Ya existe, modificarlo
R.Update
End If
If(R.State=AdstateOpen) then R.Close
Cnx.Close
End if
Set R = Nothing
Set Cnx = Nothing

* Se asume que 'tu_usuario' es el nombre de usuario con el que tienes acceso
a la base de datos y por supuesto cambiaras 'tu_password' por el
correspondiente.
. El codigo no fue probado, si tienes algun problema indicalo para poder
ayudarte.


Suerte,

Antonio Ortiz
asesor en sistemas
www.aortiz.net
www.progvisual.com

Post by Fernando López
Buenos días,
tengo una base de datos tipo mdb desde la cual necesito acceder vía código
a una base de datos SQL.
Lo que necesito hacer es que cuando en desde un formulario de access creo
un nuevo registro o lo modifico, debo actualizar una base de datos SQL que
es la que está visible en Internet.
Mi servidor SQL se llama Artemis y la base de datos Candidatos. Dentro de
esta base de datos tengo una tabla llamada Usuarios que es a la que tengo
que tener acceso para crear un nuevo registro en el caso de no existir o
modificarlo si ya existe.
Muchas gracias.
Fernando López
Madrid

[Fernando López]

Gracias a los dos,

me pongo en ello ...

Post by Fernando López
Buenos días,
tengo una base de datos tipo mdb desde la cual necesito acceder vía código
a una base de datos SQL.
Lo que necesito hacer es que cuando en desde un formulario de access creo
un nuevo registro o lo modifico, debo actualizar una base de datos SQL que
es la que está visible en Internet.
Mi servidor SQL se llama Artemis y la base de datos Candidatos. Dentro de
esta base de datos tengo una tabla llamada Usuarios que es a la que tengo
que tener acceso para crear un nuevo registro en el caso de no existir o
modificarlo si ya existe.
Muchas gracias.
Fernando López
Madrid