项目事件

BeforeConnectOuterDataSource

If OpenFileArgs.Count = 0 Then

    \'第一次连接的时候,需要将数据源连接到你项目的Access数据库,可以是一个空的数据库

    e.C & ProjectPath & "test.mdb;Persist Security Info=False"

Else

    \'然后设置成新的数据库.

    e.ConnectionString = OpenFileArgs(0)

End If

AfterOpenProject

If OpenFileArgs.Count = 0 Then

    Forms("窗口1").Show()

    If vars("conn") > "" Then

        Syscmd.Project.Open(ProjectFile,vars("conn"))

        Return

    End If

Else

    msgbox("打开数据源成功")

End If

窗口与控件事件

窗口1_Button1_Click

Dim str As String = e.Form.controls("combobox1").text

If str = Nothing Then

    msgbox("请选择数据源")

Else

    vars("conn") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & str & ".mdb;Persist Security Info=False"

    e.Form.Close

    \'Syscmd.Project.Open(ProjectFile, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & str & ".mdb;Persist Security Info=False")

End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:选择数据源.zip