درس تصميم واجهة برمجية تتفاعل مع خرائط نظم المعلومات الجغرافية

[فهد المطلق]

أسف اخت سلمى على التأخر
بسبب ظروف weekend

الما بخصوص سألك عن الكود الخاض باحضار قاعدة البيانات هو

' Get the ITable from the geodatabase
  Dim pFact As IWorkspaceFactory
  Dim pWorkspace As IWorkspace
  Dim pFeatws As IFeatureWorkspace
  Dim pTable As ITable
  Set pFact = New ShapefileWorkspaceFactory
  Set pWorkspace = pFact.OpenFromFile("d:\tables81\testing", 0)
  Set pFeatws = pWorkspace
  Set pTable = pFeatws.OpenTable("demog")
  
  ' add the table
  Add_Table_TOC pTable

ولكن يتوجب عليك تغير مسار الملف ووضع المسار الموجود فيه قاعدتك وكذلك تغير اسم demog ووضع اسم الظاهرة المراد الاستعلام عنها
والهم من هذا وذك يجب عليك البحث عن ملف النظام من خلال References

وهذا رابط مثال عن الاستعلام عن قواعد البيانات

http://www.4shared.com/file/51236395...d/_online.html


وبالله التوفيق