Sub sbLoadBackUpList ()
Schwaches SQLcnn als neues clsConnectivity ()
Schwaches objCnn als SqlConnection = neues SqlConnection (SQLcnn.cnn.ToString)
Schwaches objDataAdapter als neues SqlDataAdapter ()
Schwache objGradings als Datensatz = neuer Datensatz ()
Versuch
objDataAdapter.SelectCommand = neues SqlCommand
objDataAdapter.SelectCommand.Connection = objCnn
objDataAdapter.SelectCommand.CommandText = „AUSERWÄHLTES tblGradingEvents.GRADING_ID, tblVenues.VENUE_NM + "ON" + BEKEHRTER (VARCHAR (10), tblGradingEvents.GR_DATE, 103) WIE [ordnendes Ereignis] von den tblGradingEvents VERLIESS ÄUSSER sich ANSCHLIESSEN tblVenues AUF tblGradingEvents.VENUE_ID = tblVenues.VENUE_ID AUFTRAG DURCH GR_DATE desc "
objDataAdapter.SelectCommand.CommandType = CommandType.Text
objDataAdapter.Fill (objGradings, „Abstufungen“)
objDataAdapter = nichts
Mit lstGradingsToMerge
.DataSource = objGradings.Tables („Abstufungen“)
.DisplayMember = „ordnendes Ereignis“
.ValueMember = „GRADING_ID“
Ende mit
Fang ex als Ausnahme
'-----------------
'Datenlastsstörungen
Err.Clear ()
MsgBox (Err.Description, MsgBoxStyle.Information, „Systemfehler“)
Enden-Versuch
Enden-Unterseeboot
|