Public Podzielony Funkcja GetMetricList (ByVal metriclist Lista (Metryka)) Jako DataTable
Ciemnawy dset Jako Nowy DataSet ("MyDataSet")
Ciemnawy ResultTable Jako Nowy DataTable
Ciemnawy CnSql Jako SqlConnection = BadsDB.GetConnection
Ciemnawy cmdA Jako SqlCommand
cmdA = Nowy SqlCommand ("[up_GetSelectedMetrics]", CnSql)
cmdA.CommandType = CommandType.StoredProcedure
cmdA.CommandTimeout = 7200
Ciemnawy dTable Jako Nowy DataTable
Próba
CnSql.Open ()
Dla Metriclist m Jako Metryka W metriclist
Z cmdA
. Parameters.Clear ()
. Parameters.AddWithValue ("@TSC", m.Technology.ToString)
Końcówka Z
Ciemnawy dAdp Jako Nowy SqlDataAdapter (cmdA)
dAdp.Fill (dTable)
dAdp.Dispose ()
Następnie
Chwyt excA Jako SqlException
MsgBox (excA.Message, excA.GetType.ToString)
W końcu
CnSql.Close ()
Końcówka Próba
Powrotny dTable
|