Necesito una consulta Sobre Do While Not Object.EOF

xanders
17 de Agosto del 2005
Hola a todos :

Tengo esta situacion, estoy trabajando con unos records q obtengo de una Base de Datos de SQL y cuando esta procesando los records en un Do While el programa se congela completamente la forma se pone en blanco pero sigue trabajando con la consulta de los datos hasta q ternima pero no me muestra ningun progreso en la pantalla

Esto es la parte donde se queda el Do While y se me congela la Forma:

Gracias por la Atencion Prestada

Do While Not objrstPry.EOF
studnum = objrstPry("studnum_code")
lblCurrent.Caption = "Current Record: " & BarCount


strSQL = "SELECT * FROM StudentID_Dat " & _
" WHERE NumEstudiante ='" & studnum & "'" & _
" ORDER BY NumEstudiante "

If objrstRef.State = 1 Then objrstRef.Close
objrstRef.Open strSQL, ServerCnx, adOpenKeyset, adLockOptimistic

If objrstRef.EOF Then

If Not objrstPry!exportid_str = "Y" Then
'para Sacar el numero de barcode del numero de estudiante
StudBarCode = Mid(objrstPry!studnum_code, 2, 1)
StudBarCode = StudBarCode + Mid(objrstPry!studnum_code, 5, 1)
StudBarCode = StudBarCode + Mid(objrstPry!studnum_code, 9, 2)
StudBarCode = StudBarCode + Mid(objrstPry!studnum_code, 12, 4)

With objrstRef
.AddNew
!Nombre = Trim(objrstPry!name_str) & " " & IIf(IsNull(objrstPry("maiden_str")), "", Trim(objrstPry("maiden_str") & "."))
!Apellidos = Trim(objrstPry!paterno_str) & " " & Trim(objrstPry!materno_str) & ","
!numestudiante = Trim(objrstPry!studnum_code)
!NumEstBarCode = Trim(StudBarCode)
!YearDate = Mid(objrstPry!studnum_code, 7, 4)
.Update
End With

'Escribimos en la tabla de Adm_admission_dat que ya lo Añadimos
With objrstPry
!exportid_str = "Y"
.Update
End With

End If
End If
objrstPry.MoveNext
BarCount = BarCount + 1
pbrProgreso.Value = BarCount
Loop