Bonjour,
Comme vous avez pu le voir je suis débutant en VB.NET.
Avant de venir poser ma question ici, je me suis beaucoup baladé sur Internet et sur ce site afin de trouvez des réponses mais mon code ne marche toujours pas.
Je souhaite dans un premier temps uniquement me connecter à ma BdD Access (Créée sous Access 2007) à partir de VB 2010. Pour la suite (modification de ma base de données) je souhaite m'y aventurer seul après afin de découvrir.
Voilà mon code:
Comme vous vous y attendez, ma MessageBox m'affiche "Connexion ratée"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Imports System.Data.OleDb Public Class Form1 Private Sub Button_test_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_test.Click Dim c_string As String = "Provider = Microsoft.Jet.OLEDB.12.0 ; Data Source = C:\testBD.accdb" 'Dim cmd As New OleDb.OleDbCommand Dim MyConnection As New OleDb.OleDbConnection(c_string) Try MyConnection.Open() MessageBox.Show("Connexion réussie", "Test") Catch ex As Exception MessageBox.Show("Connexion ratée", "Test") End Try MyConnection.Close() End Sub End Class
Si quelqu'un pouvait m'aider, je suis grandement preneur.
Merci d'avance.
Adrien
Partager