如何访问文本文件(3)----用MicrosoftJet访问桌面数据库(五)

2016-02-19 12:26 1 1 收藏

今天图老师小编要向大家分享个如何访问文本文件(3)----用MicrosoftJet访问桌面数据库(五)教程，过程简单易学，相信聪明的你一定能轻松get！

【 tulaoshi.com - 编程语言】

三、程序举例

例：用MicrosonJet打开一个文本文件，并输出该文件的内容。假定有一个文本文件，名为txttest.txt，存放在d:dbtest目录下，内容如下：

a，b,C，d

（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）”采莲词”，”兰溪掉歌”，”咏绣障”，”山中”

朝出沙头日正红，凉月如眉挂柳湾，日暮堂前花芯桥，荆溪白石出

晚来云起半江中,越中山色镜中看，争拈小笔上床描，天寒红叶稀

赖逢邻女曾相识，兰溪三日桃花雨，绣成安向春园里，山路元无雨

并着莲舟不畏风，半夜鲤鱼来上滩，引得黄营下柳条，空翠湿人衣

该文件包括4首古诗，第一行的a，b，c，d是字段名。为了用MicrosoftJet打开该文件并显示其内容，可按如下步骤操作。首先，建立方案描述信息文件。内容如下：

[txttest．txt]

ColNameHeader＝True

Format＝FixedLength

MaxSCanRows＝0

CharacterSet＝OEM

Col1＝ColUmnnameCharWidth24

Col2＝ColUmnname2CharWidth24

Col3＝ColUmnname7CharWidth24

Col4＝ColUmnname8CharWidth24

将文件存放在d:dbtest目录下，名为txttest.ini。4个字段均为字符(Char)型，其长度为24，可以使显示的各字段之间留有空隙。其次，编写代码。在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimabsTextAsDatabase

DimrstAwardsAsRecordset

DimtdfSalesAsTableDef

”打开外部文本数据文件

Setdbstext＝OpenDatabase_

("d:dbtest",False,False,"TEXT;")

FontSize＝12

Print：Print

'从Awards表中建立记录集

SetrstAwards＝dbstext．OpenRecordset("txttest")

DOUntilrstAwards.EOF

PrintrstAwards.a;

PrintTab(18)；rstAwards．b；

printTab(36)；rstAwards．C；

PrintTab(54)；rstAwards．d

rstAwards．MoveNext

Loop

EndSub

最后，运行程序，单击命令按钮，即可在窗体上显示文本文件的内容。

上面的例子分4个字段显示文本文件内容。在实际应用中，要打开的文本文件往往是由一段或几段文字组成。为了打开并显示这样的文本文件，可以把整个文件看成是一个字段，在方案描述信息文件中把MaxScanRows选项设置为0。例如，假定有一个文本文件，名为bLtl．txt，存放在dz＼dbtest目录下，其内容为：

a
　　滚滚长江东逝水，浪花淘尽英雄。是非成败转头空。青山依旧在，几度夕阳红。白发渔憔江港上，惯看秋月春风。一壶浊酒喜相逢。古今多少事，都付笑谈中。

文件中的a是字段名，即整个文件分为一个字段。为了用MicrosoftJet打开并显示上述文本文件的内容，可编写方案信息描述文件如下：

[txtl．txt]

ColNameHeaderzTme

MaXSCanRows＝0

CharacterSet＝OEM

Col1＝USemameText

方案描述信息文件名为txtl*ini，存放在d：＼dbtest目录下。在窗体上画一个文本框和一个命令按钮，把文本框的MultiLine属性设置True，然后编写如下的事件过程：

PrivateSubCommand1_CliCk()

DimabsTextAsDatabase

DimrstAwardsAsReCordset

DimtdfSalesAsTableDef

'打开外部文本数据文件

Setdbstext＝OpenDatabase("d:dbtest",False,False,"TEXT;")

Textl.FontSize＝12

'从Awards表中创建记录集

SetrstAwards＝dbstext.OpenRecordset("txt1")

Print:Print

DOUntilrstAwards.EOF

a$＝a$ rstAwards.a

rstAwards.MoveNext

Text1.Text＝a$

EndSub

运行程序，单击命令按钮，将在文本框中显示文本文件的内容。

来源:https://www.tulaoshi.com/n/20160219/1600894.html

上一篇：数据报表设计器在多层结构开发的应用
下一篇： C#取鼠标点处颜色RGB

看过《如何访问文本文件(3)----用MicrosoftJet访问桌面数据库(五)》的人还看了以下文章更多>>

VB程序如何访问数据库

标签：编程语言网络编程

通过控件访问数据库（1）启动VB。（2）出现如图10.12所示的新建工程的选项卡。（3）出现如图10.13所示的VB主界面。（4）如图10.14所示。（5）出现如图10.15所示的界面。 ――――――――――――――――――――――――――――――――――――― odbc;dsn=graduateDB;uid=scott;pwd=...

Mysql 数据库访问类

标签：编程语言网络编程

/** * @Purpose: Mysql数据库访问类 * @Package: * @Author: lisen@sellingclub.cn * @Modifications: * @See: * @Time: 2008.10.10 */ class DB_MYSQL { //============================================================ private $Host = 'localhost'; private $Database = 'db_name'; private $User = 'user'; private $Passwo...

用DELPHI编程访问SQL SERVER数据库

标签： Delphi

Delphi是一个优秀的可视化软件开发环境，并已广泛应用于数据库软件的开发。在DelphiC／S版环境中，结合其优化的数据库操作，以及BorlandDatabaseEngine（即：BDE，数据库引擎），对开发客户机／服务器系统下的网络数据库软件提供了更加快速有效的途径。在客户机／服务器系统中，服务器端我们采用Microsoft SQL Server 6．...

用C#访问ACCESS数据库问题

标签：编程语言网络编程

最近这个项目中用到是ACCESS的数据库，开始没有使用密码进行连接： String connectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source="; connectionString += @"c:datadbdb.mdb"; OleDbConnection con = new OleDbConnection(connectionString); con.Open(); 是没有任何问题。为了要使数据库安全一点，不能被用户直接打开编辑，...

ASP技术访问WEB数据库

标签： ASP

一. 访问WEB数据库的多种方案目前在WINDOWS环境下有多种访问WEB数据库的技术，主要有： 1.公共网关接口CGI(Common Gateway Interface) CGI是较早实现的技术。适用于多种服务器平台，如UNIX、WINDOWS等，但CGI的开发成本高、维护困难、功能有限、不具备事务处理功能、占用服...

查看更多精彩>>