www.map-info.ru :: Просмотр темы - Данные из Access в MapX
                               РќР° главную страницу сайта

 
                                
ВходВход    РегистрацияРегистрация    ПрофильПрофиль    ПользователиПользователи    ГруппыГруппы    FAQFAQ    ПоискПоиск  

 
   Список форумов www.map-info.ru | Форум - 'MapX' Добавить ответ
Предыдущая тема :: Следующая тема  
Автор Сообщение
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
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
   Список форумов www.map-info.ru | Форум - 'MapX' Добавить ответ
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Top.Mail.Ru