台灣最大程式設計社群網站
線上人數
778
 
會員總數:244663
討論主題:188766
歡迎您免費加入會員
討論區列表 >> VB6 >> VB中XML的疑問
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VB中XML的疑問
價值 : 50 QP  點閱數:1804 回應數:0

樓主

AllenChang
門外漢
0 2
198 1
發送站內信

目前小弟在寫新公司一個功能,它的架構是ASP->COM+->Server,
小弟是個新手,想請問一下在VB中有用到XML技術編譯成DLL後,要如何
再利用ASP呼叫。
問題1:在VB端:SQL資料值呼叫出來後,如何塞進XML,資料庫的欄位在XML如何定義
EX. lngDEPT_SER = CLng("0" & xmlParam.selectSingleNode("PARAMS/PARAM/@DEPT_SER").Text)=>這是把資料庫的其中一個欄位塞進去嗎?
@DEPT_SER是欄位名稱,需要定義嗎?
問題2:在ASP端:它塞進XML後,我要取資料庫中欄位要怎麼定義
EX.Set xmlAttr = xmlDoc.createAttribute("DEPT_SER")
=>DEPT_SER是資料庫欄位名稱嗎?
P.S.下面是正確片段程式範例,但我要參照下面程式碼改寫新功能,所以要去了解定義!
再麻煩各位大大囉~


這是VB_DLL片段程式碼


' 以下是必要的初始化動作
lngUSER_SER = CLng("0" & xmlParam.selectSingleNode("LoginUser/UserSer").Text)
strConnectString = xmlParam.selectSingleNode("SystemConfig/DBConnString").Text
lngDEPT_SER = CLng("0" & xmlParam.selectSingleNode("PARAMS/PARAM/@DEPT_SER").Text)
intORGTYPE = CInt("0" & xmlParam.selectSingleNode("PARAMS/PARAM/@ORG_TYPE").Text)

'連結資料庫
Set CN = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
CN.Open strConnectString

blnConnectIsOpen = True

strSQL = " SELECT DEPT.DEPT_SER"
strSQL = strSQL & ",DEPT.DEPT_ID"
strSQL = strSQL & ",DEPT.DEPT_NAME"
strSQL = strSQL & ",DO.ORG_TYPE"
strSQL = strSQL & ",DEPT.ORG_SER"
strSQL = strSQL & ",DEPT.SUP_DEPT_SER"
strSQL = strSQL & ",DEPT.TEL_NO"
strSQL = strSQL & ",DEPT.AGENT_NAME"
strSQL = strSQL & ",DEPT.ZIP_CODE"
strSQL = strSQL & ",DEPT.ADDR"
strSQL = strSQL & ",DEPT2.DEPT_NAME AS 'SUP_DEPT_NAME'"
strSQL = strSQL & ",'' AS 'SUP_USER_NAME'"
strSQL = strSQL & " FROM DEPT(NOLOCK),DEPT DEPT2(NOLOCK),DEF_ORG DO(NOLOCK)"
strSQL = strSQL & " WHERE DEPT.DELETE_FLG=0"
strSQL = strSQL & " AND DEPT.SUP_DEPT_SER=DEPT2.DEPT_SER"
strSQL = strSQL & " AND DEPT.ORG_SER=DO.ORG_SER"


strSQL = strSQL & " ORDER BY DO.ORG_TYPE,DEPT.DEPT_ID"
strLogSQL = strSQL

Set xmlTempData = xmlSel(strSQL, CN)

這是ASP端片段程式

Dim xmlParam, xmlDept, objOrgDept, objWidget, xmlDoc, xmlChildParams, xmlChildParam, xmlAttr
Set objWidget = GetWidgetObject()
Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument")
Set xmlParam = GetParamTemplateXML()
Set xmlChildParams = xmlDoc.createElement("PARAMS")
Set xmlChildParam = xmlDoc.createElement("PARAM")
Set xmlAttr = xmlDoc.createAttribute("DEPT_SER")
xmlParam.appendChild xmlChildParams
xmlChildParams.appendChild xmlChildParam
xmlAttr.Text = Session.Value("GB_DEPT_SER")
xmlChildParam.Attributes.setNamedItem xmlAttr

Set xmlAttr = xmlDoc.createAttribute("ORG_TYPE")
xmlParam.appendChild xmlChildParams
xmlChildParams.appendChild xmlChildParam
xmlAttr.Text = Session.Value("GB_ORG_TYPE")
xmlChildParam.Attributes.setNamedItem xmlAttr







搜尋相關Tags的文章: [ ASP ] , [ XML ] , [ COM+ ] , [ DLL ] , [ VB ] ,
本篇文章發表於2007-07-12 09:27
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.