Faut il créer une base avec une seule table contenant toutes les
information, ou bien, une base avec 4 tables et comme clé primaire, le
numéro interne ?
ciberrique
Messages postés589Date d'inscriptionlundi 25 août 2003StatutMembreDernière intervention18 juillet 20101 26 déc. 2008 à 19:17
Oui c'est bien des interface de programmation mais pas forcement visual studio ^^ en gros tu as des dll et dans ces dll tu as les fonctions pour traiter des choses, dans ton cas des dll pour traiter ta bdd.
<hr />www.e-fitz.com Encore plus de sources et de tutoriels.
juninho2lyon
Messages postés26Date d'inscriptionvendredi 12 septembre 2008StatutMembreDernière intervention 8 mars 2009 29 déc. 2008 à 21:11
Bonjour,
Voici un programme que je doit créer pour la gestion d'une base de données.
Or j'ai une erreur lorsque je clique sur le bouton "Mise à jour" du formulaire et l'application passe en "not responding" idem pour le bouton "bibilothèque".
La base de donnée est une base de données Access.
Voici mon code source:
Imports System.Data
Imports System.Data.OleDb
PublicClass Form1
Dim Connexion AsString
Dim ConnexionOLE As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim dv As DataView
Dim cb As OleDbCommandBuilder
PublicSub AfficheTous()
Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\juninho\Documents\bd1.mdb"
ConnexionOLE = New OleDbConnection
ConnexionOLE.ConnectionString = Connexion
da = New OleDbDataAdapter("Select * from switchs", ConnexionOLE)
ds = New DataSet()
da.Fill(ds, "switchs")
dv = ds.Tables("switchs").DefaultView
DataGridView1.DataSource = dv
dv.AllowEdit = True
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)HandlesMyBase.Load
AfficheTous()
EndSub
PrivateSub Bibliothèque_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Bibliothèque.Click
Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\juninho\Documents\bd1.mdb"
ConnexionOLE.ConnectionString = Connexion
da = New OleDbDataAdapter("Select * from switchs where [LibelleObjet]='bibliothèque'", ConnexionOLE)
ds = New DataSet()
da.Fill(ds, "switchs")
dv = ds.Tables("switchs").DefaultView
DataGridView1.DataSource = dv
dv.AllowEdit = True
EndSub
PrivateSub Tous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Tous.Click
AfficheTous()
EndSub
PrivateSub MiseAjour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MiseAjour.Click
Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\juninho\Documents\bd1.mdb"
ConnexionOLE.ConnectionString = Connexion
cb = New OleDbCommandBuilder(da)
da.Update(ds, "switchs")
EndSub
PrivateSub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Quitter.Click
Application.Exit()