导航:首页 > 编程大全 > 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获取数据库最后一行数据相关的资料

热点内容
微信网名带念字 浏览:161
提取一个文件夹里的所有图片 浏览:198
三星s5自带文件管理器 浏览:356
如何将文档数据按规定排序 浏览:660
word中的文件如何重命名 浏览:272
新基建中的数据中心是指什么 浏览:728
pdf扫描文件插入图片大小 浏览:362
java500错误原因 浏览:905
sx1278代码 浏览:729
调试配置文件 浏览:780
企业培训app如何选 浏览:38
adonet读取数据库 浏览:717
蓝色代码 浏览:500
怎么进入网站后台管理系统 浏览:988
win7如何传文件 浏览:649
微信赠送u盘文件 浏览:216
office2016激活文件名 浏览:841
打印要输入文件名 浏览:59
虚拟串口用什么编程 浏览:314
word2010怎么设置不同的页码 浏览:61

友情链接