Prezados amigos foxers,

por que quando eu atacho um cursor vindo de um XML DiffGram o ADO não gera a coluna adobookmark ?

Meu código funciona beleza usando NATIVE E ODBC, mas para ADO diz que atualizou mas não atualizou nada..



*Gero o cursor vindo de um XML Diffgram

X=CREATEOBJECT("XMLAdapter")
X.LoadXML("D:\PABLO\TESTE.XML",.T.)
loTable=x.tables.Item(1)
loTable.ChangesToCursor("curgrupos_usuarios")

* Crio o objeto ca_teste

ca_teste=CREATEOBJECT("CursorAdapter")

LOCAL cStrConn AS String
LOCAL oConn AS "ADODB.Connection"
LOCAL oRS AS "ADODB.Recordset"
LOCAL lc_banco AS String

ca_teste.DataSourceType ="ADO"
ca_teste.Alias ="curgrupos_usuarios"
ca_teste.Tables ="Master_Grupos"
ca_teste.KeyFieldList ="c_id_grupo"
ca_teste.UpdatableFieldList ="c_id_grupo, c_nome_grupo"
ca_teste.UpdateNameList ="c_id_grupo Master_grupos.c_id_grupo, c_nome_grupo Master_grupos.c_nome_grupo"

cStrConn="Provider=SQLOLEDB.1;Data Source=INFOR-PABLO\LOCAL;User Id=sa;Password=sa;Initial Catalog=SIP"


* atacho o cursor vindo do xml ao cursor adapter
ca_teste.CursorAttach("curgrupos_usuarios")

oConn =CREATEOBJECT("ADODB.Connection")
oConn.Open(cStrConn)
oRS =CREATEOBJECT("ADODB.Recordset")
oRS.CursorType = 3 && adCursorStatic
oRS.CursorLocation = 3 && adUserClient
oRS.LockType = 3 && adLockOptimisc
oRS.ActiveConnection = oConn
ca_teste.Datasource = oRS


IF TABLEUPDATE(.T.)
WAIT WINDOW "DIZ QUE SIM"
ELSE
WAIT WINDOW "DIZ QUE NAO"
ENDIF


Obrigado.

Pablo Sollar
Colaborador FoxMinas