1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| sConnectionName = "myConnection"
sConnectionCaption = ""
sConnectionType = "WinDevClientServeurHF"
sAccesType = hOLectureEcriture
sSourceName = "www.monSite.com:4900"
sBaseName = "myDB"
sUserName = "myUserName"
sPassword = "myPassword"
sDetailedInfo = ";Encryption = none;Initial Catalog=myApplication"
SI HOuvreConnexion(sConnectionName, sUserName, sPassword, sSourceName, sBaseName, sConnectionType, sAccesType) ALORS
//info("connected")
SINON
Erreur(HErreurInfo())
VersPressePapier(HErreurInfo)
RENVOYER Faux
FIN
HChangeConnexion("*", sConnectionName) |
Partager