① vb 怎么找到没有数据的最后那一行
你意思抄是像数据库一样袭,在最后一行记录的下一个空白行继续追加记录吧。
Subfn()'定位到数据表的最后一行之后的空白行的第一列单元格。
DimrowAsLong
row=ActiveSheet.UsedRange.Rows.Count+1
DimrAsRange
Setr=ActiveSheet.Cells(row,1)
r.Select
EndSub
可能还有更简单的方法,
② VB 中如何判定调用的数据为数据库第一条和最后一条记录
如果是ADO控件。 Adodc1.Recordset.MoveFirst第一条 Adodc1.Recordset.MoveLast最后一条 如果是版data控件。权 data1.Recordset.MoveFirst第一条 data1.Recordset.MoveLast最后一条
③ vb6.0如何读取txt文件最后一行数据
假设你这个TXT文件名是a.txt,在D盘。
dim Str as string
Open "D:\a.txt" For Input As #1
Do Until EOF(1)
Line Input #1,Str '读出一整行
if left(Str,1)="2" then msgbox "找到一行啦,其结果是=" & Str '判断版左边是否是2,是就显示权
Loop
Close #1
更详细的还可以参考我的以下回答《关于如何读取TXT文件》:
..com/question/266494810.html?oldq=1
④ asp VB 读取数据库里一个表的最后一条记录的方法
如果只是读取最后一个值的话,那直接用自动编号的ID
select
*
from
A
order
by
id
descs
,只是要那一个记录的话
top
1
都可以不要
⑤ vb用ado对象如何提取数据库表最后一条记录的信息
rs.movelast
再提取,RS各字段值
⑥ vb读取ACCESS数据库的最后一行信息的方法
你排序,然后用倒序,并且只读第一行就行了,比如我们都知道ID是从小到大的
所以就
select top 1 * from [User] order by [Id] desc
⑦ vb 获取文件最后一行内容
'easy
Open "C:\病毒库" for input as #1
do until eof(1)
input #1,textline
loop
close #1
'now, it's the last line
⑧ vb 怎么把数据库中的最后一行显示出来
按日期加时间排序,用text控件绑定,专用来显示时间值。
是我:相信自己。
⑨ vb 如何定位access数据库的最后一行
用DAO 的方式完成:
Dim DB As DAO.Database
Dim Rect As DAO.Recordset
Dim newCode As String '新的档案编号
Set DB = OpenDatabase("E:\DB1.mdb", 0, 0)
Set Rect = DB.OpenRecordset
("SELECT 档案编号 FROM 会员档案", dbOpenSnapshot)
If Rect.BOF And Rect.EOF Then
newCode="1"
Else
Rect.MoveLast
newCode=Val(Rect(0))+1
End If
还可以直接获得最大的“档案编号”
Set Rect = DB.OpenRecordset
("SELECT Max(档案编号) FROM 会员档案", dbOpenSnapshot)
此时就不需要移动数据记录了。直接计算新的“档案编号”
newCode=Val(Rect(0))+1
⑩ 用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文件的总行数。然后再运行下面的方法
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文件的路径+文件名