>>>CREATE PROCEDURE Cusdetails @cCustomerID nchar(5) AS >>>SELECT Customers.CustomerID, ContactName, CompanyName, >>> Orders.OrderID, OrderDate >>>FROM Customers, Orders >>>WHERE Customers.CustomerID = Orders.CustomerID >>>AND Customers.CustomerID = @cCustomerID >>>ORDER BY Orders.OrderID >>>FOR XML AUTO >>>GO >>> >>> >>>lnHandle = ... >>>m.customerID = 'BONAP' >>>SQLExec(lnHandle, 'Exec CusDetails ?customerID','SPResult') >>>Returns just one row with one field.
>Select spResult >lcXML = '<?xml version = "1.0" encoding="Windows-1252"'+; > ' standalone="yes"?><root>' >Scan > lcXML = lcXML + Evaluate(Field(1)) >EndScan >lcXML = lcXML + '</root>' >_cliptext = m.lcxml >Cetin