|
dev
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
|
i have establish a connection to Oracle 10g using ODP.net , i could populate data in a listbox/combo box, but i need to display these data in one by one , i mean navigation using |< < > >| these buttons , plshelp me blw is the code i'm using to populate data in combo/list box----------------------------------------- dbconnection.getConnection() ' connection string written in a module calling her e Dim conn As New OracleConnection(oradb) Dim exp As Exception Try conn.Open() Dim sql As String = "select EMPNO,ENAME,mgr from emp where 1 =1 " Dim cmd As New OracleCommand(sql, conn) cmd.CommandType = CommandType.Text Dim dr As OracleDataReader = cmd.ExecuteReader() TextBox1.Text = dr.Read() MsgBox("1") ListBox1.Items.Add(dr.Item(1)) conn.Close() conn.Dispose() Catch exp MsgBox(exp.Message.ToString) End Try ------------------------------------------------ Pls ignore the first
Dear All, i have establish a connection to Oracle 10g using ODP.net , i could populate data in a listbox/combo box, but i need to display these data in one by one , i mean navigation using |< < > >| these buttons , plshelp me blw is the code i'm using to populate data in combo/list box----------------------------------------- dbconnection.getConnection() ' connection string written in a module calling her e Dim conn As New OracleConnection(oradb) Dim exp As Exception Try conn.Open() Dim sql As String = "select EMPNO,ENAME,mgr from emp where 1 =1 " Dim cmd As New OracleCommand(sql, conn) cmd.CommandType = CommandType.Text Dim dr As OracleDataReader = cmd.ExecuteReader() While dr.Read() ListBox1.Items.Add(dr.Item(1)) End While conn.Close() conn.Dispose() Catch exp MsgBox(exp.Message.ToString) End Try |
|||||||||||||||||||||||