VB問題 讀取乙個隨機檔案，顯示一條記錄，如何顯示下一條記錄？

dim x as long '新增功能。

get #1, ,r2 '從通道 2 中的第乙個點讀取 R1 的記錄; get 1， 2， R2 從通道 1 內部讀取 R2 的第 2 條記錄。

if instr(1, ,s1) >0 then '從第乙個字元開始搜尋，檢查記錄中是否有字元R2為S1

x=x+1 '新增功能。

if x=1 then '新增功能。

true==

else '新增功能。

這是第二條記錄。

exit do

end if '新增功能。

end if

loop

在定義中新增 static index as long，將初始值賦值為 1，然後 index=seek（1），將 seek 更改為 seek

#1,index

seek 函式返回乙個 long，指定 open 語句開啟的檔案中的當前讀取和寫入位置。

dim myrecord as record '宣告變數。

open "testfile" for random as #1 len = len(myrecord)

do while not eof(1) '迴圈到檔案末尾。

get #1, ,myrecord '讀取下一條記錄。

seek(1) '記錄編號將顯示在即時視窗中。

loopclose #1 '關閉檔案。

檢查檔案寫入語句或檔案內容，當實際檔案大小不等於記錄時，可能是記錄長度的整數倍。

當然，你在小數點上加 1。 、

通常以 1 開頭。

dim const position as integer=2dim myrandomfile as string*30open for random acess read as #1 len=len(myrandomfile)

獲取 1，position，myrandomfile，myrandomfile 在字串變數 myrandomfile 儲存在 myrandomfile 之後。

查詢通常如下所示。

定義動態陣列。

首先，根據檔案大小和記錄大小獲取記錄總數，然後重新調整剛才的動態陣列，然後使用 for 語句在動態資料中查詢，而不是對檔案進行操作，直接操作檔案太麻煩了。

如果您正在處理大量資料，建議您使用資料庫系統而不是檔案系統。

如果只是為了顯示，建議使用標籤。 這個有點“便宜”。

如果需要在顯示屏上取得進展，請考慮使用文字框。

不建議直接列印到窗體上，因為預設位置從左上角開始。 為了看起來好看，你必須仔細設定垂直和水平游標，它們不像上面兩個那麼直接。

標籤或文字框都可以。

是不是上次找到的記錄號在刪除時被刪除了，但是在搜尋時沒有更新，導致記錄號混亂？

上次找到的記錄號在刪除時被刪除了，但搜尋時沒有更新，導致記錄號混亂！

1 都得到 1， ，c

更改為獲取 1， i， c

此外，如果 a = 0 那麼

1end if

要更改：如果 a = 0 則

1close #

exit sub

end if

int（rnd（）*這是乙個 vb 語句，你把它放在雙引號裡併發送到資料庫伺服器有什麼用？ 有必要區分VB語句和SQL語句的區別

dim i as integer

i= int(rnd()*

從表 1 中選擇 *，其中 id=" & i

只是你忘了定義哪個變數，很容易找到錯誤訊息的位置。