一次读一条记录

[hsg135]

我把数据库中的数据读到文本文件中，现在我要把文本文件中的数据读到文本框中，怎样一次读一条记录？

[SoHo_Andy]

'按行读取文本，相当于按记录读取文本

Private Sub Command1_Click()
Dim filenum As Integer
Dim fileContents As String
Dim fileInfo() As String
Dim i As Integer

filenum = FreeFile
Open "d:\aa.txt" For Binary As #filenum
fileContents = Space(LOF(filenum))
Get #filenum, , fileContents
Close filenum
fileInfo = Split(fileContents, vbCrLf)

'你可以控制fileinfo这个记录数组
'循环每一行，给文本框赋值
For i = 0 To UBound(fileInfo) - 1
text1.text=text1.text & fileInfo(i) & vbnewline
Next
End Sub