web 2.0

ASP.NET(vb.net) & DataGrid - Microsoft Access (.mdb) - System.Data.OleDb

Author: admin | Posted: 06-06-2010 | Category: ASP.NET(vb.net) & DataGrid Control

ASP.NET(vb.net) & DataGrid - Microsoft Access (.mdb) - System.Data.OleDb Example scripts how to Explains DataGrid control in asp.net , Using Connector System.Data.OleDb namespace is the .NET Framework Data Provider  for Acces how to the connect to Microsoft Acces Database.

ShotDev Focus:
- ASP.NET(vb.net) & DataGrid - Microsoft Access (.mdb) - System.Data.OleDb

Example

DataGrid1.aspx

view plaincopy to clipboardprint?
  1. <%@ Page Language="VB" AutoEventWireup="false" CodeFile="DataGrid1.aspx.vb" Inherits="DataGrid1" %>  
  2.   
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
  4.   
  5. <html xmlns="http://www.w3.org/1999/xhtml" >  
  6. <head runat="server">  
  7. <title>ShotDev.Com Tutorial</title>  
  8. </head>  
  9. <body>  
  10. <form id="form1" runat="server">  
  11. <asp:DataGrid id="myDataGrid" runat="server" AutoGenerateColumns="False"  
  12. ShowFooter="True"  
  13. DataKeyField="CustomerID">  
  14.   
  15. <Columns>  
  16.   
  17. <asp:TemplateColumn HeaderText="CustomerID">  
  18. <ItemTemplate>  
  19. <asp:Label id="lblCustomerID" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.CustomerID") %>'></asp:Label>  
  20. </ItemTemplate>  
  21. <EditItemTemplate>  
  22. <asp:TextBox id="txtEditCustomerID" size="5" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.CustomerID") %>'></asp:TextBox>  
  23. </EditItemTemplate>  
  24. <FooterTemplate>  
  25. <asp:TextBox id="txtAddCustomerID" size="5" runat="server"></asp:TextBox>  
  26. </FooterTemplate>  
  27. </asp:TemplateColumn>  
  28.   
  29. <asp:TemplateColumn HeaderText="Name">  
  30. <ItemTemplate>  
  31. <asp:Label id="lblName" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Name") %>'></asp:Label>  
  32. </ItemTemplate>  
  33. <EditItemTemplate>  
  34. <asp:TextBox id="txtEditName" size="10" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Name") %>'></asp:TextBox>  
  35. </EditItemTemplate>  
  36. <FooterTemplate>  
  37. <asp:TextBox id="txtAddName" size="10" runat="server"></asp:TextBox>  
  38. </FooterTemplate>  
  39. </asp:TemplateColumn>  
  40.   
  41. <asp:TemplateColumn HeaderText="Email">  
  42. <ItemTemplate>  
  43. <asp:Label id="lblEmail" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Email") %>'></asp:Label>  
  44. </ItemTemplate>  
  45. <EditItemTemplate>  
  46. <asp:TextBox id="txtEditEmail" size="20" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Email") %>'></asp:TextBox>  
  47. </EditItemTemplate>  
  48. <FooterTemplate>  
  49. <asp:TextBox id="txtAddEmail" size="20" runat="server"></asp:TextBox>  
  50. </FooterTemplate>  
  51. </asp:TemplateColumn>  
  52.   
  53. <asp:TemplateColumn HeaderText="CountryCode">  
  54. <ItemTemplate>  
  55. <asp:Label id="lblCountryCode" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.CountryCode") %>'></asp:Label>  
  56. </ItemTemplate>  
  57. <EditItemTemplate>  
  58. <asp:TextBox id="txtEditCountryCode" size="2" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.CountryCode") %>'></asp:TextBox>  
  59. </EditItemTemplate>  
  60. <FooterTemplate>  
  61. <asp:TextBox id="txtAddCountryCode" size="2" runat="server"></asp:TextBox>  
  62. </FooterTemplate>  
  63. </asp:TemplateColumn>  
  64.   
  65. <asp:TemplateColumn HeaderText="Budget">  
  66. <ItemTemplate>  
  67. <asp:Label id="lblBudget" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Budget") %>'></asp:Label>  
  68. </ItemTemplate>  
  69. <EditItemTemplate>  
  70. <asp:TextBox id="txtEditBudget" size="6" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Budget") %>'></asp:TextBox>  
  71. </EditItemTemplate>  
  72. <FooterTemplate>  
  73. <asp:TextBox id="txtAddBudget" size="6" runat="server"></asp:TextBox>  
  74. </FooterTemplate>  
  75. </asp:TemplateColumn>  
  76.   
  77. <asp:TemplateColumn HeaderText="Used">  
  78. <ItemTemplate>  
  79. <asp:Label id="lblUsed" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Used") %>'></asp:Label>  
  80. </ItemTemplate>  
  81. <EditItemTemplate>  
  82. <asp:TextBox id="txtEditUsed" size="6" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Used") %>'></asp:TextBox>  
  83. </EditItemTemplate>  
  84. <FooterTemplate>  
  85. <asp:TextBox id="txtAddUsed" size="6" runat="server"></asp:TextBox>  
  86. <asp:Button id="btnAdd" runat="server" Text="Add" CommandName="Add"></asp:Button>  
  87. </FooterTemplate>  
  88. </asp:TemplateColumn>  
  89.   
  90. <asp:EditCommandColumn ButtonType="LinkButton" UpdateText="Update" CancelText="Cancel" EditText="Edit" HeaderText="Modify" ></asp:EditCommandColumn>  
  91. <asp:ButtonColumn Text="Delete" CommandName="Delete" HeaderText="Delete"></asp:ButtonColumn>  
  92.   
  93. </Columns>  
  94. </asp:DataGrid>  
  95. </form>  
  96. </body>  
  97. </html>  

DataGrid1.aspx.vb

view plaincopy to clipboardprint?
  1. Imports System.Data  
  2. Imports System.Data.OleDb  
  3. Partial Class DataGrid1  
  4. Inherits System.Web.UI.Page  
  5.   
  6. Dim objConn As OleDbConnection  
  7. Dim objCmd As OleDbCommand  
  8. Dim strSQL As String  
  9.   
  10. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load  
  11. Dim strConnString As String  
  12. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/mydatabase.mdb") & ";"  
  13. objConn = New OleDbConnection(strConnString)  
  14. objConn.Open()  
  15.   
  16. If Not Page.IsPostBack() Then  
  17. BindData()  
  18. End If  
  19. End Sub  
  20.   
  21. Protected Sub BindData()  
  22. strSQL = "SELECT * FROM customer"  
  23.   
  24. Dim dtReader As OleDbDataReader  
  25. objCmd = New OleDbCommand(strSQL, objConn)  
  26. dtReader = objCmd.ExecuteReader()  
  27.   
  28. '*** BindData to DataGrid ***'  
  29. myDataGrid.DataSource = dtReader  
  30. myDataGrid.DataBind()  
  31.   
  32. dtReader.Close()  
  33. dtReader = Nothing  
  34.   
  35. End Sub  
  36.   
  37. Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload  
  38. objConn.Close()  
  39. objConn = Nothing  
  40. End Sub  
  41.   
  42. Protected Sub myDataGrid_CancelCommand(ByVal source As Object, ByVal e As DataGridCommandEventArgs) Handles myDataGrid.CancelCommand  
  43. myDataGrid.EditItemIndex = -1  
  44. myDataGrid.ShowFooter = True  
  45. BindData()  
  46. End Sub  
  47.   
  48. Protected Sub myDataGrid_DeleteCommand(ByVal source As Object, ByVal e As DataGridCommandEventArgs) Handles myDataGrid.DeleteCommand  
  49. strSQL = "DELETE FROM customer WHERE CustomerID = '" & myDataGrid.DataKeys.Item(e.Item.ItemIndex) & "'"  
  50. objCmd = New OleDbCommand(strSQL, objConn)  
  51. objCmd.ExecuteNonQuery()  
  52.   
  53. myDataGrid.EditItemIndex = -1  
  54. BindData()  
  55. End Sub  
  56.   
  57. Protected Sub myDataGrid_EditCommand(ByVal source As Object, ByVal e As DataGridCommandEventArgs) Handles myDataGrid.EditCommand  
  58. myDataGrid.EditItemIndex = e.Item.ItemIndex  
  59. myDataGrid.ShowFooter = False  
  60. BindData()  
  61. End Sub  
  62.   
  63. Protected Sub myDataGrid_ItemCommand(ByVal source As Object, ByVal e As DataGridCommandEventArgs) Handles myDataGrid.ItemCommand  
  64. If e.CommandName = "Add" Then  
  65. '*** CustomerID ***'  
  66. Dim txtCustomerID As TextBox = CType(e.Item.FindControl("txtAddCustomerID"), TextBox)  
  67. '*** Name ***'  
  68. Dim txtName As TextBox = CType(e.Item.FindControl("txtAddName"), TextBox)  
  69. '*** Email ***'  
  70. Dim txtEmail As TextBox = CType(e.Item.FindControl("txtAddEmail"), TextBox)  
  71. '*** CountryCode ***'  
  72. Dim txtCountryCode As TextBox = CType(e.Item.FindControl("txtAddCountryCode"), TextBox)  
  73. '*** Budget ***'  
  74. Dim txtBudget As TextBox = CType(e.Item.FindControl("txtAddBudget"), TextBox)  
  75. '*** Used ***'  
  76. Dim txtUsed As TextBox = CType(e.Item.FindControl("txtAddUsed"), TextBox)  
  77.   
  78. strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _  
  79. " VALUES ('" & txtCustomerID.Text & "','" & txtName.Text & "','" & txtEmail.Text & "' " & _  
  80. " ,'" & txtCountryCode.Text & "','" & txtBudget.Text & "','" & txtUsed.Text & "') "  
  81. objCmd = New OleDbCommand(strSQL, objConn)  
  82. objCmd.ExecuteNonQuery()  
  83.   
  84. BindData()  
  85. End If  
  86. End Sub  
  87.   
  88. Protected Sub myDataGrid_UpdateCommand(ByVal source As Object, ByVal e As DataGridCommandEventArgs) Handles myDataGrid.UpdateCommand  
  89. '*** CustomerID ***'  
  90. Dim txtCustomerID As TextBox = CType(e.Item.FindControl("txtEditCustomerID"), TextBox)  
  91. '*** Name ***'  
  92. Dim txtName As TextBox = CType(e.Item.FindControl("txtEditName"), TextBox)  
  93. '*** Email ***'  
  94. Dim txtEmail As TextBox = CType(e.Item.FindControl("txtEditEmail"), TextBox)  
  95. '*** CountryCode ***'  
  96. Dim txtCountryCode As TextBox = CType(e.Item.FindControl("txtEditCountryCode"), TextBox)  
  97. '*** Budget ***'  
  98. Dim txtBudget As TextBox = CType(e.Item.FindControl("txtEditBudget"), TextBox)  
  99. '*** Used ***'  
  100. Dim txtUsed As TextBox = CType(e.Item.FindControl("txtEditUsed"), TextBox)  
  101.   
  102. strSQL = "UPDATE customer SET CustomerID = '" & txtCustomerID.Text & "' " & _  
  103. " ,Name = '" & txtName.Text & "' " & _  
  104. " ,Email = '" & txtEmail.Text & "' " & _  
  105. " ,CountryCode = '" & txtCountryCode.Text & "' " & _  
  106. " ,Budget = '" & txtBudget.Text & "' " & _  
  107. " ,Used = '" & txtUsed.Text & "' " & _  
  108. " WHERE CustomerID = '" & myDataGrid.DataKeys.Item(e.Item.ItemIndex) & "'"  
  109. objCmd = New OleDbCommand(strSQL, objConn)  
  110. objCmd.ExecuteNonQuery()  
  111.   
  112. myDataGrid.EditItemIndex = -1  
  113. myDataGrid.ShowFooter = True  
  114. BindData()  
  115. End Sub  
  116. End Class  

Create a asp.net file and save to path root-path/dotnet/

Run
http://localhost/dotnet/DataGrid1.aspx

Screenshot

ASP.NET(vb.net) & DataGrid - Microsoft Access (.mdb) - System.Data.OleDb

ASP.NET(vb.net) & DataGrid - Microsoft Access (.mdb) - System.Data.OleDb
.
.
.

Download this script.
Download

Category: ASP.NET(vb.net) & DataGrid Control by admin

1 Star2 Stars3 Stars4 Stars5 Stars6 Stars7 Stars8 Stars9 Stars10 Stars (No Ratings Yet)
Loading ... Loading ...

Leave a Reply

You must be logged in to post a comment.