如何把表导出成固定格式的XML文件

wuheng

求助
想在窗体按钮上占击，把12134表里的数据生成1234文件，(见附件)要怎么实现，
各位大大，请指导。谢谢，wuheng敬上

wuheng

哪位大侠帮忙看看，施予援手~~~~`````谢谢

wuheng

顶一下~~~~~~~~~~```各位大侠请援手~``谢谢

wuheng

wuheng 发表于 2015-1-22 08:43
可以，(本次附件为把字段改type......的表)字段可以增减、更改,我主要是要能把type以下的那些数据(如图 ...

Sub WriteTxt(foldername As String, filename As String)
    Dim fso As New FileSystemObject
    Dim filepath1 As String, filepath2 As String
    Dim txt As String
    Dim tag As String, ssql As String
   
    filepath1 = foldername & "\" & Replace(filename, ".txt", "") & ".txt"
    fso.CreateTextFile filepath1, True


    Open filepath1 For Output As 1#
    '写入声明
    txt = "<?xml version='1.0' encoding='GB2312'?>"
    txt = Replace(txt, "'", Chr(34))
    Print #1, txt
   
    '写入Data节点
    txt = "<Data TYPE='SPBIANMA'>"
    txt = Replace(txt, "'", Chr(34))
    Print #1, txt
   
    '写入FENLEI节点
    tag = "FENLEI"
    ssql = "select "
    ssql = ssql & "[/FENLEI/Row/@MC] as MC,"
    ssql = ssql & "[/FENLEI/Row/@PID] as PID,"
    ssql = ssql & "[/FENLEI/Row/@BM] as BM"
   
   'ssql = ssql & "[/FENLEI/Row/@OLD_BM] as OLD_BM"
   ' ssql = ssql & "[/FENLEI/Row/@OLD_PID] as OLD_PID"
   
    ssql = ssql & " from 表1 where ([/FENLEI/Row/@PID] is null)=false"
    Call WriteRe(tag, ssql)
   
    '写入SPXX节点
    tag = "SPXX"
    ssql = "select "
   
   
   ssql = ssql & "[/SPXX/Row/@MC] as MC,"
    ssql = ssql & "[/SPXX/Row/@PID] as PID,"
    ssql = ssql & "[/SPXX/Row/@BM] as BM,"
    ssql = ssql & "[/SPXX/Row/@HSBZ] as HSBZ,"
    ssql = ssql & "[/SPXX/Row/@DJ] as DJ,"
    ssql = ssql & "[/SPXX/Row/@JLDW] as JLDW,"
    ssql = ssql & "[/SPXX/Row/@GGXH] as GGXH,"
    ssql = ssql & "[/SPXX/Row/@SL] as SL,"
    ssql = ssql & "[/SPXX/Row/@SPSM] as SPSM,"
    ssql = ssql & "[/SPXX/Row/@JM] as JM "
   
    'ssql = ssql & "[/SPXX/Row/@OLD_BM] as OLD_BM "
    'ssql = ssql & "[/SPXX/Row/@OLD_PID] as OLD_PID "
    'ssql = ssql & "[/SPXX/Row/@SCBM] as SCBM "
    'ssql = ssql & "[/SPXX/Row/@SLLX] as SLLX "
    'ssql = ssql & "[/SPXX/Row/@SPFLBM] as SPFLBM "
    'ssql = ssql & "[/SPXX/Row/@SPFLBMPID] as SPDLBMPID "
    'ssql = ssql & "[/SPXX/Row/@SYYHBZ] as SYYHBZ "
    'ssql = ssql & "[/SPXX/Row/@YHZC] as YHZC "
   
   
   
   
   
   
   
   
   
   
   
    ssql = ssql & " from 表1 where ([/SPXX/Row/@BM] is null)=false"
    Call WriteRe(tag, ssql)
   
    '写入Data闭合标签
    Print #1, "</Data>"
   
    Close #1
   
    filepath2 = foldername & "\" & Replace(filename, ".txt", "") & ".xml"
    If fso.FileExists(filepath2) = True Then
        Kill filepath2
    End If
   
    Name filepath1 As filepath2
   
    Set fso = Nothing
   
    MsgBox "XML清单已成功导出！", vbInformation, "系统消息"
End Sub

为什么加了红色字体的那些语句就导不出来XML文件了，报错了，请百忙中能再次解答。谢谢
wuheng敬上

wuheng

终于整好了~~~~~~~~~~~再次对两位大侠表示感谢~~~~~~~~~~~~~~{:soso_e181:}{:soso_e181:}

todaynew

wuheng 发表于 2015-1-22 08:43
可以，(本次附件为把字段改type......的表)字段可以增减、更改,我主要是要能把type以下的那些数据(如图 ...

http://www.office-cn.net/thread-119352-1-1.html

wuheng

roych 发表于 2015-1-21 17:52
能给表加上字段么？例如，第一个字段为type，第二个为BM……这样的话可能好处理些。不然代码要写很多

可以，(本次附件为把字段改type......的表)字段可以增减、更改,我主要是要能把type以下的那些数据(如图)能按1234.xml的那种文件格式导出来,谢谢

wuheng

todaynew 发表于 2015-1-21 17:29
.net比较好处理xml，Access太麻烦，呵呵。如果用.net处理的话，可以给你搞一下。

不管用什么,主要是要能把里面的数据导出成1234.xml的文件(固定格式,ACCESS表里的数据是随时变化的),谢谢

roych

能给表加上字段么？例如，第一个字段为type，第二个为BM……这样的话可能好处理些。不然代码要写很多

todaynew

wuheng 发表于 2015-1-21 17:15
第一次接触XML，不是很了解,请百忙中给予援手，能否在附件上修改一下，以达到导出时有1234.XML的效果,谢 ...

.net比较好处理xml，Access太麻烦，呵呵。如果用.net处理的话，可以给你搞一下。