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
|
Dim query As New SqlCommand
Dim res As String
connection = New SqlConnection(Application("connectionstring"))
connection.ConnectionString = Application("connectionstring")
connection.Open()
query.Connection = connection
query.CommandText = "SELECT Per_Lastname, Per_Firstname, per_PrivatePhone, per_PrivateStreet, per_PrivateTown FROM tbl_Persons WHERE Per_Lastname LIKE @name + '%' AND per_Firstname LIKE @fname + '%' ORDER BY Per_Lastname"
'affecte l'entrée de l'utilisateur au paramètre @name pour la requête
query.Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar))
query.Parameters("@name").Value = txt_name.Text
'@fname
query.Parameters.Add(New SqlParameter("@fname", SqlDbType.VarChar))
query.Parameters("@fname").Value = txt_fname.Text
'DataReader
Dim dr As SqlDataReader = query.ExecuteReader
RemplitTableau(dr, tbl_persons)
lbl_nbresults.Text = dr.RecordsAffected()
dr.Close()
connection.Close() |
