爱问知识人 爱问教育 医院库

VB问题

首页

VB问题

Dim zmb As Database 
Dim rs As Recordset
Set zmb = Workspaces(0).OpenDatabase("D:\zsh\ b", 0, False, ";pwd=999888")
Set rs = zmb.OpenRecordset("select * from zmb")  
rs.MoveLast
rs.AddNew
rs.Fields("车牌号") = Combo4.Text
rs.Fields("规格") = "无"
………………
rs.Update
这样向Microsoft Access2000数据库中添加记录有时不在结尾处,(数据库已经做过压缩修复)请教各位高手,怎样保证所添加的记录一定在结尾,谢谢!

提交回答
好评回答
  • 2008-09-07 09:57:15
    数据库存储的时候,就是这样的。是一个记录表,增加的时候,是根据记录表中的空闲位置,找到空闲位置就进行记录的。
    当你对数据库进行过删除、修改纪录操作的话。空闲位置就改变了。所以写入的时候,不一定是最后一行。
    但是你可以用程序进行控制的
    假定你的数据库中有 ID.编号,写入日期之类的字段的话。
    可以在读出的数据的时候,进行一下排序,保证你看到的数据库的记录保证在最后面。
    Set rs = zmb.OpenRecordset("select * from zmb") 
    修改后:
    Set rs = zmb.OpenRecordset("select * from zmb order by 编号 asc") 
    

    o***

    2008-09-07 09:57:15

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 171-190
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):