Dim vSqlError As String = ""
      Dim vSqlMsg As String = ""
      Dim vExcMsg As String = ""
      Dim vError As Boolean = False
      Dim dtr As SqlDataReader

      Try
         Dim ss As String = "Insert into Terms "
         ss = ss & " (Term, Active) "
         ss = ss & " values "
         ss = ss & "(@Term, @Active)"
         or
         Dim ss As String = "Update Terms Set "
         ss = ss & " Term  = '" & vTerm & "', "
         ss = ss & " Active   = " & vActive & " "
         ss = ss & " where Term = @Term "

         Dim ConnStr As String = Session("ConnectString")
         Dim conn As New SqlConnection(ConnStr)
         Dim Cmd As New SqlCommand(ss, conn)
         With Cmd.Parameters
            .Add(New SqlParameter("@Term", vTerm))
            .Add(New SqlParameter("@Active", vActive))

         End With

         conn.Open()
         dtr = Cmd.ExecuteReader()
         conn.Close()

      Catch sqlerr As SqlException
         MsgBox(sqlerr.Message)
         vSqlError = sqlerr.Number
         'vSqlMsg = sqlerr.Message
         vError = True
      Catch exc As Exception
         'TheException.ToString()
         vExcMsg = exc.Message
         vError = True
      Finally
         'lblResult.Text = lblResult.Text & "Done."
      End Try

      If vError Then
         'SqlErr.Text = vSqlError
         'SqlMsg.Text = vSqlMsg
         'ss_msg.Text = ss
      End If

Hosted by www.Geocities.ws