已知开始和结束号，如何分段录入数据库

clyfd 发布于 2022-10-02 11:44， 2001 次点击

只有本站会员才能查看附件，请登录

已经知道开始和结束号
想得到结果

只有本站会员才能查看附件，请登录

Private Sub Command1_Click()
SJK
Sql = "select * from [分散数据]"
RS.Open Sql, Cnn, adOpenKeyset, adLockOptimistic
RS.AddNew
For i = Int(Text1.Text) To Int(Text2.Text) Step 50
maxid = Cnn.Execute(Sql).Fields(0).Value + 1
If IsNull(maxid) Then maxid = 1

RS.Fields("开始号") = i
RS.Fields("结束号") = i + 49
RS.Fields("金额") = Trim(Combo1.Text)
RS.Fields("姓名") = Trim(Combo2.Text)
'maxid = maxid + 1
Next
RS.Update
RS.Close
Cnn.Close
Set RS = Nothing
Set Cnn = Nothing
MsgBox "成功写入数据"
End Sub

得到的结果确实

只有本站会员才能查看附件，请登录

请老师帮助

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2022-10-3 00:01编辑过]

8 回复

l20027221452022-11-20 18:31

只有本站会员才能查看附件，请登录

你的写法，我也没看懂，我是这样写的

clyfd2022-11-26 12:49

回复 2楼 l2002722145

老师，谢谢您的帮助，能否给个附件，我调试没成功，我的水平不行，还在拼凑代码状态

chen35232022-11-27 11:12

Private Sub Command1_Click()
SJK

Sql = "select * from [分散数据]"
RS.Open Sql, Cnn, adOpenKeyset, adLockOptimistic
For i = Int(Text1.Text) To Int(Text2.Text) Step 50
RS.AddNew
' maxid = Cnn.Execute(Sql).Fields(0).Value + 1
' If IsNull(maxid) Then maxid = 1

RS.Fields("开始号") = i
RS.Fields("结束号") = i + 49
RS.Fields("金额") = Trim(Combo1.Text)
RS.Fields("姓名") = Trim(Combo2.Text)
'maxid = maxid + 1
Next
RS.Update
RS.Close
Cnn.Close
Set RS = Nothing
Set Cnn = Nothing
MsgBox "成功写入数据"
End Sub
得到你表格的结果，但估计不是想要的东西。

[此贴子已经被作者于2022-11-27 11:14编辑过]

l20027221452022-11-27 11:51

回复 3楼 clyfd

我也是初学的，不能称老师

，你哪里不成功了

clyfd2022-11-27 12:29

回复 5楼 l2002722145

只有本站会员才能查看附件，请登录

您谦虚了，能帮助别人的都是老师，现在就在这样，请您帮助

clyfd2022-11-27 12:39

回复 4楼 chen3523

谢谢老师，是我需要的，谢谢你的帮助，我需要学习的地方太多了

l20027221452022-11-27 14:54

回复 6楼 clyfd

只有本站会员才能查看附件，请登录

这里写错了吧

clyfd2022-11-27 19:46

回复 8楼 l2002722145

哎，不认真啊，谢谢老师帮助，调试成功