vb net 数据库

程序设计：⼀个好⽤的数据库操作类的模板

中间对数据库操作使⽤的是：

Imports

en

t

PublicClass

UserClass

DimsqlAsString

PublicFunction

Add(ByValdmAs

Object)AsBoolean

Dimpr(10)As

SqlParameter

sql="insertinto

tbl()values"

sql=sql&"()"

If

teNonQuery(sql,pr)

>=1Then

ReturnTrue

Else

ReturnFalse

EndIf

EndFunction

PublicFunction

Update(ByValdmAs

Object)AsBoolean

Dimpr(10)As

SqlParameter

sql="updatetbl

setx=@xwhereid="

&dm

If

teNonQuery(sql,pr)

>=1Then

ReturnTrue

Else

ReturnFalse

EndIf

EndFunction

PublicFunction

Delete(ByValidAs

String)AsBoolean

sql="delete

fromtblwhereid="&

id

sql="updatetbl

setstrStatus='void'

whereid="&id

teNonQuery(sql)

EndFunction

PublicFunction

CheckRsExist(ByVal

idAsString)As

Boolean

sql="select1

fromtblwhereid="&

id

Return

RsExist(sql)

EndFunction

PublicFunction

GetTable()As

DataTable

Return

le("")

EndFunction

PublicFunction

GetTable(ByValidAs

String)AsDataTable

ReturnNothing

EndFunction

PublicFunction

GetTableCN()As

DataTable

Return

leCN("")

EndFunction

PublicFunction

GetTableCN(ByValid

AsString)As

DataTable

ReturnNothing

EndFunction

EndClass