可以从access窗体中生成EXE吗？

Question

我希望用户认为他使用的是常规的winform，但在后端，我想让access处理数据库的事情。

是否可以只使用access窗体，而让其他所有内容都在后台消失？我们能从表单中创建一个exe吗？

什么是MDE？

Answer 1

你不能像其他人说的那样从access数据库中生成EXE，但是你可以在很大程度上隐藏你的应用程序是用access编写的这一事实。例如，您可以使用…

• Add a custom splash

(为添加自定义闪屏

要做到这一点，只需在与数据库相同的文件夹中保存一个BMP文件，并将其命名为完全相同的文件名，即MyDatabase.BMP。当access启动时，您将看到自定义的闪屏，而不是看到访问闪屏。

• 更改任务栏图标

在数据库中，转到工具-启动，然后将应用程序图标更改为您选择的图标

• 更改forms

上的图标

您可以将窗体上的图标从标准的access图标更改为您喜欢的任何图标，将此代码粘贴到一个模块中

Option Compare Database
Option Explicit

Private Declare Function LoadImage Lib "user32" _
   Alias "LoadImageA" _
   (ByVal hInst As Long, _
   ByVal lpsz As String, _
   ByVal un1 As Long, _
   ByVal n1 As Long, _
   ByVal n2 As Long, _
   ByVal un2 As Long) _
   As Long

Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
   (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) _
   As Long

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10
Private Const SM_CXSMICON    As Long = 49
Private Const SM_CYSMICON    As Long = 50

Public Function SetFormIcon(hwnd As Long, strIconPath As String) As Boolean
    Dim lIcon As Long
    Dim lResult As Long
    Dim x As Long, y As Long

    x = GetSystemMetrics(SM_CXSMICON)
    y = GetSystemMetrics(SM_CYSMICON)
    lIcon = LoadImage(0, strIconPath, 1, x, y, LR_LOADFROMFILE)
    lResult = SendMessage(hwnd, WM_SETICON, 0, ByVal lIcon)
End Function

然后，您可以在forms OnOpen事件中这样调用它

SetFormIcon Me.hwnd, (“C:\Stuff\NewIcon.ico")

Answer 2

不是的。这在MS Access中是不可能的。

您需要创建一个VB/VB.NET可执行文件，并在那里重新实现您的UI代码，使您的数据连接指向Access数据库后端。