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
|
Dim connectionString4 As String = ConfigurationManager.ConnectionStrings.Item("SiteSqlServer").ConnectionString
Dim conn As SqlClient.SqlConnection
conn = New SqlConnection
conn.ConnectionString = connectionString
conn.Open()
dim vRep as String
If DpActivite.Text.ToString() <> "" Then
vReq = "Select * ESSAI2 '%" & DpActivite.Text.ToString() & "'"
Else
vReq = "select * from ESSAI2"
End If
Dim comm As SqlCommand
comm = New SqlCommand
comm.Connection = conn
comm.CommandText = vReq
comm.ExecuteNonQuery()
conn.Close() |