关于一段VB程序的意思？

来源：百度知道 编辑：UC知道 时间：2024/09/21 12:44:08
sql = "select * from alam_tab where devnum='" & AlarmYt.ItemData(AlarmYt.ListIndex) & "' order by 日期 desc"

Rs.Open sql, DEn1.Conn, 3, 1
If Not Rs.EOF Then
Do While MSFG1.Rows > 2
MSFG1.RemoveItem MSFG1.Rows
Loop

Rs.PageSize = 20
intPages = Rs.PageCount

Rs.AbsolutePage = numPage

这一段都是什么意思呢？我听说RS是指数据库有关的对象
可这段程序之前没有定义过RS什么什么的
这里面有一部分东西定义过
但是DEVNUM是什么意思呢？
MSFG1是数据库对象吗？
另外请帮我解释下这段每句都什么意思
详细有加分，谢谢！

应该是一个从数据库里按指定条件查询，并且依查询结果来取决是否删除网格控件里的数据的代码；

RS是记录集对像，如果没有这段代码之前定义，那就是定义在通用的声明部分了，也有可能定义在了其他的模块文件里，你可以用鼠标左键点击他，然后选择定义，可以直接到定义这个对像的地方；
DEVNUM这个应该是数据库里的一个字段，具体是什么字段，需要你打开数据库查看，我不太清楚；
MSFG1是VB的一个控件，叫网格控件，是专门用来显示数据的，这在VB编程的时候经常用！

sql = "select * from alam_tab where devnum='" & AlarmYt.ItemData(AlarmYt.ListIndex) & "' order by 日期 desc"
上面这句是查询语句，AlarmYt.ItemData(AlarmYt.ListIndex)这个是传进SQL语言的变量；

Rs.Open sql, DEn1.Conn, 3, 1
这句是RS对像的操作，意思是用sql这个查询语句在DEn1.Conn这个连接里进行查询，结果返回给RS对象；
If Not Rs.EOF Then
这是个条件语句，意思是如果到了记录集的最后一条，则不招待后面的代码；
Do While MSFG1.Rows > 2
MSFG1.RemoveItem MSFG1.Rows
Loop
循环语句，作用是删除MSFG1里多于的行，即只留2行数据。

Rs.PageSize = 20
设置记录集的页大小
intPages = Rs.PageCount
将记录集的总页数赋值给变量intPages;

Rs.AbsolutePage = numPage
设置RS的当前页为nupage.

我上学期没好好学，所以看的不是很懂，但有一点肯定的，这些语句的确是调用了数据库！devnum是你数据库的一个列名称！