--
--
--
--
--
--
Usa cursoradapter
* This script handles the ADO Connection and uses a CursorAdapter object
* to retrieve data to a cursor.
PUBLIC oCA as CursorAdapter
LOCAL oConn as ADODB.Connection
LOCAL oRS as ADODB.Recordset
LOCAL oException AS Exception
LOCAL cConnString
* Handle connections - insert connection code
cConnString = [Provider=SQLOLEDB.1;Data Source=XIMESRV2;Initial Catalog=Ximesa;User ID=mcanchas;Password=MIGCAN10]
TRY
oConn = createobject('ADODB.Connection')
* Ensure that you handle userid and password if not
* specified in connection string.
* ex. oConn.Open(cConnString, userid, password)
oConn.Open(cConnString)
oRS = CREATEOBJECT("ADODB.Recordset")
oRS.DataSource.CursorLocation = 3 &&adUseClient
oRS.DataSource.LockType = 3 &&adLockOptimistic
oRS.ActiveConnection = oConn
oCA=CREATEOBJECT("CursorAdapter")
oCA.DataSourceType = "ADO"
oCA.DataSource = oRS
oCA.MapBinary = .T.
oCA.MapVarchar = .T.
oCA.Alias = "mitabla"
oCA.SelectCmd = "SELECT * FROM mitabla WHERE cia = '01' and dni = '3243243433'"
IF !oCA.CursorFill()
* Replace with error code here
LOCAL laError
DIMENSION laError[1]
AERROR(laError)
MESSAGEBOX(laError[2])
ELSE
* Replace with user code here. Code below allows for
* you to edit and send updates to the backend.
LOCAL laFlds,lcStr,lnFldCount,i
DIMENSION laFlds[1]
lnFldCount=AFIELDS(laFlds)
lcStr=""
FOR i = 1 TO lnFldCount
lcStr = lcStr + laFlds[m.i,1] + ","
ENDFOR
oCA.UpdatableFieldList = lcStr
BROWSE NORMAL NOWAIT
ENDIF
CATCH TO oException
* Replace with exception handling code here
MESSAGEBOX(oException.Message)
ENDTRY
* Add user code here.
* Note: cursors created by CursorAdapter object are closed when object is released.
--
--
--
recordsource mitabla
recordsourcetype 1-alias
te mando un form que puedes analizarlo para ver cómo trabajo y la tabla
--
Hola caterva, gracias por tu ayuda, si me llegaron los archivos a mi correo, perdon por la demora, estuve con mucha carga de trabajo, recien me libero un poco....
Muchas gracias nuevamente, el formulario y el codigo esta muy entendible. Saludos.
--