nbsp; End Sub
''''***************************************************** '''' 函数: GetImportSQL(ByRef p_oDataBase) '''' 描述: 获得将XML数据转换为SQL后的字符串 '''' 参数: '''' p_oDataBase : XML文件的根节点 '''' ''''***************************************************** 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
''''============================= 数据导入 End =============================
''''***************************************************** '''' 函数: GetErrExegesis(ByRef p_nErrCode) '''' 描述: 获得错误代码的注释 '''' 参数: '''' p_oDataBase : XML文件的根节点 '''' ''''***************************************************** Public Function GetErrExegesis(ByRef p_nErrCode) Dim sExegesis Dim nErrCode
nErrCode = Cint(p_nErrCode) Select Case (nErrCode)
Case m_nErrCode_NotErr sXSLStr = "运行成功!"
Case m_nErrCode_NotArray sXSLStr = "属性: SQL语句数组 不正确!"
Case m_nErrCode_XMLDOM sXSLStr = "不能创建XML文档,服务器必须支持MSXML!"
Case m_nErrCode_ReadData sXSLStr = "读取数据库数据发生错误! " & "<BR>" sXSLStr = sXSLStr & " 请检查 " & " " sXSLStr = sXSLStr & "1.数据库是否已连接 " & " " sXSLStr = sXSLStr & "2.语句是否正确 "
Case m_nErrCode_WriteData sXSLStr = "写入数据库数据发生错误! " & "<BR>" sXSLStr = sXSLStr & " 请检查 " & " " sXSLStr = sXSLStr & "1.数据库是否已连接 " & " " sXSLStr = sXSLStr & "2.SQL语句是否正确 " & "<BR>" sXSLStr = sXSLStr & "SQL语句 " & "<BR><BR>" sXSLStr = sXSLStr & "" & m_sImportSQL Case m_nErrCode_Save sXSLStr = "不能保存XML文档,请检查是否对该目录或文件有'''' 写入权限 '''' !"
Case m_nErrCode_EnsFile sXSLStr = "不能读取XM数据,XML文件不存在 '''' !" sXSLStr = sXSLStr & "文件:" & m_sXMLFile
Case m_nErrCode_ErrFile sXSLStr = "不能读取XM数据,XML文件格式错误 '''' !" sXSLStr = sXSLStr & "文件:" & m_sXMLFile Case Else sXSLStr = "未知错误 !"
End Select
GetErrExegesis = "<BR>" & sXSLStr & "<BR>" End Function
End Class %>
上一页 [1] [2] [3] [Web开发]一个关于ASP运行时间计算的代码 [Web开发]ASP:检测含有中文字符串的实际长度 [Web开发]asp 中英文字符长度检测判断函数 [Web开发]安全维护 IIS asp 站点的高级技巧 [Access]ASP&SQL让select查询结果随机排序的实现方法 [Web开发]ASP字符串截取函数 [Web开发][asp]关键词只替换一次的写法 [Web开发]XML与HTML在语法上的主要区别详解 [Web开发]Asp无组件生成缩略图方法详解 [Web开发]asp编程中优化数据库方法详解
|