求：一个VB.net写的类，有读、增、修、删的功能。在线等，急。

Question

求一个VB.net写的类，有读、增、修、删的功能。在线等，急。
早知道使用类操作数据库相当方便，但就是不会写。请高手们，赐教。
在asp.net使用vb.net，类是怎么写。

Answer 1

Imports System
Imports System.Data.OleDb

Namespace DBTest
Friend Class DBHelper
' Methods
Public Sub New(ByVal connectionString As String)
Me.objCn = New OleDbConnection(connectionString)
Me.objCmd = Me.objCn.CreateCommand
End Sub

Public Function Delete(ByVal sql As String) As Integer
Me.objCn.Open
Me.objCmd.CommandText = sql
Dim retval As Integer = Me.objCmd.ExecuteNonQuery
Me.objCn.Close
Return retval
End Function

Protected Overrides Sub Finalize()
Try
Me.objCmd.Dispose
Me.objCn.Dispose
Finally
MyBase.Finalize
End Try
End Sub

Public Function Insert(ByVal sql As String) As Integer
Me.objCn.Open
Me.objCmd.CommandText = sql
Dim retval As Integer = Me.objCmd.ExecuteNonQuery
Me.objCn.Close
Return retval
End Function

Public Function Read(ByVal sql As String) As Object
Me.objCn.Open
Me.objCmd.CommandText = sql
Dim retval As Object = Me.objCmd.ExecuteScalar
Me.objCn.Close
Return retval
End Function

Public Function Update(ByVal sql As String) As Integer
Me.objCn.Open
Me.objCmd.CommandText = sql
Dim retval As Integer = Me.objCmd.ExecuteNonQuery
Me.objCn.Close
Return retval
End Function

' Fields
Private objCmd As OleDbCommand
Private objCn As OleDbConnection
End Class
End Namespace

Answer 2

添加新项>>数据集>>下一步>>下一步>>查询生成器>>选择表>>选择列....>>下一步>>下一步>>>>下一步>>下一步>>>>下一步>>下一步>>>>下一步>>下一步>>>>下一步>>下一步>>完成