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