Discussion :

[Eric_M]

Bonjour,

J'aurais voudrait savoir comment accéder à une base de données (VB.NET, Access, ou etc.) pour pouvoir écrire et lire son contenu.

Exemple: Nom Prénom Age
Ivon Gerg 38
Jane Stack 27
etc. etc. etc.

Merci

[Pol63]

Voir
http://plasserre.developpez.com/cours/vb-net/

[andy331]

Il est d'abord important de préciser lequel Access tu utilises 2003 ou 2007 ?

Pour le 2007:

Tu vas dans ton programme dans les menu de la bar de tâches en haut tu click sur "Projet>Module" ensuite tu auras un nom du style Module.vb mais tu le nommeras Globale.vb ou le nom que tu souhaites!!

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
Imports System.Data.OleDb
Module Globale
    Private m_laConnection As OleDbConnection
    Public Sub Initialiser()
        m_laConnection = New OleDbConnection()
 
        m_laConnection.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source="ton chemin accès à ta base";Persist Security Info = False;"
 
        m_laConnection.Open()
    End Sub
    Public ReadOnly Property connexion()
        Get
            Return m_laConnection
        End Get
    End Property
End Module

Et dans formulaire tu vas sur ton Insérer ou Valider (je sais pas comment tu l'a nommé) tu fais ceci:

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
Imports System.Data
Imports System.Data.OleDb
 
Private Sub BttValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttValider.Click
 
        Globale.Initialiser()
 
            'CREATION DE LA REQUETE ET DECLARATION DE LA REQUETE
            'CETTE REQUETE SERT A INSERER LES DONNEES DANS UNE BASE 
            Dim Marequete As String
 
            Marequete  = "INSERT INTO 'TableNom' (nom, prenom,age) values ('" & Nom.Text & "','" & Prenom.Text & "'," & age.Text & ")"
 
            'LA COMMANDE
 
            Dim maCommande As OleDbCommand
            maCommande = New OleDbCommand()
            maCommande.Connection = Globale.connexion
            maCommande.CommandType = CommandType.Text
            maCommande.CommandText = Marequete
 
            'EXECUTION
            maCommande.ExecuteNonQuery()

Voila un petit exemple à toi de jouer maintenant et en espérant que c'est bien ce que tu demandais!!


La hâte engendre en tout l'erreur, et de l'erreur sort bien souvent le désastre

[Eric_M]

Merci andy331 pour le code.
Je l'essais et je t'en reparle après.

[Eric_M]

Ok andy331,

Tout semble fonctionner appart une petite erreur:

Le fournisseur 'Microsoft.ACE.OLEDB.12.0' n'est pas inscrit sur l'ordinateur local.

Cette erreur se produit sur

Code :

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

 m_laConnection.Open()

Saurait-tu comment régler cette erreur?
Est-ce qu'il me manque une dll?

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
Imports System.Data.OleDb
Module Globale
    Private m_laConnection As OleDbConnection
    Public Sub Initialiser()
        m_laConnection = New OleDbConnection()
 
        m_laConnection.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" & My.Computer.FileSystem.CurrentDirectory & "\Database1.accdb" & ";Persist Security Info = False;"
 
 
        m_laConnection.Open()
    End Sub
    Public ReadOnly Property connexion()
        Get
            Return m_laConnection
        End Get
    End Property
End Module

[andy331]

Normal le chemin d'accès à ta base n'est pas bon

tu dois avoir ceci:

Code :

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

m_laConnection.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source=C:\Database1.accdb;Persist Security Info = False;"

et non comme ceci :

Code :

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

m_laConnection.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" & My.Computer.FileSystem.CurrentDirectory & "\Database1.accdb" & ";Persist Security Info = False;"

Ou simple si tu utilises Access 2003 et tout change et ça te donnera ceci :

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;

La hâte engendre en tout l'erreur, et de l'erreur sort bien souvent le désastre

[Eric_M]

Salut andy331,

même avec le code de la manière que tu le dit, il me montre toujours la même erreur.

Si tu as une idée, dis-moi la.

[Eric_M]

Ok andy331,

Le fournisseur 'Microsoft.ACE.OLEDB.12.0' n'est pas inscrit sur l'ordinateur local.

Cette erreur se produit sur

Code :

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

 m_laConnection.Open()

Ça me fait encore la même erreur. Est-ce que l'on peut utiliser la base de données de VB.NET à la place? Si oui, comment?

Merci d'avance.

[Nathanael Marchand]

La base de données VB.Net ne veut rien dire! VB.Net est un language de programmation! Il faudrait que tu suives attentivement les différents tutoriels de ce site.