Visual Basic

    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
        On Error GoTo err
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\birth.mdb;"
        cn.Open()
        rs.Open("select * from emp", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
err:
        If Err.Number <> 0 Then
            MsgBox(Err.Description & " " & Err.Number, vbInformation, "Error")
            rstatus = False
        Else
            rstatus = True
        End If

using System.Data.OracleClient;<br />
using System.Data;<br />
<br />
<br />
namespace ORacle_Bind<br />
{<br />
    class DAL <br />
    {<br />
<br />
<br />
        public Dataset Getdata()<br />
        {<br />
            String Constring = "blablabvl";<br />
<br />
            OracleConnection con = new OracleConnection(Constring);<br />
<br />
            OracleCommand cmd = new OracleCommand();<br />
<br />
            OracleDataAdapter da = new OracleDataAdapter();<br />
          <br />
            cmd.CommandText = "your select statement";<br />
<br />
            cmd.CommandType = System.Data.CommandType.Text;<br />
<br />
            cmd.Connection = con;<br />
<br />
            da.SelectCommand= cmd;<br />
           <br />
            DataSet ds = new DataSet();<br />
<br />
<br />
            try<br />
            {<br />
                con.Open();<br />
<br />
<br />
                da.Fill(ds, "My_Table");<br />
            }<br />
            catch (OracleException e)<br />
            {<br />
                throw;<br />
            }<br />
            finally<br />
            {<br />
                con.Close();<br />
            }<br />
            return ds<br />
        }

sumit5283 wrote:

Can anyone help me about the code how to insert data into datagrid from database. Also tell me that without Adodc object it is possible to insert data. I am using VB 6.0