1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37:
Private SubFillMCbo (ByVal theSQL als Koord) Schemerig Dr. als DataRow Schemerige dt als DataTable Schemerige cmd als Nieuwe OleDbCommand Schemerige ds als Nieuwe Dataset Schemerig DA als Nieuwe OleDb.OleDbDataAdapter pMan.Items.Clear () sql = theSQL Probeer Met DA .TableMappings.Add („Lijst“, „Categorie“) cmd = Nieuwe System.Data.OleDb.OleDbCommand (sql, bedriegt) .SelectCommand = cmd . Vul (ds) . Schik () Eind met ds.AcceptChanges () dt = ds. Tables.Item (0) ds. Schik () pMan.Text = "" pMan.Items.Clear () pMan.BeginUpdate () Voor Elk Dr. in dt. Rijen pMan.Items.Add (Dr. („ManName“) .ToString) pMan.ValueMember = Dr. („ManID“) Daarna pMan.EndUpdate () pMan.SelectedIndex = 0 Vangst ex als Uitzondering MsgBox („Er was een fout die tot Manufacterurs toegang hebben: “ & vbCrLf & ex. Bericht, MsgBoxStyle.OkOnly, „Fout! “) Het eind probeert Sub van het eind