請(qǐng)看下面示例：
數(shù)據(jù)表結(jié)構(gòu)如下：


生成的 屬性成員 和 添加，更新的代碼：


'AutoThrCode自動(dòng)生成三層結(jié)構(gòu)業(yè)務(wù)邏輯層代碼
'IsDotNet 版權(quán)所有
'作者：夢(mèng)蟲(chóng)
'Msn:IsDotNet@MsN.CoM
'Http://www.IsDotNet.com
'本代碼引用 IsDotNet.Data.SqlDbHelper 類(lèi)，請(qǐng)將 AdoHelper.dll 拷貝到WEB程序的BIN目錄下
'請(qǐng)?jiān)赪EB程序的web.config文件的節(jié)配置數(shù)據(jù)庫(kù)連接字符串，"ConnectionString" value="Server=(local); database=databasename; User ID=sa; Password=sa;" />

Imports System
Imports System.Data
Imports System.Data.SqlClient

Class DBShippers

'屬性成員ErrMsg
Private _ErrMsg As String
Public Property [ErrMsg] As String
Get
Return Me._Errmsg
End Get
Set(ByVal Value As String)
Me._Errmsg = Value
End Set
End Property

'屬性成員:ShipperID
Private intShipperid As Integer
Public Property [ShipperID] As Integer
Get
Return Me.intShipperid
End Get
Set(ByVal Value As Integer )
Me.intShipperid = Value
End Set
End Property

'屬性成員:CompanyName
Private strCompanyname As String
Public Property [CompanyName] As String
Get
Return Me.strCompanyname
End Get
Set(ByVal Value As String )
Me.strCompanyname = Value
End Set
End Property

'屬性成員:Phone
Private strPhone As String
Public Property [Phone] As String
Get
Return Me.strPhone
End Get
Set(ByVal Value As String )
Me.strPhone = Value
End Set
End Property

'添加
Public Function Shippers_Insert() As Boolean
Dim db As New IsDotNet.Data.SqlDbHelper
Dim strSql As String = "Insert Into [Shippers] ([CompanyName],[Phone]) values (@CompanyName,@Phone)"
Dim param() As SqlParameter = { _
db.MakeInParam("@CompanyName", SqlDbType.NVarChar, 40, Me.strCompanyname) , _
db.MakeInParam("@Phone", SqlDbType.NVarChar, 24, Me.strPhone) _
}
If db.Execute(strSql,param) Then
Return True
Else
Me._ErrMsg = db.ErrMsg
Return False
End If
End Function


'更新
Public Function Shippers_Update() As Boolean
Dim db As New IsDotNet.Data.SqlDbHelper
Dim strSql As String = "Update [Shippers] Set [CompanyName]=@CompanyName,[Phone]=@Phone where [ShipperID]=@ShipperID"
Dim param() As SqlParameter = { _
db.MakeInParam("@CompanyName", SqlDbType.NVarChar, 40, Me.strCompanyname) , _
db.MakeInParam("@Phone", SqlDbType.NVarChar, 24, Me.strPhone) , _
db.MakeInParam("@ShipperID", SqlDbType.Int, 0, Me.intShipperid) _
}
If db.Execute(strSql, param) Then
Return True
Else
Me.ErrMsg = db.ErrMsg
Return False
End If
End Function
End Class

此程序部分界面截屏