Access - VALOR EN CAMPO

   
Vista:

VALOR EN CAMPO

Publicado por EDUARDO (122 intervenciones) el 03/11/2008 19:15:58
estimados, tengo una tabla con 2 millones de registros y tengo un campo llamado region que quiero poblar (tiene los 2 millones de registros vacios)
Este poblamiento debe ser aleatorio con valores que van desde 1 a 15
alguien podria darme una idea

gracias de antemano por la ayuda
saludos desde Chile

Eduardo
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

RE:VALOR EN CAMPO

Publicado por Abraham Valencia (71 intervenciones) el 05/11/2008 15:46:24
Hola Eduardo. Despues de tiempo que te veo por LWP. Ya no "vas" mucho al foro de excel amigo :)

Bueno, espero esto se entienda, no se sea lo idoneo, pero te funcionara, eso si, suponiendo que los registross de tu "campo1" son diferentes

Dim rcst1 As ADODB.Recordset, rcst2 As ADODB.Recordset
Dim Sql1$, Sql2$
Dim RecordS() As Variant
Dim numeroaleatorio As Integer
Dim x As Long

Set rcst1 = New ADODB.Recordset
Set rcst2 = New ADODB.Recordset

Sql1$ = "Select * From Tabla2"

With rcst1
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql1$, CurrentProject.Connection, , , adCmdText
End With

RecordS = rcst1.GetRows

For x = 0 To rcst1.RecordCount - 1

numeroaleatorio = Int(Rnd * 15)

If numeroaleatorio = 0 Then
numeroaleatorio = 1
End If

Sql2$ = "update Tabla2 set Tabla2.Campo2=" & numeroaleatorio & " where Tabla2.Campo1='" & RecordS(0, x) & "'"

With rcst2
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql2$, CurrentProject.Connection, , , adCmdText
End With

Next

Set rcst1 = Nothing
Set rcst2 = Nothing

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar