Sub sbLoadBackUpList ()
Ciemnawy SQLcnn Jako Nowy clsConnectivity ()
Ciemnawy objCnn Jako SqlConnection = Nowy SqlConnection (SQLcnn.cnn.ToString)
Ciemnawy objDataAdapter Jako Nowy SqlDataAdapter ()
Ciemnawy objGradings Jako DataSet = Nowy DataSet ()
Próba
objDataAdapter.SelectCommand = Nowy SqlCommand
objDataAdapter.SelectCommand.Connection = objCnn
objDataAdapter.SelectCommand.CommandText = "WYBRANY tblGradingEvents.GRADING_ID, tblVenues.VENUE_NM + "na" + KONWERTYTA (VARCHAR (10), tblGradingEvents.GR_DATE, 103) [Wydarzenie] OD tblGradingEvents OPUSZCZAĆ ZEWNĘTRZNY ŁĄCZYĆ tblVenues NA tblGradingEvents.VENUE_ID = tblVenues.VENUE_ID ROZKAZ GR_DATE desc "
objDataAdapter.SelectCommand.CommandType = CommandType.Text
objDataAdapter.Fill (objGradings, "Cieniowanie")
objDataAdapter = Nic
Z lstGradingsToMerge
.DataSource = objGradings.Tables ("Cieniowanie")
.DisplayMember = "Wydarzenie"
.ValueMember = "GRADING_ID"
Końcówka Z
Chwyt wyjątek Jako Wyjątek
'-----------------
'Dane obciążeniowy błąd
Err.Clear ()
MsgBox (Err.Description, MsgBoxStyle.Information, "System Błąd")
Końcówka Próba
Końcówka Okręt podwodny
|