1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Connection.ConnectionString = ConfigurationManager.ConnectionStrings("XXX").ConnectionString
Dim sql_select As String
Connection.Open()
Dim commandText As String = "select * from [A] where [b]=@REF"
Dim cmd As OleDbCommand = New OleDbCommand(commandText, Connection)
cmd.Parameters.Add("@REF" & filtration, OleDbType.Char).Value = filtration
AdapTContact5 = New OleDbDataAdapter(cmd)
AdapTContact5.Fill(ds2, "st111")
Matable = ds2.Tables("st111")
Connection.Close()
Connection.Dispose()
Cache.Add("AXAXA", Matable, Nothing, Now.AddMinutes(60), TimeSpan.Zero, CacheItemPriority.AboveNormal, onRemove) |
Partager