Private VorFillMCbo (ByVal theSQL als Schnur)
Schwacher Dr. als DataRow
Schwaches Papierlösekorotron als DataTable
Schwaches cmd als neues OleDbCommand
Schwacher ds als neuer Datensatz
Schwaches DA als neues OleDb.OleDbDataAdapter
pMan.Items.Clear ()
sql = theSQL
Versuch
Mit DA
.TableMappings.Add („Tabelle“, „Kategorie“)
cmd = neues System.Data.OleDb.OleDbCommand (sql, Betrug)
.SelectCommand = cmd
. Füllen (ds)
. Abschaffen ()
Mit beenden
ds.AcceptChanges ()
Papierlösekorotron = ds. Tables.Item (0)
ds. Abschaffen ()
pMan.Text = ""
pMan.Items.Clear ()
pMan.BeginUpdate ()
Für jeden Dr. in Papierlösekorotron. Reihen
pMan.Items.Add (Dr. („ManName“) .ToString)
pMan.ValueMember = Dr. („ManID“)
Zunächst
pMan.EndUpdate ()
pMan.SelectedIndex = 0
Fang ex als Ausnahme
MsgBox („es gab eine Störung, die auf Manufacterurs zurückgreift: “ u. vbCrLf u. ex. Mitteilung, MsgBoxStyle.OkOnly, „Störung! ")
Enden-Versuch
Enden-Unterseeboot
|