Funzione comune pubblico GetTechnologyData () come lista (di TechnologySet)
Techlist fioco come nuova lista (di TechnologySet)
CnSql fioco come SqlConnection = BadsDB.GetConnection
cmdA fioco come SqlCommand
cmdA = nuovo SqlClient.SqlCommand (“up_CompareTechnology„, CnSql)
cmdA.CommandType = CommandType.StoredProcedure
Prova
CnSql.Open ()
Lettore fioco come SqlDataReader = cmdA.ExecuteReader (CommandBehavior.CloseConnection)
X fioca come numero intero = 1
Fare mentre lettore. Leggere
Oscurare la t come nuovo TechnologySet
t.TechnologySetCode = lettore (“TechnologySetCode„) .ToString
t.TechnologySetName = lettore (“TechnologySetName„) .ToString
t.TechnologySetType = lettore (“TechnologySetType„) .ToString
t.Notes = lettore (“note„) .ToString
techlist. Aggiungere (t)
Ciclo
Techlist di ritorno
excA del fermo come SqlException
MsgBox (excA.Message)
Non restituire niente
Infine
CnSql.Close ()
Prova di conclusione
|