VB中怎样将外部数据(如:*.txt,excel)导入控件text1中做查询条件!
如题。如:*.txt 中有两行内容,第一行“张三”,第二行“李四” 怎样导入到查询窗体text1中,点查询按钮后做2次(或批量)查询,读取到张三查询从ACCESS数据库的个人信息结果输入到显示控件的第一行,读取到李三查询从ACCESS数据库的个人信息结果输入到显示控件的第二行.... 要是文本文件中有N行呢?需要自动循环做条件查询。 假设:文本文件为 Text.txt-----------------------
Private Sub Command1_Click()
Dim str1 As String
Text1 = ""
CommonDialog1.ShowOpen
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
------------------------------------
不对吖。
[ 本帖最后由 豆豆17373 于 2012-11-3 08:34 编辑 ]