ThoT49153
Messages postés dimanche 4 mars 2007Date d'inscription
24 avril 2011
Dernière intervention
-
6 juil. 2007 à 18:23 - Dernière réponse : Benza9174
Messages postés lundi 1 mars 2010Date d'inscription
17 mars 2010
Dernière intervention
- 15 mars 2010 à 17:27
Bonjour, je suis en train de déveloper une application. Je voudrais utiliser une base de donnée ACCESS, bon sa encore j'y arrive, cepandant je n'arrive pas à prendre les données d'un Champ d'une table de ma base que j'ai créé pour les mettre dans un combobox.
J'y arrive pour un textbox, une datagridview, mais pour le reste je n'y arrive pas.
ThoT49153
Messages postés dimanche 4 mars 2007Date d'inscription
24 avril 2011
Dernière intervention - 7 juil. 2007 à 10:55
+3
Utile
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é :)
++
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
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.
'remplissage de la liste avec le dataset
Dtt = Dts.Tables("Contact")
Dtg.DataSource = Dtt
ComboNom.DataSource = Dtt
ComboNom.DisplayMember = "TonChamp"
' ComboNom.ValueMember = "Idmacolonne"
ThoT49153
Messages postés dimanche 4 mars 2007Date d'inscription
24 avril 2011
Dernière intervention - 6 juil. 2007 à 21:22
0
Utile
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...
ThoT49153
Messages postés dimanche 4 mars 2007Date d'inscription
24 avril 2011
Dernière intervention - 7 juil. 2007 à 00:32
0
Utile
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 ;)
Benza9174
Messages postés lundi 1 mars 2010Date d'inscription
17 mars 2010
Dernière intervention -15 mars 2010 à 17:27
0
Utile
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"
