ارجوكم ساعدوني المشكلة في كود ال فيشول بيسك

[dark25love]

ارجوكم ساعدوني المشكلة في كوت ال فيشول بيسك وارجو قرائة الموضوع ولملاحضات الي ذكرتها

<asp:GridView ID="Test" runat="server" AutoGenerateColumns="False"

DataKeyNames="ID" DataSourceID="SqlDataSource1" ShowFooter="True"
BackColor="White" BorderColor="#CC9966" BorderStyle="None" BorderWidth="1px"
CellPadding="4">
<FooterStyle BackColor="#FFFFCC" ForeColor="#330099" />
<RowStyle BackColor="White" ForeColor="#330099" />
<Columns>
<asp:TemplateField ShowHeader="False">
<EditItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="True"
CommandName="Update" Text="Update"></asp:LinkButton>
 <asp:LinkButton ID="LinkButton2" runat="server" CausesValidation="False"
CommandName="Cancel" Text="Cancel"></asp:LinkButton>
</EditItemTemplate>
<footerTemplate>
<asp:Button ID="Insertnew" runat="server" CausesValidation="True"
CommandName="Insert" Text="Insert"></asp:Button>
 <asp:LinkButton ID="LinkButton2" runat="server" CausesValidation="False"
CommandName="Cancel" Text="Cancel"></asp:LinkButton>
</footerTemplate>
<ItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="False"
CommandName="Edit" Text="Edit"></asp:LinkButton>
 <asp:LinkButton ID="LinkButton2" runat="server" CausesValidation="False"
CommandName="Select" Text="Select"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="ID" SortExpression="ID">
<EditItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%# Eval("ID") %>'></asp:Label>
</EditItemTemplate>
<footerTemplate>
<asp:Label ID="Insertid" runat="server" Text='<%# Eval("ID") %>'></asp:Label>
</footerTemplate>
<ItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%# Bind("ID") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="NAME" SortExpression="NAME">
<EditItemTemplate>
<asp:TextBox ID="Editname" runat="server" Text='<%# Bind("NAME") %>'></asp:TextBox>
</EditItemTemplate>
<footerTemplate>
<asp:TextBox ID="Insertname" runat="server" Text='<%# Bind("NAME") %>'></asp:TextBox>
</footerTemplate>
<ItemTemplate>
<asp:Label ID="Label2" runat="server" Text='<%# Bind("NAME") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="JOB" SortExpression="JOB">
<EditItemTemplate>
<asp:TextBox ID="Editjob" runat="server" Text='<%# Bind("JOB") %>'></asp:TextBox>
</EditItemTemplate>
<footerTemplate>
<asp:TextBox ID="Insertjob" runat="server" Text='<%# Bind("JOB") %>'></asp:TextBox>
</footerTemplate>
<ItemTemplate>
<asp:Label ID="Label3" runat="server" Text='<%# Bind("JOB") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<PagerStyle BackColor="#FFFFCC" ForeColor="#330099" HorizontalAlign="Center" />
<EmptyDataTemplate>
NAME:<asp:TextBox ID="nodataname" runat="server" />
JOB :<asp:TextBox ID="nodatajob" runat="server" />
<asp:LinkButton ID= "nodataInsert" runat="server" CommandName="nodataInsert" Text="Insert" />

</EmptyDataTemplate>
<SelectedRowStyle BackColor="#FFCC66" Font-Bold="True" ForeColor="#663399" />
<HeaderStyle BackColor="#990000" Font-Bold="True" ForeColor="#FFFFCC" />
</asp:GridView>

هذا لكود لعمل انسرت وابديت وسلكت من كرد فيو وكلة شغال تمام وكود الانسرت في مشكلة وهذا لكود الة

Imports System.Data.OracleClient

Imports System
Imports System.Data
Imports System.Web
Imports System.Web.UI
Imports System.Configuration
Imports System.Linq
Imports System.Web.Security
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts


Partial Class _Default


Inherits System.Web.UI.Page
Private insertParameter As New List(Of OracleParameter)
Protected Sub Test_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles Test.RowCommand
If e.CommandName = "NoDataInsert" Then
Dim name As TextBox = CType(Test.Controls(0).Controls(0).FindControl("nodataname"), TextBox)
Dim job As TextBox = CType(Test.Controls(0).Controls(0).FindControl("nodatajob"), TextBox)
Dim fname As New OracleParameter("name", OracleType.VarChar, 10)
fname.Direction = ParameterDirection.Input
fname.Value = name.Text
insertParameter.Add(fname)

Dim fjob As New OracleParameter("job", OracleType.VarChar, 10)
fjob.Direction = ParameterDirection.Input
fjob.Value = job.Text
insertParameter.Add(fjob)
SqlDataSource1.Insert()

ElseIf e.CommandName = "Insertnew" Then

Dim name As TextBox = CType(Test.FooterRow.FindControl("Insertname"), TextBox)
Dim job As TextBox = CType(Test.FooterRow.FindControl("Insertjob"), TextBox)
Dim fname As New OracleParameter("@name", OracleType.VarChar, 10)
fname.Direction = ParameterDirection.Input
fname.Value = name.Text
insertParameter.Add(fname)

Dim fjob As New OracleParameter("@job", OracleType.VarChar, 10)
fjob.Direction = ParameterDirection.Input
fjob.Value = job.Text
insertParameter.Add(fjob)
SqlDataSource1.Insert()



End If
End Sub






Protected Sub SqlDataSource1_Inserting1(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceCommandEventArgs) Handles SqlDataSource1.Inserting
e.Command.Parameters.Clear()
For Each p As OracleParameter In insertParameter
e.Command.Parameters.Add(p)

Next
End Sub

End Class

المشكلة عندما اضغط على زر الانسرت لا يحدث اي شيء ولا حتى يضهر لي ارر ممكن مساعدة ضروري

[dark25love]

ارجوكم ارجو لمساعدة باسرع وقت