插入的问题

Question

输入一组范围，比如A001-A005，如何让这组数据插入表中

Answer 1

dim iMin as integer,iMax as integer,i as integer
iMin=val(mid(strMin,2,3))
iMax=val(mid(strMin,2,3))dim strIns as sting
for i=imin to imax
  strIns="A" & cstr(i)
  insert into table (fieldlist...) values (...)
  ...
next i

Answer 2

谢谢，不过A001只是举例，如果换一组ASDFG789-ASDFG793，是否要要取出最后的一组数字，该怎么取？

Answer 3

Dim i As Integer
Dim str As StringFor i = 1 To 5
 str = "A"+Format(CStr(i), "000")
 insert into table (fieldlist...) values (...)
Next

Answer 4

前两位是英文不固定，后面是一组数字，TEXT怎么写？

Answer 5

没有规律的话，存在数组里可能更好一些，至于值从那里过来，看你是走数据库表还是TEXT控件数组而定

Answer 6

text数组控键for i=0 to N
    insert into table(field) values(text(i))
next i

Answer 7

要存到数据库中，只提供两个TEXT输入上下限，输入的数值是两个不确定的英文和连续的数字，该如何写

Answer 8

text1'下限
text2'上限'如果text1与text2的头两个英文字母相同
dim str as string
dim lbd as integer,ubd as integer
str=left(trim(text1.text),2)
lbd=Cint(right(trim(text1.text),len(text1.text)-2))
ubd=Cint(right(trim(text2.text),len(text2.text)-2))
for i=lbd to ubd
    insert into table(field) values(str & Cstr(i))
next i

Answer 9

用的是ADO控件，如何循环插入

Answer 10

dim cnn as adodb.connection
dim rst as adodb.recordset
set cnn=new adodb.connection
cnn.open "privoder=;data source="
set rst=new adodb.recordsetfor i=lbd to ubd
    rst.open "insert into table(field) values(str & Cstr(i))",cnn,3,3
next i

Answer 11

楼上的谢谢了，能解释一下下面几句的意思吗
str=left(trim(text1.text),2)
lbd=Cint(right(trim(text1.text),len(text1.text)-2))
ubd=Cint(right(trim(text2.text),len(text2.text)-2))

Answer 12

1.trim(str as string)  '对文本两端的空白过滤 eg.trim("  hello  ") 返回"hello"
2.left(str as string,n as integer,...)  '对文本str从左往右取n个字符  eg. left("china",2) 返回"ch"
3.right(str as string,n as integer,...)  '对文本str从右往左取n个字符  eg.
right("china",3) 返回 "ina"
具体的在MSDN上看看str=left(trim(text1.text),2) '把text1中的前两个字符取出放入str中
lbd=Cint(right(trim(text1.text),len(text1.text)-2)) '把text1中剩下的字符(数字)转换为int保存到lbd中
ubd=Cint(right(trim(text2.text),len(text2.text)-2))  '把text2中剩下的字符(数字)转换为int保存到ubd中(如果text1与text2的头两个英文字母相同,如AG001~AG999)

Answer 13

谢了，在问一问题，在ACCESS中表中的一个字段为是/否，我事先让他插如为否，怎么表示

Answer 14

SQL="insert into table_name(field_name1,...) values('否'...)"