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:
27:
28:
|
" codeBody "
Public Gedeelde Functie GetMetricList (metriclist ByVal als Lijst (van Metriek)) Als DataTable
Schemerige dset als Nieuwe Dataset („MyDataSet“)
Schemerige ResultTable als Nieuwe DataTable
Schemerige CnSql als SqlConnection = BadsDB.GetConnection
Schemerige cmdA als SqlCommand
cmdA = Nieuwe SqlCommand („[up_GetSelectedMetrics]“, CnSql)
cmdA.CommandType = CommandType.StoredProcedure
cmdA.CommandTimeout = 7200
Schemerige dTable als Nieuwe DataTable
Probeer
CnSql.Open ()
Voor Elk m als Metriek in metriclist
Met cmdA
. Parameters.Clear ()
. Parameters.AddWithValue („@TSC“, m.Technology.ToString)
Eind met
Schemerige dAdp als Nieuwe SqlDataAdapter (cmdA)
(dTable) dAdp.Fill
dAdp.Dispose ()
Daarna
Vangst excA als SqlException
MsgBox (excA.Message, excA.GetType.ToString)
Tot slot
CnSql.Close ()
Het eind probeert
dTable terugkeer
|