| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2935 人关注过本帖, 1 人收藏
标题:VB中怎样将外部数据(如:*.txt,excel)导入控件text1中做查询条件!
只看楼主 加入收藏
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:20 
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 编辑 ]
搜索更多相关主题的帖子: 文本文件 excel 个人信息 数据库 
2012-11-02 17:47
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:20 
以下是引用豆豆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

那里不对?

无知
2012-11-02 23:29
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
以下是引用Artless在2012-11-2 23:29:43的发言:


那里不对?


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 编辑 ]
2012-11-03 08:14
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
fname = "......\Text.txt"?

无知
2012-11-03 10:50
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
以下是引用Artless在2012-11-3 10:50:49的发言:

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


老师您好!。刚学 还需请教。我重写了下。
----------------------
On Error GoTo ErrHandler
'设置过滤器。
CommonDialog1.Filter = "Text _Files (*.txt)|*.txt"
'指定缺省过滤器。
CommonDialog1.FilterIndex = 2
'显示“打开”对话框。
CommonDialog1.ShowOpen
'调用打开文件的过程。
Open "f:\d.txt" For Input As #1
RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1

 上面红色部分如果不知道具体地址,怎么写(只会写具体路径简单的,对话框老写不好出错就是用上面打开的对话框选文本文件,求助?我用了StrConv函数将文件的控制字符串数据和Unicode码之间进行转换,从而达到打开文件的目的。可打开任意大小文件,


Exit Sub
ErrHandler:
'用户按“取消”按钮。
Exit Sub

[ 本帖最后由 豆豆17373 于 2012-11-3 11:10 编辑 ]
2012-11-03 11:09
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 

无知
2012-11-03 11:16
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
或者 打开对话框 获取绝对路径  把它用变量 Open "变量路径\*.txt" For Input As #1

可以 吗?求教老师
2012-11-03 11:16
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 

无知
2012-11-03 11:18
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
搞不好吖。 结合我的例子给出完整的代码吧。 老师
2012-11-03 12:18
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 

无知
2012-11-03 12:29
快速回复:VB中怎样将外部数据(如:*.txt,excel)导入控件text1中做查询条件!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050863 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved