ShowLinkWizard method
Opens the Link Data Wizard; similar to clicking Link Data Wizard on the Data menu. Returns a DataSet object if one is created. Returns Nothing if the user cancels out of the wizard.
Applies to
Collections: DataSets
Syntax
object.ShowLinkWizard([HWndParent], [DataSourceMoniker], [Delimeter], [ImportFlags])
Parameters
Part | Description | |||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
object | Required. An expression that returns a DataSets collection. | |||||||||||||||||||||||||||
HWndParent | Optional Long. Handle of the user's window, to allow the Link Data
Wizard to be modal to a window in the calling application, rather than
MapPoint.
Note Do not use a handle for a window other than the MapPoint window if the MapPoint window is visible. | |||||||||||||||||||||||||||
DataSourceMoniker | Optional String. File name to link. Can also provide information on which part of the file to link. See the DataSourceMoniker syntax topic for the correct syntax to use for this parameter. If a file name is not specified, the user interface will prompt the user for a file to link. | |||||||||||||||||||||||||||
Delimiter | Optional
GeoDelimiter. Characters that separate individual fields. Can
be one or more characters. Required for linking text (.txt) files.
Default is
geoDelimiterDefault.
| |||||||||||||||||||||||||||
ImportFlags | Optional Long. Provides information about the
DataSourceMoniker
and the data in the file. Multiple values can be passed by using the Visual
Basic "Or" operator (for example,
geoImportExcelNamedRange Or geoImportFirstRowIsNotHeadings ).
|
Remarks
To link data as a DataSet object, use the LinkData method on a DataSets collection.
Example
Sub ShowWizard()
Dim objApp As New MapPoint.Application
objApp.Visible = True
objApp.UserControl = True
Dim objDS As MapPoint.DataSet
With objApp.ActiveMap.DataSets
Set objDS = .ShowLinkWizard
End With
End sub
Example using parameters
Sub ShowWizard()
Dim objApp As New MapPoint.Application
objApp.Visible = True
objApp.UserControl = True
Dim strFile As String
Dim objDS As MapPoint.DataSet
With objApp.ActiveMap.DataSets
'Excel sheet
strFile = objApp.Path & "\Samples\Sales.xls!Sheet1!A1:C22"
Set objDS = .ShowLinkWizard(, strFile, , geoImportExcelSheet)
End With
End sub