Функция делят публикой, котор GetTechnologyData () как список (TechnologySet)
Тусклое techlist как новый список (TechnologySet)
Тусклое CnSql как SqlConnection = BadsDB.GetConnection
Тусклое cmdA как SqlCommand
cmdA = новое SqlClient.SqlCommand («up_CompareTechnology», CnSql)
cmdA.CommandType = CommandType.StoredProcedure
Попытка
CnSql.Open ()
Тусклый читатель как SqlDataReader = cmdA.ExecuteReader (CommandBehavior.CloseConnection)
Тусклый x как интежер = 1
Сделайте пока читатель. Прочитайте
Затемните t как новое TechnologySet
t.TechnologySetCode = читатель («TechnologySetCode») .ToString
t.TechnologySetName = читатель («TechnologySetName») .ToString
t.TechnologySetType = читатель («TechnologySetType») .ToString
t.Notes = читатель («примечания») .ToString
techlist. Добавьте (t)
Петля
Возвращенное techlist
excA задвижки как SqlException
MsgBox (excA.Message)
Не возвратите ничего
Окончательно
CnSql.Close ()
Попытка конца
|