-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: vipin_gkv
Message 1 in Discussion
Hello Folks, I've made an Editable Datagrid: I am getting a Type
Conversion Error In the Blue Statement Below I have Foll Bounded Columns in the DGrid
Edit DistrictCode DistrictName DistrictID(Hidden Column) <%@ Page Language=VB
Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
BuildDataList
End If
End Sub
Sub Edit_Grid(sender As Object, e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
BuildDataList
End Sub Sub Update_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
Dim TheID as String
Dim DistrictCode as String
Dim DistrictName as String
TheID = E.Item.Cells(2).Text
DistrictCode = CType(e.Item.Cells(0).Controls(0), TextBox).Text // Type
Conversion Error in above stmnt
DistrictName = CType(e.Item.Cells(1).Controls(0), TextBox).Text
Dim DBConn as OleDbConnection
Dim DBUpdate As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/04/DGDB.mdb;"))
DBUpdate.CommandText = "Update Employees " _
& "Set DistrictCode = '" & DistrictCode &"', " _
& "DistrictName = '" & DistrictName & "' " _
& "Where DistrictID = " & TheID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
DBConn.Close
dgEmps.EditItemIndex = -1
BuildDataList
End Sub
Sub BuildDataList ()
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/04/DGDB.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select * From District " _
& "Order By DistrictCode, DistrictName", DBConn)
DBCommand.Fill(DSPageData, _
"District")
dgEmps.DataSource = _
DSPageData.Tables("District").DefaultView
dgEmps.DataBind()
End Sub Please Help! Thanks and Regards Sincerely Vipin
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/BDotNet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
