Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
LosDimas
Зарегистрирован: 12.05.2010 Сообщения: 2
|
Добавлено: Ср Май 12, 2010 3:09 pm Заголовок сообщения: Данные из Access в MapX |
|
|
Прочитал руководство к MapX, но никак не получается добавить данные из акцесс, имеющие координаты, на карту в MapX.
Использовал следующий код:
Dim ds As MapXLib.Dataset
Dim db As Database
Dim rs As Recordset
Dim BindLayerObject As New MapXLib.BindLayer
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\Program Files\MapInfo\MapX 5.0\data\MapStats.mdb")
Set rs = db.OpenRecordset("US_Cust")
rs.MoveLast
BindLayerObject.LayerName = "Lat/Long coords"
BindLayerObject.RefColumn1 = 9
BindLayerObject.RefColumn2 = 10
BindLayerObject.LayerType = miBindLayerTypeXY
Set ds = Map1.DataSets.Add(miDataSetDAO, rs)
ds.Themes.Add
Может кто-нибудь подскажет где ошибка? Спасибо |
|
Вернуться к началу |
|
|
LosDimas
Зарегистрирован: 12.05.2010 Сообщения: 2
|
Добавлено: Пн Май 17, 2010 11:08 am Заголовок сообщения: |
|
|
Разобрался, может кому пригодится:
Код: |
Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Const DataSource = "Data Source=D:\DB\LabEcology\db.mdb" 'путь к базе данных
Dim RecordSet As New ADODB.RecordSet
Dim Connection As New ADODB.Connection
Dim ds As Dataset
Dim BindLayerObject As New MapXLib.BindLayer
On Error GoTo Finally
Call Connection.Open(Provider & DataSource)
Call RecordSet.Open("ViborkaPerFish", Connection, adOpenDynamic) 'ViborkaPerFish имя таблицы в базе данных
BindLayerObject.LayerName = "пишем любое имя слоя"
BindLayerObject.RefColumn1 = 1 ' номер столбца с координатами долготы из таблицы ViborkaPerFish
BindLayerObject.RefColumn2 = 2 ' номер столбца с координатами широты
BindLayerObject.LayerType = miBindLayerTypeXY
Set ds = MapNW.DataSets.Add(miDataSetADO, RecordSet, , "PrNomer", , BindLayerObject) ' MapNW имя объекта MapX
ds.Themes.Add
RecordSet.Close
Connection.Close
Finally:
If (Err.Number <> 0) Then
MsgBox Err.Description
End If
Set RecordSet = Nothing
Set Connection = Nothing |
|
|
Вернуться к началу |
|
|
|