DAL/WheretxtSQL.vb

（完整代码） 754B 

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Text
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports SQLHelper
Imports Model
Public Class WheretxtSQL
    Public Function Add_wheretxt(ByVal strerp As WHERETXT) As Integer

        Dim sqlHelper As New Global.SQLHelper.ERPSQLHelper
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@WHERESQL", SqlDbType.NVarChar, 200, strerp.wheresql)}
        Try
            Return (sqlHelper.RunProc("Consignimport", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。