الاخت الكريمة

في البداية عملية ربط الاكسس سهلة عبارة عن ربطها وكانه لم نستخدم ماب كنترول

Imports System
Imports System.Data
Imports System.Data.OleDb

public class MainClass
Shared Sub Main()
Dim connString As String = "provider= microsoft.jet.oledb.4.0; " & _
"data source=Employee.mdb;"

Dim conn As New OleDbConnection(connString)

Try
conn.Open()
Console.WriteLine("Connection Opened")

' Display connection properties
Console.WriteLine("Connection Properties")
Console.WriteLine("- ConnectionString : {0}", conn.ConnectionString)
Console.WriteLine("- Database : {0}",conn.Database)
Console.WriteLine("- DataSource : {0}",conn.DataSource)
Console.WriteLine("- ServerVersion : {0}",conn.ServerVersion)
Console.WriteLine("- State : {0}", conn.State)
Catch ex As OleDbException
' Display error
Console.WriteLine("Error: " & ex.ToString())
Finally
' Close Connection
conn.Close()
Console.WriteLine("Connection Closed")

End Try
End Sub
End Class



ولرسم النقاط:

Drawing a point in a MapControl object using VB 6

Private Sub ObtainPoint()

Dim pApp As IMxApplication
Dim pDisplay As IDisplay

Set pApp = Application
Set pDisplay = pApp.Display

' Generate a point at selected coordinates
Set pPoint = New Point
pPoint.PutCoords x, y
Call Point(pPoint) ' Create a point

End Sub

Private Sub Point(pGeometry As IGeometry)

On Error GoTo Error_Desc 'If there is an error, go to error subroutine

If (Not TypeOf ThisDocument.Parent Is IMxApplication) Then Exit Sub

Set pMxDocument = ThisDocument
Set pDocumentDefaultSymbols = pMxDocument
Set pMarkerElement = New MarkerElement

Dim pSSym As ISimpleMarkerSymbol
Dim pColor As IRgbColor

Set pColor = New RgbColor
pColor.RGB = vbRed
Set pSSym = New SimpleMarkerSymbol
pSSym.Color = pColor
pSSym.Style = esriSMSCircle
pSSym.Size = 10
pSSym.Outline = True
pSSym.OutlineSize = 1.15
pMarkerElement.Symbol = pSSym

'Set pElement = pMarkerElement
Set pElement = pMarkerElement
pElement.Geometry = pGeometry

Set pActiveView = pMxDocument.ActiveView
Set pGraphicsContainer = pActiveView.GraphicsContainer
pGraphicsContainer.DeleteAllElements
pGraphicsContainer.AddElement pElement, 0

pMxDocument.ActiveView.Extent = pElement.Geometry.Envelope
pActiveView.PartialRefresh esriViewGraphics, Nothing, pActiveView.Extent

'********************** Zoom In Info ***********************
Set pMxDocument = Application.Document
Set pActiveView = pMxDocument.FocusMap
Set pDisplayTransform = pActiveView.ScreenDisplay.DisplayTransformation
Set pEnvelope = pDisplayTransform.VisibleBounds
Set pCenterPoint = New Point

Exit Sub ' Exit Subroutine
Error_Desc: ' Error Routine.
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical
End If

End Sub


كيفية الربط هو عمل

for Loop

واخذ قيمة x,y

from Access Database

وادخالها محل x,y

التي في ماب كنترول.



وهذا موقع مفيد:

http://support2.dundas.com/OnlineDoc...lElements.html