Windows’ budding partnership with Canonical has certainly led to some great improvements. One of them being the ability to use Bash on your Windows machine without third party applications! This might be one of the greatest things a cloud engineer in a Windows environment can do!
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Bind Gridview to dataset using VB.NET
Posted on 2009-05-06
I have a datagridview that I need to bind to a dataset that contains data from a Access database table. The datagridview needs to allow the user to edit existing data as well as add new data. When the user is done I need to have whatever changes are made to existing data as well as the new data saved back to the database. What is the best approach to take to acomplish this?
I am able to populate the dataset and bind it to the grid. My problem is save the changes back to the database.
I am able to populate the dataset and bind it to the grid. My problem is save the changes back to the database.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2 Comments
Is this what you are looking for
http://www.experts-exchange.com/Programming/Languages/.NET/Visual_Studio_.NET_2005/Q_23110082.html
http://www.experts-exchange.com/Programming/Languages/.NET/Visual_Studio_.NET_2005/Q_23110082.html
Here is an ASPX page retriving/editing/updating
Pl.make necessary correcitons at your end a/c to your environment and use :
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="MySql.Data" %>
<%@ Import Namespace="MySql.Data.Mysq
<script runat=server>
Private strConnection As String = "server=192.168.1.44; user id=bmk; password=bmkpass; database=test; pooling=false;"
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
If Not IsPostBack Then
BuildDataList()
End If
End Sub
Sub Edit_Grid(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
BuildDataList()
End Sub
Sub CancelEdit(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
dgEmps.EditItemIndex = -1
BuildDataList()
End Sub
Sub Update_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
Dim TheID as String
Dim LastName as String
Dim FirstName as String
TheID = E.Item.Cells(2).Text
LastName = CType(e.Item.Cells(0).Cont
FirstName = CType(e.Item.Cells(1).Cont
Dim DBConn As MySqlConnection
Dim DBUpdate As New MySqlCommand
DBConn = New MySqlConnection(strConnect
DBUpdate.CommandText = "Update Employee " _
& "Set LastName = '" & LastName &"', " _
& "FirstName = '" & FirstName & "' " _
& "Where ID = " & TheID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open()
DBUpdate.ExecuteNonQuery()
DBConn.Close
dgEmps.EditItemIndex = -1
BuildDataList
End Sub
Sub Delete_Grid(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
Dim TheID As String
TheID = e.Item.Cells(2).Text
Dim DBConn As MySqlConnection
Dim DBdelete As New MySqlCommand
DBConn = New MySqlConnection(strConnect
DBdelete.CommandText = "delete from Employee " _
& "Where ID = " & TheID
DBdelete.Connection = DBConn
DBdelete.Connection.Open()
DBdelete.ExecuteNonQuery()
DBConn.Close()
dgEmps.EditItemIndex = -1
BuildDataList()
End Sub
Sub CommandAdd_Click(ByVal Sender As Object, ByVal E As CommandEventArgs)
Dim DBConn As MySqlConnection
Dim DBAdd As New MySqlCommand
DBConn = New MySqlConnection(strConnect
DBAdd.CommandText = "Insert Into Employee (LastName) " _
& "values ('')"
DBAdd.Connection = DBConn
DBAdd.Connection.Open()
DBAdd.ExecuteNonQuery()
DBConn.Close()
dgEmps.EditItemIndex = 0
BuildDataList()
End Sub
Sub BuildDataList ()
Dim DBConn As MySqlConnection
Dim DBCommand As MySqlDataAdapter
Dim DSPageData as New DataSet
DBConn = New MySqlConnection(strConnect
DBCommand = New MySqlDataAdapter _
("Select * From Employee " _
& "Order By LastName, FirstName", DBConn)
DBCommand.Fill(DSPageData,
"Employee")
dgEmps.DataSource = _
DSPageData.Tables("Employe
dgEmps.DataBind()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Adding Rows to a DataGrid Control</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<BR><BR>
<asp:Label
id="lblMessage"
runat="server"
/>
<BR><BR>
<asp:datagrid
id="dgEmps"
runat="server"
autogeneratecolumns="false
oneditcommand="Edit_Grid"
oncancelcommand="Canceledi
onupdatecommand="Update_Gr
ondeletecommand="Delete_Gr
>
<columns>
<asp:boundcolumn
HeaderText="Last Name"
DataField="LastName"
/>
<asp:boundcolumn
HeaderText="First Name"
DataField="FirstName"
/>
<asp:boundcolumn
datafield="ID"
visible=False
readonly=true
/>
<asp:editcommandcolumn
edittext="Edit"
updatetext="Update"
canceltext="Cancel"
itemstyle-wrap="false"
headertext="Edit"
headerStyle-wrap="false"
/>
<asp:ButtonColumn Text="Delete" CommandName="Delete"/>
</columns>
</asp:datagrid>
<BR><BR>
<asp:LinkButton
id="butAdd"
text="Add"
commandname="Add"
oncommand="CommandAdd_Clic
runat="server"
/>
</form>
</BODY>
</HTML>
Bm Keshav
Pl.make necessary correcitons at your end a/c to your environment and use :
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="MySql.Data" %>
<%@ Import Namespace="MySql.Data.Mysq
<script runat=server>
Private strConnection As String = "server=192.168.1.44; user id=bmk; password=bmkpass; database=test; pooling=false;"
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
If Not IsPostBack Then
BuildDataList()
End If
End Sub
Sub Edit_Grid(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
BuildDataList()
End Sub
Sub CancelEdit(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
dgEmps.EditItemIndex = -1
BuildDataList()
End Sub
Sub Update_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
Dim TheID as String
Dim LastName as String
Dim FirstName as String
TheID = E.Item.Cells(2).Text
LastName = CType(e.Item.Cells(0).Cont
FirstName = CType(e.Item.Cells(1).Cont
Dim DBConn As MySqlConnection
Dim DBUpdate As New MySqlCommand
DBConn = New MySqlConnection(strConnect
DBUpdate.CommandText = "Update Employee " _
& "Set LastName = '" & LastName &"', " _
& "FirstName = '" & FirstName & "' " _
& "Where ID = " & TheID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open()
DBUpdate.ExecuteNonQuery()
DBConn.Close
dgEmps.EditItemIndex = -1
BuildDataList
End Sub
Sub Delete_Grid(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
Dim TheID As String
TheID = e.Item.Cells(2).Text
Dim DBConn As MySqlConnection
Dim DBdelete As New MySqlCommand
DBConn = New MySqlConnection(strConnect
DBdelete.CommandText = "delete from Employee " _
& "Where ID = " & TheID
DBdelete.Connection = DBConn
DBdelete.Connection.Open()
DBdelete.ExecuteNonQuery()
DBConn.Close()
dgEmps.EditItemIndex = -1
BuildDataList()
End Sub
Sub CommandAdd_Click(ByVal Sender As Object, ByVal E As CommandEventArgs)
Dim DBConn As MySqlConnection
Dim DBAdd As New MySqlCommand
DBConn = New MySqlConnection(strConnect
DBAdd.CommandText = "Insert Into Employee (LastName) " _
& "values ('')"
DBAdd.Connection = DBConn
DBAdd.Connection.Open()
DBAdd.ExecuteNonQuery()
DBConn.Close()
dgEmps.EditItemIndex = 0
BuildDataList()
End Sub
Sub BuildDataList ()
Dim DBConn As MySqlConnection
Dim DBCommand As MySqlDataAdapter
Dim DSPageData as New DataSet
DBConn = New MySqlConnection(strConnect
DBCommand = New MySqlDataAdapter _
("Select * From Employee " _
& "Order By LastName, FirstName", DBConn)
DBCommand.Fill(DSPageData,
"Employee")
dgEmps.DataSource = _
DSPageData.Tables("Employe
dgEmps.DataBind()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Adding Rows to a DataGrid Control</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<BR><BR>
<asp:Label
id="lblMessage"
runat="server"
/>
<BR><BR>
<asp:datagrid
id="dgEmps"
runat="server"
autogeneratecolumns="false
oneditcommand="Edit_Grid"
oncancelcommand="Canceledi
onupdatecommand="Update_Gr
ondeletecommand="Delete_Gr
>
<columns>
<asp:boundcolumn
HeaderText="Last Name"
DataField="LastName"
/>
<asp:boundcolumn
HeaderText="First Name"
DataField="FirstName"
/>
<asp:boundcolumn
datafield="ID"
visible=False
readonly=true
/>
<asp:editcommandcolumn
edittext="Edit"
updatetext="Update"
canceltext="Cancel"
itemstyle-wrap="false"
headertext="Edit"
headerStyle-wrap="false"
/>
<asp:ButtonColumn Text="Delete" CommandName="Delete"/>
</columns>
</asp:datagrid>
<BR><BR>
<asp:LinkButton
id="butAdd"
text="Add"
commandname="Add"
oncommand="CommandAdd_Clic
runat="server"
/>
</form>
</BODY>
</HTML>
Bm Keshav
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article describes two methods for creating a combo box that can be used to add new items to the row source -- one for simple lookup tables, and one for a more complex row source where the new item needs data for several fields.
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers.
Hopes this gives you ideas on visualizing your data in new ways ~
Create a calculated field in a query:
…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month3 days, 17 hours left to enroll
630 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.