Base de donnée ACCESS et COMBOBOX [Résolu]
ThoT49
Membre Dernière intervention
24 avril 2011
- - Dernière réponse :
Benza917
Membre Dernière intervention
17 mars 2010
- 15 mars 2010 à 17:27
- Messages postés
- 153
- Date d'inscription
- dimanche 4 mars 2007
- Statut
- Messages postés
- 4
- Date d'inscription
- lundi 1 mars 2010
- Statut
A voir également:
- Base de donnée access et combobox
- Remplir combobox à partir d'une base de données access ✓ - Forum - VB.NET
- [asp] [base de données] les bases de données (access et sql) - Conseils pratiques - ASP / ASP.NET
- [vb6] accés à une base de données access en ado - Conseils pratiques - Visual Basic / VB.NET
- Connexion à une base de données access sécurisée - Conseils pratiques - Visual Basic / VB.NET
- Les bases pour se connecter une base de données access avec vb.net - Conseils pratiques - Visual Basic / VB.NET
17 réponses
Meilleure réponse
- Messages postés
- 153
- Date d'inscription
- dimanche 4 mars 2007
- Statut
C'est bon j'ai réussi ! merci beaucoup de votre aide ;)
donc je vous explique :)
on déclare une nouvelle connection dans le selected index du combobox
dim conn as oledbconnection = new oledbconnection etc ...
ensuite on déclare la commande comme cecis
dim cmd as oledbcommand = conn.createcommand()cmd.commandtext "SELECT * FROM table WHERE Champ1(celui de la combobox) '" & combobox.text & "'"
on ouvre la connection
conn.open()
on déclare le datareader
dim rdr as oledbdatareader = cmd.executereader()
on lit le datareader
rdr.read()
et on envoi les données s'il y en a :)
if rdr.hasrows then
textbox1.text = rdr("Champ2" (celui de la textbox) )
end if
et on close tout :)
rdr.close()
newconn.close()
Merci de m'avoir bien aidé :)
++
donc je vous explique :)
on déclare une nouvelle connection dans le selected index du combobox
dim conn as oledbconnection = new oledbconnection etc ...
ensuite on déclare la commande comme cecis
dim cmd as oledbcommand = conn.createcommand()cmd.commandtext "SELECT * FROM table WHERE Champ1(celui de la combobox) '" & combobox.text & "'"
on ouvre la connection
conn.open()
on déclare le datareader
dim rdr as oledbdatareader = cmd.executereader()
on lit le datareader
rdr.read()
et on envoi les données s'il y en a :)
if rdr.hasrows then
textbox1.text = rdr("Champ2" (celui de la textbox) )
end if
et on close tout :)
rdr.close()
newconn.close()
Merci de m'avoir bien aidé :)
++
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
135 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Messages postés
- 153
- Date d'inscription
- dimanche 4 mars 2007
- Statut
oui jy es déja pensé mais lorsque je fait :
combobox.datasource = datatable.rows.items("champ1")
cela ne fonctionne pas
donc je fais avec ce que tu me donne :
Combobox.items.add("champ1")
et en faite dans le combobox cela m'écrit champ1 au lieu de la colonne Champ1 de ma base de donnée
j'ai éssayé aussi ComboNom.Items.Add(Dtt.Rows.Item(
"Champ1"))
mais cela me dit que champ1 n'a pa le droit d'etre integer
Donc je ne voi plus ce que je peux faire ...
combobox.datasource = datatable.rows.items("champ1")
cela ne fonctionne pas
donc je fais avec ce que tu me donne :
Combobox.items.add("champ1")
et en faite dans le combobox cela m'écrit champ1 au lieu de la colonne Champ1 de ma base de donnée
j'ai éssayé aussi ComboNom.Items.Add(Dtt.Rows.Item(
"Champ1"))
mais cela me dit que champ1 n'a pa le droit d'etre integer
Donc je ne voi plus ce que je peux faire ...
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Messages postés
- 153
- Date d'inscription
- dimanche 4 mars 2007
- Statut
Excuse moi j'ai oublié, je récupère mes données afin de les mettre dans une datagridview comme sa :
Imports System.Data
Imports System.Data.OleDb
Imports System.Net
Public Class Form1
Inherits System.Windows.Forms.Form
'declaration de la connection
Private Conn As New OleDb.OleDbConnection()
'declaration du DataSet
Private Dts As New DataSet()
'declaration du dataAdapter
Private Dta As New OleDb.OleDbDataAdapter("select * from Contact", Conn)
'déclaration de la datatable
Private Dtt As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'on parametre la chaine de connection pour la base de donnée BDD.mdb
Conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "" & "BDD.mdb;"
Conn.Open()
' rempli le dataset
Dta.Fill(Dts, "Contact")
'remplissage de la liste avec le dataset
Dtt = Dts.Tables("Contact")
Dtg.DataSource = Dtt
'on se postitionne sur la premiere ligne de la grille
Dim Pos As Integer
Pos = -1
'rafraichissement de la fenetre
Me.Show()
'on ferme la connection (on travaille en mode déconnecté)
Conn.Close()
End Sub
End Class
Voila, après je veux mettre les données du champ1 de la table Contact dans un combobox.
J'ai répondu à ta question ?
Imports System.Data
Imports System.Data.OleDb
Imports System.Net
Public Class Form1
Inherits System.Windows.Forms.Form
'declaration de la connection
Private Conn As New OleDb.OleDbConnection()
'declaration du DataSet
Private Dts As New DataSet()
'declaration du dataAdapter
Private Dta As New OleDb.OleDbDataAdapter("select * from Contact", Conn)
'déclaration de la datatable
Private Dtt As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'on parametre la chaine de connection pour la base de donnée BDD.mdb
Conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "" & "BDD.mdb;"
Conn.Open()
' rempli le dataset
Dta.Fill(Dts, "Contact")
'remplissage de la liste avec le dataset
Dtt = Dts.Tables("Contact")
Dtg.DataSource = Dtt
'on se postitionne sur la premiere ligne de la grille
Dim Pos As Integer
Pos = -1
'rafraichissement de la fenetre
Me.Show()
'on ferme la connection (on travaille en mode déconnecté)
Conn.Close()
End Sub
End Class
Voila, après je veux mettre les données du champ1 de la table Contact dans un combobox.
J'ai répondu à ta question ?
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Messages postés
- 153
- Date d'inscription
- dimanche 4 mars 2007
- Statut
Super cela fonctionne !! merci
Maintenant il me reste le probleme de comment faire lorsque je selectionne la donnée, la donnée d'un autre champs mais de la meme ligne aille dans la textbox d'à coté nommé prénom...
j'ai essayé sa mais sa ne fonctionne pas...
TxtPrenom.Text = ComboNom.SelectedValue
Encore merci ;)
Maintenant il me reste le probleme de comment faire lorsque je selectionne la donnée, la donnée d'un autre champs mais de la meme ligne aille dans la textbox d'à coté nommé prénom...
j'ai essayé sa mais sa ne fonctionne pas...
TxtPrenom.Text = ComboNom.SelectedValue
Encore merci ;)
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
Salut,
Va jetter un oeil sur ce LIEN
A+
Exploreur
Linux a un noyau, Windows un pépin
Va jetter un oeil sur ce LIEN
A+
Exploreur
Linux a un noyau, Windows un pépin
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Messages postés
- 153
- Date d'inscription
- dimanche 4 mars 2007
- Statut
Non je ne veux pas ce qu'il y a d'écrit dans le combobox,
En faite j'ai une base de donnée : exemple :
Nom Prenom
machin chose
je voudrais sélectionner dans le combobox "machin", le probleme a été résolu précédement, mais en choisissant "machin" je veux que dans le textbox txtprenom il apparraisse "chose"
Voila mon probleme, je pense que avec les exemple c'est plus comprehensible ;)
merci :)
En faite j'ai une base de donnée : exemple :
Nom Prenom
machin chose
je voudrais sélectionner dans le combobox "machin", le probleme a été résolu précédement, mais en choisissant "machin" je veux que dans le textbox txtprenom il apparraisse "chose"
Voila mon probleme, je pense que avec les exemple c'est plus comprehensible ;)
merci :)
- Messages postés
- 4
- Date d'inscription
- lundi 1 mars 2010
- Statut
Bonjour à tous,
Je viens à vous car je suis débutant en MS Access et le language VB et je developpe une appli' de gestion des utilisateurs pour sécuriser une base de données en attribuant différents droits (Insert/Update/Delete) pour chacun des forms selon le user..
J'ai jusqu'ici réussis, à récupérer le nom du user logué, son ID et lui attribuer des droits sur le form en cours...
Je cherche maintenant à créer un écran de saisie pour l'admin qui lui servirait à mettre à jour la table que j'ai créée servant à assigner des droit spécifique selon le user logué...
J'ai donc creé un nouveau form avec un combobox affichant les différents profiles (admin/user/visitor) mais je ne sais pas du tout comment coder cela :(
J'aimerais que selon le profile sélectionné une table s'affiche avec le nom des forms et leurs droits respectifs, et que si aucun profile n'est sélectionné --> MSGBOX "Please select a profile"
Voilà voilà merci d'avance à tous !
Je viens à vous car je suis débutant en MS Access et le language VB et je developpe une appli' de gestion des utilisateurs pour sécuriser une base de données en attribuant différents droits (Insert/Update/Delete) pour chacun des forms selon le user..
J'ai jusqu'ici réussis, à récupérer le nom du user logué, son ID et lui attribuer des droits sur le form en cours...
Je cherche maintenant à créer un écran de saisie pour l'admin qui lui servirait à mettre à jour la table que j'ai créée servant à assigner des droit spécifique selon le user logué...
J'ai donc creé un nouveau form avec un combobox affichant les différents profiles (admin/user/visitor) mais je ne sais pas du tout comment coder cela :(
J'aimerais que selon le profile sélectionné une table s'affiche avec le nom des forms et leurs droits respectifs, et que si aucun profile n'est sélectionné --> MSGBOX "Please select a profile"
Voilà voilà merci d'avance à tous !