VB + base de donnée + access

**florianjoy54** · 15/10/2009, 11h46

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

**loulouklm** · 15/10/2009, 12h17

Peux-tu donner la ligne (tu dois avoir le numéro de ligne) qui génère l'erreur ?

**loulouklm** · 15/10/2009, 12h20

Es-tu sur du chemin du fichier ?
Pourquoi tu ne fait pas un DataSet typé ?

**Hinault Romaric** · 15/10/2009, 13h22

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.

@++