- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費(fèi)分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準(zhǔn)確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細(xì)教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設(shè)置VPN來登錄youtube等國外網(wǎng)站
- 12qq郵件是否已讀怎么看 QQ郵箱已經(jīng)發(fā)出去的郵件怎么知道對方是否已經(jīng)查看
聊天工具辦公軟件殺毒教程系統(tǒng)工具圖形圖像電腦學(xué)習(xí)應(yīng)用軟件網(wǎng)絡(luò)軟件蘋果應(yīng)用注冊碼網(wǎng)站教程技術(shù)開發(fā)安卓教程其它教程
您當(dāng)前所在位置：網(wǎng)視手游站 -> 網(wǎng)站教程 -> ADO數(shù)據(jù)與XML數(shù)據(jù)間的轉(zhuǎn)換的類(ASP完成)
ADO數(shù)據(jù)與XML數(shù)據(jù)間的轉(zhuǎn)換的類(ASP完成)
發(fā)表時間：2024-01-30 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]當(dāng)對現(xiàn)有數(shù)據(jù)庫的數(shù)據(jù)進(jìn)行分析時，經(jīng)常需要對某一部分的數(shù)據(jù)進(jìn)行分析.此時，使用1.SQL查詢分析器？ 但其往往不直觀，查找某個關(guān)鍵字又需要重新執(zhí)行新的SQL.2.SQLXML模板？ 但又不一定有權(quán)限建立新的虛擬目錄，且某些SQL語句SQLXML模板不支持?jǐn)?shù)據(jù)拆離時也有相似問題。尤其當(dāng)不同網(wǎng)絡(luò)，不同環(huán)...
當(dāng)對現(xiàn)有數(shù)據(jù)庫的數(shù)據(jù)進(jìn)行分析時，經(jīng)常需要對某一部分的數(shù)據(jù)進(jìn)行分析.此時，使用1.SQL查詢分析器？
但其往往不直觀，查找某個關(guān)鍵字又需要重新執(zhí)行新的SQL.
2.SQLXML模板？
但又不一定有權(quán)限建立新的虛擬目錄，且某些SQL語句SQLXML模板不支持
數(shù)據(jù)拆離時也有相似問題。
尤其當(dāng)不同網(wǎng)絡(luò)，不同環(huán)境，需要重新導(dǎo)入數(shù)據(jù)，進(jìn)行分析或拆離，困難尤為明顯。
能不能有一種方法，可以將數(shù)據(jù)脫離于數(shù)據(jù)庫進(jìn)行分析，需要時再導(dǎo)入到數(shù)據(jù)庫中？
XML是個很好的選擇！
ADO本身支持?jǐn)?shù)據(jù)到XML的轉(zhuǎn)換，只需要對其格式進(jìn)行解析，成為自己的XML文件通用格式，就可以進(jìn)行本地分析
而對通用XML格式進(jìn)行數(shù)據(jù)庫映射，就可完成數(shù)據(jù)重新導(dǎo)入數(shù)據(jù)庫的工作.
下面是一個ADO數(shù)據(jù)(表的基本數(shù)據(jù))與XML數(shù)據(jù)間的相互轉(zhuǎn)換的類(ASP實現(xiàn))，初步完成表數(shù)據(jù)的導(dǎo)入、導(dǎo)出。
通用表間關(guān)系映射(通過XSD描述),考慮之中，希望各位賜教指點，不勝感激.
一個調(diào)用類的例子：
example.asp
<!--#include file="transformData.asp"-->
<%
Dim aSQL(1,1)
Dim oXMLData
'====== 連接數(shù)據(jù)庫過程 ======
'獲得數(shù)據(jù)庫連接對象 oDbConn
'====== 連接數(shù)據(jù)庫過程 ======
aSQL(0,0) = "PubLable"
aSQL(0,1) = "Select * from PubLabel where cLabelName like '%abc%' Order by nLabelID"
aSQL(1,0) = "PubUser"
aSQL(1,1) = "Select * from PubUser where cUserName like '%abc%' Order by nUserID"
set oXMLData = New TransformData
Call Export()
'Call Import()
set oXMLData = nothing
' // 當(dāng)對象屬性有默認(rèn)值(default())時,可以不用在賦值
Sub Export() ' // 導(dǎo)出數(shù)據(jù)
oXMLData.aSQlData = aSQL
' 必須 2維SQL語句數(shù)組
oXMLData.bIsSave = 1
' default(1) 是否保存為XML文件
oXMLData.bIsOutput = 1
' default(0) 是否顯示XML數(shù)據(jù)
oXMLData.sSaveFileName = "Data.xml"
' default(當(dāng)前時間加隨機(jī)數(shù)) 如果保存XML數(shù)據(jù)，XML文件名稱
oXMLData.sSaveFilePath = ""
' default("") 如果保存XML數(shù)據(jù)，XML文件路徑(相對路徑)
oXMLData.sEncoding = "gb2312"
' default("gb2312") XML文件編碼類型
oXMLData.Export (oDbConn)
' // 導(dǎo)出數(shù)據(jù)過程
IF (oXMLData.nErrCode<>0) Then ' nErrCode(錯誤代碼)為0，運(yùn)行成功
Response.Write oXMLData.GetErrExegesis(oXMLData.nErrCode)
'nErrCode(錯誤代碼)，通過方法GetErrExegesis() 獲得注釋
End IF
End Sub
Sub Import() ' // 導(dǎo)入數(shù)據(jù)
oXMLData.sXMLFile = "Data.xml" ' 必須 數(shù)據(jù)源XML文件(包含相對路徑)
oXMLData.sVacancyCols = "nLabelID" ' 必須 指定某些字段的值可以不導(dǎo)入(屏蔽字段)
' 格式 "nID,dDate" (以‘，’分隔字段)
oXMLData.Import (oDbConn)
IF (oXMLData.nErrCode=0) Then
Response.Write "數(shù)據(jù)導(dǎo)入成功！"
Else
Response.Write oXMLData.GetErrExegesis(oXMLData.nErrCode)
End IF
End Sub
%>
類的代碼：
TransformData.asp
<%
Class TransformData
'*****************************************************
' Copyright (c) 2003
' 創(chuàng) 建 人 : moonpiazza
' 日 期 : 2003.5.21
' 描 述 : ADO數(shù)據(jù)與XML數(shù)據(jù)間的轉(zhuǎn)換(ASP實現(xiàn))
' 版 本 : 1.0
' 功 能 : ADO數(shù)據(jù)(表的基本數(shù)據(jù))與XML數(shù)據(jù)間的相互轉(zhuǎn)換
' 待 改 進(jìn) : 表間數(shù)據(jù)的關(guān)聯(lián)性(通用)，數(shù)據(jù)量大時速度問題
'
' 版 權(quán) : 歡迎改進(jìn)，翻版不究 :_)
'
'*****************************************************
'*****************************************************
' 公共方法： Export, Import, GetErrExegesis
'*****************************************************
'============================= 公共變量 End =============================
Private m_oXMLDOM
Private m_oXSLDOM
'============================= 公共變量 Begin =============================
'============================= 錯誤代碼定義 Begin =============================
Private m_nErrCode_NotArray
Private m_nErrCode_XMLDOM
Private m_nErrCode_ReadData
Private m_nErrCode_WriteData
Private m_nErrCode_Save
Private m_nErrCode_EnsFile
Private m_nErrCode_ErrFile
'============================= 錯誤代碼定義 End =============================
'============================= 屬性定義 Begin =============================
Private m_aSQlData
Private m_bIsSave
Private m_bIsOutput
Private m_sSaveFileName
Private m_sSaveFilePath
Private m_sXMLFile
Private m_sVacancyCols
Private m_nErrCode
Private m_sEncoding
Private m_sImportSQL
'*****************************************************
' 屬性： aSQlData
' 狀態(tài)： 可寫
' 類型： 2維數(shù)組
' 描述： SQL語句數(shù)組，1維是表名稱，2維是相應(yīng)SQL語句
'*****************************************************
Public Property Let aSQlData(ByRef p_aSQlData)
m_aSQlData = p_aSQlData
End Property
'*****************************************************
' 屬性： bIsSave
' 狀態(tài)： 可寫
' 類型： 數(shù)字(0,1) default(1)
' 描述： 導(dǎo)出數(shù)據(jù)時，是否保存為XML文件
'*****************************************************
Public Property Let bIsSave(ByRef p_bIsSave)
m_bIsSave = Cint(p_bIsSave)
End Property
'*****************************************************
' 屬性： bIsOutput
' 狀態(tài)： 可寫
' 類型： 數(shù)字(0,1) default(0)
' 描述： 導(dǎo)出數(shù)據(jù)時，是否顯示XML數(shù)據(jù)
'*****************************************************
Public Property Let bIsOutput(ByRef p_bIsOutput)
m_bIsOutput = Cint(p_bIsOutput)
End Property
'*****************************************************
' 屬性： sSaveFileName
' 狀態(tài)： 可寫，可讀
' 類型： 字符串 default(GetRndFileName())
' 描述： 導(dǎo)出數(shù)據(jù)時，如果保存XML數(shù)據(jù)，XML文件名稱
'*****************************************************
Public Property Let sSaveFileName(ByRef p_sSaveFileName)
m_sSaveFileName = p_sSaveFileName
End Property
Public Property Get sSaveFileName()
sSaveFileName = m_sSaveFileName
End Property
'*****************************************************
' 屬性： sSaveFilePath
' 狀態(tài)： 可寫，可讀
' 類型： 字符串 default("")
' 描述： 導(dǎo)出數(shù)據(jù)時，如果保存XML數(shù)據(jù)，XML文件路徑(相對路徑)
'*****************************************************
Public Property Let sSaveFilePath(ByRef p_sSaveFilePath)
m_sSaveFilePath = p_sSaveFilePath
End Property
Public Property Get sSaveFilePath()
sSaveFilePath = m_sSaveFilePath
End Property
'*****************************************************
' 屬性： sXMLFile
' 狀態(tài)： 可寫
' 類型： 字符串
' 描述： 導(dǎo)入數(shù)據(jù)時，數(shù)據(jù)源XML文件(包含相對路徑)
'*****************************************************
Public Property Let sXMLFile(ByRef p_sXMLFile)
m_sXMLFile = p_sXMLFile
End Property
'*****************************************************
' 屬性： sVacancyCols
' 狀態(tài)： 可寫
' 類型： 字符串 default("")
' 格式 "nID,dDate" (以‘，’分隔字段)
' 描述： 導(dǎo)入數(shù)據(jù)時，指定某些字段的值可以不導(dǎo)入(屏蔽字段)
'*****************************************************
Public Property Let sVacancyCols(ByRef p_sVacancyCols)
m_sVacancyCols = "," & p_sVacancyCols & ","
End Property
'*****************************************************
' 屬性： nErrCode
' 狀態(tài)： 可讀
' 類型： 數(shù)字 default(0)
' 描述： 錯誤代碼，可通過方法GetErrExegesis(ByRef p_nErrCode) 獲得注釋
'*****************************************************
Public Property Get nErrCode()
nErrCode = m_nErrCode
End Property
'*****************************************************
' 屬性： sEncoding
' 狀態(tài)： 可寫
' 類型： 字符串 default("gb2312")
' 描述： XML文件編碼類型
'*****************************************************
Public Property Let sEncoding(ByRef p_sEncoding)
m_sEncoding = p_sEncoding
End Property
'*****************************************************
' 屬性： sImportSQL
' 狀態(tài)： 可讀
' 類型： 字符串 default("gb2312")
' 描述： 導(dǎo)入數(shù)據(jù)時，生成的SQL語句
'*****************************************************
Public Property Get sImportSQL()
sImportSQL = m_sImportSQL
End Property
'============================= 屬性定義 End =============================
'*****************************************************
' 初始化類
'*****************************************************
Private Sub Class_Initialize()
Server.ScriptTimeout = 1000
m_nErrCode_NotErr = 0
m_nErrCode_NotArray = 1
m_nErrCode_XMLDOM = 2
m_nErrCode_ReadData = 3
m_nErrCode_WriteData= 4
m_nErrCode_Save = 5
m_nErrCode_EnsFile = 6
m_nErrCode_ErrFile = 7
m_bIsSave = 1
m_bIsOutput = 0
m_sSaveFilePath = ""
m_sSaveFileName = ""
m_sXMLFile = ""
m_sVacancyCols = ""
m_nErrCode = m_nErrCode_NotErr
m_sEncoding = "gb2312"
End Sub
'*****************************************************
' 注銷類
'*****************************************************
Private Sub Class_Terminate()
Set m_oXMLDOM = Nothing
Set m_oXSLDOM = Nothing
End Sub
'============================= 數(shù)據(jù)導(dǎo)出 Begin =============================
'*****************************************************
' 過程： Export(ByRef p_oDbConn)
' 描述： 導(dǎo)出數(shù)據(jù)
' 參數(shù)：
' p_oDbConn： 數(shù)據(jù)庫連接對象
'
'*****************************************************
Public Sub Export(ByRef p_oDbConn)
Dim nI, nMaxI
Dim sTableName, sSQL
Dim sDataXML, sXSLStr
Dim sXMLStr
If (Not IsArray(m_aSQlData)) Then
m_nErrCode = m_nErrCode_NotArray
Exit Sub
End If
ON ERROR RESUME NEXT
Set m_oXSLDOM = Server.CreateObject("Microsoft.XMLDOM")
Set m_oXMLDOM = Server.CreateObject("Microsoft.XMLDOM")
If Err.Number <>0 Then
m_nErrCode = m_nErrCode_XMLDOM
Exit Sub
End If
sXSLStr = GetXSL()
m_oXMLDOM.async = false
m_oXSLDOM.async = false
m_oXSLDOM.loadxml(sXSLStr)
sDataXML = "<?xml version='1.0' encoding='" & m_sEncoding & "'?>"
sDataXML = sDataXML & "<DataBase>"
nMaxI = Ubound(m_aSQlData, 1)
For nI=0 To nMaxI
sTableName = m_aSQlData(nI, 0)
If (Len(sTableName) > 0) Then
sSQL = m_aSQlData(nI, 1)
sXMLStr = GetDataXML(sTableName, sSQL, p_oDbConn)
IF (m_nErrCode > m_nErrCode_NotErr) Then
Exit Sub
End IF
sDataXML = sDataXML & sXMLStr
End If
Next
sDataXML = sDataXML & "</DataBase>"
IF (m_bIsOutput) Then
Call ResponseXML(sDataXML)
End IF
IF (m_bIsSave) Then
Call SaveDataXML(sDataXML)
End IF
End Sub
'*****************************************************
' 函數(shù)： GetRndFileName()
' 描述： 獲得隨機(jī)名稱，由當(dāng)前時間和7位隨機(jī)數(shù)字構(gòu)成
'*****************************************************
Private Function GetRndFileName()
Dim nMax, nMin
Dim sRnd, sDate
Randomize
nMin = 1000000
nMax = 9999999
sRnd = Int( ( (nMax - nMin + 1) * Rnd ) + nMin)
sDate = Replace( Replace( Replace( now(), "-", "") , ":", ""), " ", "")
GetRndFileName = "_" & sDate & sRnd & ".xml"
End Function
'*****************************************************
' 函數(shù)： GetXSL()
' 描述： 獲得XSL文件字符串
'*****************************************************
Private Function GetXSL()
Dim sXSLStr
sXSLStr = ""
sXSLStr = sXSLStr & "<?xml version='1.0' encoding='" & m_sEncoding & "'?>"
sXSLStr = sXSLStr & "<xsl:stylesheet version='1.0' xmlns:xsl='http://www.w3.org/1999/XSL/Transform' xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882' xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882' xmlns:rs='urn:schemas-microsoft-com:rowset' xmlns:z='#RowsetSchema'>"
sXSLStr = sXSLStr & "<xsl:output omit-xml-declaration='yes'/>"
sXSLStr = sXSLStr & "<xsl:template match='/'>"
sXSLStr = sXSLStr & "<xsl:for-each select='/xml/rs:data/z:row'>"
sXSLStr = sXSLStr & "<xsl:element name='Row'>"
sXSLStr = sXSLStr & "<xsl:for-each select='@*'>"
sXSLStr = sXSLStr & "<xsl:attribute name='{name()}'>"
sXSLStr = sXSLStr & "<xsl:value-of select='.'/>"
sXSLStr = sXSLStr & "</xsl:attribute>"
sXSLStr = sXSLStr & "</xsl:for-each>"
sXSLStr = sXSLStr & "</xsl:element>"
sXSLStr = sXSLStr & "</xsl:for-each>"
sXSLStr = sXSLStr & "</xsl:template>"
sXSLStr = sXSLStr & "</xsl:stylesheet>"
GetXSL = sXSLStr
End Function
'*****************************************************
' 函數(shù)： GetDataXML(ByRef p_sTableName, ByRef p_sSQL, ByRef p_oDbConn)
' 描述： 執(zhí)行單條SQL，獲得數(shù)據(jù)轉(zhuǎn)換后的XML
' 參數(shù)：
' 1.p_sTableName ： 表的名稱
' 2.p_sSQL ： 讀取數(shù)據(jù)的SQl語句
' 3.p_oDbConn ： 數(shù)據(jù)庫連接對象
'
'*****************************************************
Private Function GetDataXML(ByRef p_sTableName, ByRef p_sSQL, ByRef p_oDbConn)
Dim oRecordset
Dim sXMLStr, sCleanXML
Dim nEnsData
ON ERROR RESUME NEXT
nEnsData = 0
Set oRecordset = p_oDbConn.Execute(p_sSQL)
If Err.Number <>0 Then
m_nErrCode = m_nErrCode_ReadData
Exit Function
End If
IF (Not oRecordset.eof) Then
nEnsData = 1
End IF
IF (nEnsData = 1) Then
oRecordset.save m_oXMLDOM, 1
oRecordset.close
Set oRecordset = Nothing
sCleanXML = m_oXMLDOM.transformNode(m_oXSLDOM)
sXMLStr = "<" & p_sTableName & ">"
sXMLStr = sXMLStr & sCleanXML
sXMLStr = sXMLStr & "</" & p_sTableName & ">"
Else
sXMLStr = "<" & p_sTableName & "/>"
End IF
GetDataXML = sXMLStr
End Function
'*****************************************************
' 過程： SaveDataXML(ByRef p_sXMLStr)
' 描述： 保存XML格式的字符串到文件
' 參數(shù)：
' p_sXMLStr ： XML格式的字符串
'*****************************************************
Private Sub SaveDataXML(ByRef p_sXMLStr)
Dim sFileInfo
If (Len(m_sSaveFileName) = 0) Then
m_sSaveFileName = GetRndFileName()
End If
If (Len(m_sSaveFilePath) = 0) Then
sFileInfo = m_sSaveFileName
Else
IF (Right(m_sSaveFilePath,1) = "/")Then
sFileInfo = m_sSaveFilePath & m_sSaveFileName
Else
sFileInfo = m_sSaveFilePath & "/" & m_sSaveFileName
End IF
End If
m_oXMLDOM.loadxml(p_sXMLStr)
ON ERROR RESUME NEXT
m_oXMLDOM.save ( Server.MapPath(sFileInfo) )
If Err.Number <>0 Then
m_nErrCode = m_nErrCode_Save
Exit Sub
End If
End Sub
'*****************************************************
' 過程： ResponseXML(ByRef p_sXMLStr)
' 描述： 輸出XML格式的字符串到瀏覽器
' 參數(shù)：
' p_sXMLStr ： XML格式的字符串
'*****************************************************
Private Sub ResponseXML(ByRef p_sXMLStr)
Response.CharSet = m_sEncoding
Response.ContentType = "text/xml"
Response.write p_sXMLStr
End Sub
'============================= 數(shù)據(jù)導(dǎo)出 End =============================
'============================= 數(shù)據(jù)導(dǎo)入 Begin =============================
'*****************************************************
' 過程： Import(ByRef p_oDbConn)
' 描述： 導(dǎo)入數(shù)據(jù)
' 參數(shù)：
' p_oDbConn： 數(shù)據(jù)庫連接對象
'
'*****************************************************
Public Sub Import(ByRef p_oDbConn)
Dim oRootNode
If (Len(m_sXMLFile) < 1) Then
m_nErrCode = m_nErrCode_EnsFile
Exit Sub
End If
ON ERROR RESUME NEXT
Set m_oXMLDOM = Server.CreateObject("Microsoft.XMLDOM")
If Err.Number <>0 Then
m_nErrCode = m_nErrCode_XMLDOM
Exit Sub
End If
m_oXMLDOM.async = false
m_oXMLDOM.load( Server.MapPath(m_sXMLFile) )
If Err.Number <>0 Then
m_nErrCode = m_nErrCode_EnsFile
Exit Sub
End If
If (Len(m_oXMLDOM.xml) < 1) Then
m_nErrCode = m_nErrCode_ErrFile
Exit Sub
End If
Set oRootNode = m_oXMLDOM.documentElement
Set m_oXMLDOM = Nothing
m_sImportSQL = GetImportSQL(oRootNode)
Set oRootNode = Nothing
Call p_oDbConn.Execute(m_sImportSQL)
If Err.Number <>0 Then
m_nErrCode = m_nErrCode_WriteData
Exit Sub
End If
End Sub
'*****************************************************
' 函數(shù)： GetImportSQL(ByRef p_oDataBase)
' 描述： 獲得將XML數(shù)據(jù)轉(zhuǎn)換為SQL后的字符串
' 參數(shù)：
' p_oDataBase ： XML文件的根節(jié)點
'
'*****************************************************
Private Function GetImportSQL(ByRef p_oDataBase)
Dim oTable, oRow, oDatas, oData
Dim sColNames, sColValues
Dim sColName
Dim sSQL, sTransactionSQL
sSQL = ""
For Each oTable In p_oDataBase.childNodes
For Each oRow In oTable.childNodes
Set oDatas = oRow.selectNodes("@*")
sColNames = ""
sColValues = ""
For Each oData In oDatas
sColName = oData.nodeName
If ( Instr( Lcase(Cstr(m_sVacancyCols)), Lcase(Cstr("," & sColName & ",")) ) < 1) Then
sColNames = sColNames & sColName & ", "
sColValues = sColValues & "'" & oData.nodeValue & "', "
End If
Next
sColNames = "(" & Left(sColNames,Len(sColNames)-2) & ") "
sColValues = "(" & Left(sColValues,Len(sColValues)-2) & ") "
sSQL = sSQL & " Insert Into " & oTable.nodeName
sSQL = sSQL & " " & sColNames & " Values " & sColValues & " ; "
Next
Next
Set oData = Nothing
Set oDatas = Nothing
Set oRow = Nothing
Set oTable = Nothing
sTransactionSQL = "Set Xact_Abort On; "
sTransactionSQL = sTransactionSQL & " Begin Transaction; "
sTransactionSQL = sTransactionSQL & sSQL
sTransactionSQL = sTransactionSQL & " Commit Transaction; "
sTransactionSQL = sTransactionSQL & " Set Xact_Abort Off; "
GetImportSQL = sTransactionSQL
End Function
'============================= 數(shù)據(jù)導(dǎo)入 End =============================
'*****************************************************
' 函數(shù)： GetErrExegesis(ByRef p_nErrCode)
' 描述： 獲得錯誤代碼的注釋
' 參數(shù)：
' p_oDataBase ： XML文件的根節(jié)點
'
'*****************************************************
Public Function GetErrExegesis(ByRef p_nErrCode)
Dim sExegesis
Dim nErrCode
nErrCode = Cint(p_nErrCode)
Select Case (nErrCode)
Case m_nErrCode_NotErr
sXSLStr = "運(yùn)行成功！"
Case m_nErrCode_NotArray
sXSLStr = "屬性: SQL語句數(shù)組 不正確！"
Case m_nErrCode_XMLDOM
sXSLStr = "不能創(chuàng)建XML文檔，服務(wù)器必須支持MSXML！"
Case m_nErrCode_ReadData
sXSLStr = "讀取數(shù)據(jù)庫數(shù)據(jù)發(fā)生錯誤！ " & "<BR>"
sXSLStr = sXSLStr & " 請檢查 " & " "
sXSLStr = sXSLStr & "1.數(shù)據(jù)庫是否已連接 " & " "
sXSLStr = sXSLStr & "2.語句是否正確 "
Case m_nErrCode_WriteData
sXSLStr = "寫入數(shù)據(jù)庫數(shù)據(jù)發(fā)生錯誤！ " & "<BR>"
sXSLStr = sXSLStr & " 請檢查 " & " "
sXSLStr = sXSLStr & "1.數(shù)據(jù)庫是否已連接 " & " "
sXSLStr = sXSLStr & "2.SQL語句是否正確 " & "<BR>"
sXSLStr = sXSLStr & "SQL語句 " & "<BR><BR>"
sXSLStr = sXSLStr & "" & m_sImportSQL
Case m_nErrCode_Save
sXSLStr = "不能保存XML文檔，請檢查是否對該目錄或文件有' 寫入權(quán)限 ' ！"
Case m_nErrCode_EnsFile
sXSLStr = "不能讀取XM數(shù)據(jù)，XML文件不存在 ' ！"
sXSLStr = sXSLStr & "文件：" & m_sXMLFile
Case m_nErrCode_ErrFile
sXSLStr = "不能讀取XM數(shù)據(jù)，XML文件格式錯誤 ' ！"
sXSLStr = sXSLStr & "文件：" & m_sXMLFile
Case Else
sXSLStr = "未知錯誤 ！"
End Select
GetErrExegesis = "<BR>" & sXSLStr & "<BR>"
End Function
End Class
%>
推薦資訊 總?cè)藲獍?/span>
最新教程 本月人氣
- 1ios10 wapi需要啟用嗎_蘋果ios10 wapi有什么用
- 2ios10wapi需要啟用嗎_ios10wapi有什么用
- 3iPhone7自動亮屏如何關(guān)閉_iPhone7自動喚醒方法
- 4ios10騷擾電話攔截如何設(shè)置_ios10騷擾電話攔截設(shè)置
- 5iPhone7主屏幕鍵按壓力度如何設(shè)置_蘋果7主屏幕鍵按壓力度設(shè)置
- 6iOS10如何打開緊急來電例外規(guī)則_iOS10打開緊急來電
- 7ios10短信全屏特效如何發(fā)_ios10短信全屏特效發(fā)送圖文說明教程
- 8iphone7四個閃光燈有什么用_iphone7四顆閃光燈作用說明
- 9iPhone8什么時候出_iphone8多少錢
- 10朋友圈如何顯示來自iPhone7小尾巴_朋友圈顯示來自iPhone7方法
- 11iPhone7如何用Live Photos_iPhone7關(guān)閉Live Photos方法
- 12iPhone7來電沒聲音如何回事_iPhone7與Plus來電不響處理方法
- 1qq瀏覽器安全網(wǎng)址認(rèn)證如何打開 qq瀏覽器安全網(wǎng)址認(rèn)證打開圖文說明教程
- 2用微信如何發(fā)送文件 手機(jī)微信發(fā)送文件方法圖文詳細(xì)說明
- 3阿里旺旺如何加好友？淘寶阿里旺旺加好友步驟
- 4電腦瀏覽器下載排行榜2017 官方瀏覽器下載排行榜前10名
- 5wps表格如何算平均值
- 6用WPS表格2013統(tǒng)計所需鈔票張數(shù)
- 7uc瀏覽器愚人節(jié)新版最搞siao技巧玩法總結(jié)
- 8win10手機(jī)瀏覽器上手 界面清新簡潔
- 9wps表格如何設(shè)置自己的模版
- 10WPS表格2013制作音序檢測評分問卷
- 11支付寶錢包紅包口令如何用？紅包口令領(lǐng)紅包方法
- 12Email+URL的判斷與自動轉(zhuǎn)換函數(shù)
相關(guān)文章
