Récupération champs access dans un textbox

Version imprimable

Bonjour,
je dispose d'une base de donnée access que j'ai connectée à visual studio 2012 via le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Imports System.Data Imports System.Data.OleDb Public Class Form1 Dim cn As OleDb.OleDbConnection Dim cmd As OleDb.OleDbCommand Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click cn = New OleDb.OleDbConnection cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\USER\Documents\hopital.mdb" cn.Open() End Sub End Class
Ce que je voudrais faire ,c'est récupérer le champs "Rayon" qui est dans la table hopital et l'afficher dns le textbox textBox1

Je bloque , quelqu'un pourrait m'aider ?

18/01/2013, 17h26
hugoclo

Dans le champs rayon il ni y a qu'une seule valeur???
18/01/2013, 17h31
kryptong

Citation:

Envoyé par hugoclo

Dans le champs rayon il ni y a qu'une seule valeur???

Oui c'est un champ donc c'est ne seule valeur

Soit la table patient:
Champs"Civilité" Champs"Nom" Champs"Age"
MR "tata" "31"
MME "tutu" "33"
Mll "titi" "18"

Pour un Champs plusieurs valeurs!!!
Autrement
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click cn = New OleDb.OleDbConnection cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\USER\Documents\hopital.mdb" Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand() Mycommand.CommandText = "SELECT Rayon FROM hopital" cn.Open() Dim myReader As OleDbDataReader = Mycommand.ExecuteReader() ta_textbox.text = myReader.GetString(0) myReader.Close() cn.Close() End Sub

18/01/2013, 18h35
kryptong

merci, mais comment faire si le champs est à plusieurs valeurs et que je voudrais récupérer chaque valeur dans un textbox à part?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
dim tutu as integer = 100
        cn = New OleDb.OleDbConnection
        cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\USER\Documents\hopital.mdb"
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT Rayon FROM hopital"
        cn.Open()
 Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Do While myReader.Read()
ajoutxt(myReader.GetString(0),tutu,tutu.tostring)
tutu = tutu + 100
Loop
 
myReader.Close()
cn.Close()
    End Sub
private sub ajoutxt (byval texte as string,byval lapositionvoulu  as integer,byval LeNomDeTonCtrl as string)
dim txt as TextBox = new TextBox 
with txt    
.parent = me ' le parent de ton controle sera la forme    
.name = LeNomDeTonCtrl
 .left = 100    
.top = lapositionvoulu    
.width = 300    
.height = 90    
.visible = true 
.text = texte
end with 
me.controls.add(txt) 
end sub

Je viens de faire ca mais je ne l'ai pas vérifier, à essayer
le mieux serit de mettre un combobox
[code]

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
dim tutu as integer = 100
        cn = New OleDb.OleDbConnection
        cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\USER\Documents\hopital.mdb"
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT Rayon FROM hopital"
        cn.Open()
 Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Do While myReader.Read()
ComboBox1.Items.Add (myReader.GetString(0))
Loop
 
myReader.Close()
cn.Close()
    End Sub