vb开发的程序，只有一个扩展名是mdb的文件，双击该mdb文件后，程序运行，这是怎么做到的呢？高分必给！

Question

vb开发的程序，只有一个扩展名是mdb的文件，双击该mdb文件后，程序运行，这是怎么做到的呢？高分必给！

Answer 1

是用Access + VBA 开发的

Answer 2

首先，运行程序正常的是exe文件，可以通过打开方式变成别的图标
然后，程序一般不需要安装，只要有exe文件，运行库就可以了

Answer 3

修改系统注册表不就成了.
关联文件扩展为.mdb的就行了.

Answer 4

在Windows操作系统中改变文件打开方式 
    在Windows 95／NT／98操作系统中改变文件打开方式的问题，又可称为改变文件类型关联的问题，即把某类型（扩展名）的文件与某应用程序关联，例如通常当双击＊.txt文件时系统自动调用Notepad.exe。本文介绍利用Windows注册表编辑器Regedit.exe手工或编程改变文件打开方式的方法，并提供程序实例。
　　一、基本思路：
　　1、注册表编辑器Regedit.exe是用于更改系统注册表设置的高级工具，包含了关于系统配置及运行的重要信息，默认访问路径为C:\Windows\Regedit.exe。双击Regedit.exe图标，运行注册表编辑器。在左侧显示栏内看到HKEY_CLASSES_ROOT、KEY_CURRENT_USER、HKEY_LOCAL_MACHINE等主键。与文件类型有关的所有主键、键名、键值都存放在HKEY_CLASSES_ROOT下。
　　◆双击HKEY_CLASSES_ROOT，向下拖动滚动条，找到.txt主键，右侧显示栏内“txtfile”说明：在HKEY_CLASSES_ROOT下有一txtfile主键，其下存放了打开＊.txt文件应用程序的有关信息。
　　◆向下拖动滚动条，找到txtfile主键，右侧显示栏内“文本文档”为文件类型描述。双击txtfile，DefaultIcon右侧显示栏内“shell32.dll,－152”为＊.txt文件的图标；shell\open\command，右侧显示栏内“C:\WINDOWS\NOTEPAD.EXE ％1”为打开＊.txt文件的应用程序名称及参数。　　改变打开文件方式的方法（例如用VISIO打开＊.exc文件）：
　　◆手工：打开系统注册表，在HKEY_CLASSES_ROOT下找到.exc及另一主键名，找到此主键，将shell\open\command右侧显示栏内“C:\WINDOWS\NOTEPAD.EXE ％1”改为“C:\VISIO.EXE ％1”（假设VISIO.EXE的访问路径是C:\，具体视情况而定），按F5刷新系统注册表。
　　◆编程：利用VB、Delphi、C＋＋Builder等读写系统注册表，可自动改变文件打开方式。本文提供VB、Delphi编程实例。
　　二、编程实例：
　　㈠利用VB编程
　　1、在VB5.0 IDE中，新建工程Project1，在Form1上添加命令按钮Command1。
　　2、选择菜单“工程”—“添加模块”—“模块”—“打开”，在Project1中添加模块Moudle1。
　　3、在Moudle1“通用—声明”部分声明API函数和常量。
　　Const REG_SZ = 1
　　Global Const HKEY_CLASSES_ROOT = ＆H80000000
Declare Function OSRegQueryValueEx Lib “advapi32”Alias “RegQueryValueExA”(ByVal hKey As Long, ByVal lpszValueName As String,
ByVal dwReserved As Long, lpdwType As Long, lpbData As Any, cbData As Long) As Long
Declare Function OSRegOpenKey Lib “advapi32”Alias “RegOpenKeyA”(ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long
Declare Function OSRegSetValueEx Lib“advapi32”Alias “RegSetValueExA”（ByVal hKey As Long, ByVal lpszValueName As String,
ByVal dwReserved As Long, ByVal fdwType As Long, lpbData As Any, ByVal cbData As Long) As Long
Declare Function OSRegCloseKey Lib“advapi32”Alias “RegCloseKey”(ByVal hKey As Long) As Long
　　4、在Moudle 1中编写函数。
　　Function RegOpenKey(ByVal hKey As Long, ByVal lpszSubKey As String,
phkResult As Long) As Boolean
　　 Dim lResult As Long
　　 On Error GoTo 0 ` 关闭错误陷阱
　　 lResult = OSRegOpenKey(hKey, lpszSubKey, phkResult)
　　 If lResult = 0 Then
　　 RegOpenKey = True
　　 Else
　　 RegOpenKey = False
　　 End If
　　End Function
　　Function RegSetStringValue(ByVal hKey As Long, ByVal strValueName As String,
ByVal strData As String, Optional ByVal fLog) As Boolean
　　 Dim lResult As Long
　　 On Error GoTo 0
　　 lResult = OSRegSetValueEx(hKey, strValueName, 0＆, REG_SZ, ByVal strData,
LenB(StrConv(strData, vbFromUnicode)) ＋ 1)
　　 If lResult = 0 Then
　　 RegSetStringValue = True
　　 Else
　　 RegSetStringValue = False
　　 End If
　　End Function
　　Function StripTerminator(ByVal strString As String) As String
　　 Dim intZeroPos As Integer
　　 intZeroPos = InStr(strString, Chr＄(0))
　　 If intZeroPos >  0 Then
　　StripTerminator=Left＄(strString, intZeroPos － 1)
　　 Else
　　 StripTerminator = strString
　　 End If
　　End Function
　　Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String,
strData As String) As Boolean
　　 Dim lResult As Long
　　 Dim lValueType As Long
　　 Dim strBuf As String
　　 Dim lDataBufSize As Long
　　 RegQueryStringValue = False
　　 On Error GoTo 0
　　 lResult = OSRegQueryValueEx(hKey, strValueName, 0＆, lValueType, ByVal 0＆,
lDataBufSize)
　　 If lResult = ERROR_SUCCESS Then
　　 If lValueType = REG_SZ Then
　　 strBuf = String(lDataBufSize, “”)
　　 lResult = OSRegQueryValueEx(hKey, strValueName, 0＆, 0＆, ByVal strBuf,
lDataBufSize)
　　 If lResult = ERROR_SUCCESS Then
　　 RegQueryStringValue = True
　　 strData = StripTerminator(strBuf)
　　 End If
　　 End If
　　 End If
　　End Function
　　5、双击Command1，编写Click事件代码。
　　Private Sub Command1_Click()
　　 Dim hKey As Long
　　 Dim MyReturn As Long
　　 Dim MyData As String
　　 MyReturn = OSRegOpenKey(HKEY_CLASSES_ROOT, “.exc”, hKey)
　　MyReturn=RegQueryStringValue(hKey,“”,MyData)
　　MyReturn=OSRegOpenKey(HKEY_CLASSES_ROOT, MyData＋“\shell\open\command”,hKey)
　　 MyReturn = RegSetStringValue(hKey,“”,“c:\visio.exe 1％”, False)
　　 If MyReturn Then
　　 MsgBox “改变文件打开方式成功！”,vbInformation,“请注意”
　　 Else
　　 MsgBox “改变文件打开方式失败！”,vbExclamation,“请注意”
　　 End If
　　 OSRegCloseKey (hKey)
　　End Sub
　　6、按F5运行程序，在简体中文Windows95／NT／98、VB5.0／6.0环境中调试通过。
　　㈡利用Delphi编程
　　1、在Delphi3.0 IDE中，新建工程Project1，在Form1上添加按钮Button1。
　　2、在uses子句中添加Registry。
　　3、双击Button1，编写Click事件代码。
　　procedure TForm1.Button1Click(Sender: Tobject);
　　var
　　 MyRegistry : TRegINIFile;
　　 Return:string;
　　begin
　　 try
　　 MyRegistry := TRegINIFile.Create(``);
　　MyRegistry.RootKey := HKEY_CLASSES_ROOT;
　　 Return:=MyRegistry.ReadString (`.gid`,``,`No! Not Found the Key!`);
　　 MyRegistry.WriteString(Return,``,`这只是一个演示！`);
　　 MyRegistry.WriteString(Return＋`\DefaultIcon`,``,`c:\visio.exe,1`);
　　 MyRegistry.WriteString(Return＋`\shell\open\command`,``,`c:\visio.exe ％1`);
　　 finally
　　 MyRegistry.Free;
　　 end;
　　 ShowMessage(`改变文件打开方式成功！`);
　　end;
　　4、按F9运行程序，在简体中文Windows95

Answer 5

这种帖子CSDN论坛上很多，输入“文件扩展名关联”查找一下很多：
http://search.csdn.net/Expert/topic/1701/1701659.xml?temp=.4918634http://search.csdn.net/Expert/topic/2516/2516725.xml?temp=.265423

Answer 6

最简单的方法这以下内容保存在.reg,并运行它就知了Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\.mdb]
"Content Type"="application/msaccess"
@="Access.Application.9"[HKEY_CLASSES_ROOT\.mdb\Access.Application.9] [HKEY_CLASSES_ROOT\Access.Application.9\shell\Open\command]
@="你的程序位置  %1"

Answer 7

用户双击带有自己定义的后缀名的文件时，自动进入自己的软件并按格式打开该文件
http://www.china-askpro.com/msg6/qa33.shtml

Answer 8

其实我的意思是，让mdb数据文件和exe可执行程序做到一个可执行文件里，这个文件拷贝到任何一台机器，都能正常运行，不让别人随便看到mdb文件，以保证数据的安全性！可以做到么？？

Answer 9

其实我的意思是，让mdb数据文件和exe可执行程序做到一个可执行文件里，这个文件拷贝到任何一台机器，都能正常运行，不让别人随便看到mdb文件，以保证数据的安全性！可以做到么？？
---------------------
可以将MDB作成资源文件，使用时释放到一个临时文件，当然可以更改后缀名如dll,ocx,bmp等，退出时删掉临时文件，有列车时刻查询软件就是这么干的，当然，只能蒙一般用户

Answer 10

Access 里可以用VBA 开发，并可以加密为 mde 文件，这样别人就不可以直接查看你的代码
如果再加上 用户组 和密码， 别人就不可以直接查看你的数据，相当安全
而且双击以后可以直接运行，可以在代码中隐藏Access 界面，只出 你的程序界面

Answer 11

不太可能，除非你用VC，把所有数据当作资源来操作，但那也是只读的啊。一种可以参考的方法就是自己写个像病毒一样的mdb文件管理程序头，它负责来调用access类来对嵌入到exe中的mdb数据进行新增和删除。但试问又有谁能做到？

Answer 12

对对~~~ zlt982001(乐天)，我说的就是你那种方法~~~
能提供给我具体操作方法么？

Answer 13

To:northwolves(狼行天下) 
   如果打開時按住Shift鍵，好像可以直接進入數據表

Answer 14

DengXingJie(杰西) ,k,高啊。这都被你发现了！！！！完了。这条道走不通啦！！
结帐！！！感谢各位阿。我再发一帖，还是关于access的数据库保密性！！！！