DataGrid简单连接Oracle

1. 在datagrid里创建4个BoundColumn和一个LinkButton。
 <asp:DataGrid id="DataGrid1" style="Z-INDEX: 110; LEFT: 16px; POSITION: absolute; TOP: 168px"
  Visible="True" runat="server" AutoGenerateColumns="False">
  <Columns>
   <asp:BoundColumn DataField="ID" HeaderText="ID"></asp:BoundColumn>
   <asp:BoundColumn DataField="NUM1" HeaderText="NUM1"></asp:BoundColumn>
   <asp:BoundColumn DataField="NUM2" HeaderText="NUM2"></asp:BoundColumn>
   <asp:BoundColumn DataField="NUM3" HeaderText="NUM3"></asp:BoundColumn>
   <asp:EditCommandColumn ButtonType="LinkButton" UpdateText="Update" HeaderText="Edit!" CancelText="Cancel"
    EditText="Edit"></asp:EditCommandColumn>
  </Columns>
 </asp:DataGrid> 
2.通过OracleConnection的open语句获得数据
        Dim OraclDataSet As DataSet
        Dim OraclDataAd As OracleDataAdapter
        Dim OrclCnn As OracleConnection
        Try
            OrclCnn = New OracleConnection
            OrclCnn.ConnectionString = "Data Source=edc81;User Id=test;Password=test"
            OracleConnection1.Open()
            OraclDataSet = New DataSet
            OraclDataAd = New OracleDataAdapter("select ID,NUM1,NUM2,NUM3 from test1", OrclCnn)
            OraclDataAd.Fill(OraclDataSet)
            OracleConnection1.Close()
            DataGrid1.DataSource = OraclDataSet.Tables(0).DefaultView
            DataGrid1.DataBind()
        Catch ex As Exception
            Throw ex
        Finally
           
        End Try 
3.通过OracleDataAdapter的Fill函数获得数据，并自动关闭连接 
        Dim OraclDataSet As DataSet
        Dim OraclDataAd As OracleDataAdapter
        Dim OrclCnn As OracleConnection
        Try
            OrclCnn = New OracleConnection
            OrclCnn.ConnectionString = "Data Source=edc81;User Id=test;Password=test"
           
            OraclDataSet = New DataSet
            OraclDataAd = New OracleDataAdapter("select ID,NUM1,NUM2,NUM3 from test1", OrclCnn)
            OraclDataAd.Fill(OraclDataSet)
           
            DataGrid1.DataSource = OraclDataSet.Tables(0).DefaultView
            DataGrid1.DataBind()
        Catch ex As Exception
            Throw ex
        Finally
           
        End Try 
4. datagrid的Edit事件
    Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
        DataGrid1.EditItemIndex = e.Item.ItemIndex
        BindDataGrid()
    End Sub 
5. datagrid的Cancel事件
    Private Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
        DataGrid1.EditItemIndex = -1
        BindDataGrid()
    End Sub
6.  datagrid的Update事件 
    Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
        ''略
    End Sub