示例三
如果希望能够在打开项目的时候,自动出现一个对话框,让用户可以自由选择外部数据文件,可以在BeforeConnectOuterDataSource事件中加入下面的代码:
If e.Name = "连接名称" Then
Dim dlg As New OpenFileDialog
dlg.Filter= "Access文件|*.mdb"
If dlg.ShowDialog = DialogResult.Ok Then
e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False"
End If
End if
示例四
假定有一个名为“销售数据”远程数据源,默认的IP地址为119.119.120.120,因为服务器的调整,IP地址可能会发生变化,导致数据源无法连接。
为解决这个问题,可以在用户管理窗口增加一个名为IP的扩展用户属性,让用户在登录的时候,可以输入另一个IP地址,然后在BeforeConnectOuterDataSource事件中加入下面的代码:
If e.Name = "销售数据" Then
Dim IP As String = e.User.ExtendedValues("IP") \'获得用户输入的IP
If IP > "" \'如果用户自己输入了IP
\'则用用户输入的IP替换原来的IP
e.ConnectionString = e.ConnectionString.Replace("119.119.120.120", IP)
End If
End If
你也可以用另一种方法解决,在项目文件目录下创建一个ip.txt的文本文件,在该文件中输入最新的IP地址,并在BeforeConnectOuterDataSource事件中设置如下代码:
Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "销售数据" Then
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)
End If
End If
以上帮助告诉我们怎样改变和对待数据源的动态修改和 用户自定义。
我想问下大家 对于扩展列 和 窗口 图片 文件管理器 在局域网内使用怎样动态设计iP对话框呢
DataTables("产品").DataCols("图片").DefaultFolder = "\\\\hehui\\share"
怎样设计一个对话框来让客户自己定义这个"\\\\hehui\\share"路径