در واقع ارتباط با وب سرویس در اکسس از بعد فنی کار ساده ای هست و چند خط کد هم بیشتر نیاز نداره ولی باید خودتون نتایج دریافتی رو تفسیر کنین
قبل از هر چیز باید رفرنس MSXML2.XMLHTTP60 رو اضافه کنین. ممکنه برای شما بجای ورژن 6 ورژن 4 باشه
اول باید درخواست رو به همون فرمتی که بهتون معرفی شده بصورت یک استرینگ بسازین.
برای شما فرمت درخواست و پاسخ در آدرس زیر مشخص شده
http://darman.tamin.ir/Webservice/Ap...p=Save_Request
DIM XM AS STRING
XM="<?xml version=""1.0"" encoding=""utf-8""?>"
XM=XM+"....."
.....
.....
.....
XM=XM+"</soap12:Envelope>"
و حالا ارسال درخواست
CONST WSURL AS STRING="http://darman.tamin.ir/Webservice/ApplyParNoteWebService.asmx"
DIM XML_HTTP AS NEW MSXML2.XMLHTTP60
XML_HTTP.OPEN "POST", WSURL, FALSE
XML_HTTP.SETREQUESTHEADER "HOST", "DARMAN.TAMIN.IR"
XML_HTTP.SETREQUESTHEADER "CONTENT-TYPE", "application/soap+xml; charset=utf-8"
XML_HTTP.SETREQUESTHEADER "SOAPACTION", "http://tempuri.org/Save_Request"
XML_HTTP.SEND XM
اگر همه چیز روبراه باشه وضعیت ابجکت ما 200 خواهد بود یعنی OK
DIM XML_DOC AS NEW MSXML2.DOMDOCUMENT60
IF XML_HTTP.STATUS= 200 THEN
XML_DOC.LOADXML XML_HTTP.RESPONSETEXT
....
'پردازش XML_DOC برای استخراج نتایج
....
ELSE
....
'پردازش خطا
....
ENDIF
نوشته شده توسط mazoolagh
پاسخ با نقل قول