以下是引用豆豆17373在2012-11-2 17:47:24的发言：

如题。如：*.txt　中有两行内容，第一行“张三”，第二行“李四”　怎样导入到查询窗体text1中，点查询按钮后做2次（或批量）查询，读取到张三查询从ACCESS数据库的个人信息结果输入到显示控件的第一行，读取到李三查询从ACCESS数据库的个人信息结果输入到显示控件的第二行....　要是文本文件中有N行呢？需要自动循环做条件查询。　假设：文本文件为 Text.txt
－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Dim str1 As String
Text1 = ""

Dim strTest As String, lstr As String
Dim fname As String, fnum As Integer
Dim arrList(1000) as string
  fname = "......\Text.txt"  'Text.txt的绝对路径
  fnum = FreeFile               '获取文件号
  Open fname For Input As #fnum
  Do Until EOF(fnum)
    Line Input #fnum, lstr
    Text1.Text = Text1 & strTest & lstr & vbCrLf
  Loop
  Close fnum
End Sub
------------------------------------
不对吖。

Dim strTest As String, lstr As String
Dim fname As String, fnum As Integer
Dim arrList(1000) as string
  fname = "......\Text.txt"  'Text.txt的绝对路径
  fnum = FreeFile               '获取文件号
Dim ary() As String
dim As Integer
i = 1
Open "" For Input As #1
Do While Not EOF(1)
ReDim Preserve ary(i)
Line Input #1, b
ary(i) = b
i = i + 1
Loop
For i = 1 To UBound(ary())
Print ary(i)
Next
  Close fnum
End Sub

以下是引用Artless在2012-11-2 23:29:43的发言：


那里不对？

以下是引用Artless在2012-11-3 10:50:49的发言：

fname = "......\Text.txt"?