Bonjour,

Etudiant en BTS informatique, j'aimerais pouvoir me connecter a une base de donnée sous acces pour pouvoir faire des mises à jour.
j'aimerais que le nom que je rentre dans mon textBox puisse s'ajouter dans ma base.

voila mon code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Imports System.Data
Imports System.Data.OleDb
 
Partial Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        Dim nomjoueur As String
 
        nomjoueur = TextBox1.Text
 
        'On crée une connexion
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data source=C:\Users\Floflo\Documents\BTS\PTI\Eventielle\joueur.mdb")
 
        'On crée notre joueur contenant la requête SQL ou on selectionne toute la table joueur
        Dim MyPlayer As OleDbCommand = MyConnexion.CreateCommand()
        MyPlayer.CommandText = "SELECT * FROM joueur "
 
        'On crée notre DataAdaptater
        Dim MyDataAdapter As New OleDbDataAdapter
        MyDataAdapter = New OleDbDataAdapter(MyPlayer)
 
        Dim MyDataSet As New DataSet()
        Dim MyDataTable As DataTable
        Dim MyDataRow As DataRow
 
        MyConnexion.Open()
        'propriété Fill qui a charger le DataSet
        MyDataAdapter.Fill(MyDataSet, "joueur")
        ' On met dans un objet DataTable une table du dataSet
        MyDataTable = MyDataSet.Tables("joueur")
        'On cré une nouvelle ligne
        MyDataRow = MyDataSet.Tables("joueur").NewRow()
        'On lui implemente la valeur du champs afin d'avoir le nom du jouueur 
        MyDataRow("joueur") = Me.TextBox1.Text
        'On ajoute une ligne au dataSet 
        MyDataSet.Tables("joueur").Rows.Add(MyDataRow)
 
        'Pour modifier les valeur changées dans le DataAdaptater
        Dim MyCommandBuilder As New OleDbCommandBuilder(MyDataAdapter)
        'Mise à jour 
        MyDataAdapter.Update(MyDataSet, "joueur")
        'On vide le DataSet et on recharche le DataSet 
        MyDataSet.Clear()
        MyDataAdapter.Fill(MyDataSet, "joueur")
        MyDataTable = MyDataSet.Tables("joueur")
 
        MyConnexion.Close()
 
 
    End Sub
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
End Sub
 
 
End Class
Mais lorsque j'execute j'ai un message d'erreur :

L'exeption OledbExeption n'a pas été gérée

fichier c:// ... joueur.mdb introuvable
merci