VB + base de donnée + access

Version imprimable

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:

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 :

Citation:

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

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

merci

15/10/2009, 12h17
loulouklm

Peux-tu donner la ligne (tu dois avoir le numéro de ligne) qui génère l'erreur ?
15/10/2009, 12h20
loulouklm

Es-tu sur du chemin du fichier ?
Pourquoi tu ne fait pas un DataSet typé ?
15/10/2009, 13h22
Hinault Romaric

y'a des balises code pour le coloriage du code. Mais déjà d'emblée le problème est au niveau de ta chaine de connexion, le programme ne trouve pas ton fichier .mdb, vérifie encore le chemin du fichier.

@++ ;)
15/10/2009, 16h56
florianjoy54

vb + base de donnée

J'ai bien vérifié le chemin il est correct, lorsque j'exécute l'erreur est générée à la ligne :

Code:

MyDataRow("joueur") = Me.TextBox1.Text
15/10/2009, 17h44
Hinault Romaric

Pourqoui tout ca juste pour un insert? pas besoin de Dataset et tout ce qui suit.

@++ ;)
15/10/2009, 18h58
florianjoy54

Merci ;)

pour faire simple voila un exemple de code.

Code:

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
 
'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 creer notre commande
        Dim MyPlayer As New OleDbCommand
        MyPlayer.Connection = MyConnexion
        'requete d'insertion
        MyPlayer.CommandText = "insert into joueur values(@nomjouer)"
        'on creer notre parametre
        MyPlayer.Parameters.Add("@nomjouer", OleDbType.VarChar)
        'attribution d'un valeur au parametre
        MyPlayer.Parameters("@nomjouer").Value = TextBox1.Text
 
        Try
            'ouverture de la connexion
            MyPlayer.Connection.Open()
            'execution de la requete
            MyPlayer.ExecuteNonQuery()
            'fermeture de la connexion
            MyPlayer.Connection.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

@++ ;)

17/10/2009, 22h35
florianjoy54

Merci Encore ça marche niquel !!! :)