تحديث الداتا جريد

السلام عليكم

الكود هذا يسوي تحديث للداتا جريد

لكن المشكلة انه ما يطبق

يعني يعطيني الصفحة فاضية

ولا حتى يقرأ البيانات من الداتابيس

عقدني!!!

ممكن تقولون لي ما الخطأ الذي عملته

 

<script language="VB" runat="server">

	  Dim objConnection As SqlConnection

	  Dim myDataReader As SqlDataReader   



	Sub Page_Load(Sender As Object, E As EventArgs) 

		objConnection = New SqlConnection("Data Source=computer;Initial Catalog=XXXXXXXXXX;Integrated Security=True")

		LoadDataFromDB()

		If Not IsPostBack Then

			DataBindGrid()

		End If

	End Sub



	  Sub LoadDataFromDB()

			Dim objCommand As SqlCommand

		objCommand = New SqlCommand("SELECT * FROM products;", objConnection)



		objConnection.Open()

			myDataReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

	  End Sub



	Sub DataBindGrid()

		DBEditDataGrid.DataSource = myDataReader

		DBEditDataGrid.DataBind

	End Sub



	Sub DBEditDataGrid_Edit(Sender As Object, E As DataGridCommandEventArgs)

		DBEditDataGrid.EditItemIndex = E.Item.ItemIndex

		DataBindGrid

	End Sub



	Sub DBEditDataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs)

		DBEditDataGrid.EditItemIndex = -1

		DataBindGrid

	End Sub



	  Sub DBEditDataGrid_Update(Sender As Object, E As DataGridCommandEventArgs)



		Dim intID As Integer = E.Item.Cells(0).Text

			Dim tbText	 As TextBox = E.Item.Cells(1).Controls(0)

			Dim tbInteger  As TextBox = E.Item.Cells(2).Controls(0)

			Dim tbDateTime As TextBox = E.Item.Cells(3).Controls(0)



		Dim objCommand As SqlCommand

			Dim strSQLQuery As String

		strSQLQuery = "UPDATE products " _

		 & "SET name_eng  = '" & Replace(tbText.Text, "'", "''") & "', " _

		 & "price   = " & tbInteger.Text & ", " _

		 & "publishingyear = '" & Replace(tbDateTime.Text, "'", "''") & "' " _

		 & "WHERE productid = " & intID & ";"





			objCommand = New SqlCommand(strSQLQuery, objConnection)





			myDataReader.Close



			Try

			objConnection.Open()

				  objCommand.ExecuteNonQuery()

				  objConnection.Close()

			Catch Ex as Exception

			Response.Write("<p><strong>An Error Occurred the opreation terminated</strong></p>")

		Finally

			objConnection.Close()

			End Try

	   LoadDataFromDB()

		DBEditDataGrid.EditItemIndex = -1

			DataBindGrid

	  End Sub

</script>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">

<asp:DataGrid id="DBEditDataGrid" runat="server"

	  BorderWidth = "1" CellSpacing = "2" CellPadding = "2"

	  HeaderStyle-Font-Bold = "True"



	  OnEditCommand   = "DBEditDataGrid_Edit"

	  OnCancelCommand = "DBEditDataGrid_Cancel"

	  OnUpdateCommand = "DBEditDataGrid_Update"



	  AutoGenerateColumns = "False"

> 

	  <Columns>

			<asp:BoundColumn HeaderText="productid" DataField="productid" ReadOnly="True" />

			<asp:BoundColumn HeaderText="name_eng" DataField="name_eng"	  />

			<asp:BoundColumn HeaderText="price"  DataField="price"   />

			<asp:BoundColumn HeaderText="publishingyear" DataField="publishingyear" />

			<asp:EditCommandColumn

				  HeaderText = "Edit"

				  EditText   = "Edit"

				  CancelText = "Cancel"

				  UpdateText = "Update"

			/>

	  </Columns>

</asp:DataGrid>



</asp:Content>