SQL帮助有选择选项

请让我知道，如果我可以使问题更容易理解，因为我可以真正的帮助做...SQL帮助有选择选项

我们有类别和别名目录，和我m试图添加创建别名的能力子类进入顶级类别，其中目前我们只能将别名子类别添加到其他子类别，这不是我们想要的。

例如，我想补充的子类别“地产代理”到两个主要类别“家居与园艺”和“金融与抵押贷款”。

我只能将'地产代理'添加到任一子类别中，所以想要在下拉选择选项中包含顶级类别以及子类别。希望是有道理的！

该代码发布在下方，由2个独立的文件组成，用于处理数据。它当前正在请求PGID - 这是父目录GID - 即顶级类别。

我们希望别名下拉选择选项不仅显示属于父类别（PGID）顶级类别的子类别（GID），还显示PGID顶级类别本身。

E.g.选择选项包括所有级别的类别，如：

家庭和花园（PGID）
地产代理（GID）
家具供应商（GID）
花园中心（GID ）等

不只是：

地产代理（GID）
家具供应商（GID）
花园中心（GID）

请让我知道如果我能进一步明确，因为它很简单，但难以解释！

AddAlias.asp

<!--#include virtual="/Admin/FranchiseAdmin/DirectorySetup/Aliases/i_Alias.asp"--> 
<% 
    objConn.Open strConn 
%> 
<input type="hidden" **name="PGID" value="<% = Request("PGID") %>"** /> 
    <select> 
    <% 
    SQLCommand = "SELECT * FROM Directories WHERE GID='" & CleanSQLText(Request("PGID")) & "'" 
    rsTemp.Open SQLCommand, objConn, adOpenStatic, adLockReadOnly 
    if rsTemp.RecordCount <> 1 then 
    FailSystemEvent "AddAlias: Failed to load Existing Parent" 
    Else 
    %> 
    <option value="<% = rsTemp("GID") %>"><% = rsTemp("DirectoryName") %></option><% 
    End if 
    rsTemp.Close 
    SQLCommand = "SELECT * FROM Directories WHERE ParentDirectoryGID IS NOT NULL AND GID <> '" & CleanSQLText(Request("PGID")) & "' ORDER BY DirectoryName" 
    rsTemp.Open SQLCommand, objConn, adOpenStatic, adLockReadOnly 
    While Not rsTemp.EOF 
    CreateSelectOption rsTemp("GID"), rsTemp("DirectoryName"), CleanSQLText(Request("PGID")) 
    rsTemp.MoveNext 
    Wend 
    rsTemp.Close 
    %> 
    </select> 
<% 
objConn.Close 
%>

我去掉上面的代码ParentDirectoryGID IS NOT NULL现在在哪里我现在可以看到顶级catgories以下，但由于不能保存到错误

包含文件i_Alias.asp正在生成错误，并说：发生错误。目录GID无效

这里是包括文件代码：i_Alias.asp

<% 

Dim SQLCommand : SQLCommand = "" 
Dim SQLFilter : SQLFilter = "" 
Dim objConn : Set objConn = Server.CreateObject("ADODB.Connection") 
Dim rsAlias : Set rsAlias = Server.CreateObject("ADODB.RecordSet") 
Dim rsTemp : Set rsTemp = Server.CreateObject("ADODB.RecordSet") 
Dim strUserError : strUserError = "" 

Dim strFranchiseGID 
Dim strDirectoryGID 

Dim objEditor 

Select Case Request.Form("Action") 
    Case "AddNew" 

     'strFranchiseGID = CleanSQLData(Request.Form("strFranchiseGID")) 
     'If strFranchiseGID = "" then strFranchiseGID = Null 
     strFranchiseGID = Session("AdminFranchiseGID") 

     strDirectoryGID = CleanSQLData(Request.Form("PGID")) 
     If strDirectoryGID = "" then 
      strUserError = strUserError & "An error has occured. The Directory GID is invalid" 
     end if 

     if strUserError = "" then 
      objConn.Open strConn 
      SQLCommand = "SELECT TOP 1 * FROM DirectoryAliases" 
      rsAlias.Open SQLCommand, objConn, adOpenKeySet, adLockOptimistic 
      rsAlias.AddNew 
      rsAlias("FranchiseGID") = strFranchiseGID 
      rsAlias("DirectoryGID") = strDirectoryGID 
      rsAlias.Update 
      rsAlias.Close 
      objConn.Close 
      'Response.Redirect "Default.asp?PGID=" & Request("PGID") 
      ' Redirect to the New Parent Folders 
      Response.Redirect "Default.asp?PGID=" & strDirectoryGID 
     End if 
    Case "Update" 
     if Not Session("Role_Franchise_ManageDirectory") = True then 
      AccessDenied 
     End if 
     objConn.Open strConn 
     SQLCommand = "SELECT * FROM DirectoryAliases WHERE GID = '" & CleanSQLData(Request.Form("GID")) & "'" 
     rsAlias.Open SQLCommand, objConn, adOpenKeySet, adLockOptimistic 
     if rsAlias.RecordCount <> 1 then 
      FailSystemEvent "EditAlias Update failed - could not load unique record" 
      rsAlias.Close 
      objConn.Close 
      Response.End 
     End if 
     'strFranchiseGID = CleanSQLData(Request.Form("strFranchiseGID")) 
     'If strFranchiseGID = "" then strFranchiseGID = Null 
     strFranchiseGID = Session("AdminFranchiseGID") 
     rsAlias("FranchiseGID") = strFranchiseGID 

     strDirectoryGID = CleanSQLData(Request.Form("PGID")) 
     If strDirectoryGID = "" then 
      strUserError = strUserError & "An error occured. The Directory GID is invalid" 
     else 
      rsAlias("DirectoryGID") = strDirectoryGID 
     End if 
     rsAlias.Update 
     rsAlias.Close 
     objConn.Close 
     if strUserError = "" then 
      Response.Redirect "Default.asp?PGID=" & Request("PGID") 
     end if 
    Case "Delete" 
     if Not Session("Role_Franchise_ManageDirectory") = True then 
      AccessDenied 
     End if 
     SQLCommand = "DELETE DirectoryAliases WHERE GID = '" & CleanSQLText(Request.Form("GID")) & "'" 
     objConn.Open strConn 
     objConn.Execute SQLCommand 
     objConn.Close 
End Select 
%>

希望有人能帮助！

来源

2011-05-06 321

想必ParentDirectoryGID是空的顶级级别的ParentDirectories？你可以将它设置为根GID吗？ – StevieG 2011-05-06 10:32:26

我不知道我完全理解你的问题，但你可以做到这一点与UNION即

假设你有列递减和PGID，并与COLS递减，GID和PGID

表B表A

select * from 
(
select desc, GID as X from A 
union all 
select desc, PGID as X from B 
) both_tables_unioned 
order by X, desc

因此，如果表A中包含：

desc  GID 
----  --- 
A  1 
B  2

和B包含：

desc  PGID 
----  ---- 
AA  1 
AB  1 
BA  2 
BB  2

你应该得到

A  1 
AA  1 
AB  1 
B  1 
BA  1 
BB  1

结果

来源

2011-05-06 12:09:54 davek

你能描述表结构多一点？

这看起来是一个父子关系所以：目录表有主键GID，有外键ParentDirectoryGID到directory.GID

样本数据：

GID 9 - 首页（GID）ParentDirectoryGID = NULL
GID 10 - 地产代理（GID）ParentDirectoryGID = 9
GID 11 - 家具Su ppliers（GID）ParentDirectoryGID = 9
GID 12 - 花园中心（GID）等ParentDirectoryGID = 9

什么你想要做的是填充下拉由母公司及其所有后代（关于孩子的孩子呢？）

如果正确的话，你可能想看看在Oracle连接层次查询事先（但我不”知道什么数据库引擎使用的）

来源

2011-05-06 16:20:13

SQL帮助有选择选项

回答

相关问题