Consulta para actualización de data
Publicado por Erick (1 intervención) el 19/04/2019 21:50:55
Estimados
consulta agradeceré puedan revisar el siguiente codigo:
Trato de almacenar los registros de excel y enviarlos a la base de datos access
funciona correctamente pero quisiera que se actualicen los campos modificados tomando en cuenta si ubica el numero de factura almacenada:
este es mi Script.
consulta agradeceré puedan revisar el siguiente codigo:
Trato de almacenar los registros de excel y enviarlos a la base de datos access
funciona correctamente pero quisiera que se actualicen los campos modificados tomando en cuenta si ubica el numero de factura almacenada:
este es mi Script.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Dim cn As Connection
Dim rs As Recordset
Sub Cargar()
'On Error GoTo ex
Dim cn As ADODB.Connection, rs As ADODB.Recordset, N As Long
Dim nrango As String
Set cn = New Connectioncn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=E:\Archivos\Aplicativos Creados\Control_Facturas_Cencosup\Data_Clientes.accdb"
'MsgBox "Conexion correcta", vbInformation, "aviso"
Rpta = MsgBox("¿Seguro que desea cargar los datos?", vbYesNo, "AVISO")
If Rpta = vbNo Then Exit SubSet rs = New ADODB.Recordset
rs.Open "CLIENTES_USER", cn, adOpenKeyset, adLockOptimistic, adCmdTable
N = 9Do While Range("A" & N) <> Empty
With rs
.AddNew.Fields("ID") = Range("A" & N).Value
.Fields("CODIGO") = Range("B" & N).Value
.Fields("CLIENTE") = Range("C" & N).Value
.Fields("RUC") = Range("D" & N).Value
.Fields("DIRECCION") = Range("E" & N).Value
.Fields("DISTRITO") = Range("F" & N).Value
End With
N = N + 1
Loop
With rs
.AddNew.Fields("ID") = Range("A" & N).Value
.Fields("CODIGO") = Range("B" & N).Value
.Fields("CLIENTE") = Range("C" & N).Value
.Fields("RUC") = Range("D" & N).Value
.Fields("DIRECCION") = Range("E" & N).Value
.Fields("DISTRITO") = Range("F" & N).Value
End With
Set rs = Nothingcn.CloseValora esta pregunta
0