1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Module Module1
Sub Main()
Dim con As New System.Data.SqlClient.SqlConnection("server=localhost;database=mehdi;integrated security=sspi;")
Dim cm As New System.Data.SqlClient.SqlCommand("select pnom from personne where pnom like '@a%'", con)
Dim sqlpar As New System.Data.SqlClient.SqlParameter("@a", SqlDbType.Char)
sqlpar.Value = "k"
cm.Parameters.Add(sqlpar)
Dim r As System.Data.SqlClient.SqlDataReader
con.open()
r = cm.ExecuteReader
While r.Read
Console.WriteLine(r("pnom"))
End While
Console.ReadKey()
con.Close()
con.dispose()
r.Close()
End Sub
End Module |
Partager