Office中国论坛/Access中国论坛

标题: [分享]在vb或vb中使用foxpro编译的com组件 [打印本页]

作者: duzili 时间: 2005-5-11 04:23
标题: [分享]在vb或vb中使用foxpro编译的com组件
在vb或vb中使用foxpro编译的com组件

阅读对象:1、access、vb高级用户。

      2、懂一些foxpro语言。



这个题目让我斟酌了许久，不知道这样说是不是合适。还是先让大家了解一下写这篇文章的起因吧！

我在工作中经常需要把文本数据导入到数据库中，在最近我发现一个包含千份比号‰文本文件导入出错的问题（http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=26993&id=26993&skin=0），描述如下：

有一个文本文件，包含了一个千份比号（‰）示例如下：

王海上海有机化学研究所2002-01-01

罗炙数字化机床研究院‰2004-01-01

我在用“文本导入向导”导入到access时，‰后的“2”老是被导入到第二个字段。然后我用schema.ini文件导入情况仍然如此。但是foxpro就不存在这个问题。

我在论坛中发了帖子，但是没有很好的解决方案。于是我便抱起foxpro的书籍狠读了一个礼拜，发现foxpro支持com组件，于是有了一个思路，能不能用foxpro编写一个dll文件，再在vba或vb中引用呢？毕竟我还是熟悉vb+access的开发环境。经过几天的研究，终于有了结果。现在就把如何在vb在vb或vb中使用foxpro编译的com组件的步骤写下来供大家参考。

―――――――――――――

系统环境：wingdows98

编程环境： Visual FoxPro 6.0以上（用来编写com组件）

office 97以上或Visual basic 5.0以上

编程思路：用foxpro编写一个dll文件，再在vba或vb中引用

一、编写dll的方法：

打开foxpro，建立一个foxpro的表，即你需要导入的表，要注意数据结构一定要准确，如果需要导入的文本文件是定宽文件，那么字段类型全部是字符型。

1、             新建一个项目，命名为txtTodb

2、新建一个prg文件，命名为txtTodb.PRG，将下列代码粘贴在txtTodb.PRG中：

DEFINE CLASS txtTodb AS form OLEPUBLIC

<FONT size=5><FONT face="Times New

作者: 青青 时间: 2005-5-11 08:01
虽然我从不用fox编数据库，但我很欣赏楼主孜孜追求解决方法并将心得和大家分享的心态。谢谢。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)