Access update Sql server
Publicado por Lugochan (3 intervenciones) el 17/11/2011 18:06:43
Buenas tardes
Llevo todo el día dándole vueltas y no encuentro la forma de conectar un access 2007 a un sql server 2008
y luego actualizar unos datos en un registro.
Si fuerais tan amables de indicarme donde me equivoco. Muchas Gracias.
Option Compare Database
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Act_Mat_Click()
' La conexión a la base de datos
Set cn = New ADODB.Connection
' Para la cadena de selección
Dim sSelect As String
' Para una base de datos normal:
'sSelect = "SELECT * FROM authors"' adOpenDynamic
cn.Open "Provider=SQLNCLI; " & _
"Initial Catalog=ifex; " & _
"Data Source=(xxxxxx)\SQLEXPRESS; " & _
"integrated security=SSPI; user id = xxxxx; password = xxxx"
' El recordset para acceder a los datos
Set rs = New ADODB.Recordset
sSelect = "Update clientes_articulos set peso_total_original = '" & FormatNumber(peso.Value, 2) & "' where matricula=" & idmatricula.Value & " " ', NewConnection, 3'
rs.Open sSelect, cn, adOpenDynamic
rs.Close
cn.Close
End Sub
Llevo todo el día dándole vueltas y no encuentro la forma de conectar un access 2007 a un sql server 2008
y luego actualizar unos datos en un registro.
Si fuerais tan amables de indicarme donde me equivoco. Muchas Gracias.
Option Compare Database
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Act_Mat_Click()
' La conexión a la base de datos
Set cn = New ADODB.Connection
' Para la cadena de selección
Dim sSelect As String
' Para una base de datos normal:
'sSelect = "SELECT * FROM authors"' adOpenDynamic
cn.Open "Provider=SQLNCLI; " & _
"Initial Catalog=ifex; " & _
"Data Source=(xxxxxx)\SQLEXPRESS; " & _
"integrated security=SSPI; user id = xxxxx; password = xxxx"
' El recordset para acceder a los datos
Set rs = New ADODB.Recordset
sSelect = "Update clientes_articulos set peso_total_original = '" & FormatNumber(peso.Value, 2) & "' where matricula=" & idmatricula.Value & " " ', NewConnection, 3'
rs.Open sSelect, cn, adOpenDynamic
rs.Close
cn.Close
End Sub
Valora esta pregunta


0