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

Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Mercredi 6 Janvier 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Vendredi 8 Janvier 2010	Par	Support France
Thème	Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	SQLDATA.InsertPilote

Prototype

Function InsertPilote (sidSite As String) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function InsertPilote (sidSite As String) As Integer

Function InsertPilote (sidSite As String) As Integer
Dim Ret%
Dim sData$

InsertPilote = False
Ret = pExecute("CLEAR")

Ret = pExecute("Select Id From maitre.dbo.XmlServeur Where Id.xxKey = " + CStr(sidSite))
If (Ret = True) Then
    sData = " INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,maj,designation,Name,portname,host,port,maxuser,timeout, "
    sData = sData + " directory,filename,content,vspace,hspace,bookmark,modedebug,configcom,"
    sData = sData + " enabled, type,media,network,action)  VALUES ("
    sData = sData + "'" + Date$ + "',"
    sData = sData + "'" + Date$ + "',"
    sData = sData + " '" + TabSQLValue(0, 0) + "',"
    sData = sData + " '" + TabSQLValue(0, 1) + "',"
    sData = sData + " '" + TabSQLValue(0, 2) + "',"
    sData = sData + " '" + TabSQLValue(0, 3) + "',"
    sData = sData + " '" + TabSQLValue(0, 4) + "',"
    sData = sData + " '" + TabSQLValue(0, 5) + "',"
    sData = sData + " '" + TabSQLValue(0, 6) + "',"
    sData = sData + " '" + TabSQLValue(0, 7) + "',"
    sData = sData + " '" + TabSQLValue(0, 8) + "',"
    sData = sData + " '" + TabSQLValue(0, 9) + "',"
    sData = sData + " '" + TabSQLValue(0, 10) + "',"
    sData = sData + " '" + TabSQLValue(0, 10) + "',"
    sData = sData + " '" + TabSQLValue(0, 11) + "',"
    sData = sData + " '" + TabSQLValue(0, 12) + "',"
    sData = sData + " '" + TabSQLValue(0, 13) + "',"
    sData = sData + " '" + TabSQLValue(0, 14) + "',"
    sData = sData + " '" + TabSQLValue(0, 15) + "',"
    sData = sData + " '" + TabSQLValue(0, 16) + "',"
    sData = sData + " '" + TabSQLValue(0, 17) + "',"
    sData = sData + " '" + TabSQLValue(0, 18) + "' ) "
    Ret = pExecute(sData)
    If Ret = True Then            'type hardware
	Ret = HardwareForINSERT(Val(TabSQLValue(0, 14)))
	If Ret Then
	    InsertPilote = True
	End If
    End If
End If
End Function

Références Composants

Administration-des-comptes-SQLDATA-HardwareForINSERT,

Références XAS.Technology

Cstr , Date , Val ,

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.