請教各位
我有二個TextBox,分別是起始值和最後值,但是它是屬於文字,不是數字
例如Text1填入0001 ,Text2填入0020(文字的長度不一定,也有可能是03001~04000或162000~162999..........)
我想將0001~0020的文字,存入資料庫裡的A002
For i = Text1 To Text2
sql = "INSERT INTO 購入 (A001,A002,A003) VALUES ('" & cboBook & "','" & i & "','" & DateStr & "')"
.......
但是它存入的資料,卻變成1,2,3....20
但是我想得到的是它存入成0001,0002,0003,....0020
請問我該如何修改呢,謝謝各位
我有二個TextBox,分別是起始值和最後值,但是它是屬於文字,不是數字
例如Text1填入0001 ,Text2填入0020(文字的長度不一定,也有可能是03001~04000或162000~162999..........)
我想將0001~0020的文字,存入資料庫裡的A002
For i = Text1 To Text2
sql = "INSERT INTO 購入 (A001,A002,A003) VALUES ('" & cboBook & "','" & i & "','" & DateStr & "')"
.......
但是它存入的資料,卻變成1,2,3....20
但是我想得到的是它存入成0001,0002,0003,....0020
請問我該如何修改呢,謝謝各位
文章標籤
全站熱搜
Dim s as String s = String(Len(Text1.Text), "0") For i = Text1 To Text2 sql = "INSERT INTO 購入 (A001,A002,A003) VALUES ('" & cboBook & "','" & Format(i, s) & "','" & DateStr & "')"
可以了,謝謝你的幫忙
再請教一個問題 那如果還有可能是A00231~A00332或G000026~G0000108,或CF0004~CF0019 就是前面有英文字,但不一定是哪個字 我要怎麼再分割呢 我試了弄好多個 ta = String(Len(Text1.Text), "A") tb = String(Len(Text1.Text), "B") tc = String(Len(Text1.Text), "C") ............... 但是總是好怪,請問我該怎麼修改呢,謝謝各位