关于批量输入的问题

Threaten

批量输入文本框中的数据

For i = CInt(Voucher_From_TextBox) To CInt(Voucher_To_TextBox)

con.Execute ("Insert Into FB_Serials(Voucher_No_FB,Pickup_Date,Pickup_Person) Values(" & i & ",'" & Pickup_Date_TextBox & "','" & Pickup_Person_TextBox & "')")

Next i



如果我要直接输入既定的值,而不是那些文本框中的值的话,应该怎么改上面的语句呢?

本人正在自学,可是总是不得法,希望高手能够指教一二!

谢谢

wuaza

values()中直接输入值，用英文逗号隔开。假如输入a,b,c三个值：con.Execute ("Insert Into FB_Serials(Voucher_No_FB,Pickup_Date,Pickup_Person) Values(a,b,c)")

Threaten

For i = CInt(Cancelled_Voucher_TextBox) To CInt(Cancelled_Voucher_To_TextBox)

    con.Execute ("Insert Into Issue(Voucher_No,Issue_Date,Expiring_Date,Issue_By,Guest_Name,Company,Guest_Position,Description,Reason) Values(" & i & ",#2001-01-01#,#2001-01-01#,Nil,Nil,Nil,Nil,Nil,'" & Reason_TextBox & "')")

Next i怎么报错呢?麻烦了,谢谢

Threaten

我把例子传上来,在窗体下的"Cancel_Form"里面

我批量输入需要取消的单号,一部分需要用TextBox里面的数值,一部分直接输入固定的数值

可是报错了,我将参数一个一个试了一下,还是不行!不知道是什么原因!

Password是369

谢谢

[此贴子已经被作者于2005-8-2 14:04:07编辑过]

LucasLynn

用监视，看看运行时的SQL字符串是不是你想要执行的。

Threaten

如何用?

Threaten

监视窗口什么都没有呀?con.Execute ("Insert Into Issue(Voucher_No,Issue_Date,Expiring_Date,Issue_By,Guest_Name,Company,Guest_Position,Description,Reason) Values(" & i & ",#2001-01-01#,#2001-01-01#,Nil,Nil,Nil,Nil,Nil,'" & Reason_TextBox & "')")

这整个一句出错,"No Value given for one or more required parameters"

LucasLynn

几个问题：1、有效性规则设定有问题，既然是个范围，为什么头尾两个记录都不能在原来的表中？你的记录都是通过一个Bool值来确定是否取消，那么需要取消的记录自然应该就在表中能找到2、既然是取消订单，那么应该设定Canceled为True，而不是添加记录。你至少应该先用SELECT选出范围内已有的尚未取消的订单记录集，然后逐个Update他们的Canceled字段。

LucasLynn

把Nil改成'Nil'

你是不是想用Null？

[此贴子已经被作者于2005-8-2 14:31:28编辑过]

Threaten

^_^,做的是比较麻烦,可是也有我的苦衷啊~~~谢谢你了不是Null,而是自动填入Nil