[求助]andymark版主登录也疯狂的问题

好学

这是andymark版主写的，请问如果数据库有密码，该如何？还有我打开窗体1为什么不行？

Dim strPath As String
    Dim strAccDir As String
    Dim strAccPath As String
    Dim strDbPath As String
    Dim StrWrkgrpPath As String
   
    Dim StrCnn As String
    Dim Conn As New ADODB.Connection
   
    strAccDir = SysCmd(acSysCmdAccessDir)
    strAccPath = strAccDir & "MSACCESS.EXE"
    strDbPath = CurrentProject.Path & "\data\db1.mdb"
    StrWrkgrpPath = CurrentProject.Path & "\data\Security.mdw"
  '测试帐号密码是否正确,以防弹出系统的登陆窗口
  StrCnn = "data source= " & strDbPath & ";"
  StrCnn = StrCnn & "jet oledb:system database= " & StrWrkgrpPath & ";"
  StrCnn = StrCnn & "user id= abcdassword=12345"
  With Conn
       .Provider = "Microsoft.Jet.oledb.4.0"
       .ConnectionString = StrCnn
       .Open
  End With


   '用现有的帐号密码打开数据库
   strPath = Chr(34) & strAccPath & Chr(34) & " " _
    & Chr(34) & strDbPath & Chr(34) & " " _
    & "/wrkgrp " & Chr(34) & StrWrkgrpPath & Chr(34) & " " _
    & "/User " & Chr(34) & "abcd" & Chr(34) & " " _
    & "/Pwd " & Chr(34) & "12345" & Chr(34)
    Shell strPath, vbMaximizedFocus

    DoCmd.OpenForm "窗体1"   

andymark

设置了数据库密码的,不能再用安全机制的

好学

用这个直接打开对方一个窗体为什么不行呢?

andymark

以下是引用好学在2006-11-9 21:09:00的发言：
用这个直接打开对方一个窗体为什么不行呢?

      把你做的例子传上来

好学

我想用db2去打开db1的窗体1

andymark

能用DB2打开DB1数据库呀

  最后一句代码  DoCmd.OpenForm "窗体1"   

  只是打开当前窗体的,并不是db1的

好学

以下是引用andymark在2006-11-9 22:15:00的发言：


能用DB2打开DB1数据库呀

  最后一句代码  DoCmd.OpenForm "窗体1"   

  只是打开当前窗体的,并不是db1的

  

请问版主那应该如何写呢?[em04]

andymark

把窗体1设置为起动窗体

好学

我不只要打开一个窗体,还要打开db1别的窗体的，所以只能用打开窗体的办法。希望版主指教！谢谢！

andymark

   增加GetObject获取指定的数据库,打开指定的窗体

    Dim strPath As String
    Dim strAccDir As String
    Dim strAccPath As String
    Dim strDbPath As String
    Dim StrWrkgrpPath As String
   
    Dim appAccess As Access.Application
   
   
    strAccDir = SysCmd(acSysCmdAccessDir)
    strAccPath = strAccDir & "MSACCESS.EXE"
    strDbPath = CurrentProject.Path & "\db1.mdb"
    StrWrkgrpPath = CurrentProject.Path & "\Security.mdw"


   '用现有的帐号密码打开数据库
   strPath = Chr(34) & strAccPath & Chr(34) & " " _
    & Chr(34) & strDbPath & Chr(34) & " " _
    & "/wrkgrp " & Chr(34) & StrWrkgrpPath & Chr(34) & " " _
    & "/User " & Chr(34) & "ABCD" & Chr(34) & " " _
    & "/Pwd " & Chr(34) & "12345" & Chr(34)
    Shell strPath, vbMaximizedFocus
      
    Set appAccess = GetObject(strDbPath)

    appAccess.DoCmd.OpenForm "窗体1"