问一个不常见的问题 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 问一个不常见的问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 361 人关注过本帖

标题：问一个不常见的问题

只看楼主加入收藏

fanjinyu9108

等　级：论坛游民
帖　子：704
专家分：20
注　册：2014-1-16
结帖率：88.62%

楼主

已结贴√ 问题点数：20 回复次数：9

问一个不常见的问题

比如说data文件夹下有一些ACCESS数据库文件，文件夹里面的文件名如下：

图片附件: 游客没有浏览图片的权限，请登录或注册

现在我想让程序自动识别文件名为”Tankfarmdailydata20140311“之类的数据库文件，该文件名的特点是
由2部分组成，前面是”Tankfarmdailydata“，名字是固定的，后面是”20140311“，不固定的，是一个不确定的
日期，我怎样让程序自动识别“Tankfarmdailydata....”的数据库文件，使其自动打开，做一个SELECT语句查询后自动
关闭？问题有些难，苦想了2天没有结果

搜索更多相关主题的帖子: 数据库文件　文件夹　

2014-03-22 18:45

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11857
专家分：43421
注　册：2006-5-13

第 2 楼

得分:5

试试用adir()函数将文件名读入数组中再作处理。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2014-03-22 18:51

taifu945

等　级：贵宾
威　望：80
帖　子：1545
专家分：3298
注　册：2012-7-6

第 3 楼

得分:0

FoxPro可以直接打开Access的数据库文件吗？

2014-03-22 19:00

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 4 楼

得分:0

好象不可以

2014-03-22 19:11

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27243
注　册：2012-2-5

第 5 楼

得分:5

楼主是不是走错门了
何必舍近求远，用ACCESS数据库命令直接打开文件不行吗

[ 本帖最后由 sdta 于 2014-3-22 19:18 编辑 ]

坚守VFP最后的阵地

2014-03-22 19:14

fanjinyu9108

等　级：论坛游民
帖　子：704
专家分：20
注　册：2014-1-16

第 6 楼

得分:0

我用的是spt技术打开ACCESS的，感谢hu9jj的指点，我在论坛搜索到一个解决办法，是一个叫“追求者”的师傅说的，代码如下：
clear
Create Cursor mylsb (wjm c(120))
x=ADIR(mysz, cPath+'\*.*') &&cPath=你的文件路径
If x<>0
Append From Array Mysz
Endif
BROWSE
解决的思路是把文件的文件名全部存入数组,加入到表里面，然后字段名的长度，决定是否打开该数据库文件

2014-03-22 19:18

fanjinyu9108

等　级：论坛游民
帖　子：704
专家分：20
注　册：2014-1-16

第 7 楼

得分:0

sdta大师啊，ACCESS数据库命令我不会啊，

2014-03-22 19:20

fanjinyu9108

等　级：论坛游民
帖　子：704
专家分：20
注　册：2014-1-16

第 8 楼

得分:0

在网上摘抄了一段用SPT打开ACCESS数据库的内容，挺管用，反正我只做查询，数据的是执行另外一个软件生成的

2014-03-22 19:23

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27243
注　册：2012-2-5

第 9 楼

得分:10

以下是引用fanjinyu9108在2014-3-22 19:18:32的发言：

我用的是spt技术打开ACCESS的，感谢hu9jj的指点，我在论坛搜索到一个解决办法，是一个叫“追求者”的师傅说的，代码如下：
clear
Create Cursor mylsb (wjm c(120))
x=ADIR(mysz, cPath+'\*.*') &&cPath=你的文件路径
If x<>0
Append From Array Mysz
Endif
BROWSE
解决的思路是把文件的文件名全部存入数组,加入到表里面，然后字段名的长度，决定是否打开该数据库文件

这段代码并不完全适用你，修改如下：

clear
Create Cursor mylsb (wjm c(120))
x=ADIR(mysz, cPath+'\Tankfarmdailydata*.*') &&cPath=你的文件路径
If x<>0
Append From Array Mysz
Endif
BROWSE

坚守VFP最后的阵地

2014-03-22 19:46

fanjinyu9108

等　级：论坛游民
帖　子：704
专家分：20
注　册：2014-1-16

第 10 楼

得分:0

sdta老师，运行了您稍加修改的代码，非常满意，苦思冥想2天的东西竟然这么轻易的解决了，我恨不得立刻下楼跑上几圈，太兴奋了，非常感谢

2014-03-22 20:13

快速回复：问一个不常见的问题