Função compartilhada público GetTechnologyData () como a lista (de TechnologySet)
Techlist não ofuscante como a lista nova (de TechnologySet)
CnSql não ofuscante como SqlConnection = BadsDB.GetConnection
cmdA não ofuscante como SqlCommand
cmdA = SqlClient.SqlCommand novo (“up_CompareTechnology”, CnSql)
cmdA.CommandType = CommandType.StoredProcedure
Tentativa
CnSql.Open ()
Leitor não ofuscante como SqlDataReader = cmdA.ExecuteReader (CommandBehavior.CloseConnection)
X não ofuscante como o inteiro = 1
Fazer quando leitor. Ler
Escurecer t como TechnologySet novo
t.TechnologySetCode = leitor (“TechnologySetCode”) .ToString
t.TechnologySetName = leitor (“TechnologySetName”) .ToString
t.TechnologySetType = leitor (“TechnologySetType”) .ToString
t.Notes = leitor (“notas”) .ToString
techlist. Adicionar (t)
Laço
Techlist do retorno
excA do prendedor como SqlException
MsgBox (excA.Message)
Não retornar nada
Finalmente
CnSql.Close ()
Tentativa do fim
|