Executing Web Service

Question

Hai,
I am A.Mohammed Rafi working in Adobe Live Cycle Designer 7.0
I designed a form using Adobe Live Cycle Designer 7.0 and installed the SOAP listener in the web server.
Next using WSDL connection method I connected in Adobe using a WSDL file located in the web server and after connecting the fields are populated and displayed in the data view.
A button is also populated which is given by Adobe to execute the web service.
But when the button is executed there is no reponse from Adobe form in calling the web service because there is no communication established between the SOAP listener and the Adobe forms.
Please let me know how to establish the connection from Adobe forms to SOAP listener.
Please let me know the website where sample webservices are available for download for learning purpose.
Expecting your reply soon.
Thanks & Regards,
A.Mohammed Rafi.
Mobile : [phone]

Answer 1

Below is a part of the code in the webservice:
set noId as 1 and txrAktivitet = "Hämta"
You will get the customer 1 data.
This is the code in designer
if (noId.rawValue != null){
try{
txrAktivitet.rawValue = "Hämta"
var a = xfa.connectionSet.Namn.execute(0);
catch(e){app.alert("Ej ansluten till internet eller fel version av Acrobat!");
this is the code in the webservice:
Public Function Kund(ByVal txrAktivitet As String, ByVal noId As String, ByVal txtNamn As String, ByVal txtAdress As String, ByVal txtPadress As String, ByVal txtTel As String, ByVal txtEpost As String) As String
Dim SQLExpr As String
SQLExpr = "SELECT NoId, txtNamn, txtAdress, txtPadress, txtTel, txtEpost FROM Kund where NoId=" & noId
Rs.Open(SQLExpr, cnn, 3, 3)
If txrAktivitet = "Hämta" Then
If Rs.RecordCount = 0 Then
KundResult = "0;;;KundNr Saknas;;; ;;; ;;; ;;; ;;;"
Else
KundResult = Rs.Fields("NoId").Value & ";;;" & Rs.Fields("txtNamn").Value & ";;;" & Rs.Fields("txtAdress").Value & ";;;" & Rs.Fields("txtPadress").Value & ";;;" & Rs.Fields("txtTel").Value & ";;;" & Rs.Fields("txtEpost").Value & ";;;"
End If
Return KundResult
End If
If txrAktivitet = "Spara" Then
Rs.Fields("txtNamn").Value = txtNamn
Rs.Fields("txtAdress").Value = txtAdress
Rs.Fields("txtPadress").Value = txtPadress
Rs.Fields("txtTel").Value = txtTel
Rs.Fields("txtEpost").Value = txtEpost
Rs.Update()
KundResult = noId & ";;;" & txtNamn & ";;;" & txtAdress & ";;;" & txtPadress & ";;;" & txtTel & ";;;" & txtEpost & ";;;"
Return KundResult
End If
If txrAktivitet = "Ny" Then
Rs.AddNew()
Rs.Fields("txtNamn").Value = txtNamn
Rs.Fields("txtAdress").Value = txtAdress
Rs.Fields("txtPadress").Value = txtPadress
Rs.Fields("txtTel").Value = txtTel
Rs.Fields("txtEpost").Value = txtEpost
Rs.Update()
Rs.MoveLast()
noId = Rs.Fields("noId").Value
KundResult = noId & ";;;" & txtNamn & ";;;" & txtAdress & ";;;" & txtPadress & ";;;" & txtTel & ";;;" & txtEpost & ";;;"
Return KundResult
End If
If txrAktivitet = "Radera" Then
Rs.Delete()
KundResult = "0;;; ;;; ;;; ;;; ;;; ;;;"
Return KundResult
End If
If txrAktivitet = "Kunder" Then
Rs.Close()
SQLExpr = "SELECT NoId, txtNamn, txtAdress, txtPadress, txtTel, txtEpost FROM Kund order by txtNamn desc"
Rs.Open(SQLExpr, cnn, 3, 3)
Do While Not Rs.EOF
KundResult = KundResult & CStr(Rs.Fields("noId").Value) & " " & Rs.Fields("txtNamn").Value & ";;;"
Rs.MoveNext()
Loop
Return KundResult
End If
Rs.Close()
cnn.Close()
End Function