Función compartida público GetTechnologyData () como lista (de TechnologySet)
Techlist dévil como nueva lista (de TechnologySet)
CnSql dévil como SqlConnection = BadsDB.GetConnection
cmdA dévil como SqlCommand
cmdA = nuevo SqlClient.SqlCommand (“up_CompareTechnology”, CnSql)
cmdA.CommandType = CommandType.StoredProcedure
Intento
CnSql.Open ()
Lector dévil como SqlDataReader = cmdA.ExecuteReader (CommandBehavior.CloseConnection)
X dévil como número entero = 1
Hacer mientras que lector. Leer
Amortiguar t como nuevo TechnologySet
t.TechnologySetCode = lector (“TechnologySetCode”) .ToString
t.TechnologySetName = lector (“TechnologySetName”) .ToString
t.TechnologySetType = lector (“TechnologySetType”) .ToString
t.Notes = lector (“notas”) .ToString
techlist. Agregar (t)
Lazo
Techlist de vuelta
excA del retén como SqlException
MsgBox (excA.Message)
No volver nada
Finalmente
CnSql.Close ()
Intento del final
|