求：用VB导出SQL数据库中某个表数据到XML和从XML导数据到SQL数据库中某个表的代码

Question

如题：

Answer 1

参考如下：
'导出
Set RsImport = localcon1.Execute("select * from Mails Where MailType=0 And MailBox='A10000002'" & StrCon & " Order By MailDate DESC")
If Not (RsImport.EOF and RsImport.Bof) Then
RsImport.Save pBackDir & "待发邮件信息\SendMail.xml", adPersistXML '保存为xml文件
end if'导入
RsImport.Open pBackDir & "已收邮件信息\ReceiveMail.xml", , adOpenDynamic, adLockOptimistic, adCmdFile
If Not RsImport.EOF Then
   RsImport.MoveFirst
   Do While Not RsImport.EOF
     If RsImport!Num >= 1 Then
       For Inum = 1 To RsImport!Num
         wjFileSys.CopyFile pBackDir & "已收邮件信息\" & RsImport(12 + Inum).Value, App.Path & "\Sendfile\" & RsImport(12 + Inum).Value, True
       Next Inum
     End If
    localcon1.Execute ("insert into Mails(MailIndex,MailType,MailFileExtType,MailSend,MailSendDept,MailReceive,MailReceiveDept,MailTel,MailID,MailTopic,FlowFlag,MailBox,Num," & _
   "MailName1,mailName2,MailName3,MailName4,MailName5,MailName6,MailName7,MailName8,MailName9,MailName10,MailDate,MailEncrypt) values(" & _
   LastID & "," & RsImport!MailType & ",'" & RsImport!MailFileExtType & "','" & RsImport!mailsend & "','" & RsImport!MailSendDept & "','" & RsImport!MailReceive & "','" & _
   RsImport!MailReceiveDept & "','" & RsImport!MailTel & "','" & RsImport!MailID & "','" & RsImport!MailTopic & "','" & RsImport!FlowFlag & "','" & RsImport!MailBox & "'," & _
   RsImport!Num & ",'" & RsImport!Mailname1 & "','" & RsImport!Mailname2 & "','" & RsImport!Mailname3 & "','" & RsImport!Mailname4 & "','" & RsImport!Mailname5 & "','" & _
   RsImport!Mailname6 & "','" & RsImport!Mailname7 & "','" & RsImport!Mailname8 & "','" & RsImport!Mailname9 & "','" & RsImport!Mailname10 & "','" & RsImport!MailDate & "'," & _
   "0)")
   LastID = LastID + 1
   RsImport("MailEncrypt").Value = 1
   RsImport.Update
   RsImport.MoveNext
   Loop
End If