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

Question

如题所述

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文件的路径+文件名