| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 411 人关注过本帖
标题:请教读写mdb文件改成读写txt文件
只看楼主 加入收藏
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:271
专家分:0
注 册:2014-4-10
结帖率:76.27%
收藏
已结贴  问题点数:20 回复次数:5 
请教读写mdb文件改成读写txt文件
先生们晚上好,我能读写mdb文件的代码,现在想修改成读写txt文件的代码,修改了好多次,总是没成功,请教您们如何修改,谢谢
原读写mdb文件代码如下,想修改成读写txt文件
Dim a(1 To 23, 1 To 13) As Currency

Private Sub Form_Click()
 '-----------------------读"原方阵.mdb"文件,现在想改成读取“原方阵.txt”文件
     Dim Bcn1 As New ADODB.Connection
    Dim Brs1 As New ADODB.Recordset
    Bcn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\原方阵.mdb"
    Brs1.Open "b1", Bcn1, 1, 3
  For i = 1 To 23
     For j = 1 To 13
      a(i, j) = Brs1.Fields("列" & j).Value
     Next j
      Brs1.MoveNext
  Next i
'
'------------------------写入"搜索结果表.mdb"文件,现在想改成写入到“搜索结果表.txt”
Dim Conn As New ADODB.Connection
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\搜索结果表.mdb"
    Conn.Execute "delete * from B1"
Conn.Close
Dim FF1cn1 As New ADODB.Connection
Dim FF1rs1 As New ADODB.Recordset
    FF1cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\搜索结果表.mdb"
    FF1rs1.Open "b1", FF1cn1, 1, 3
    FF1rs1.AddNew
    FF1rs1.AddNew
      Me.WindowState = 0
   '=========================================写入
For i = 1 To 23
 For j = 1 To 13
 FF1rs1("列" & j) = a(i, j)
 Next j
 FF1rs1.Update
 FF1rs1.AddNew
Next i
'----------------------写入文件结束
End Sub

附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: txt Dim 文件 mdb 读写 
2020-05-12 20:09
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:110
帖 子:989
专家分:5252
注 册:2016-5-10
收藏
得分:7 
读写mdb文件与读写txt文件是完全不同的操作方法,mdb是数据库文件,使用ADO对象操作,txt是文本文件,用 Open 操作的。

请不要选我做版主
2020-05-13 00:00
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:271
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 2楼 ZHRXJR
谢谢先生,可否在我的代码上帮我修改成能读写txt文件的,谢谢先生了
2020-05-13 07:15
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:110
帖 子:989
专家分:5252
注 册:2016-5-10
收藏
得分:0 
回复 3楼 fdxxhjc
抽时间给你做一下,不知道是不是符合你的意图。

大概做了一下,如果需要请私信我。

[此贴子已经被作者于2020-5-13 21:04编辑过]


请不要选我做版主
2020-05-13 11:24
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:451
专家分:905
注 册:2012-10-26
收藏
得分:7 
回复 2楼 ZHRXJR
额外说一下,
其实TXT文件经过设计,也是可以使用ADO做存取TXT数据,
等于把TXT当成数据库来用,我有做过喔。

所以最简易的数据库,用TXT就行了,不用ACCESS喔。
查找数据就类似找EXCEL数据一样。

[此贴子已经被作者于2020-5-15 10:32编辑过]


不要投我
2020-05-15 10:29
wmf2014
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:201
帖 子:1993
专家分:11068
注 册:2014-12-6
收藏
得分:7 
要看读者到底要达到什么目的。
早期很多网站为了防止别人下载到后台数据库,有直接将mdb文件改名为txt文件,只需要改后缀名即可,connection连接字串同access。
如果楼主非要把纯文本当做数据库访问,好像也行,需要配置下Schema.ini文件,数据字段、属性都在这个配置文件中,jet引擎会自动读取并根据sql访问指定文本文件。看这个链接,希望对楼主有帮助:
https://blog.

能编个毛线衣吗?
2020-05-17 15:12
快速回复:请教读写mdb文件改成读写txt文件
数据加载中...
 
   



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

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