Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Public Shared Sub PrepareTable2Grid(ByRef TargetTable As DataTable, ByVal p_strSQL As String)
Dim strSQL As String
Dim odaGrid As SqlClient.SqlDataAdapter
odaGrid = New SqlClient.SqlDataAdapter(p_strSQL, Connection)
odaGrid.FillSchema(TargetTable, SchemaType.Source)
odaGrid.Fill(TargetTable)
Connection.Close()
End Sub
Public Shared Sub PrepareTable2Grid(ByRef TargetTable As DataTable, ByVal p_strSQL As String)
Dim strSQL As String
Dim odaGrid As SqlClient.SqlDataAdapter
odaGrid = New SqlClient.SqlDataAdapter(p_strSQL, Connection)
odaGrid.FillSchema(TargetTable, SchemaType.Source)
odaGrid.Fill(TargetTable)
Connection.Close()
End Sub
А как сделать то же но используя хранимую процедуру а не текст запроса?
Private Sub Bind()
Dim odaAnkets As New SqlDataAdapter
Dim myDS As New DataSet
' инициализация
odaAnkets.SelectCommand = New SqlCommand("dbo.usp_show_ankets", clsSQL.Connection)
With odaAnkets.SelectCommand
.CommandType = CommandType.StoredProcedure
.CommandTimeout = 2000
.Parameters.Add(New SqlParameter("@page_num", PageNum))
End With
odaAnkets.Fill(myDS)
dgAnkets.DataSource = myDS.Tables( 0 )
dgAnkets.DataBind()
End Sub
можно например так
из датасета потом заберете таблицу
Private Sub Bind()
Dim odaAnkets As New SqlDataAdapter
Dim myDS As New DataSet
' инициализация
odaAnkets.SelectCommand = New SqlCommand("dbo.usp_show_ankets", clsSQL.Connection)
With odaAnkets.SelectCommand
.CommandType = CommandType.StoredProcedure
.CommandTimeout = 2000
.Parameters.Add(New SqlParameter("@page_num", PageNum))
End With
odaAnkets.Fill(myDS)
dgAnkets.DataSource = myDS.Tables(0)
dgAnkets.DataBind()
End Sub
