Question

VB中DataGrid1中的数据怎么才能显示最近数据

如果在TEXT1.TEXT中输入名称XXX,按command后DataGrid1中显示出最近20条关于XXX的信息,有没有源码

Answer 1

设你的DataGrid1绑定的数据库的表名为TBL1, 该表中存放名称的字段名称是"YName", 在该表中增加一个字段， 字段名称是"ID",类型设为“自动编号”
在Command1_Click() 事件中添加下面代码：

Dim CN As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQ As String
CN.CursorLocation = adUseClient
CN.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\数据库名.mdb"
SQ = "select * from TBL1 order by ID desc where YName=' " & Trim(Me.Text1.Text) & " '"
rs.Open SQ, CN, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs

追问

显示order by子句语法错误,这是为什么啊

追答

是order by 子句 与 CN.CursorLocation = adUseClient有冲突。 现在问题解决了。方法如下：

1）复制TBL1表，做一份新表，表名为TBL2， 新表用于接收最近的20条关于XXX的信息

2）在DataGrid1中显示新表数据

代码见附件

追问

我现在每次导入到DataGrid1中的数据,他的ID都是接着上一次自动编号的,有没有办法让他每次是从1 ~20这样编号,而不是这次是1~20,下次就是21~40

追答

ID编号是递增的不能重复的，所以不能每次都从1~20编。但附件的程序已经能显示最近的20条记录了。