Insertion BDD Access

Version imprimable

Bonjour,

Je débute en base de donnée avec VB.NET mais j'ai réussi à récupérer les données d'une table mais impossible d'insérer une ligne. Et pourtant aucune erreur ne ressort, le code s'exécute mais la base de donnée n'est pas modifiée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim MyConnection as ADODB.Connection
Dim rs as ADODB.RecordSet
Try
            MyConnection = New ADODB.Connection
            MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\gestionnairebdd.mdb;Persist Security Info=False"
            MyConnection.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Try
            S1 = "INSERT INTO Adherents(NumAdherent,Nom,Prenom) VALUES(1,'Toto','Tata');"
            rs = MyConnection.Execute(S1)
            rs.Fields.Refresh()
            rs = Nothing
            MyConnection.Close()
            MyConnection = Nothing
            MsgBox("Validation")
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Pouvez vous m'aider à savoir pourquoi cela ne provoque rien et m'aider à corriger ?

Merci

23/07/2010, 13h41
Hinault Romaric

L'utilisation des recorset c'est typiquement du VB6 c'est tu veut faire du .net faut faire du .net pas rapporte du vb6 dans le vb.net. Commence par lire des tutos sur Ado.net.

http://plasserre.developpez.com/cour...onnees1#XVII-B
25/07/2010, 09h58
jej5189

Merci pour ce lien, j'étais déjà tombé dessus mais je ne me suis pas vraiment penché dessus. Mais maintenant avec les DataSet et DataAdapter cela parait plus réalisable. J'ai testé un peu avec cette page mais sans grand succès (la création de DataRow renvoie une erreur et l'update renvoie aussi une erreur).

Je vais tenter plus tard avec l'aide de msdn. Je vous tiens au courant.

En faisant cela :

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
Dim mydataset As New DataSet
        Dim myconnection As OleDbConnection
        Dim mycommand As OleDbCommand
        Dim myadapter As OleDbDataAdapter
        Dim mydatareader As OleDbDataReader
        Dim requeteSQL As String
 
        requeteSQL = "INSERT INTO Table1(Nom) VALUES('Hello')"
 
        Try
 
     myconnection = New OleDbConnection
            myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\adhesions.mdb"
 
            mycommand = New OleDbCommand(requeteSQL)
            mycommand.CommandText = requeteSQL
            mycommand.Connection = myconnection
            myconnection.Open()
            mydatareader = mycommand.ExecuteReader()
 
            mydatareader.Close()
 
                myconnection.Close()
        Catch ex As Exception
            MsgBox("1 : " + ex.Message)
        End Try
 
        requeteSQL = "SELECT Nom FROM Table1"
 
        Try
            mycommand = New OleDbCommand(requeteSQL)
            mycommand.CommandText = requeteSQL
            mycommand.Connection = myconnection
            myconnection.Open()
            mydatareader = mycommand.ExecuteReader
 
            While mydatareader.Read
                ListBox1.Items.Add(mydatareader.GetString(0))
            End While
            mydatareader.Close()
            myconnection.Close()
        Catch ex As Exception
            MsgBox("0 : " + ex.Message)
        End Try

On voit clairement que l'insertion a fonctionné (ce qui m'étonne car je passe par ExecuteReader). Mais maintenant que je comprend mieux comment ça fonction je reformule ma question de départ :
Comment peut-on modifier le fichier de base de donnée? En effet je suis capable d'obtenir les valeur contenues dans un .mdb, d'en insérer ensuite par le biais de dataset et datareader...
Mais ensuite les données ne sont pas conservées à la fermeture donc comment affecter les modification apportées au dataset directement sur le fichier Access.
Je ne sais même pas si le dataset joue un role important. Je ne comprends pas pourquoi on peut accéder aux info d'une bdd mais qu'on ne puisse pas les modifier sur le fichier...

Merci d'avance.

27/07/2010, 09h41
yochima

2 BDD ACCESS

Salut,

je pense tout simplement que tu as 2 BDD avec access. De mémoire, lorsque j'ai travaillé avec access, j'avais ma BDD dans EIO\EIO (mon projet s'appelle "EIO" ^^) mais lorsque en travail en debeugage, Visual remplis une BDD qu se trouve dans "EIO\EIO\bin\Debug" qui est une copie de EIO\EIO a chaque demarrage. en Gros, depuis le début je pense que tu travail sur la Debug et qu'elle se revide a chaque demarrage.

voila :p

tiens moi au courant :)
27/07/2010, 11h58
jej5189

Merci, c'était ça. Ma solution a été d'importer directement la base de donnée à partir de Debug.

En réalité il prend le fichier d'origine, le copie dans Debug et modifie celui là et ce à chaque démarrage. Donc forcément la source n'est pas modifiée.

Mais ce n'est pas vraiment pratique ce système.Quelqu'un connait un moyen de contourner ce problème même si pour l'instant cela va beaucoup m'aider.

Re,
dans ma situation, je copiais la base en local dans c:\EIO.
je me connectais dessus grace à la librairie "System.Data.OleDb"

Code:

1
2
3
4
5
Imports System.Data.OleDb
MyConnexion = New OleDbConnection
MyConnexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\EIO\EIO.mdb;" & _
        "Jet OLEDB:Database Password=monpwd;" & "Persist Security Info=True"
        MyConnexion.Open()

le code pour verifier si la base existe est :

Code:

1
2
3
4
5
6
7
8
 
        Dim D As DirectoryInfo
        'Verification de l'existance de la base sur l'ordi
        If (My.Computer.FileSystem.DirectoryExists("C:\EIO\") = False) Then
            D = New DirectoryInfo("c:\")
            D.CreateSubdirectory("EIO")
            FileCopy(Application.StartupPath + "\EIO.mdb", "c:\EIO\EIO.mdb")
        End If

Quitte a travailler en local avec access, cette solution m'a bien rendue service.

En espérant que cette solution te convienne aussi. :)

27/07/2010, 15h21
jej5189

Oui la copie de fichier, je ne vois pas mieux non plus. Je ferais comme ça. Merci yochima.