Duda sobre CursorAdapters??

Hola Amigos Foxeros , segun este codigo que utiliza CursorAdapters
para consultar ...

mi pregunta es puedo utiizar este mismo codigo para grabar y
eliminar con solo cambiar la consulta en vez de Select a Insert o
Delete..???


CLEAR
CLOSE TABLES ALL
LOCAL lcServer,; &&Nombre o Direccion IP del Servidor
lcCatalog,; &&Catalogo Inicial (Base de Datos)
loConnection,; &&Variable conteniendo la Conexion ADO
loRecordSet,; &&Variable que recibo el RecordSet resultando
loCursorAdapter &&Objeto CursorAdapter

lcServer = "10.10.10.248"
lcCatalog = "Predial"
** Creamos la cadena de conexión
TEXT TO lcConnString NOSHOW TEXTMERGE PRETEXT 8
Provider=SQLOLEDB.1;Integrated Security=SSPI;Network LibraryÛMSSOCN;
Persist Security Info=False;Initial Catalog=<<lcCatalog>>;Data
Source=<<lcServer>>
ENDTEXT
TRY
** Creamos y abrimos la conexión ADO
loConnection = CREATEOBJECT("ADODB.Connection")
loConnection.Open(lcConnString)
** Ejecutamos la consulta
lcQuery = "SELECT clave,propietario,domicilio FROM predios WHERE clave
like '999%'"
loRecordSet = loConnection.Execute(lcQuery)

** Creamos el objeto Cursor Adapter
loCursorAdapter = CREATEOBJECT("CursorAdapter")
** Asignamos el nombre del cursor
loCursorAdapter.Alias="cPredios"
** Asignamos el tipo de datos que recibirá
loCursorAdapter.DataSourceType="ADO"
** Convertimos el RecordSet a un cursor de VFP
?loCursorAdapter.CursorFill(,,,loRecordSet)
** Desincorporamos el cursor, de el objeto CursorAdapter
?loCursorAdapter.CursorDetach()
browse
CATCH TO loError
MESSAGEBOX(loError.Message)
ENDTRY

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa