Script:Lib BdData

Un article de MacodaWiki.

lib_bddata.vbs : Tout ce qui a rapport avec une base de données

'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

'* LIBRAIRIE                                                                                             *
'*                                                                                                       *
'*   Voir l'entete de lib_log !!!                                                 *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*  2006/08/01                                                                                           *
'*                                                                                                       *
'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

'##############################################################################
Sub gBDDATA_Ouvre_Base(bBase, sBase)

	giNiveau_Librairie = giNiveau_Librairie + 1

	gFct_Log_LIB LOG_NORMAL,"gBDDATA_Ouvre_Base"

	' SELECT dans la base de données
 	Set bBase = CreateObject("ADODB.Connection")   ' Objet base de données (a affecter avec le nom de la base=HOMESEER)
 	bBase.Open sBase   ' Ouverture de l'objet Base : Obligatoire avant tout autre opération
 	
	giNiveau_Librairie = giNiveau_Librairie - 1

End Sub

'##############################################################################
Sub gBDDATA_Ferme_Base(bBase)
	giNiveau_Librairie = giNiveau_Librairie + 1

	gFct_Log_LIB LOG_NORMAL,"gBDDATA_Ferme_Base"

	bBase.Close
 	
	giNiveau_Librairie = giNiveau_Librairie - 1

End Sub

'##############################################################################
Sub gBDDATA_Lance_Requete(bBase,sSQL,rRequete)

	giNiveau_Librairie = giNiveau_Librairie + 1
 	Set rRequete = CreateObject("ADODB.Recordset") ' Pointeur pour les requêtes sur la base

	gFct_Log_LIB LOG_NORMAL,"gBDDATA_Lance_requete"

 	rRequete.Open sSQL, bBase                      
 		
	giNiveau_Librairie = giNiveau_Librairie - 1
		
End Sub


'##############################################################################
Sub gBDDATA_Ferme_Requete(rRequete)
	giNiveau_Librairie = giNiveau_Librairie + 1

	gFct_Log_LIB LOG_NORMAL,"gBDDATA_Ferme_Requete"
 	
	rRequete.Close
 	
	giNiveau_Librairie = giNiveau_Librairie - 1

End Sub


'##############################################################################
Sub gBDDATA_Ferme_Tout(bBase,rRequete)
	giNiveau_Librairie = giNiveau_Librairie + 1

	gFct_Log_LIB LOG_NORMAL,"gBDDATA_Ferme_Tout"

	gBDDATA_Ferme_Requete(rRequete)
	gBDDATA_Ferme_Base(bBase)
 	
	giNiveau_Librairie = giNiveau_Librairie - 1

End Sub




'##############################################################################
Sub gBDDATA_Insert_SQL(sTable,sChamp_insert,sValeur_insert)
Dim bBase
Dim rRequete
Dim sSQL

	giNiveau_Librairie = giNiveau_Librairie + 1

	gFct_Log_LIB LOG_NORMAL,"gBDDATA_Insert_SQL("&sChamp_insert&","&sValeur_insert&")"
	
	gBDDATA_Ouvre_Base bBase,"HOMESEER"
 
	sSQL = "INSERT INTO tb_"&sTable&" ( "&sChamp_insert&" ) VALUES ("&sValeur_insert&");"
	gFct_Log_LIB LOG_BAVARD,"SQL = >"&sSQL&"<"
 	gBDDATA_Lance_Requete bBase,sSQL,rRequete

	gBDDATA_Ferme_Base bBase
	
	giNiveau_Librairie = giNiveau_Librairie - 1

End Sub