Discussion :

[kryptong]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[hugoclo]

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

[kryptong]

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

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

[hugoclo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kryptong]

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

[hugoclo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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