说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

数据导入导出问题,谢谢

编辑:说三道四文库 发布时间:2018-02-25 04:15
HTML文档下载 WORD文档下载 PDF文档下载
我需要把db2数据库某数据表的某些字段以excel导出到本地,数据处理后再导入到db2数据库。导出功能已实现源程序如下:
  数据库连接部分略:
Function CreateCSVFile()
   strFile = "xxx\exp" 
   Set fs = Server.CreateObject("Scripting.FileSystemObject")
   if fs.FileExists(server.MapPath(".") & "\" & strfile & ".csv") then
      fs.deletefile(server.MapPath(".") & "\" & strfile & ".csv")
   end if
   Set a = fs.CreateTextFile(server.MapPath(".") & "\" & strfile & ".csv",true)
   j=1
   If Not RS.EOF Then
      '输出表头
      strtext=chr(34) & "工号" & chr(34) &"," & chr(34) & "姓名" & chr(34) &","
      For i=Lbound(arrPr,2) To Ubound(arrPr,2)
        strtext=strtext  & chr(34) & trim(arrPr(1,i)) & chr(34) & ","
      next 

      a.Writeline(strtext)
      '输出数据
      Do Until RS.EOF 
         strtext= chr(34) & RS.fields(0) & chr(34) & ","
         For i = 1 To RS.fields.Count-1
             strtext = strtext &chr(34) & RS.fields(i) & chr(34) & ","
         Next
         j=j+1
         a.Writeline(strtext)
         RS.MoveNext
       Loop
   End If
   a.Close
   Set fs=Nothing 
   response.write "<root><info>导出的数据保存在 "& strFile &".csv 文件中</info></root>"&"<br>"
   response.write "<br>"

   Response.Write ("用鼠标右键单击 <A HRef=" & strFile & ".csv>这里</A> ,选中目录另存为...,可以将上面文件保存至本地!") 
   response.end
   createcsvfile=strfile
End Function
%>
怎样将该文件处理后的数据导入到数据库?如数据表名为table ,能不能给出一个较好的方法,有源程序就更好了,谢谢
顶一下
up
没人理我吗?
up
各位高手怎么没人理我呀
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘