Konu: Xml to Cursor
Selamlar;
Elimde başka bir program oluşturduğu bir xml dosyası var( ek dosyada g04.xml). Bunu cursor e çevirmek istiyorum.
Araştırmalarım sonucunda;
xml den xsd oluşturdur. (ek dosya new_g04.xsd) http://www.flame-ware.com/products/xml- … fault.aspx
Aşağıdaki kod ile cursor oluşturabileceğimi anladım. Ancak 2. cursor den sonra hata veriyor. (2097 "XMLTable object does not have associated fields.")
Mümkünse XML i xsd oluşturmadan nasıl cursor e çevirebilirim.
Veya aşağıdaki koddaki hata mesajını nasıl geçebilirim.
Şimdiden teşekkürler.
LOCAL loAdapter as XMLAdapter
loXMLAdapter = CREATEOBJECT("XMLAdapter")
jcFile = GETFILE('XML', 'Browse to locate the XML file')
jcXSDFile = GETFILE('XSD', 'Browse to locate the SCHEMA file')
loXMLAdapter.XMLSchemaLocation = jcXSDFile
*loXMLAdapter.RespectNesting = .T.
IF loXMLAdapter.LoadXML(M.jcFile, .T., .T.)
? "The Number of Tables Read is " + TRANSFORM(loXMLAdapter.Tables.Count)
IF loXMLAdapter.Tables.Count > 0
FOR jnIndx = 1 TO loXMLAdapter.Tables.Count
? "Table " + LTRIM(STR(M.jnIndx)) + ": " + loXMLAdapter.Tables[M.jnIndx].Alias
loXMLAdapter.Tables.Item[M.jnIndx].ToCursor() && burada 2097 "XMLTable object does not have associated fields."
BROWSE
ENDFOR
ENDIF
ENDIF
loXMLAdapter = .NULL.
RETURN