VB 记录数据库的数据入库单号,最后一个记录查不到,但ACCESS数据库中有此记录.VB 入库时,入库单号是自动导入且累加,(如:RUKU0001....RUKU000N)时,在记录过程中,是自动导入累加,但每次执行1~N次不等,就无法自动导入入库单号.清空数据库重0001开始又可以执行,但执行到自动导编号000N(N代表从1~N)的时候就完了,最后增加那一个查找不到,也加载不了,但在数据库中已有记录.如下简易代码.Private Sub Cmdcazao_Click() '入库单号查找Dim swl
题目
VB 入库时,入库单号是自动导入且累加,(如:RUKU0001....RUKU000N)时,在记录过程中,是自动导入累加,但每次执行1~N次不等,就无法自动导入入库单号.清空数据库重0001开始又可以执行,但执行到自动导编号000N(N代表从1~N)的时候就完了,最后增加那一个查找不到,也加载不了,但在数据库中已有记录.如下简易代码.
Private Sub Cmdcazao_Click() '入库单号查找
Dim swl As String
Dim rw As New ADODB.Recordset
List1.Clear
swl = "select * from ruku"
rw.Open swl, Conn, adOpenKeyset, adLockPessimistic
While rw.EOF = False
List1.AddItem rw.Fields("danhao") '将查找的入库单记录在LIST1控件中
rw.MoveNext
Wend
rw.close
rw.Close
End Sub
Private Sub Cmdjilu_Click() '入库记录
Dim SQL2 As String '以下代码是自动导入入库单号
Dim Rs2 As New ADODB.Recordset
Dim i1 As String
Dim i2 As String
Dim j1As String
Dim j2 As String
i2 = "ruku"
j2 = "0001"
SQL2 = "select * from ruku"
Rs2.Open SQL2, Conn, adOpenKeyset, adLockPessimistic
While (Rs2.EOF = False)
If Rs2.EOF = False Then
j2 = Format(j2, "#0000")
j1 = Trim(i2 & j2)
If Trim(Rs2.Fields("danhao")) = j1 Then
List1.AddItem Trim(Rs2.Fields("danhao"))
j2 = j2 + 1
Else
Label3.Caption = j1
Rs2.MoveNext
End If
Else
j2 = Format(j2, "#0000")
j1= Trim(i2 & j2)
Label3.Caption = j1
End If
Dim svl As String 经以上入库单号自动导入后,即开始增加入库记录
Dim rv As New ADODB.Recordset
List1.Clear
svl = "select * from caiwupinzhen"
rv.Open sv, Conn, adOpenKeyset, adLockPessimistic
if Label3.Caption <> "" then
rv.addnew
rv.fields("danhao") = Label3.caption
rv.update
end if
rv.movenext
wend
rv.close
end sub
以上所出现的问题是:当增加到3~20个不等,自动导入入库单号的时候,最后一个记录查找不到(意思如:记录单号从RUKU0001开始~记录到RUKU0005, 按照程序导入方式下一个应该是RUKU0006,但实际导入的是RUKU0005. 利用查找程序,也查找不到RUKU0005之单号,但进入数据库中,RUKU0005是有记录的.经确认数据库中是存在RUKU0005记录,进入VB继续执行入库操作,不管入库多少次,始终入库单号是RUKU0005,回到数据库,数据库中RUKU0005被入库时不断的累计,入多少次就增加了多少个RUKU0005.)
把数据库数据清空,从RUKU0001开始,执行到RUKU0007或RUKU0025时(不等的情况下)又出现以上问题点了.
出现这种问题是什么原因,如何解决? 调试了半天,头的晕了,我是新手.自学的.很多不懂,还请各位高手指点指点..感激不尽..
相似考题
更多“VB 记录数据库的数据入库单号,最后一个记录查不到,但ACCESS数据库中有此记录. VB 入库时,入库单号是自动导入且累加,(如:RUKU0001....RUKU000N)时,在记录过程中,是自动导入累加,但每次执行1~N次不等,就无法自动导入入库单号.清空数据库重0001开始又可以执行,但执行到自动导编号000N(N代表从1~N)的时候就完了,最后增加那一个查找不到,也加载不了”相关问题
-
第1题：
Access版本软件采购系统中的采购入库单和采购发票的格式乱了，应如何处理？（）
- A、从ufmodel.mdb数据库中的InvoiceItem_表导入生成一个新表替换原表即可。
- B、从ufmodel.mdb数据库中的InvoiceItema表导入生成一个新表替换原表即可。
- C、从ufmodel.mdb数据库中的InvoiceItem_sal表导入生成一个新表替换原表即可。
- D、从ufmodel.mdb数据库中的InvoiceItem_Ap表导入生成一个新表替换原表即可。
正确答案:B -
第2题：
通过4A登陆Oracel数据库进行操作时，4A可以通过查询操作记录查询该操作，此操作原始日志来源于（）
- A、数据库堡垒syslog
- B、FTP采集方式
- C、到数据库中采集日志
- D、通过录像人为记录并入库
正确答案:A -
第3题：
从Access数据库导入数据时，源数据库设置有密码，导入时不用输入密码。
正确答案:错误 -
第4题：
销售与库存集成使用时，对于选项“库存生成销售出库单”选择与否，下面说法错误的是（）。
- A、出库跟踪入库属性的存货，其入库记录可以多次出库
- B、未选择该选项，发货单上如果指定了入库单号，则库存销售出库单上不可以修改
- C、选择该选项，发货单上如果指定了入库单号，则库存销售出库单上不可以修改
- D、选择该选项，发货单上如果指定了入库单号，则库存销售出库单上可以修改
正确答案:D -
第5题：
用LOCATE命令开始查找，再用CONTINUE命令继续查找，如果查找不成功，记录指针指向（）。
- A、数据库最后一条记录
- B、数据库第一条记录
- C、LOCATE命令指定范围的最后一条记录
- D、数据库最后一条记录的后面
正确答案:D -
第6题：
当数据库打开时，包含在数据库中的所有表都可以使用，但这些表不会自动打开，使用时需要执行（）命令。
- A、CREATE
- B、USE
- C、OPEN
- D、LIST
正确答案:B -
第7题：
Access数据库只有从Access数据库中导入数据，不能从其他类型的数据库中导入数据。
正确答案:错误 -
第8题：
下列关于自动宏的叙述中，正确的是（）
- A、打开数据库时不需要执行自动宏，需同时按住Alt键
- B、打开数据库时不需要执行自动宏，需同时按住Shift键
- C、若设置了自动宏，则打开数据库时必须执行自动宏
- D、打开数据库时只有满足事先设定的条件才执行自动宏
正确答案:B -
第9题：
Access版本软件销售系统委托代销发货单不能保存单据，提示：发货单号已被使用的解决方法是：（）
- A、重新导入生成一个新的ufdatA.mdb数据库即可。
- B、B.打开ufdatmdb数据库中的MaxVouch（最大单号表），将单据名（字段为cvouch）为EnDisps和EnDisp的两行记录所对应的当前号（cIncodE.修改变大些。
- C、C.修复整理ufsystem.mdb和ufdatmdb数据库即可。
正确答案:B -
第10题：
自动化立体仓库出入库作业调度时要遵循入库任务优先执行原则。
正确答案:错误 -
第11题：
单选题数据仓库中的数据一般（）A直接从数据库直接导入
B从数据库抽取、清理再进行加工、整理后导入
C人工录入
D从网页自动搜索获得
正确答案： B解析： 暂无解析 -
第12题：
单选题通过4A登陆Oracel数据库进行操作时，4A可以通过查询操作记录查询该操作，此操作原始日志来源于（）A数据库堡垒syslog
BFTP采集方式
C到数据库中采集日志
D通过录像人为记录并入库
正确答案： D解析： 暂无解析 -
第13题：
数据仓库中的数据一般（）
- A、直接从数据库直接导入
- B、从数据库抽取、清理再进行加工、整理后导入
- C、人工录入
- D、从网页自动搜索获得
正确答案:B -
第14题：
积分礼品验收入库操作：点击“礼品验收入库”，打开页面后需要输入（）。
- A、礼品单号
- B、申请单号
- C、送货单号
- D、配送单号
正确答案:B -
第15题：
SYBASE数据库安装和创建完毕后。我们一般都会手工再创建最后机会阀值，请问这个最后机会阀值的主要用途是（）
- A、自动清空数据库历史告警数据
- B、自动清空数据库日志
- C、没有任何用处
- D、用于数据库自动备份
正确答案:B -
第16题：
当数据库打开时，包含在数据库中的所有表都可以使用，但这些表不会自动打开，使用时需要执行（）命令.
- A、CLEAR
- B、OPEN
- C、LIST
- D、USE<数据表名>
正确答案:D -
第17题：
有关导入数据到数据库，以下说法正确的是（）
- A、可以将任意形式的数据导入数据库
- B、可以将excel导入到指定数据表中
- C、在导入数据时，不可以修改sql语句
- D、在导入数据库，对应数据必须新建表
正确答案:B -
第18题：
在Access数据库之间导入和导出对象，一次导入操作可以导入多个对象，但一次导出操作只能导出一个对象。
正确答案:正确 -
第19题：
Access数据库从Excel中导入数据时，只能导入第一个工作表中的数据。
正确答案:错误 -
第20题：
数据库管理员在SQLServer的查询分析中执行以下语句：BULKINSERT Northwind.dbo.CustomersFROM’c：/Customere.txt’WITH（FIELDTERN8NATOR=’︱’ROWRERHIINATOR=’︱/n’）请问该操作的结果是（）。
- A、从数据文件c：/Customers.txt中导入信息到Northwind数据库的Customers中，该文件使用“︱”作为字段终止符，使用”︱/n”作为行终止符，
- B、从Northwind数据库的Customers中到出信息到数据库文件c：/Customers.txt中且该文件使用“︱”作为字段终止符，使用”︱/n”作为行终止符
- C、Northwind数据库中Customers表的原有数据将被新导入的数据覆盖
- D、新导入的数据将追加在Customers表中
正确答案:A,D -
第21题：
进入821采购管理模块--帐表--采购明细表后点击“设置”按钮后出现“错误提示”，其他像“入库明细表”也出现同样现象，以下哪种方法可以解决：（）
- A、将正常帐套数据库中的vouchlist表导入到出错的数据库中。
- B、将正常帐套数据库中的以invoice开头的表导入到出错的数据库中。
- C、将正常帐套数据库中的vouchers的表导入到出错的数据库中。
- D、将正常帐套数据库中以rpt_开头的表导入到出错的帐套数据库中。
正确答案:D -
第22题：
单选题下列关于自动宏的叙述中，正确的是（）A打开数据库时不需要执行自动宏，需同时按住Alt键
B打开数据库时不需要执行自动宏，需同时按住Shift键
C若设置了自动宏，则打开数据库时必须执行自动宏
D打开数据库时只有满足事先设定的条件才执行自动宏
正确答案： C解析： 暂无解析 -
第23题：
判断题在Access数据库之间导入和导出对象，一次导入操作可以导入多个对象，但一次导出操作只能导出一个对象。A对
B错
正确答案： 错解析： 暂无解析