Fonction partagée par public GetTechnologyData () comme liste (de TechnologySet)
Faible techlist en tant que nouvelle liste (de TechnologySet)
Faible CnSql comme SqlConnection = BadsDB.GetConnection
Faible cmdA comme SqlCommand
cmdA = nouveau SqlClient.SqlCommand (« up_CompareTechnology », CnSql)
cmdA.CommandType = CommandType.StoredProcedure
Essai
CnSql.Open ()
Faible lecteur comme SqlDataReader = cmdA.ExecuteReader (CommandBehavior.CloseConnection)
Faible x comme nombre entier = 1
Faire tandis que lecteur. Lire
Obscurcir t en tant que nouveau TechnologySet
t.TechnologySetCode = lecteur (« TechnologySetCode ») .ToString
t.TechnologySetName = lecteur (« TechnologySetName ») .ToString
t.TechnologySetType = lecteur (« TechnologySetType ») .ToString
t.Notes = lecteur (« notes ») .ToString
techlist. Ajouter (t)
Boucle
Techlist de retour
excA de crochet comme SqlException
MsgBox (excA.Message)
Ne renvoyer rien
Enfin
CnSql.Close ()
Essai de fin
|