TXT文件：Open StrPath For Input As #1
Do While Not EOF(1)
Line Input #1, TXTCon
i = i + 1
Loop
Close #1
以上是读取txt文件的方法，当close后i的值就是txt文件的总行数。然后再运行下面的方法
Open StrPath For Input As #1
Do While Not EOF(1)
Line Input #1, TXTCon
If j= iThen
msgbox TXTCon '这个就是最后一行记录
Close #1
Exit Sub
End If
j= j + 1
Loop
Close #1
StrPath 是txt文件的路径+文件名
用VB如何找到数据库里的最后一条记录或txt文件里的最后一行数据?
数据库：执行查询语句后得到一个Recordset，使用RecordSet.MoveLast属性可以找到最后一条记录。TXT文件：Open StrPath For Input As #1 Do While Not EOF(1)Line Input #1, TXTCon i = i + 1 Loop Close #1 以上是读取txt文件的方法，当close后i的值就是txt文件的总行数。然后再运行下面的方法 O...
vb中怎么搜索到表里最后一个数据
rs.Open返回记录集，上面这个命令，将返回满足图号为Text1.Text值的记录，如果你数据库里只有一条记录的图号为“Q123”，那么返回的就只有一条记录。这个时候，记录指针就是指向该记录，要获得该记录的所有字段信息：For i = 0 To rs.Fields.Count - 1 msgbox rs.Fields(i)next i 字段信息，可...
vb 怎么把数据库中的最后一行显示出来?
按日期加时间排序，用text控件绑定，专用来显示时间值。是我：相信自己。
vb 如何定位access数据库的最后一行
此时就不需要移动数据记录了。直接计算新的“档案编号”newCode=Val(daoRect(0))+1
vb读取ACCESS数据库的最后一行信息的方法?
你排序，然后用倒序，并且只读第一行就行了，比如我们都知道ID是从小到大的 所以就 select top 1 * from [User] order by [Id] desc
vb 如何知道数据库(1.mdb)最后一行ID(自动编号),显示在text1上
data1.recordset.movelast text1.text=str(data1.recordset.fields("ID").value)
VB 中如何判定调用的数据为数据库第一条和最后一条记录
如果是ADO控件。 Adodc1.Recordset.MoveFirst第一条 Adodc1.Recordset.MoveLast最后一条 如果是data控件。 data1.Recordset.MoveFirst第一条 data1.Recordset.MoveLast最后一条
VB中如何读取数据库中的下一条数据
其他移动记录方法：rs.MoveLast ‘最后一笔记录 rs.MoveFirst ‘第一笔记录 Rs.MovePrevious '上一笔资料 If Rs.BOF = False And Rs.EOF = False Then Label1.Caption = Rs("编号") & Rs("题目")End If If Rs.BOF = True Then ‘若超过第一笔资料就返回第一笔记录。Rs.MoveFirst End...
asp VB 读取数据库里一个表的最后一条记录的方法
如果只是读取最后一个值的话，那直接用自动编号的ID select from A order by id descs ，只是要那一个记录的话 top 1 都可以不要
VB如何用data或adodc显示access中abc表中最后的几条记录
如果要这样，你需要在数据库的字段里面加上一条添加时间的字段。因为它不会自动的跟你添加记录的加入或者更新时间。
