Private VorPopulateBatchLoadDataGridView ()
Schwaches Zeitlimit als neues SortableBindingList (von TechnologySet) (TechnologySetDB.GetTechnologyData)
Wenn Zeitlimit. Zählimpuls > 0 dann
dgvTechnologySets.DataSource = Zeitlimit
Sonst
dgvTechnologySets.DataSource = nichts
Beenden wenn
Unterseeboot beenden
Öffentlichkeit geteilte Funktion GetTechnologyData () als Liste (von TechnologySet)
Schwaches techlist als neue Liste (von TechnologySet)
Schwaches CnSql als SqlConnection = BadsDB.GetConnection
Schwaches cmdA als SqlCommand
cmdA = neues SqlClient.SqlCommand („up_CompareTechnology“, CnSql)
cmdA.CommandType = CommandType.StoredProcedure
Versuch
CnSql.Open ()
Schwacher Leser als SqlDataReader = cmdA.ExecuteReader (CommandBehavior.CloseConnection)
Schwaches t als neues TechnologySet
Schwaches x als ganze Zahl = 1
Tun während Leser. Lesen
t.TechnologySetCode = Leser („TechnologySetCode“) .ToString
t.TechnologySetName = Leser („TechnologySetName“) .ToString
t.TechnologySetType = Leser („TechnologySetType“) .ToString
t.Notes = Leser („Anmerkungen“) .ToString
techlist. Hinzufügen (t)
Schleife
Rückholtechlist
Fang excA als SqlException
MsgBox (excA.Message)
Nichts zurückbringen
Schließlich
CnSql.Close ()
Enden-Versuch
|