| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Vendredi 6 Août 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Mercredi 18 Août 2010 | Par | Support France |
| Thème | Administration des critères, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmCrit.FaireSQLtoCOMBO |
| Prototype |
| Function FaireSQLtoCOMBO (Req As String) As Integer |
| Usage | |||
| Administration-des-criteres.FaireSQLtoCOMBO(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function FaireSQLtoCOMBO (Req As String) As Integer |
Function FaireSQLtoCOMBO (Req As String) As Integer
Dim Ret%
Dim Id%
Dim z%
Dim s As String
Dim s2 As String
Ret = pExecute(Req)
FaireSQLtoCOMBO = Ret
While (Ret = True)
Ret = pGetItem(s, 0)
If Ret = True Then
Id = Val(s)
Cri(Id).Visible = True
lh(Id).Visible = True
Ret = pGetItem(s, 1)
Ret = pGetItem(s2, 2)
Cri(Id).AddItem Trim$(s) + Space(40) + s2
End If
Ret = pMoveNext(Id)
Wend
'ret = XasUserGetProperties(FromSubmit, 181, z)
's = "Id" + CStr(ret)
'ret = XasUserSetString(6, s)
End Function
|
| Références XAS.Technology |
| Val , AddItem , Trim , Space , |
| Audience |
| Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs. Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet. |
| XAS Services - Zaïr BEZGHICHE - Copyright 1991-2011 tous droits réservés- Powered by XAS.Technology |