Discussion :

[IL-MAFIOSO]

Bonjour à tous,

Toujours débutant, merci d'avance pour votre indulgence

J'ai constaté que lorsque j'accède à ma base de données, apparait ce fameux fichier .ldb qui est sensé disparaitre lorsqu'on referme la connection. Et chez moi il reste .....

L'utilisateur saisit des données dans un form, puis je les intègrent dans la base de données ainsi :

Pour info, connection1() est dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Module ModuleConnection
    Public base1 As String
    Public base3 As String
 
    Public Sub connection1()
        base1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "
        base3 = "C:\Users\masession\Documents\escale.mdb;"
    End Sub
 End Module

Une fois que l'utilisateur valide, cette procédure se lance.

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
Public Class Form2
    Dim MyConnect As String
    Dim MyRecordset As ADODB.Recordset 
 
Private Sub valider_Click(sender As System.Object, e As System.EventArgs) Handles valider.Click
Try
           Call connection1()
                MyConnect = base1 & base3
                MyRecordset = New ADODB.Recordset
                MyRecordset.Open("Table1", MyConnect, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
                MyRecordset.AddNew()
                MyRecordset.Fields("NDC").Value = dc.Text
                MyRecordset.Update()
                MyRecordset.Close()
 
'mise à jour de mon datagridview associé
Form1.GetData(Form1.Table1dataAdapter.SelectCommand.CommandText)
 
Catch ex As Exception
                MsgBox(Err.Description)
End Try
End sub
 
End class

Concernant la ligne de commande de mise à jour du datagridview, je vous mets le code contenu dans le form1 :

Tout en haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Data.OleDb

Puis :

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
Public Sub GetData(ByVal selectCommand As String)
 
        Try
            Call connection1()
            Dim connectionString1 As String = base1 & base3
 
            Me.Table1dataAdapter = New OleDbDataAdapter(selectCommand, connectionString1)
            Dim commandBuilder1 As New OleDbCommandBuilder(Me.Table1dataAdapter)
 
            Dim table1 As New DataTable()
            table1.Locale = System.Globalization.CultureInfo.InvariantCulture
 
            Me.Table1dataAdapter.Fill(table1)
 
        Catch ex As DataException
            MsgBox(Err.Description)
        End Try

J'espère que cela pourra vous aider .....

Edit 1 : De plus je remarque que dans VB, j'ai dans fenêtre exécution :

Une exception de première chance de type 'System.NullReferenceException' s'est produite dans Escale.exe

et une info-bulle :

La référence d'objet n'est pas défini à une instance d'un objet

Est-ce lié car je sais pas comment savoir à quelle ligne de mon programme çà bug .... et VB2010 me pointe pas la ligne qui pourrait générer cette erreur.....

[Pol63]

les recordset n'ont pas leur place en .net

avec ado.net on peut s'assurer que la connexion se ferme même en cas d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
using conn as new system.data.oledb.oledbconnection(chaine_de_connexion)
  ' utilisation de la connexion
end using

[IL-MAFIOSO]

Salut Pol63,

Merci pour ta réponse.
Concernant mon EDIT et l'erreur j'ai trouvé d'ou celà venait. En fait, j'avais mis un timer qui rafraichissait les données tous les X temps. Et le rafraichissement se lançait que si le Form1 est actif en testant un paramètre qui était null .

Sinon dans ton petit exemple, tu peux juste l'adapter à ce que j'ai mis pour que je vois comment je peux enregistrer mon textbox dans la base de données ?
(ps pour info, je compile en framework version 2)
Merci d'avance

[Pol63]

je te conseille de lire un tuto sur ado.net, qui est la solution recommandée pour accéder aux données en vb.net

il y a plusieurs méthodes dont :
- par requete : oledbconnection (connection) / oledbcommand (requete SQL (insert/update/delete), dans ton cas "UPDATE table SET colonne = valeur WHERE condition") / oledbdatareader (permet de lire les données d'un select)
- dataadapter / dataset : c'est aussi simple que les recordsets, tu n'as que le select à écrire et tu récupère une variable tableau, tu peux modifier n'importe quelle cas et dire à l'objet daadapter de répercuter les modifications sur la base de données
- entity framework (pas dispo avec le framework 2 et access je crois) en code plus simple que les dataset, ca permet de manipuler des collections typées et il n'y a aucune requete à écrire

[IL-MAFIOSO]

Re,

Merci pour tes conseils. En fait je me suis inspiré de la doc MSDN pour la partie "Public Sub GetData(ByVal selectCommand As String)"

Et lorsque je modifie une donnée dans mon datagridview via un form, la mise à jour de la base est faite par la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Me.Validate()
Form1.Table1bindingSource.EndEdit() 
Form1.Table1dataAdapter.Update(CType(Form1.Table1bindingSource.DataSource, DataTable))

Tout se passe bien avec ces commandes/fonctions.
Je modifie une donnée déjà existante et mets à jour et pas de traces de fichiers .ldb
Mon problème vient vraiment de ce module avec mes myrecordset. Tout s'enregistre dans la base de données mais malgré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MyRecordset.Update()
MyRecordset.Close()

Le fichier .ldb reste

En fait dans mon datagridview je ne rapatrie pas toutes les colonnes de ma base access . C'est pour cela que je dois passer par une écriture en premier sur ma base et puis mettre à jour mon datagridview. Certaines données saisies initialement restent sur la base de données et ne sont plus modifiables

[IL-MAFIOSO]

Re,

Je m'étais inspiré de cette doc :

http://msdn.microsoft.com/en-us/library/fbk67b6z.aspx

Avec cette méthode, je peux gérer le chargement des tables, mettre à jour. Ils donnent le code et j'ai pu l'adapter sans soucis

Mais ils ne disent pas comment par cette méthode insérer de nouveaux données directement dans la base de données. Sachant que ces données à insérer viennent de textbox par exemple