web 2.0

ASP.NET(vb.net) & Microsoft Access Database Class (Visual Studio 2005,2008,2010 - .NET 2.0,3.5,4.0)

ASP.NET(vb.net) & Microsoft Access Database Class (Visual Studio 2005,2008,2010 - .NET 2.0,3.5,4.0) - This is  example scripts how to use ASP.NET and Microsoft Access (.mdb) database on Visual Studio 2005,2008,2010 (.NET 2.0,3.5,4.0)

ShotDev Focus:
- ASP.NET(vb.net) & Microsoft Access Database Class (Visual Studio 2005,2008,2010 - .NET 2.0,3.5,4.0)

Example

clsDatabase.vb

  1. Imports Microsoft.VisualBasic  
  2. Imports System.Data  
  3. Imports System.Data.OleDb  
  4. Imports System.Configuration  
  5. Public Class clsDatabase  
  6. Private objConn As OleDbConnection  
  7. Private objCmd As OleDbCommand  
  8. Private Trans As OleDbTransaction  
  9. Private strConnString As String  
  10.   
  11. Public Sub New()  
  12. strConnString = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString")  
  13. End Sub  
  14.   
  15. Public Function QueryDataReader(ByVal strSQL As StringAs OleDbDataReader  
  16. Dim dtReader As OleDbDataReader  
  17. objConn = New OleDbConnection  
  18. With objConn  
  19. .ConnectionString = strConnString  
  20. .Open()  
  21. End With  
  22. objCmd = New OleDbCommand(strSQL, objConn)  
  23. dtReader = objCmd.ExecuteReader()  
  24. Return dtReader '*** Return DataReader ***'  
  25. End Function  
  26.   
  27. Public Function QueryDataSet(ByVal strSQL As StringAs DataSet  
  28. Dim ds As New DataSet  
  29. Dim dtAdapter As New OleDbDataAdapter  
  30. objConn = New OleDbConnection  
  31. With objConn  
  32. .ConnectionString = strConnString  
  33. .Open()  
  34. End With  
  35. objCmd = New OleDbCommand  
  36. With objCmd  
  37. .Connection = objConn  
  38. .CommandText = strSQL  
  39. .CommandType = CommandType.Text  
  40. End With  
  41. dtAdapter.SelectCommand = objCmd  
  42. dtAdapter.Fill(ds)  
  43. Return ds   '*** Return DataSet ***'  
  44. End Function  
  45.   
  46. Public Function QueryDataTable(ByVal strSQL As StringAs DataTable  
  47. Dim dtAdapter As OleDbDataAdapter  
  48. Dim dt As New DataTable  
  49. objConn = New OleDbConnection  
  50. With objConn  
  51. .ConnectionString = strConnString  
  52. .Open()  
  53. End With  
  54. dtAdapter = New OleDbDataAdapter(strSQL, objConn)  
  55. dtAdapter.Fill(dt)  
  56. Return dt '*** Return DataTable ***'  
  57. End Function  
  58.   
  59. Public Function QueryExecuteNonQuery(ByVal strSQL As StringAs Boolean  
  60. objConn = New OleDbConnection  
  61. With objConn  
  62. .ConnectionString = strConnString  
  63. .Open()  
  64. End With  
  65. Try  
  66. objCmd = New OleDbCommand()  
  67. With objCmd  
  68. .Connection = objConn  
  69. .CommandType = CommandType.Text  
  70. .CommandText = strSQL  
  71. End With  
  72. objCmd.ExecuteNonQuery()  
  73. Return True '*** Return True ***'  
  74. Catch ex As Exception  
  75. Return False '*** Return False ***'  
  76. End Try  
  77. End Function  
  78.   
  79. Public Function QueryExecuteScalar(ByVal strSQL As StringAs Object  
  80. Dim obj As Object  
  81. objConn = New OleDbConnection  
  82. With objConn  
  83. .ConnectionString = strConnString  
  84. .Open()  
  85. End With  
  86. Try  
  87. objCmd = New OleDbCommand()  
  88. With objCmd  
  89. .Connection = objConn  
  90. .CommandType = CommandType.Text  
  91. .CommandText = strSQL  
  92. End With  
  93. obj = objCmd.ExecuteScalar()  '*** Return Scalar ***'  
  94. Return obj  
  95. Catch ex As Exception  
  96. Return Nothing '*** Return Nothing ***'  
  97. End Try  
  98. End Function  
  99.   
  100. Public Function TransStart()  
  101. objConn = New OleDbConnection  
  102. With objConn  
  103. .ConnectionString = strConnString  
  104. .Open()  
  105. End With  
  106. Trans = objConn.BeginTransaction(IsolationLevel.ReadCommitted)  
  107. End Function  
  108.   
  109. Public Function TransExecute(ByVal strSQL As StringAs Boolean  
  110. objCmd = New OleDbCommand()  
  111. With objCmd  
  112. .Connection = objConn  
  113. .Transaction = Trans  
  114. .CommandType = CommandType.Text  
  115. .CommandText = strSQL  
  116. End With  
  117. objCmd.ExecuteNonQuery()  
  118. End Function  
  119.   
  120. Public Function TransRollBack()  
  121. Trans.Rollback()  
  122. End Function  
  123.   
  124. Public Function TransCommit()  
  125. Trans.Commit()  
  126. End Function  
  127.   
  128. Public Sub Close()  
  129. objConn.Close()  
  130. objConn = Nothing  
  131. End Sub  
  132.   
  133. End Class  

Default.aspx.vb

  1. Imports System.Data  
  2. Imports System.Data.OleDb  
  3. Partial Class _Default  
  4. Inherits System.Web.UI.Page  
  5. Dim clsDB As New clsDatabase  
  6.   
  7. Protected Sub Page_Load(ByVal sender As ObjectByVal e As System.EventArgs) Handles Me.Load  
  8. Call myDataReader()  
  9. Call myDataSet()  
  10. Call myDataTable()  
  11. Call myQueryExecuteScalar()  
  12. Call myExecuteNonQuery()  
  13. Call myExecuteTransaction()  
  14. End Sub  
  15.   
  16. '*** DataReader ***'  
  17. Sub myDataReader()  
  18. Dim strSQL As String  
  19. Dim dtReader As OleDbDataReader  
  20. strSQL = "SELECT * FROM customer "  
  21. dtReader = clsDB.QueryDataReader(strSQL)  
  22. Me.myGridView1.DataSource = dtReader  
  23. Me.myGridView1.DataBind()  
  24.   
  25. '*** Bind Rows ***'  
  26. 'If dtReader.HasRows = True Then  
  27. '    Me.lblCustomerID.Text = dtReader.Item("CustomerID")  
  28. '    Me.lblName.Text = dtReader.Item("Name")  
  29. '    Me.lblEmail.Text = dtReader.Item("Email")  
  30. '    Me.lblCountryCode.Text = dtReader.Item("CountryCode")  
  31. '    Me.lblBudget.Text = dtReader.Item("Budget")  
  32. '    Me.lblUsed.Text = dtReader.Item("Used")  
  33. 'End If  
  34. clsDB.Close()  
  35. End Sub  
  36.   
  37. '*** DataSet ***'  
  38. Sub myDataSet()  
  39. Dim strSQL As String  
  40. Dim ds As DataSet  
  41. strSQL = "SELECT * FROM customer "  
  42. ds = clsDB.QueryDataSet(strSQL)  
  43. Me.myGridView2.DataSource = ds.Tables(0).DefaultView  
  44. Me.myGridView2.DataBind()  
  45.   
  46. '*** Bind Rows ***'  
  47. 'If ds.Tables(0).Rows.Count > 0 Then  
  48. '    Me.lblCustomerID.Text = ds.Tables(0).Rows(0)("CustomerID")  
  49. '    Me.lblName.Text = ds.Tables(0).Rows(0)("Name")  
  50. '    Me.lblEmail.Text = ds.Tables(0).Rows(0)("Email")  
  51. '    Me.lblCountryCode.Text = ds.Tables(0).Rows(0)("CountryCode")  
  52. '    Me.lblBudget.Text = ds.Tables(0).Rows(0)("Budget")  
  53. '    Me.lblUsed.Text = ds.Tables(0).Rows(0)("Used")  
  54. 'End If  
  55. clsDB.Close()  
  56. End Sub  
  57.   
  58. '*** DataTable ***'  
  59. Sub myDataTable()  
  60. Dim strSQL As String  
  61. Dim dt As DataTable  
  62. strSQL = "SELECT * FROM customer "  
  63. dt = clsDB.QueryDataTable(strSQL)  
  64. Me.myGridView3.DataSource = dt  
  65. Me.myGridView3.DataBind()  
  66.   
  67. '*** Bind Rows ***'  
  68. If dt.Rows.Count > 0 Then  
  69. Me.lblCustomerID.Text = dt.Rows(0)("CustomerID")  
  70. Me.lblName.Text = dt.Rows(0)("Name")  
  71. Me.lblEmail.Text = dt.Rows(0)("Email")  
  72. Me.lblCountryCode.Text = dt.Rows(0)("CountryCode")  
  73. Me.lblBudget.Text = dt.Rows(0)("Budget")  
  74. Me.lblUsed.Text = dt.Rows(0)("Used")  
  75. End If  
  76. clsDB.Close()  
  77. End Sub  
  78.   
  79. '*** Execute Scalar ***'  
  80. Sub myQueryExecuteScalar()  
  81. Dim strSQL As String  
  82. strSQL = "SELECT MAX(Budget) FROM customer "  
  83. Me.lblText.Text = clsDB.QueryExecuteScalar(strSQL)  
  84. clsDB.Close()  
  85. End Sub  
  86.   
  87. '*** ExecuteNonQuery ***'  
  88. Sub myExecuteNonQuery()  
  89. Dim strSQL1, strSQL2, strSQL3 As String  
  90.   
  91. '*** Insert ***'  
  92. strSQL1 = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _  
  93. " VALUES('C005','Weerachai Nukitram','webmaster@thaicreate.com','TH','200000','100000')"  
  94. If clsDB.QueryExecuteNonQuery(strSQL1) = True Then  
  95. '*** Condition Success ***'  
  96. Else  
  97. '*** Condition Error ***'  
  98. End If  
  99. clsDB.Close()  
  100.   
  101. '*** Update ***'  
  102. strSQL2 = "UPDATE customer SET Budget = '3000000' WHERE CustomerID = 'C005' "  
  103. If clsDB.QueryExecuteNonQuery(strSQL2) = True Then  
  104. '*** Condition Success ***'  
  105. Else  
  106. '*** Condition Error ***'  
  107. End If  
  108. clsDB.Close()  
  109.   
  110. '*** Delete ***'  
  111. strSQL3 = "DELETE FROM customer WHERE CustomerID = 'C005' "  
  112. If clsDB.QueryExecuteNonQuery(strSQL3) = True Then  
  113. '*** Condition Success ***'  
  114. Else  
  115. '*** Condition Error ***'  
  116. End If  
  117. clsDB.Close()  
  118. End Sub  
  119.   
  120. '*** Execute Transaction ***'  
  121. Sub myExecuteTransaction()  
  122. Dim strSQL1, strSQL2, strSQL3 As String  
  123.   
  124. '*** Start Transaction ***'  
  125. clsDB.TransStart()  
  126.   
  127. Try  
  128. '*** Insert ***'  
  129. strSQL1 = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _  
  130. " VALUES('C005','Weerachai Nukitram','webmaster@thaicreate.com','TH','200000','100000')"  
  131. clsDB.TransExecute(strSQL1) '*** Execute Query 1 ***'  
  132.   
  133. '*** Update ***'  
  134. strSQL2 = "UPDATE customer SET Budget = '3000000' WHERE CustomerID = 'C005' "  
  135. clsDB.TransExecute(strSQL2) '*** Execute Query 2 ***  
  136.   
  137. '*** Delete ***'  
  138. strSQL3 = "DELETE FROM customer WHERE CustomerID = 'C005' "  
  139. clsDB.TransExecute(strSQL3) '*** Execute Query 3 ***  
  140.   
  141. '*** Commit Transaction ***'  
  142. clsDB.TransCommit()  
  143.   
  144. Catch ex As Exception  
  145. '*** RollBack Transaction ***'  
  146. clsDB.TransRollBack()  
  147. End Try  
  148. clsDB.Close()  
  149. End Sub  
  150.   
  151. End Class  

Screenshot

ASP.NET(vb.net) & Microsoft Access Database Class (Visual Studio 2005,2008,2010 - .NET 2.0,3.5,4.0)
.
.
.
Download this script.
Download

1 Star2 Stars3 Stars4 Stars5 Stars6 Stars7 Stars8 Stars9 Stars10 Stars (1 votes, average: 1.00 out of 10)
Loading ... Loading ...

One Response to “ASP.NET(vb.net) & Microsoft Access Database Class (Visual Studio 2005,2008,2010 - .NET 2.0,3.5,4.0)”

  1. 2undeceive…

Leave a Reply

You must be logged in to post a comment.