Discussion :

[Jean-Luc80]

Bonjour
Comment en VB2008 dire à un champ texte que la valeur qu'il reçoit d'une BDD acces est un champ de type numérique ?
Et ensuite comme récupérer cette valeur dans une requête SQL
Merci

[callo]

Comment en VB2008 dire à un champ texte que la valeur qu'il reçoit d'une BDD acces est un champ de type numérique ?

Pour afficher un champ de type numérique (d'ailleurs n'importe quel type primitif) dans un textbox, tu dois forcément effectuer un cast en utilisant ToString(). Donc pas besoin d'indiquer au texbox que la valeur qu'il reçoit est un numérique.

Et ensuite comme récupérer cette valeur dans une requête SQL

Pour transmettre la valeur contenue dans le texbox à un requête, il faut convertir vers le type souhaité. Unn truc du genre:

Code vb.net :

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
Dim maValeur As Integer 
maValeur = Convert.ToInt32(TonTextBox.Text)
' ou bien utilsiser TryParse
Dim s As String = TonTextBox.Text
Dim numericValue As Integer
If Integer.TryParse(s, numericValue ) Then 
  'ton traitement avec la requête (utiliser les requêtes paramétrées)
    Dim myConnex As SqlConnection
    Dim myCommand As SqlCommand
    Dim myQuery As String
    ' traitement de la chaine de connexion
    '..................................................
    Try
    myQuery = "SELECT * FROM TaTable WHERE TonChamp=@ValeurChamp"
 
    myCommand = New SqlCommand(myQuery, myConnex)
 
    myCommand.Parameters.AddWithValue("@ValeurChamp", numericValue)
 
    'Execution de la requête
    myCommand.Connection.Open()
    myCommand.ExecuteNonQuery()
    myCommand.Connection.Close()
 
    Catch ex As SqlException
	 MessageBox.Show("Une erreur s'est produite : " & ex.Message)
    End Try
Else 
   MessageBox.Show("Ce n'est pas un nombre")
End If