目前我不知道如何从NTEXT
SQL Server 中的列获取值到 navision 中的 XML 文件。我尝试了很多方法,但它们都不起作用。
这是我迄今为止的尝试:
PROCEDURE ExportProdInfo@10();
VAR
shortDesc@1001 : Text[1000];
longDesc@1002 : BigText;
metaDesc@1003 : Text[1000];
xmlText@1004 : Text[200];
tmpText@1005 : Text[200];
BEGIN
//
// Get the product information directly from database then export to xml file
//
xmlDOM.loadXML('</xml>');
xmlNode := xmlDOM.createNode('element', 'sampleFile', 'namespace');
IF ISCLEAR(ADOrs[1]) THEN
CREATE(ADOrs[1]);
QueryString :=
'SELECT TOP 1 ProdOptProdNumber, ProdOptLongDescription, ProdOptShortDescription, ProdOptMetaDescription FROM ProductOption';
MakeVars;
ADOrs[1].Open(Ascii2Ansi(QueryString),ADOConn,OpenMethod,LockMethod);
IF NOT ADOrs[1].EOF THEN REPEAT
//XmlDOM.save('C:\testXML.xml');
shortDesc := GetFieldStr('ProdOptShortDescription');
//longDesc.ReadGetFieldStr('ProdOptLongDescription');
metaDesc := GetFieldStr('ProdOptShortDescription');
tmpBigText.GETSUBTEXT(tmpText, 0, 10);
MESSAGE(tmpText);
ADOrs[1].MoveNext;
UNTIL ADOrs[1].EOF;
CLEAR(ADOrs[1]);
END;
PROCEDURE GetFieldStr@13(FieldName@1048200 : Text[1024]) RetVal : Text[1024];
VAR
tmpText@1001 : Text[250];
pos@1002 : Integer;
numberOfByte@1003 : Integer;
BEGIN
pos := 1;
ADOStream.Type := 2; // text mode
ADOStream.Open;
ADOStream.WriteText(ADOrs[1].Fields.Item(FieldName).Value);
xmlNode.nodeTypedValue := ADOStream.Read();
ADOStream.Close;
END;
我的问题是:如何将NTEXT
SQL Server 中的变量值获取到 Navision 中的 xmlNode?
错误是:.. is not allowed in this context