高手急救，有关数据类型转换的问题！！！

Question

各位高手好！我想实现号段录入，比如从0000001到0000010全部录入，用的是循环，但是这个比较特殊，用long存进去就成了1，2，3....10,怎样才能存成0000001，0000002，0000003，1000000呢？关键我要利用循环啊，我的代码是这样的A和B都是string型的Dim i As Long
For i = CLng(A) To CLng(B)
    conn.Execute "insert into [chehao] (车号) values ('" & i & "')"
Next i
    MsgBox "号段" & A & "至" & B & "全部录入完成！", vbOK

Answer 1

Dim   i   As   Long 
For   i   =   CLng(A)   To   CLng(B) 
   conn.Execute "insert into [chehao] (车号) values('" & string(7-len(i),"0") & trim(str(i)) &"')" 
Next   i 
 MsgBox  "号段 "  &  A  &  "至 " &  B  & "全部录入完成！", vbOK

Answer 2

楼上老大思路很好，不过出来还是不算对哦，如果是1000000，len（）求出来的长度竟然只有4，郁闷了

Answer 3

Dim  i  As   Long 
For  i   =   CLng(A)   To   CLng(B) 
   conn.Execute  "insert into  [chehao] (车号)  values ( ' "   &  Format(i,"0000000") & " ') " 
Next   i 
   MsgBox   "号段 "   &   A   &   "至 "   &   B   &   "全部录入完成！ ",   vbOK

Answer 4

'或者把2楼的这样改一下也可以
 String(7 - Len(Trim(Str(i))), "0") & i 

Answer 5

楼主貌似要的是字符串类型
len(1000000)
len("1000000")

Answer 6

conn.Execute "insert into [chehao] (车号) values ('" & format(i,"0000000") & "')"

Answer 7

支持一下---------------------------
内推网 - 内部推荐 求职快线
http://www.neitui.com