ASP access 批量 添加 数据

数据库连接和创建记录集我不讲了

假设只有两个字段xxx和yyy

读取部分:

dim val

val=""

do while not rseof

val=val + rs("xxx") + "-" + rs("yyy") + "|"

rsmovenext

wend

设一个隐藏域<input type="hidden" name="value" value="<%=val%>">,把那个val的值放到隐藏域去

上面val集中所有值到一个字符串,以"-"相连的属于同一行,以"|"相连代表另外一行数据

数据处理部分:

val = requestform("val")

dim a

a = split(val,"|")

length = ubound(a)

把前面拿到的值,以"|"分隔符变成数组a,这样a(0)就是要插入的第一条数据了并获得数组下标的值

dim b(length)

for i=0 to length do

b = split(a(i),"-")

ConnExecute("INSERT INTO 表(xxx, yyy) VALUES('"& b(0) &"', '"& b(1) &")

next

把a(i)以"-"为分隔符变成数组b,这样b(0)和b(1)就是要插入行的xxx和yyy的值然后写入数据库,循环

上面是我的思路具体代码可能会有错改一下应该可以嘀

最后,要是有更好的办法,麻烦告诉我一下~俺vb用得较少,不是很清楚

你用两个ADO连接组件,一个连接SQL,一个连接ACCESS;然后用两个ADOdataset组件,一个与SQLADO连接组件连接,另外一个与ACCESS的链接组件连接,各自打开要读写的表,然后用一个FOR循环,读写,这和从界面上录入数据然后保存,没有什么两样

这种菜单比较难，找不到焦点，有种控件菜单的，就可以做到。

比如在按钮中，在CLICK事件中写入。

IF MECOM1CAPTION="关闭" then

mecom1caption="打开"

else

mecom1caption="关闭"

end if

以上就是关于ASP access 批量 添加 数据全部的内容，包括:ASP access 批量 添加 数据、delphi怎样使用多线程写入ACCESS数据库、ACCESS菜单如何实现循环功能开-关-开-关等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！