Question

用VB如何找到数据库里的最后一条记录或txt文件里的最后一行数据？

Answer 1

数据库：执行查询语句后得到一个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文件的总行数。然后再运行下面的方法
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文件的路径+文件名