XAS, Xml Server, Xml Services, XML Kiosk, Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Mardi 24 Août 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Jeudi 9 Septembre 2010	Par	Support France
Thème	Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmEntity.UpdateLinkChild

Prototype

Function UpdateLinkChild (sid As String) As Integer

Usage
Administration-des-entites.UpdateLinkChild(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function UpdateLinkChild (sid As String) As Integer

Function UpdateLinkChild (sid As String) As Integer
Dim Ret%
Dim sData$
Dim i%
Dim atmp%
Dim btmp%
Dim s1$
Dim s2$

sData = "DELETE From linkChild  WHERE CodeClient.xxKey=" + CStr(sid)
Ret = pExecute(sData)
For i = 0 To 4
    atmp = Val(Trim$(Right$(Cb(10 + i).Text, 6)))
    If atmp <> 0 Then
	s1 = txT(32 + i).Text
	s2 = txT(33 + i).Text
	btmp = Val(Trim$(Right$(Cb(15 + i).Text, 6)))
	sData = "Select CodeClient From client where  CodeClient.xxKey=" + CStr(sid)
	Ret = pExecute(sData)
	If Ret = True And OnSQLGetItem(0) <> "" Then
	    sData = "INSERT INTO Client.linkChild(CodeClient,type,titre,name,sexe) VALUES ('" + CStr(sid) + "','"
	    sData = sData + CStr(atmp) + "','" + s1 + "','" + s2 + "','" + CStr(btmp) + "' )"
	    Ret = pExecute(sData)
	End If
    End If
Next i

 

End Function

Références XAS.Technology

Cstr , Val , Trim , Right ,

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.