我的日志 订阅所有【我的日志】的日志

用asp批量录入数据入库

作者:佚名 日期:2009-08-05

批量录入在数据库的应用中比较广泛的，关于批量录入的方法也有好多种。下面我就结合我实际中的应用，谈一下儿我是怎么实现的。主要用到的是form的集合的概念，通过循环取的所有的集合内数据。考虑到大家看着方便，我把它集成到了一个页面。

下面是具体的代码：
 

ASP/Visual Basic代码
  1. 以下为引用的内容：    
  2. <%    
  3. ’向数据库写入数据    
  4. SUB writeData()    
  5. dim recCnt,i    
  6. dim fieldName1,fieldName2,fieldName3    
  7. dim conn    
  8. dim sqlStr,connStr    
  9. connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD="    
  10. set conn=Server.CreateObject("ADODB.Connection")    
  11. conn.open connStr ’建立数据库连接    
  12. recCnt=request.form("stu_num").count ’取得共有多少条记录    
  13. ’批量录入数据    
  14. for i=1 to recCnt    
  15. fieldName1=trim(request.form("fieldName1")(i))    
  16. fieldName2=trim(request.form("fieldName2")(i))    
  17. fieldName3=trim(request.form("fieldName3")(i))    
  18. sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values(’"    
  19. sqlStr=sqlStr & fieldName1 & "’,’"    
  20. sqlStr=sqlStr & fieldName2 & "’,’"    
  21. sqlStr=sqlStr & fieldName3 & "’)"    
  22. ’response.write sqlStr    
  23. conn.execute(sqlStr)    
  24. next    
  25. END SUB    
  26. ’显示成批录入的界面    
  27. SUB InputData()    
  28. dim recCnt,i    
  29. %>    
  30. <form name="bathInputData" action="" method="post">    
  31. <%    
  32. recCnt=cint(request.form("recCnt"))    
  33. for i=1 to recCnt    
  34. %>    
  35. <input type="text" name="fieldName1">    
  36. <input type="text" name="fieldName2">    
  37. <input type="text" name="fieldName3">    
  38. <%    
  39. next    
  40. %>    
  41. <br>    
  42. <input type="submit" name="action" value="提交">    
  43. </form>    
  44. <%    
  45. END SUB    
  46. ’指定要批量录入多少条记录    
  47. SUB assignHowMuch()    
  48. %>    
  49. <!------指定要录入多少条记录-------------->    
  50. <form name="form1" action="" method="post">    
  51.   
  52. 您要录入的记录的条数：<input type="text" name="recCnt">    
  53. <input type="submit" name="action" value="下一步>>">    
  54. </form>    
  55. <%    
  56. END SUB    
  57. if request.form("action")="下一步>>" then    
  58. Call InputData() ’显示成批录入界面    
  59. elseif request.form("action")="提交" then Call writeData() ’向数据库批量写入数据    
  60. else    
  61. Call assignHowMuch() ’显示指定录入多少条记录的界面    
  62. end if    
  63. %>   

 



文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 470
发表评论
昵　称: 注册帐号　密码: 游客直接输入昵称不需要密码
内　容:
验证码: 验证码