PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Web Services re-run problem
Web Services re-run problem
Débuté par Patrizio Vaccari, 22 juin 2005 19:17 - Aucune réponse
#1
Posté le 22 juin 2005 - 19:17
Working with IIS 5.1, Superbase ODBC Driver, Windev 8 US,

First Execution of my webservices method runs correctly,
second one don't run because IIS does not answer.

In my opinion, SQLClose() e/o SQLDisconnect() function don't work correctly and don't release IIS resources.

-------------------------------------------------------------------------------
This is the windev service code:
-------------------------------------------------------------------------------
PROCEDURE PUBLIC GLOBAL Test(esci is string)

IF SQLConnect("PPCSANA", "", "", "", "ODBC") = 0 THEN
RESULT "Errore di connessione."
END

risultato is string

IF NOT SQLExec(" Select CODICE_CM, DESCR_CM From FACOMUNI where CODICE_CM ='036023' ", "qrycom") THEN
SQLInfo("qrycom")
msg is string = SQL.MesError
SQLClose("qrycom")
RESULT "Query errata: " + msg
END

IF SQLFetch("qrycom") = 0 THEN
risultato=SQLGetCol("qrycom", 2)
ELSE
risultato= "Nessun risultato"
END

SQLClose("qrycom")
SQLDisconnect()

RESULT risultato


-------------------------------------------------------------------------------
The same webservices written in .ASP runs correctly (see code below):
-------------------------------------------------------------------------------
<%
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "DSN=PPCSANA"

set rs = createobject("ADODB.Recordset")
rs.Open "Select * from facomuni where CODICE_CM ='036023'", cn

dim s
Do While Not rS.EOF
s = s & rs("CODICE_CM") & " - " & rs("descr_cm")
rs.MoveNext
Loop
rs.Close

response.write(now & " - " & s)

cn.close
set cn = nothing
%>


Can anyone help me?


Datagraph S.r.l
Patrizio Vaccari
→ Revenir à WINDEV 2024