在新建的類代碼中寫下面代碼

Public Function ExecuteNoSQL(ByVal Sql As String) As String
        Dim con As SqlConnection
        Dim com As SqlCommand
        con = New SqlConnection(GetConn)
        con.Open()
        com = New SqlCommand(Sql, con)
        Return com.ExecuteNonQuery
        con.Close()
        com.Dispose()
    End Function
    Public Function ExecuteNoSQL(ByVal sql As String, ByVal parameter() As SqlParameter) As String
        Dim con As SqlConnection
        Dim com As SqlCommand
        Dim i, j As Integer
        j = parameter.Length - 1
        con = New SqlConnection(GetConn)
        con.Open()
        com = New SqlCommand(sql, con)
        For i = 1 To j
            com.Parameters.Add(parameter(i))
        Next
        Return com.ExecuteNonQuery
        con.Close()
        com.Dispose()
    End Function

對ExecuteNosql進行重載,第一個是不帶參數(shù)的執(zhí)行,根據(jù)SQL語句返回受影響的行數(shù),第二個是帶參數(shù)的,patameter數(shù)據(jù)下標應從1開始使用,返回受影響的行數(shù).

在普通的用戶界面代碼中寫下面代碼

  Dim addQx(3) As SqlParameter
  Dim sql As String
  Dim jc As String = ""

  addQx(1) = New SqlParameter("@yhid", SqlDbType.VarChar)
  addQx(1).Value = yhid
  addQx(2) = New SqlParameter("@yhmc", SqlDbType.VarChar)
  addQx(2).Value = yhmc
  addQx(3) = New SqlParameter("@yhmm", SqlDbType.VarChar)
  addQx(3).Value = pass

  sql = " insert into 用戶信息 (用戶id,名稱,密碼,狀態(tài)) values (@yhid,@yhmc,@yhmm,'未審核') "

  jc = Trim(ks.ExecuteNoSQL(sql, addQx))

好了,到此就可以使用了