A voir également:
- .Accbd
- Violation d'accès à l'adresse ✓ - Forum Delphi / Pascal
- Violation d'accès à l'adresse... ✓ - Forum Delphi / Pascal
- Ebp impossible de se connecter à la base de données ✓ - Forum SQL
- Connecter une application android à une base de données - Conseils pratiques -Java
- Probleme d'accès à la base de donnée ✓ - Forum C# / .NET
2 réponses
irmalien bonjour,
Tu peux efectivement utiliser l'assistant mais vérifie d'abord que le fournisseur oledb est bien enregistré (sinon télécharger databaseengine sur le site de microsoft :
http://www.microsoft.com/en-us/download/details.aspx?id=13255
Exemple de code qui te permettra d'accéder à ta base
N'oublie pas de déclarer tes variables
Function Access_donnees
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source= C:\gestpaie.accdb") ' le chemin pour accéder à ta base
MyConnexion.Open()
Dim Comm_Param As New OleDbCommand("SELECT [MaTable].* FROM [MaTable];", MyConnexion)
Dim Lec_MaTable As OleDb.OleDbDataReader
Lec_MaTable = Comm_MaTable.ExecuteReader
If Lec_MaTable .HasRows = False Then ' Aucune entrée trouvée
Insert_Message_Erreur("Pas d'entrée", 1)
Return Nothing
End If
Do While Lec_Param.Read
MA_Valeur= Lec_MaTable .GetValue(0)
Loop
'
MyConnexion.Close()
Return Nothing
End Function
En espérant que cette réponse puisse t'aider dans ton projet...
Tu peux efectivement utiliser l'assistant mais vérifie d'abord que le fournisseur oledb est bien enregistré (sinon télécharger databaseengine sur le site de microsoft :
http://www.microsoft.com/en-us/download/details.aspx?id=13255
Exemple de code qui te permettra d'accéder à ta base
N'oublie pas de déclarer tes variables
Function Access_donnees
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source= C:\gestpaie.accdb") ' le chemin pour accéder à ta base
MyConnexion.Open()
Dim Comm_Param As New OleDbCommand("SELECT [MaTable].* FROM [MaTable];", MyConnexion)
Dim Lec_MaTable As OleDb.OleDbDataReader
Lec_MaTable = Comm_MaTable.ExecuteReader
If Lec_MaTable .HasRows = False Then ' Aucune entrée trouvée
Insert_Message_Erreur("Pas d'entrée", 1)
Return Nothing
End If
Do While Lec_Param.Read
MA_Valeur= Lec_MaTable .GetValue(0)
Loop
'
MyConnexion.Close()
Return Nothing
End Function
En espérant que cette réponse puisse t'aider dans ton projet...