数据库直接存取并修改word的脚本.docVIP

数据库直接存取并修改word的脚本 /********************数据库直接存取并修改word的脚本(word2000版本,97和2002xp没试)***************/ /* 注：里面的sql语句不能照搬哟，要自己修正。 思路：共3段代码，存入时将word文件分段导入，导出时亦分段导出到硬盘上的一个临时文件，再用ole打开。再提示用户存回数据库。 方法比较笨，多多包涵，刚刚完成的，比较乱，没有封装成用户对象，还用了些全局变量（为了生成临时文件） 大家觉得有用的话请支持一下，随后我会完善，也希望高手多提宝贵意见，给些更好的实现方法，比如API、VBA之类的。如果用控件或者VBA在word里直接定义用户菜单就最完美了:) 另外有兴趣的朋友帮忙测试一下，我测了一个4兆的，速度打开和存入的速度还可以接受。 下一个目的:读取word里的标签数据和程序直接交换数据。 //按钮一：读取word到数据库 int li_i, li_j, li_loop long ll_FLength blob lb_word, lb_temp string sFileName, sFile //选择要导入的文件 GetFileOpenName(选择文件,sFileName, sFile) //检查文件长度，如果超过32765则分段读取 ll_FLength = FileLength(sFil