MS Access 2003 - 将文本文件导入MS Access数据库表

Question

在工作中，我们有这个报告工具。它作为一个MDE工具分发给每个人，被锁定的很好（VBA是不可查看的，不能导入任何表，查询，表单等）。当每个人填写他们的适用部分时，都会有一个按钮将其合并到一个文本文件中，然后将其发送到Outlook。然后，每个人都会将其发送给一个人。

于是我想出了需要在自己的数据库来使用此：

远程员工填写的是为他们创建一个Power Point演示形式，而这部分我想我已经板上钉钉了。这有助于我们跟踪这些演示文稿的指标，而不是员工手动创建ppt，然后我们来后面并将摘要中的数据手工输入到表单中。使感觉正确。

这是我的问题，在办公室，这是解决的，但对于那些在外地的我需要一个类似于上面提到的工具;他们从自动生成的ppt中获得好处，然后我可以让他们通过电子邮件向我发送文本文件，我可以将其添加到数据库。

这里是我的问题，因为我刚刚进入这个开头：

-The形式是相当长的，因为有信息进入一个百分点的很多，所以我用一个形式的标签为不同部分，但这一切都记录在表中，一个PPT。如何将所有这些信息（这一条记录）都转换为文本文件，以及如何使用发送到Outlook，只需点击一下按钮？

- 当用户通过电子邮件发送文本文件时，如何将其导入到数据库表中？

- 您如何锁定MDE以便VB无法查看，并且该对象无法导入到其他应用程序中？

任何其他的意见，提示，“你疯了的男人！”，欢迎！一如既往的感谢！

Answer 1

您是否考虑过复制而不是文本文件？这些数据将存储在带有Access Security的复制后端文件中，该文件可能会返回给您。 CDO应该适合发送电子邮件。

文本

Access有DoCmd.TransferText，这将允许您导出和导入文本文件。

CDO

Private Sub SendEmailCDO() 
    'Requires reference to Microsoft CDO for Windows 2000 
    Dim cdoConfig As Object 
    Dim strSubject As String 
    Dim strBody As String 
    Dim strFile As String 
    Dim cdoMessage As Object 

     'Set up detail of the mail server 
     Set cdoConfig = CreateObject("CDO.Configuration") 
     With cdoConfig.Fields 
      .Item(cdoSendUsingMethod) = 2 ''cdoSendUsingPort 
      .Item(cdoSMTPServerPort) = 25 
      .Item(cdoSMTPServer) = "smpt.themailserver.com" 
      .Item(cdoSendUserName) = "[email protected]" 
      .Item(cdoSendPassword) = "password" 
      .Update 
     End With 

     ''This is the subject line for the email. 
     strSubject = "Membership List" 

     ''This is the message with a little HTML. 
     strBody = "<P>Here is the membership list for <FONT color=#ff0000>" _ 
     & Format(Date, "mmmm yyyy") & "</FONT>.</P><P>Regards, LTD</P>" 

     ''Location of Attachment 
     strFile = "C:\Docs\MembershipList.rtf" 

     ''Set up the email message 
     Set cdoMessage = CreateObject("CDO.Message") 
     With cdoMessage 
      .Configuration = cdoConfig 
      .Subject = strSubject 
      .From = "[email protected]" 
      .To = "[email protected]" 
      .HTMLBody = strBody 
      .AddAttachment strFile 
      .Send 
     End With 

    End Sub 

更多信息：http://wiki.lessthandot.com/index.php/Access_and_Email

Answer 2

@Justin问：

- 如何你锁定了一个MDE从而使VB是unviewable，并且对象 无法导入到另一个 应用程序中？

这个问题没有意义，除非提问者没有把握MDE是什么。 MDE中没有可查看的代码。它已被删除，剩下的就是编译后的p代码。对于访问的VBA编写的一个有用的一篇文章，顺便介绍了规范的代码和编译p代码之间的关系，看到迈克尔·卡普兰的"The real deal on the /Decompile switch."

请记住，这仅适用于代码方向的对象（窗体/报告/模块）而不是表和查询。