导航:首页 > 编程大全 > vb获取数据库最后一行数据

vb获取数据库最后一行数据

发布时间:2021-03-02 23:09:33

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

阅读全文

与vb获取数据库最后一行数据相关的资料

热点内容
l3agent配置文件 浏览:521
element3d文字教程 浏览:434
pages文件能在word里打开么 浏览:53
金铲铲配置文件下载失败客户端无法启动 浏览:387
c按行读取word 浏览:310
4g网络怎么变成2g了 浏览:197
电脑安装安卓50 浏览:604
网络协议分析pdf 浏览:945
手机传输到u盘文件容易损坏 浏览:175
安卓tcpsocketsend 浏览:527
在哪里下载轻草app 浏览:673
java文件名下载 浏览:335
深圳华强北苹果7报价 浏览:337
i9300基带文件 浏览:536
18款宝来加装雾灯如何编程 浏览:894
女生送包了两层纸的苹果 浏览:186
a790e线刷教程 浏览:962
win10系统如何复制Pdf文件 浏览:800
js鼠标移动图显示数据 浏览:203
微信网名带念字 浏览:161

友情链接