Private VorFillCbo (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
pCat.Items.Clear ()
sql = theSQL
'sql = „auserwähltes CategoryID, CategoryName vom Kategorien-Auftrag durch CategoryName ASC“
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 ()
pCat.Text = ""
pCat.Items.Clear ()
pCat.BeginUpdate ()
Für jeden Dr. in Papierlösekorotron. Reihen
pCat.Items.Add (Dr. („CategoryName“) .ToString)
Zunächst
pCat.EndUpdate ()
Fang ex als Ausnahme
MsgBox („es gab eine Störung zurückgreifende Kategorien: “ u. vbCrLf u. ex. Mitteilung, MsgBoxStyle.OkOnly, „Störung! ")
Enden-Versuch
Enden-Unterseeboot
|