Maka biasanya database untuk data-data tabular tetap dalam database ‘normal’, sedang untuk menghubungkan antara database ini dengan data peta-nya, melalui dbf. Kunci-nya adalah dibuat sebuah field sebagai key di dbf dan juga di database eksternal, dimana melalui field inilah nanti data spatial di dbf diupdate berdasar nilai di database eksternal.
Sebagai contoh, misal terdapat peta Kabupaten-kabupaten Jawa Timur. Kemudian database eksternal yang digunakan adalah Ms. Access. Terdapat field Kabupaten yang digunkan sebagai key untuk menyambung antara data dbf dengan data eksternal. Dan terdapat field temporary di dbf untuk menyimpan data perhitungan yang nantinya akan digunakan untuk rendering peta. Seperti terlihat pada gambar 1 dan 2.



Gambar 1. Tabel di file DBF ( tabel internal)


Gambar 2. Tabel di file Access (eksternal)

Didalam Program VB-nya, dibuat editor untuk pengaksesan dan pengubahan nilai untuk database eksternal. Untuk mudahnya, disini saya menggunakan component Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft Datagrid Control 6.0 (OLEDB). Yang selain tinggal klak klik juga memungkinkan untuk diganti dengan database lain seperti SQL Server atau Oracle. Kemudian ditambahkan conponent Map untuk melihat peta yang nantinya akan dirender berdasar nilai di database Access ini. Dimana dalam contoh ini akan dirender dalam 10 kelompok bernilai 0 sampai 100 denga warna gradasi dari kuning ke merah.
Bagian yang penting adalah saat sinkronisasi data. Disini perlu dilakukan pengaksesan pada kedua tabel (di dbf dan di mdb) yang jika nilai field Kabupatennya sama, maka nilai di dbf diupdate dengan nilai di mdb.Gambar 3 adalah hasilnya.

Berikut adalah kode programnya:

Gambar 3. Contoh tampilan

dan berikut adalah kode programnya:

Private Sub Command1_Click()

    'sinkronisasi data

    Dim rs As MapObjects2.Recordset

    Dim rs2 As ADODB.Recordset

    Dim L As MapLayer

    Set rs2 = Adodc1.Recordset

    Set L = Map1.Layers(0)

    Set rs = L.Records

    rs2.MoveFirst

    While Not rs2.EOF

        rs.MoveFirst

        While Not rs.EOF

            If rs2.Fields("Kabupaten").Value = rs.Fields("Kabupaten").Value Then

                rs.Edit

                rs.Fields("Temp").Value = rs2.Fields("nilai").Value

                   rs.Update

            End If

            rs.MoveNext

        Wend

        rs2.MoveNext

    Wend

    Map1.Layers.Clear

    ShowMap

End Sub

Private Sub Form_Load()

    dc.Database = App.Path

    dc.Connect

    ShowMap

End Sub

Private Sub ShowMap()

    'tampilkan peta render

    Dim L As New MapLayer

    Dim cb As New ClassBreaksRenderer

    Dim i As Long

    Set L.GeoDataset = dc.FindGeoDataset("jatim")

    cb.Field = "temp"

    cb.BreakCount = 10

    For i = 0 To cb.BreakCount - 1

        cb.Break(i) = i * 10

    Next

    cb.RampColors moYellow, moRed

    Set L.Renderer = cb

    Map1.Layers.Add L

End Sub

Comments

Search

Anonymous (122.139.62.xxx) 2009-05-27 01:32:54 cheap wow power leveling cheapest wow power leveling my wow gold buy wow gold replica replica rolex CHEAP wow power level BUY power leveling replica rolex replica CHEAPEST power leveling MY wow power level cheap rs gold good BUY wow gold replica rolex CHEAPEST wow gold cheap lotro gold buy wow gold my wow gold cheapest wow gold CHEAP wow gold zmc

QUYET (117.0.139.xxx) 2009-06-30 15:44:24 �京都　会社設立代行 多�債務 �比寿　賃貸マンション クレジットカード　比較 記念� � カップリングパーティー カップリングパーティー ��も英会話 治験 介護� 特定調� リサイクルショップ オフィス家具 介護　求人 ��毛エクステ ボート�許 水上�イク ジェットスキー�許 �イク便 水�修� 秦野　建築 妊娠　症状 �ワイ　コンドミニアム 新興株 債務整� 三郷市　�動産 幼稚園教諭 天然石　アクセサリー 薬膳��　六本木 家具 グルー

QUYET (117.0.139.xxx) 2009-06-30 15:44:42 貸ã�—コンテナ トランクルーム 英語　勉強 地デジ 介護予防 足立区　一戸建ã�¦ å·�å�£ã€€ä¸�動産 é�Žæ‰•ã�„金 ゴルフレッスン世田谷 ゴルフレッスン多摩 ゴルフレッスンå·�å´Ž æ�¾æˆ¸å¸‚　ä¸�動産 ゴルフスクール平塚 大阪　ホテル 貸別è�˜ 大学留学 我孫å­�市　一戸建ã�¦ 排水æº�ã�¤ã�¾ã‚Š æ°´é�“屋 浦和　ä¸�動産 イギリス留学 カナダ留学 ニュージーランド留学 ダイビング　æ�±äº¬ 賃貸　æ�±äº¬ イギリス留学 å°�金井　ä¸�動産 リコメンド ヘッドスパ　æ�±äº¬ 消費税還付 ãƒ�ーレー　カスタãƒ

Women Buy Ugg Boots (125.78.240.xxx) 2010-02-27 07:38:46 With all the boots [url=http://www.zhjugg.com/new-product-ugg-bailey-  button-58 03-grey-boots-p-]UGG Bailey Button Grey[/url] included in Ugg Australia’s Classic Collection range the Bailey chenwei Button is lined ugg cardy oatmeal with twin faced Grade A sheepskin. Also there is the UGG Bailey Button traditional suede heel guard to ensure that not only is this area protected but offers this part of the boot support. Ugg Cardy Boots Plus within the boots you find each pair has sock liners that are made from sheepskin PU foam so increasing the level of Ugg Cardy comfort a person feels when wearing them.

激安 ユニフォ& 激安 ユ| (220.161.165.xxx) 2010-02-27 09:02:15 LCZ  読売巨人軍は 、ビ ;ジターゲ&# 12540;ムで着用& #12377; 427;夏季限定のӎ 0;| 69;マービジタ ーユニホ ;ーム&# 12301;を 採用しま 2377;。ユニフォーム...このユニ ホӦ 0; ムの 発表会見&# 12364;１２日（&# 26376;A 289;、東京・大৔ 3;ஹ 0;の球団事務 所で開か れ、&# 12481;ームを代表  375;て 坂本勇人選手&# ...

Paul Smith (220.161.165.xxx) 2010-02-27 09:09:16 Our store offer the cheap paul smith for you,sale new Paul Smith Shoes,and we will give my best server to you.Come on, more order will get more discount.You can not miss them!rlh

MBT Shoes mbt uk (220.161.165.xxx) 2010-02-27 10:16:49 When you purchase Mbt shoes you achieve shoes that appeal mbt shoes to your sense of style while insuring a shoe that does not cause pain and discomfort after a day mbt trainers shoes of being on your feet. And after your purchase you know you have shoes that are going to outlast shoes found in most stores. Created for comfort and long lasting, MBT shoes utilize the highest quality leather and materials. If you experience mbt uk discomfort from your foot perspiring during the day MBT Shoes applies a sock lining in the lining of the shoe where you foot rests. mbt shoe This allows your feet to stay dry during the most challenging active days.hlm

nike-shox (125.78.242.xxx) 2010-02-27 16:37:12 rr Today, the nike shox basketball shoes are popular around the world. wholesale nike shox shoes started out as an American company, but have since expanded around the globe. They're now available in 120 countries. shox r4 with an emphasis on walking shoes, the engineers at New Balance know the importance of a proper fit and offer a wide range of widths and sizes. Often recommended by podiatrists, nike running shoes take an "endorsed by no one" stance, preferring to let their technology and comfort sell their shoes instead of paying a celebrity athlete to do it for them. Additionally, nike shox monster are available in a variety of styles, each designed for different needs-motion control, extra support, off road, use etc. New Balance makes running, walking, tennis, cross-training and basketball shoes for men and women, and also offers a line of kids' ...

timberland (220.161.165.xxx) 2010-02-27 17:02:32 mm Apparently, 21,000 boots imported by Timberland from Thailand have lead paint on the insole, violating federal lead paint rules. I'm guessing this paint was used for printing of the logo inside the boot. Please note Dear Readers, these are Timberland waterproof and children are particularly sensitive to the effects of lead and lead poisoning. Avoid a lead paint accident that could injure or hurt your child. When I first saw this I thought, "How do you make Timberland work boots? Where's the risk of accident or injury?" Then I read further and saw, "lead paint." The headline reads:"Timberland Recalls Timberland for kids Due to Violation of Lead Paint Standard"The U.S. Consumer Product Safety Commission announced a voluntary recall of these boots. Consumers should stop using recalled products immediately.

Only registered users can write comments!

Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."