[align=justify]بداية انا كما قلت من قبل استخدم VB.net 2008 وقد هاجرت من VB6 من سنوات، والكود التالي مكتوب بـ VB.NET 2008 و ADO.NET على .NET Framework 3.5 وهذا هو ما استطيع أن أقدمه.
أنا عندي shapefile اسمه idlcity.shp على المجلد G:\GISTrain وأريد فتحه في جدول
أنشئت برنامج يحتوي على نموذج Form وقمت بوضع عنصري تحكم DataGridView و Button فوقه كما بالشكل التالي[/align]
[align=justify]ثم قمت بكتابة التعليمات التالية في حدث المفتاح:[/align]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myDataset As New DataSet()
Dim myConnection As New OleDb.OleDbConnection()
Dim myExpression As String = "Select * from idlcity"
myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\TrainGIS;Extended Properties=dBASE IV;User ID=Admin"
Try
myConnection.Open()
Dim myDataTable As New DataTable
Dim myCommand As New OleDb.OleDbCommand(myExpression, myConnection)
Dim myAdapter As New OleDb.OleDbDataAdapter
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myDataTable)
myDataGrid.DataSource = myDataTable
myDataGrid.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
myDataGrid.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
myConnection.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString)
Finally
myConnection.Dispose()
End Try
End Sub
[align=justify]عند النقر فوق هذا المفتاح سوف يتم فتح الجول في الـ GridDataView كما بالشكل التالي[/align]
[align=justify]لتحديث محتويات الجدول يمكنك استخدام عبارات SQL من النوع Insert و Update مع myCommand.SelectNoQuery
أما بالنسبة لعرض محتويات الـ Shapefile الرسومية فيجب أن تستخدمي الـ MapControl على النحو المذكور في المشاركة
http://gisclub.net/vb/showthread.php?t=2911[/align]
رد مع اقتباس