恳求打开文件问题！只要给点建议就给分
我的数据库中存有各种类型文件，word、excel、pdf、...等等，我想实现的是不需要用户将文件保存指定目录后，再到该目录双击打开该文件，而是通过一个“阅读”按钮，只要操作系统支持阅读该类型文件，就可以通过点击该按钮直接阅读，如果不支持给出提示。是不是有相关的api啊？
[解决办法]
怎么说呢，数据库操作，列几条语句吧：
dim dbMine As Database
Set dbMine = OpenDatabase(App.Path & "\ " & "myDbs.pdf ") '打开了myDbs数据库
Dim rstDao As Recordset
Set rstDao = dbMine.OpenRecordset( "OneOfList ") '打开数据库内的OneOfList表
dim strTmp
rstDao.MoveFirst '移到第一个记录
strTmp=rstDao!firstCol '这样就读出了第一个记录的firstCol属性
[解决办法]
以下代码保存为ModOpenFile.bas:
Attribute VB_Name = "ModOpenFile "
'*************************************************************************
'**模 块 名：ModOpenFile
'**说 明：紫水晶 版权所有2005 - 2006(C) http://www.m5home.com/
'**创 建 人：马大哈
'**日 期：2005年04月29日
'**修 改 人：
'**日 期：2007年2月9日
'**描 述：打开任意类型文件,可以指定命令行,初始目录,显示方式
'**版 本：V1.0
'*************************************************************************
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll " Alias "ShellExecuteA " (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Enum ShowStyle
vbHide = 0
vbMaximizedFocus = 1
vbMinimizedFocus = 2
vbMinimizedNoFocus = 3
vbNormalFocus = 4
vbNormalNoFocus = 5
End Enum
Public Function OpenFile(ByVal OpenName As String, Optional ByVal CmdLine As String = vbNullString, Optional ByVal InitDir As String = vbNullString, Optional ByVal msgStyle As ShowStyle = vbNormalFocus)
ShellExecute 0&, vbNullString, OpenName, CmdLine, InitDir, msgStyle
End Function
//
添加到工程后,如下使用:
call openfile( "d:\1.pdf ")
系统没有安装相应的程序时,不会打开成功
[解决办法]
老马那个对的
