Como Grabar con el CursorAdapters ?

Denis Guido
03 de Marzo del 2004
Saludos Amigos Foxeros, De esta manera Consulto utilizando el
CursorAdapters, lo que no he podido es grabar y eliminar , he probado
poner el codigo de grabar en este evento pero no me funciona , me gustaria
saber como puedo hacerlo ..

En este BeforeOpenTAbles colocal esta lineas :
PUBLIC lopen
lopen=.f.



Codigo Para consultar Datos:


Poseciónate en el cursor1 (objeto cursoradapter), clik derecho y en la
pestaña Data, busca la propiedad CursorSchema
y colocas companyname c(50). Luego busca en la pestaña Methods y busca
CursorFill y de das doble click y coloca este

lparameters tlUseCursorSchema, tlNoData, tuOptions, toSource
TRY
IF lopen=.t.
This.DataSourceType="ODBC"
This.DataSource =;
sqlstringconnect('Driver={Sql
Server};Server=localhost;Database=NorthWind;Int Security;')
This.SelectCmd=;
"select companyname from customers where customerID="+
"'"+thisform.text1.value+"'"
ENDIF

CATCH
ENDTRY

return dodefault(tlUseCursorSchema, tlNoData, tuOptions, toSource)



En el LostFocus del objeto txtcodigo que te mencioné que colocaras en el
form (punto 2) de arriba,
coloca este código:

IF EMPTY(this.value)
NODEFAULT
RETURN
ENDIF

WAIT WINDOW "Espere, buscando información...!" NOWAIT
lopen=.t.
Thisform.Dataenvironment.cursoradapter1.cursorfill()
thisform.text2.Value=cursor1.companyname
WAIT CLEAR

IF EOF()
MESSAGEBOX('No hay datos',0+16,thisform.caption)
this.Value=''
KEYBOARD '{LEFTARROW}'
ENDIF
SQLDISCONNECT(1)
lopen=.f.

En el Unload del form coloca este codigo :
RELEASE lopen
CLOSE TABLES all



De antemano

Muchas Gracias