1、怎么实现升序或降序排列?
可以通过更改RecordSource属性来实现:
Data1.RecordSource = "select * from 表名 order by 字段名"
Data1.Refresh2、在插入新的纪录时我用data1.recordset.addnew,为什么插到了最后?怎样才可以在当前纪录后面插入纪录?
不清楚,好象不行。3、我用 Form1.Data1.Recordset.FindFirst "booksname='" & Text1.Text & "'"来查找纪录,查到的只有一个,怎样才可以将符合的纪录全都显示出来?
试试用第一种方法:
Data1.RecordSource = "select * from 表名 where booksname='" & Text1.Text & "'"
Data1.Refresh4、怎样知道数据库中一共有多少条记录?
Dim iCount As Integer
iCount = Data1.Recordset.RecordCount
'iCount即为记录数
可以通过更改RecordSource属性来实现:
Data1.RecordSource = "select * from 表名 order by 字段名"
Data1.Refresh2、在插入新的纪录时我用data1.recordset.addnew,为什么插到了最后?怎样才可以在当前纪录后面插入纪录?
不清楚,好象不行。3、我用 Form1.Data1.Recordset.FindFirst "booksname='" & Text1.Text & "'"来查找纪录,查到的只有一个,怎样才可以将符合的纪录全都显示出来?
试试用第一种方法:
Data1.RecordSource = "select * from 表名 where booksname='" & Text1.Text & "'"
Data1.Refresh4、怎样知道数据库中一共有多少条记录?
Dim iCount As Integer
iCount = Data1.Recordset.RecordCount
'iCount即为记录数
如果是Access或者SQL的数据库,就不存在楼主认为的“次序”或者“记录号”的概念了。3、我用 Form1.Data1.Recordset.FindFirst "booksname='" & Text1.Text & "'"来查找纪录,查到的只有一个,怎样才可以将符合的纪录全都显示出来?
FindFirst/FindNext/FindPrevious/FindLast,这几个命令结合起来用也可以实现楼主希望的结果。如
Form1.Data1.Recordset.FindFirst "booksname='" & Text1.Text & "'"
Do Until Form1.Data1.Recordset.NoMatch
'这里是其它的代码
Form1.Data1.Recordset.FindNext "booksname='" & Text1.Text & "'"
Loop