Falla muy extraña
Publicado por Fernando (16 intervenciones) el 16/08/2011 14:23:41
Estimado tengo este codigo que funcionaba muy bien y de repente empezo a fallar, a tal extremo que como es el incio del proyecto provoa un error y se cierra la aplicacion, todo esto haciendo pruebas desde el editor de VB6, a continuacion dejo el codigo:
Private Sub Form_Load()
Data1.DatabaseName = "C:\GCSFM\Slot.mdb"
Data1.RecordSource = "Select Nombre from Pilotos"
Data1.Refresh
Do While Not Data1.Recordset.EOF
vntTemp = Data1.Recordset!Nombre
If IsNull(vntTmp) Then vntTemp = ""
List1.AddItem CStr(vntTemp)
Data1.Recordset.MoveNext
Loop
List1.DataField = ""
List1.DataField = "Nombre"
End Sub
Al depurar linea por linea pude ver que la falla se presenta en la linea Data1.Refresh, que provoca directamente un erro fatal y cierra el editor de VB.
La verdad no entiendo nada. por que estaba funcionando bien y de repente empezo a fallar, es mas otras aplicaciones que usan el mismo codigo y de la misma forma funcionan a la perfeccion......
Saludos.
Private Sub Form_Load()
Data1.DatabaseName = "C:\GCSFM\Slot.mdb"
Data1.RecordSource = "Select Nombre from Pilotos"
Data1.Refresh
Do While Not Data1.Recordset.EOF
vntTemp = Data1.Recordset!Nombre
If IsNull(vntTmp) Then vntTemp = ""
List1.AddItem CStr(vntTemp)
Data1.Recordset.MoveNext
Loop
List1.DataField = ""
List1.DataField = "Nombre"
End Sub
Al depurar linea por linea pude ver que la falla se presenta en la linea Data1.Refresh, que provoca directamente un erro fatal y cierra el editor de VB.
La verdad no entiendo nada. por que estaba funcionando bien y de repente empezo a fallar, es mas otras aplicaciones que usan el mismo codigo y de la misma forma funcionan a la perfeccion......
Saludos.
Valora esta pregunta


0