关于VB+ACCESS数据库编程，没事也来看看，在线等待！！！！！！！！

Question

如果你用ado连接数据库
++++++
rs.open "select * from 数据库 ",cn,3,1if rs.recordcount=0 then '证明数据库里没有记录
else
 '这里写你的删除代码end if 
++++++
排序问题rs.open "select * from 表 order by id ",cn,3,1 '这里是按照id 的升序排列,rs.open "select * from 表 order by id desc",cn,3,1 '这里是按照id 的降序排列,

Answer 1

最简单的方法
加上on error resume next

Answer 2

cn代表connection
是一个你已经打开的连接
如果你是用ODBC，一下的代码可能有些用处dim cn as adodb.connection
dim rs as adodb.recordsetset cn=new adodb.connection
set rs=new adodb.recordsetcn.open 你要打开的数据源名，用户，密码然后再用上面的代码

Answer 3

如果你用ADO控件连接数据库可以这样写：
adodc.recordsource="select * from XXXX"
adodc.refresh
if not adodc.recordset.eof then
    '执行删除操作
else
    msgbox"数据库已清空！"
end if排序
"select * from XXXX order by YYYY"

Answer 4

只要先对数据库控件进行refresh
然后判断数据库控件的recordset.recordcount如果为零则提示记录已全部被删除

Answer 5

排序在sql语句中加上order by 排序字段
即可

Answer 6

为什么在  Private Sub Form_Load() 中不能用
      If Data1.Recordset.RecordCount = 0 Then
            MsgBox "data error"
      end if
 实时错误‘91’
 对象变量或With块变量未定义

Answer 7

删除的时候加上where就可以了
比如你的表中有个ID都是>0的的值，你就可以delete from umdb where id>0

Answer 8

ACCESS的语法和SQL的差不多吗？

Answer 9

VB6.0 不支持ACCESS2000啊！！！！怎么办？

Answer 10

adodc(ado控件)不够灵活!
adodb(ado语言)就比较好!建议使用!也较安全!
上楼有一人的编码是:
dim cn as adodb.connection
dim rs as adodb.recordsetset cn=new adodb.connection
set rs=new adodb.recordset其实:用这就行:
dim cn as new adodb.connection
dim rs as new adodb.records关于排序:
我想,一种是在编码中实现,如果用adodc就用sort最简单!(adodc1.recordset.sort "条件")
另一种是用sql(order by ...)我刚学vb一年多,是菜鸟!!!

Answer 11

VB6.0 好象真的不支持ACCESS2000啊！！！！怎么办？哪里有SP5啊？？

Answer 12

楼上2002oncemore说的其实:用这就行:
dim cn as new adodb.connection这样确实也行
不过好像不提倡这种用法吧
好像是因为每次遇到用New声明的变量时
都要进行测试
判断是否已将对象引用赋给该变量
会减慢程序运行的速度不知道说的对不对

Answer 13

为什么在  Private Sub Form_Load() 中不能用
      If Data1.Recordset.RecordCount = 0 Then
            MsgBox "data error"
      end if
 实时错误‘91’
 对象变量或With块变量未定义
----------------------------------------------------------------
这是因为Load事件发生在窗体正在装入的时候，此时Data控件尚未被载入窗体。如果试图在Load事件中对Data控件进行操作，将会发生上述你说的错误。对Data控件的各项初始化工作要在窗体Activate事件中完成，而不是Load事件中。
data控件的RecordCount属性记录了记录集的总数。如果数据库中没有任何数据的话，将得到0。从而可以判断数据库中是否还有记录。

Answer 14

vRecordset.Delete
vRecordset.Filter=""
然后加上Eof,Bof判断,就可再执行
vRecordset.Delete

Answer 15

定义：
set rs=...
if rs.eof and rs.bof then
   msgbox "rs is null"
end if