Master-master semua ada yang ngerti ole automation untuk koneksi vb ke Map Info
ga. Aku coba2 program dari buku kayak gini source nya. Tapi muncul error
seperti berikut :
Run-time error '-2147352567 (80020009)';
Found [Window4719686] while searching for [window]
ERROR nya pada syntak yang ditandai kuning dibawah. Mohon bantuannya
Dim objMi As Object
Dim BisaBuatObject As Boolean
Private Sub btnTampil_Click()
objMi.do "CloseAll"
objMi.do "Open Table ""F:\Final Project\Bahan Compact\uji
program\JALAN_PADANG.tab"" As ""Jalan"""
objMi.do "Open Table ""F:\Final Project\Bahan Compact\uji
program\KOTAPADANG_0MUKIM_polyline.tab"" As ""PDG_KOTA"""
objMi.do "Open Table ""F:\Final Project\Bahan Compact\uji
program\KOTAPADANG_0SUNGAI_polyline.tab"" As ""PDG_JLN"""
objMi.do "Select * FROM PDG_KOTA"
objMi.do "Map From PDG_KOTA"
objMi.do "Add Map Auto Layer PDG_JALAN"
objMi.do "Add Map Auto Layer Jalan"
End Sub
Private Sub Form_Load()
Call KoneksiOleAutomation
Call ReparentingMapInfo
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objMi = Nothing
End Sub
Sub KoneksiOleAutomation()
BisaBuatObject = True
On Error GoTo TidakBisaBuatObjApp
Set objMi = CreateObject("MapInfo.Application")
On Error GoTo 0
If (Not BisaBuatObject) Then
On Error GoTo TidakBisaAmbilObjApp
Set objMi = GetObject(, "MapInfo.Application")
On Error GoTo 0
End If
Exit Sub
TidakBisaBuatObjApp:
BisaBuatObject = False
Resume Next
TidakBisaAmbilObjApp:
MsgBox ("Tidak dapat mengambil objek Mapinfo.Application")
Unload Me
End Sub
Sub ReparentingMapInfo()
objMi.do "Set Application Window" & frmMain.hWnd
objMi.do "Set Next Document Parent" & frmMain.hWnd & "Style 1"
End Sub
---------------------------------
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
[Non-text portions of this message have been removed]
