rowsAffected = sqlCommand.ExecuteScalar

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

        Return rowsAffected

    End Function

    Function ChgFieldByLeftWord(ByVal TableName As String, ByVal FieldName As String, ByVal ParaWord As String, ByVal NewWord As String) As Integer

        Try

            Return UpdateBySQL(TableName, FieldName & "=''''" & NewWord & "''''+right(" & FieldName & ",len(" & FieldName & ")-" & Len(ParaWord) & ")", "Len(" & FieldName & ")>=" & Len(ParaWord) & " and left(" & FieldName & "," & Len(ParaWord) & ")=''''" & ParaWord & "''''")

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        End Try

    End Function

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29]  下一页