请看下面示例：
数据表结构如下：


生成的 属性成员 和 添加，更新的代码：


'AutoThrCode自动生成三层结构业务逻辑层代码
'IsDotNet 版权所有
'作者：梦虫
'Msn:IsDotNetMsN.CoM
'Http://www.IsDotNet.com
'本代码引用 IsDotNet.Data.SqlDbHelper 类，请将 AdoHelper.dll 拷贝到WEB程序的BIN目录下
'请在WEB程序的web.config文件的节配置数据库连接字符串，"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

此程序部分界面截屏