中间对数据库操作使用的是：sqlHelper.vb

Imports System.Data Imports System.Data.<a href="/tag/sql/" target="_blank" class="keywords">sql</a>Client Public Class UserClass Dim <a href="/tag/sql/" target="_blank" class="keywords">sql</a> As String Public Function Add(ByVal dm As Object) As Boolean Dim pr(10) As <a href="/tag/sql/" target="_blank" class="keywords">sql</a>Parameter <a href="/tag/sql/" target="_blank" class="keywords">sql</a> = "insert into tbl() values " <a href="/tag/sql/" target="_blank" class="keywords">sql</a> = <a href="/tag/sql/" target="_blank" class="keywords">sql</a> & "()" If <a href="/tag/sql/" target="_blank" class="keywords">sql</a>HelperExt.ExecuteNonQuery(<a href="/tag/sql/" target="_blank" class="keywords">sql</a>,pr) >= 1 Then Return True Else Return False End If End Function Public Function Update(ByVal dm As Object) As Boolean Dim pr(10) As <a href="/tag/sql/" target="_blank" class="keywords">sql</a>Parameter <a href="/tag/sql/" target="_blank" class="keywords">sql</a> = "update tbl set x=@x where id=" & dm If <a href="/tag/sql/" target="_blank" class="keywords">sql</a>HelperExt.ExecuteNonQuery(<a href="/tag/sql/" target="_blank" class="keywords">sql</a>,pr) >= 1 Then Return True Else Return False End If End Function Public Function Delete(ByVal id As String) As Boolean <a href="/tag/sql/" target="_blank" class="keywords">sql</a> = "delete from tbl where id=" & id <a href="/tag/sql/" target="_blank" class="keywords">sql</a> = "update tbl set strStatus='void' where id=" & id <a href="/tag/sql/" target="_blank" class="keywords">sql</a>HelperExt.ExecuteNonQuery(<a href="/tag/sql/" target="_blank" class="keywords">sql</a>) End Function Public Function CheckRsExist(ByVal id As String) As Boolean <a href="/tag/sql/" target="_blank" class="keywords">sql</a> = "select 1 from tbl where id=" & id Return <a href="/tag/sql/" target="_blank" class="keywords">sql</a>HelperExt.CheckRsExist(<a href="/tag/sql/" target="_blank" class="keywords">sql</a>) End Function Public Function GetTable() As DataTable Return Me.GetTable("") End Function Public Function GetTable(ByVal id As String) As DataTable Return Nothing End Function Public Function GetTableCN() As DataTable Return Me.GetTableCN("") End Function Public Function GetTableCN(ByVal id As String) As DataTable Return Nothing End Function End Class