如何批量录入数据?

pdysuny 2009-09-30 02:41:26
表:xs

要把学生姓名uname,学号uxuehao,班级ubanji,成绩ucj ....等一次性批量从表单中添加到数据表xs,Access数据库,该如何写啊?
比如一个班有100个学生。
...全文
147 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hookee 2009-09-30
  • 打赏
  • 举报
回复
以为是添加数据,不必取出表中的数据,只要表结构就可以了,1=0条件为否,不返回记录,
pdysuny 2009-09-30
  • 打赏
  • 举报
回复
WHERE 1=0 这个什么意思呢?1=0?
aemyang1987 2009-09-30
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 hookee 的回复:]
HTML code表单只能够字段顺序命名<formaction="do.asp"><inputname="name1"><inputname="xuehao1"><inputname="banji1"><inputname="cj1"><br><inputname="name2"><inputname="xuehao2"><inputname="banji2"><inputname="cj2"><br><inputname="name3"><inputname="xuehao3"><inputname="banji3"><inputname="cj3"><br></form>

do.asp
VBScript code<%set conn=CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AA.mdb;"Set rs=CreateObject("ADODB.RecordSet")
rs.CursorLocation=3
rs.Open"SELECT * FROM xs WHERE 1=0", conn,1,4For i=1To100
rs. AddNew
rs("uname")=Trim(Request("name"& i))
rs("uxuehao")=Trim(Request("xuehao"& i))
rs("ubanji")=Trim(Request("banji"& i))
rs("ucj")=Trim(Request("cj"& i))Next
rs.UpdateBatch
rs.Close
conn.CloseSet rs=NothingSet conn=Nothing
%>
[/Quote]
shenzhenNBA 2009-09-30
  • 打赏
  • 举报
回复
支持1L的,
表单的输入数据可以用JS动态增加。。。
hookee 2009-09-30
  • 打赏
  • 举报
回复
表单只能够字段顺序命名
<form action="do.asp">
<input name="name1"><input name="xuehao1"><input name="banji1"><input name="cj1"><br>
<input name="name2"><input name="xuehao2"><input name="banji2"><input name="cj2"><br>
<input name="name3"><input name="xuehao3"><input name="banji3"><input name="cj3"><br>
</form>


do.asp

<%
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AA.mdb;"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open "SELECT * FROM xs WHERE 1=0", conn, 1, 4
For i=1 To 100
rs. AddNew
rs("uname") = Trim(Request("name" & i))
rs("uxuehao") = Trim(Request("xuehao" & i))
rs("ubanji") = Trim(Request("banji" & i))
rs("ucj") = Trim(Request("cj" & i))
Next
rs.UpdateBatch
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧