Ö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 x als ganze Zahl = 1
Tun während Leser. Lesen
T als neues TechnologySet verdunkeln
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
|