Salut,
Tu peux prendre connaissance d'un bout de code contenu dans un module d'un de mes tout premier projet. C'était un module d'accès aux donnés d'une base de donnés Access, qui peut être réutilisable d'un projet à l'autre.
Tu dois avoir la référence Microsoft ActiveX Data Object 2.X Library (ADO) dans ton projet.
Début du module d'accès au données:
Public mobjADOConn As New Connection
|
'Méthode pour se connecter à la base de donnés. (Tu peux établir une connection ODBC, mais c'est plus simple encore pour débuter...)
'3.51 = Access 97 je crois et 4.0 pour Access 2000 et +
'pstrPathBD doit contenir le chemin vers la BD Access ex: c:\bd1.mdb
Public Sub mgConnectionBD(ByRef pstrPathBD As String)
With mobjADOConn
.ConnectionString = "Provider=Microsoft.JET.OLEDB.3.51;Data Source=" & pstrPathBD
.CursorLocation = adUseClient
.Open
End With
End Sub
|
'Méthode pour exécuter une requête SQL
'Explication des paramètres :
'pstrRequete : requête SQL passé en paramètre Ex : SELECT * FROM [NomTable]
'pvarResultats : valeur retourné de ton recordset si enregistrement il y a...
'pintNbEnrg : nbre d'enregistrement trouvé
'Note les 2 dernier paramètres sont ByRef, ils servent à retourner des valeurs à ton programme. Donc ils doivent être à vide lorsqu'il sont passé....
Public Sub mgExecuterRequete( _
ByVal pstrRequete As String, _
ByRef pvarResultat As Variant, _
ByRef pintNbEnrg As Integer)
Dim objRecordset As New Recordset
Dim intIndex1 As Integer
Dim intIndex2 As Integer
Set objRecordset = mobjADOConn.Execute(pstrRequete)
If objRecordset.RecordCount > 0 Then
ReDim pvarResultat(objRecordset.Fields.Count - 1, objRecordset.RecordCount)
For intIndex1 = 0 To objRecordset.Fields.Count - 1
For intIndex2 = 1 To objRecordset.RecordCount
pvarResultat(intIndex1, 0) = objRecordset.Fields(intIndex1).Name
pvarResultat(intIndex1, intIndex2) = objRecordset.Fields(intIndex1).Value
objRecordset.MoveNext
Next intIndex2
objRecordset.MoveFirst
Next intIndex1
End If
pintNbEnrg = objRecordset.RecordCount
End Sub
|
Ça devrait te donner un bon push pour créer l'accès au donné de ton programme. J'espère avoir été assez clair.
Bonne prog!!!