SQL语句问题具体什么意思呢?
2024-09-05 21:32:54
SQL语句问题
底下SQL查询语法中的 as A 和 as B 是什么意思?
为什么A和B不用定义就能用?
程序代码:
Private Sub LoadFileList(ByVal strSubjectNo As 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
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
最新文章
- linux man的使用
- MySQL远程连接丢失问题解决方法Lost connection to MySQL server at ‘reading initial communication packet’, system error: 0
- #define #include #undef的其中一个用法(目的)
- js实现四舍六入 奇进偶舍
- [Linux]centOS7-1-1503-x86_64下安装VM-TOOLS
- JDBC 对数据库连接的封装
- SpringMVC 初始化网站静态信息
- 【android】侧滑关闭activity
- motto3
- 无状态Web应用集成——《跟我学Shiro》
- 你是怎么理解“MVC”的
- plsql设置窗口默认格式
- HTML5 Canvas 绘制时钟
- 使用TeamCity对项目进行可持续集成管理
- Go 实现 NumberFormat 函数
- boost::this_thread::sleep_for()死锁
- for循环输出素数探究【java】
- 一台服务器多实例mysql做主从复制
- HDU 1247 Hat’s Words(字典树)
- kernel——make menuconfig的实现原理【转】