Discussion :

[rolls]

Bonsoir à tous!
J'ai un probleme qui me bloque dans l'anancement de mon projet .
J'utilise une base de donnée sql server 2005;dans l'une de mes tables je veut faire une comparaison entre la clé primaire et une valeur que je recupere d'un TextBox.Mais j'ai du mal a comparer toutes les valeurs de la clé primaire avec la valeure recupérée.Le langage utilisé est VB.net (je suis un debutant)
J'ai ceci dans mon code

'je defini ma requete
Dim queryString2 As String = "SELECT [reservation].[Num_id] FROM [reservation]"
Dim dbCommand2 As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand2.CommandText = queryString2
dbCommand2.Connection = dbConnection2
dbConnection2.Open 'ouverture de la connexion
Dim dataReader As System.Data.IDataReader = dbCommand2.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

while(dataReader.Read) 'je teste s'il y'a un enregistrement
if(TextBox1.Text=dataReader.Item(0)) then 'j effectue la comparaison
MsgBox(" Le numéro existe !Veuillez reprendre ")
Else
MsgBox(" Le numéro existe pas !Veuillez reprendre ")
End if
End while

[Pol63]

ouh là l'ami je t'arrete tout de suite
sql serveur fera ca des 100aines de fois plus vite que toi

SELECT * FROM matable WHERE cléprimaire = '" & textbox.text & "'"

ensuite tu tests s'il y recordcount>0 ca veut dire que ta valeur existe deja


(sql serveur est intelligent il ne va pas regarder sur toutes les lignes si la valeur existe
il va en regarder quelques unes meme parmis des centaines et savoir si la tienne existe
de quelques centaines à quelques unes le temps passé est vraiment différent)

par contre j'ai pas encore utilisé de base de donnée depuis que j'ai migré sur .NET donc je peux pas trop t'aider sur le reste

[JauB]

oui comme l'a dit sperot51 tu peux directment passer le contenu de ton TextBox en paramètre à ta requête et SQL SERVER s'occupera du reste.
mais je veux juste ajouter que si ta clé est de type varchar ou...ou autre chose que du numérique alors tu dois à priori faire un replace sur le texte du TextBox ( remplcaer les ' par un double '')pour que ça ne te lève pas une exception. et puis n'oublie pas de mettre ton bout de code dans un bloc TRY CATCH pour capter les exception et éventuellment avertir l'utilisateur de l'application d'éventuelles erreurs. enfin n'oublie pas de mettre ton code dans des balises

Code :

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

ton code

c'est en haut à droite.

exemple:

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
TRY
 
Dim queryString2 As String = "SELECT [reservation].[Num_id] FROM [reservation] WHERE taClé = Replace ( TextBox1.text, "'", "''") "
Dim dbCommand2 As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand2.CommandText = queryString2
dbCommand2.Connection = dbConnection2
dbConnection2.Open 'ouverture de la connexion
Dim myDataSet as New DataSet
Dim myDataAdapter as new DataAdapter
 
myDataAdapter.SelectCommand =  dbCommand2
myDataAdapter.Fill(myDataSet)
 
if myDataSet.Tables(0).Rows.Count = 0 Then
msgbox("Elément inexistant")
else
msgbox("Elément existant")
end if

CATCH ex  as exception
 
MSGBOX(es.Message)
END TRY

N.B: j'ai pas testé le code que je t'ai cité mais c'est abordable.

encore là pour t'assiter