Numero correlativo utilizando ADO

Te falta oRs.Edit

IdCodigo = 0
IF !Rs.eof()
oRs.Edit && aqui en esta parte
IdCodigo = Rs.Fields(1).value + 1
Rs.Fields(1).Value = IdCodigo
Rs.Update()
ENDIF

Pruebalo y nos avisas

Saludos !

Steven Mera.

Este artículo de la MSKB te ayudará, es código VBS en una página ASP, pero

pasas fácilmente a VFP:

http://support.microsoft.com/kb/316910


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Darwin Quintero" escribió en el mensaje
news:%23j6sa%
> Amigos
> Saludos
>
> Tengo estas instrucciones para llevar un unico correlativo:
>
> Lparameters xTabla
>
> #Define AdOpenKeySet 1
> #Define AdLockOptimistic 3
> #Define AdCmdText 0x0001
>
> LOCAL Cn, Rs, mSql, IdCodigo
>
> Cn = CREATEOBJECT("ADODB.Connection")
> Rs = CREATEOBJECT("ADODB.RecordSet")
>
> Cn.Open("Provider=VFPOLEDB.1;Data Source=D:\Sistema\odbc\Datos.dbc")
>
> xSql = "Select * From Contadores Where tabla ='"+xTabla+"'"
>
> Rs.Open(xSql,Cn,AdOpenKeySet,AdLockOptimistic,AdCmdText)
>
> IdCodigo = 0
> IF !Rs.eof()
> IdCodigo = Rs.Fields(1).value + 1
> Rs.Fields(1).Value = IdCodigo
> Rs.Update()
> ENDIF
>
> Rs.Close()
> Cn.Close()
> Release Rs, Cn
> RETURN IdCodigo
>
> En la instruccion:
>
> Rs.Fields(1).Value = IdCodigo
>
> Me da un error me dice que el Objeto o Proveedor no puede ejecutar la
> intruccion requerida.
>
> Algun comentario sobre el error, trabajo con Vfp7
>
> Darwin Quintero
> Venezuela
>
>