BASE ACCESS GÉRÉE TRÈS SIMPLEMENT

'A stocker dans un module :

' Contient le chemin et le nom de la base
	Public nomBase As String


'Dans les forms :

' Contient la base
	Dim db As Database
' Contient le jeu d'enregistrement
	Dim Rs As Recordset
' Contient la requete
	Dim sql As String
' Variable de cumul pour obtenir le nombre d'enregistrements
	Dim nbrClients as Integer

' Lancement du programme
Private Sub Form_Load()
	' On renseigne la variable nomBase
	nomBase = App.Path + "\Base.mdb"
End Sub


'Pour un SELECT (dans le cas où la requete renvoie plusieurs lignes) :
	' Connection à la base
	Set db = DBEngine.Workspaces(0).OpenDatabase(nomBase)
	' Assignation de la requète
	sql = "SELECT NomClient FROM Client"
	' Exécution de la requète et récupération du jeu d'enregistrement
	Set Rs = db.OpenRecordset(sql)
	' Initialisation du cumul
	nbrClients = 0
	' Si il n'y a pas d'enregistrements, on saute le traitement
	If Rs.EOF Then
        	GoTo suite
	End If
	' On se place au premier enregistrement concerné
	Rs.MoveFirst
	' Affichage dans un listbox
	' Tant qu'on a pas atteint le dernier enregistrement :
	Do While Rs.EOF = False
		' Ajout de l'enregistrement dans le listbox
        	lstClients.AddItem Rs!NomClient
		' Incrémentation du cumul
	        nbrClients = nbrClients + 1
		' On se place a l'enregistrement suivant
        	Rs.MoveNext
	Loop
suite:
	' Fermeture du jeu d'enregistrement	
	Rs.Close
	' Fermeture de la base	
	db.Close

'Pour un SELECT (dans le cas où la requete renvoie une seule ligne) :
	' Connection à la base
	Set db = DBEngine.Workspaces(0).OpenDatabase(nomBase)
	' Assignation de la requète
	sql = "SELECT NomClient FROM Client WHERE NumClient=1"
	' Exécution de la requète et récupération du jeu d'enregistrement
	Set Rs = db.OpenRecordset(sql)
	' Si il n'y a pas d'enregistrements, on saute le traitement
	If Rs.EOF Then
        	GoTo suite
	End If
	' On se place au premier enregistrement concerné
	Rs.MoveFirst
	' Affichage dans un textbox
       	txtClient.Text = Rs!NomClient
suite:
	' Fermeture du jeu d'enregistrement	
	Rs.Close
	' Fermeture de la base	
	db.Close

'Pour un INSERT :
	' Connection à la base
	Set db = DBEngine.Workspaces(0).OpenDatabase(nomBase)
	' Assignation de la requète
	sql = "INSERT INTO Client VALUES (2,'Client2')"
	' Exécution de la requète
	db.Execute sql
	' Fermeture de la base	
	db.Close

'Pour un DELETE :
	' Connection à la base
	Set db = DBEngine.Workspaces(0).OpenDatabase(nomBase)
	' Assignation de la requète
	sql = "DELETE FROM Client WHERE NumClient=2"
	' Exécution de la requète
	db.Execute sql
	' Fermeture de la base	
	db.Close

'Pour un UPDATE :
	' Connection à la base
	Set db = DBEngine.Workspaces(0).OpenDatabase(nomBase)
	' Assignation de la requète
	sql = "UPDATE Client SET NumClient=2,NomClient='Client2'"
	' Exécution de la requète
	db.Execute sql
	' Fermeture de la base	
	db.Close

Télécharger le zip

04 mars 2005 07:12:34 :