从mdb读出数据转为sql语句

 下面的代码是我之前用来从mdb里把ip库导出到mysql的代码

 

 
 
  1. <html> 
  2.     <head> 
  3.         <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
  4.             </head> 
  5.     <body> 
  6. <% 
  7. '连接数据库 
  8. Dim dbpath:dbpath="F:\province_isp_ip\province_isp_ip.mdb" 
  9. set conn_sign=server.createobject("adodb.connection"
  10. conn_sign.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath 
  11.  
  12. sql="select * from ip order by start_ip" 
  13. set rs=server.createobject("adodb.recordset")  
  14. '执行查询语句 
  15. rs.open sql,conn_sign,1,3  
  16. conn_sign.execute sql 
  17. Dim totalnum:totalnum=rs.recordcount 
  18. '输出总记录数 
  19. Response.Write "#total:"& totalnum & vbCrLf 
  20.  
  21. '打开文件 
  22.  
  23. Set fso = Server.CreateObject("Scripting.FileSystemObject"
  24. ForReading = 1 
  25. ForWriting = 2 
  26. ForAppending = 8 
  27. set file = fso.opentextfile("F:\\ip.sql", ForAppending, TRUE
  28.  
  29. '输出sql语句到sql文件中 
  30. file.write("insert into ip (start_ip,end_ip,province,isp,start_ip1,end_ip1) values " & vbCrLf) 
  31. do while not rs.eof 
  32.     file.write("('" & rs("start_ip") & "','" & rs("end_ip") &"','" & rs("province") & "','"& rs("isp") & "','"& rs("start_ip1") & "','"& rs("end_ip1")&"'),"& vbCrLf) 
  33.     rs.movenext  
  34. loop 
  35. rs.close 
  36. set rs = nothing  
  37.  
  38. file.write(";"
  39. file.close 
  40. set file = nothing 
  41. set fso = nothing 
  42. %> 
  43. </body> 
  44. </html> 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值