DBase el Ultimo
Publicado por carlos pulga (136 intervenciones) el 10/04/2007 22:12:06
Tengo un programa y quiero llegar al ultimo registro para hacerle ciertas modificaciones... el detalle es que la BD es DBase y el lenguaje es Visual... mis lineas de codigo son:
Set myset = New ADODB.Recordset
sqllast = "SELECT LAST(noexam) ultimo FROM examen;"
myset.Open sqllast, db, adOpenDynamic, adLockOptimistic
With myset
If Not .EOF Then
!Acobtot = !Acobtot + resto1(i)
!montocheq = !montocheq + resto2(i)
!efectivo = !efectivo + resto3(i)
!cortesia = !cortesia + resto4(i)
newid = CLng(!maximo)
.Update
Else
MsgBox "La base examen.dbf devuelve EOF"
End If
End With
Me sale un mensaje de que Hay demasiaos argumentos... me podrian ayudar?
Set myset = New ADODB.Recordset
sqllast = "SELECT LAST(noexam) ultimo FROM examen;"
myset.Open sqllast, db, adOpenDynamic, adLockOptimistic
With myset
If Not .EOF Then
!Acobtot = !Acobtot + resto1(i)
!montocheq = !montocheq + resto2(i)
!efectivo = !efectivo + resto3(i)
!cortesia = !cortesia + resto4(i)
newid = CLng(!maximo)
.Update
Else
MsgBox "La base examen.dbf devuelve EOF"
End If
End With
Me sale un mensaje de que Hay demasiaos argumentos... me podrian ayudar?
Valora esta pregunta


0