如何在.MDE文件中导入窗体？

luhao

在.MDE文件中建窗体是不可能的，但能不能导入窗体呢？

下了个MDE Unlocker软体，可以让.MDE文件有编辑窗体的功能，但运行时调不出表中的数据。

因.mde文件打开窗体的方式是调用表中的引用的字段值。在.MDE文件中调用外部的数据库窗体又不知如何操作。

太多为什么了??????? 请各位帮忙.................以是是同一个数据库中的3个问题

Grant

MDE是不能导入窗体的吧,调用外部窗体还是比较好办的

1. 打开外部数据库窗体
   
2. Dim appAccess As Access.Application
   
3. 
   
4. private sub pp（）   
   
5.    
   
6.     ' 将字符串初始化为数据库的路径?
   
7.     Const strConPathToSamples = "D:\temp\dbSub.mdb"
   
8.     ' 创建 Microsoft Access 的实例。
   
9.     Set appAccess = _
   
10.         CreateObject("Access.Application")      
    
11.     ' 在 Microsoft Access 窗口中打开数据库。
    
12.     appAccess.OpenCurrentDatabase strConPathToSamples   
    
13.     ' 打开“Orders”窗体。
    
14.     appAccess.DoCmd.OpenForm "frmA"
    
15. END SUB
    
16. 
    
17. *********************************
    
18. 打开带密码的数据库
    
19. 在ACCESS 2002和ACCESS 2003可以使用OpenCurrentDatabase方法打开一个带有密码的ACCESS MDB数据库, 在可是在ACCESS 2000中该方法不支持密码参数,那么如何实现呢?
    
20. 
    
21. 　　下面这个过程打开一个当前数据库同一目录中带有密码的数据库 db2.mdb (密码：123)
    
22. 
    
23. 
    
24. Dim appAccess As Access.Application
    
25. Dim db As Database
    
26. 
    
27. Private Sub OpenDB()
    
28.     Dim strDB As String
    
29.     ' 将字符串初始化为数据库的路径。
    
30.     strDB = CurrentProject.Path & "\db2.mdb"
    
31. 
    
32.     ' 创建 Microsoft Access 的实例。
    
33.     Set appAccess = CreateObject("Access.Application")
    
34.     ' 在 Microsoft Access 窗口中打开数据库。
    
35.     Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=123")
    
36.     appAccess.OpenCurrentDatabase strDB
    
37.     appAccess.DoCmd.OpenForm "form1"
    
38.    
    
39.     appAccess.Visible = True
    
40. End Sub
    
41. 
    
42. 
    
43. ****************************
    
44. 在ACCESSXP下的更简洁：
    
45. Private Sub Command0_Click()
    
46. Dim App1 As Object
    
47.     Set App1 = CreateObject("Access.Application")
    
48.     Dim strURL As String
    
49.     strURL = CurrentProject.Path & "\1.mdb"
    
50.     App1.OpenCurrentDatabase strURL, , "123"
    
51.     App1.DoCmd.OpenForm "窗体1"
    
52.     App1.Visible = True
    
53. 
    
54. End Sub
    

复制代码

luhao

2# Grant ths

Ths U

zzbming

谢谢