Question

科讯 MDB转SQL后，asp类型不匹配

Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
C:\INETPUB\WWWROOT\ITEM\../KS_Cls/Kesion.CommonCls.asp, 第 143 行
Public Function RsToxml(RSObj,row,xmlroot)
Dim i,node,rs,j,DataArray,fieldName
If xmlroot="" Then xmlroot="xml"
If row="" Then row="row"
Set RsToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
RsToxml.appendChild(RsToxml.createElement(xmlroot))
If Not RSObj.EOF Then
DataArray=RSObj.GetRows(-1)
For i=0 To UBound(DataArray,2)
Set Node=RsToxml.createNode(1,row,"")
j=0
For Each rs in RSObj.Fields
fieldName=LCase(rs.name)
if fieldName="username" then
node.attributes.setNamedItem(RsToxml.createNode(2,fieldName,"")).text= lcase(DataArray(j,i))& ""
else
node.attributes.setNamedItem(RsToxml.createNode(2,fieldName,"")).text= DataArray(j,i)& "" 注释：这个就是在dw8内显示的143行
end if
j=j+1
Next
RsToxml.documentElement.appendChild(Node)
Next
End If
DataArray=Null
End Function

Answer 1

sqlserver较access一些数组的验证也较为严格，mdb转sqlserver以后需要修改的地方有很多，需要有经验的程序员才可以，你可以先参考这篇文章http://www.jb51.net/article/6869.htm，如果不行建议找程序员帮你解决啊

需要注意的地方有 自增长id 是否 数组后面是不是有逗号(,) 一些sql查询语句等