請看下面示例：
數(shù)據(jù)表結(jié)構(gòu)如下：
生成的 屬性成員 和 添加，更新的代碼：
'autothrcode自動生成三層結(jié)構(gòu)業(yè)務邏輯層代碼
'isdotnet 版權(quán)所有
'作者：夢蟲
'msn:[email protected]
'http://www.isdotnet.com
'本代碼引用 isdotnet.data.sqldbhelper 類，請將 adohelper.dll 拷貝到web程序的bin目錄下
'請在web程序的web.config文件的節(jié)配置數(shù)據(jù)庫連接字符串，"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][email protected],[phone][email protected] where [shipperid][email protected]"
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
此程序部分界面截屏
