public void FillListBox() { PgSqlCommand cmd; PgSqlDataReader reader; ListBox deptnoList, nameList; cmd = new PgSqlCommand("select deptno, dname from dept"); cmd.FetchAll = true; reader = cmd.ExecuteReader(); foreach (IDataRecord rec in reader) { deptnoList.Items.Add(rec["deptno"]); } foreach (IDataRecord rec in reader) { nameList.Items.Add(rec["dname"]); } }
Public Sub FillListBox() Dim cmd As PgSqlCommand Dim reader As PgSqlDataReader Dim deptnoList As ListBox Dim nameList As ListBox cmd = New PgSqlCommand("select deptno, dname from dept") cmd.FetchAll = True reader = cmd.ExecuteReader() Dim rec As IDataRecord For Each rec In reader deptnoList.Items.Add(rec("deptno")) Next For Each rec In reader nameList.Items.Add(rec("dname")) Next End Sub