Visual Basic - Agregar Multiples registros con ADODB

Life is soft - evento anual de software empresarial
   
Vista:

Agregar Multiples registros con ADODB

Publicado por Harol (1 intervención) el 03/04/2012 18:46:56
Yo tengo 2 tablas.... nesecito agregar los datos de una tabla en la otra tabla dependiendo de unos parametros... (si el estado = Activo) ahora yo hize un ciclo para que recorra la primera tabla y busque cuales estan activos... Pero al momento de agregar Muestra Un error que dice "Los cambios solicitados en la tabla no se realizaron correctamente porque crearian valores duplicados" aki les dejo el codigo Les agradezco q me colaboren.

If rs2.RecordCount <> 0 Then
rs2.MoveFirst
While rs2.EOF = False
If rs2("Mes") = DT1.Month And rs2("Año") = DT1.Year And rs2("Codigo_Contratista") Then
Exit Sub
End If
rs2.MoveNext
Wend
End If
If rs.RecordCount <> 0 Then
If DT1.Day = 1 Then
rs2.Close
Set rs2 = Nothing
rs2.Open "select * from Empleados2", cn, adOpenStatic, adLockOptimistic
rs.MoveFirst
While rs.EOF = False
If rs("Estado") = "Activo" Then
rs2.AddNew
rs2("Cedula") = rs("Cedula")
rs2("Nombres") = rs("Nombres")
rs2("Apellidos") = rs("Apellidos")
rs2("Estado") = "Activo"
rs2("ARP") = rs("ARP")
rs2("EPS") = rs("EPS")
rs2("Mes") = DT1.Month
rs2("Año") = DT1.Year
rs2.Update
End If
rs.MoveNext
Wend
End If

MsgBox "Se Ha Actualizado el listado al mes " & DT1.Month & " del " & DT1.Year, vbInformation, "Coinses ARP"
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder