SQL语句问题具体什么意思呢?
时间:2021-07-01 10:21:17
帮助过:41人阅读
String, ByVal strSubFolderNo
As String)
Dim mySQL
As String
mySQL
= "
SELECT ROW_NUMBER()
OVER ("
& hdfFileListOrderBy.Value
& ")
AS RowNo, A.
*, B.EmployeeName
AS ReviserName
FROM tblFileList
AS A "
mySQL
+= "
LEFT OUTER JOIN tblMstEmployee
AS B
ON A.ReviserNo
= B.EmployeeNo "
mySQL
+= "
WHERE A.SubjectNo
= ‘" & strSubjectNo & "‘ AND A.SubFolderNo
= "
& strSubFolderNo
If lblFileMgnTitleChi.
Text <> "内部下载"
Then mySQL
+= "
AND A.ShowInPublic
= ‘Y‘"
End If Try
Using mySqlDS
As SqlDataSource
= New SqlDataSource
mySqlDS.ProviderName
= strDbType
mySqlDS.ConnectionString
= WebConfigurationManager.ConnectionStrings(strCnnType
& "DbBTA").ConnectionString
mySqlDS.SelectCommand
= mySQL
mySqlDS.DataSourceMode
= SqlDataSourceMode.DataSet
Dim my_args
As New DataSourceSelectArguments
Dim my_DV
As Data.DataView
= mySqlDS.
Select(my_args)
lvFileList.DataSource
= my_DV
lvFileList.DataBind()
End Using
Catch ex
As Exception
Dim strErr
As String
= "●●● 程式错误讯息如下 ●●●"
& "\n\n"
& Replace(
Replace(
Replace(
Replace(Trim(ex.ToString()), Chr(
10), ""), Chr(
13), ""), "\", "\\"), "
‘", "\‘")
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "alert", "alert(
‘" & strErr & "‘);", True)
End Try
End Sub
SQL语句问题具体什么意思呢?
标签:end class script ace trim sub get 意思 out