Accéder à une base de données

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/06/2010, 21h07
Eric_M

Accéder à une base de données

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
03/06/2010, 21h10
Pol63

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

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:

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:

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!!

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

04/06/2010, 03h37
Eric_M

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

Ok andy331,

Tout semble fonctionner appart une petite erreur:

Citation:

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

Cette erreur se produit sur

Code:

m_laConnection.Open()

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

Code:

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

04/06/2010, 14h17
andy331

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

tu dois avoir ceci:

Code:

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

et non comme ceci :

Code:

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:

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

:mrgreen::D:mrgreen::D
:aie::aie::aie::aie:

Citation:

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

:ccool::ccool::ccool::ccool::ccool:
04/06/2010, 22h33
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.

J'utiliserai plûtot une connection string comme celle-ci :

Code:

1
2
3
Dim sConnString As String = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
"Data Source=C:\myPath\myDataBaseFile.mdb;" & _ 
"User ID=Admin;" & _ "Password="

05/06/2010, 23h59
Eric_M

Citation:

Envoyé par Eric_M

Ok andy331,

Citation:

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

Cette erreur se produit sur

Code:

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.
06/06/2010, 17h15
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.
07/06/2010, 03h57
Eric_M

Citation:

Envoyé par PitMaverick78

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.

Oui, je sais tout ça déjà.
Je voulais dire que dans le logiciel de programmation de VB.NET ainsi que de C#, on peut créer une base de données en l'ajoutant à notre projet.

Suis-je plus clair?
07/06/2010, 08h12
Pol63

ca doit etre sql server compact edition
07/06/2010, 17h06
Eric_M

Citation:

Envoyé par Pol63

ca doit etre sql server compact edition

Ok, je vais l'essayer.

Bonjour,

J'ai réussit à créer une base de données Access éditable à partir d'un DataGridView dans ma form.

Le problème, c'est que cette base de données est éditable que manuellement, et j'aurais besoin qu'elle soit automatique.

Pour être plus clair, je voudrais que lorsque que l'on clique sur le buton1, sa ajoute à la database une rangée d'information.
Ex.: (MonNom, MonPrénom, etc)

voici le code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim con As New OleDb.OleDbConnection Dim data As New OleDb.OleDbDataAdapter con = New OleDb.OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =C:\Database41.accedb") con.Open() data = New OleDb.OleDbDataAdapter("select * from Prénom", con) data.Fill("MonDeuxièmeNom", "1") End Sub
Il me donne cette erreur:

Citation:

Could not find 'C:\Database41.accedb'

Merci

08/06/2010, 22h08
Pol63

l'erreur est assez explicite, le fichier C:\Database41.accedb n'existe pas ou tu n'as pas les droits d'accès

à l'époque une base access c'était un .mdb, ca a peut etre évolué depuis ...

sinon pour ajouter des données :
INSERT INTO table (ch1, ch2 ...) values (v1, v2)

m'enfin je te conseille de lire un cours, car si tu ne sais pas ca tu va passer ton temps à poser des questions et ca va te prendre la tete de bloquer toutes les 5 minutes
09/06/2010, 03h19
Eric_M

Citation:

Envoyé par Pol63

l'erreur est assez explicite, le fichier C:\Database41.accedb n'existe pas ou tu n'as pas les droits d'accès

Le fichier existe, mais je n'ai peut-être pas les droits d'accès (en passant, je suis sous windows xp).

Merci quand même Pol63. Je vais suivre ton conseil et lire un cours.:ccool:
09/06/2010, 16h32
Hinault Romaric

C'est l'extension de ton fichier qui n'est pas bon ca devrais plutôt être

Citation:

C:\Database41.mdb
10/06/2010, 14h16
Eric_M

Citation:

Envoyé par lilroma

C'est l'extension de ton fichier qui n'est pas bon ca devrais plutôt être

Oui mais moi j'utilise office 2007, faut-il que je sauvegarde ma database access en mode de compatibilité?
10/06/2010, 15h23
Pol63

Citation:

Envoyé par Eric_M

Oui mais moi j'utilise office 2007, faut-il que je sauvegarde ma database access en mode de compatibilité?

non je ne pense pas

Bonjours,
essaye de te connecter à une Base Access de type .mdb *voir ce qu'il en pense*
Code:

1 2 con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source=C:\Database.mdb"
et je sais pas si a une importance,
mais moi je met un ";" a la fin comme dans le tuto
Code:

1 2 3 'Initialisation de la chaîne de paramètres pour la connexion strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source= c:\nom.mdb;"

Voir 40 message(s) de cette discussion en une page