اقتباس المشاركة الأصلية كتبت بواسطة زكريا يحيى مشاهدة المشاركة
كيفية عمل بعض التطبيقات على ArcGIS 9.2

Data Creation (ArcCatalog)

Step 1
Private Sub UIButtonControl1_Click()
Dim PWorkspace As IWorkspace
Set PWorkspace = CreateAccessGDB("c:\temp", "AnnualSales")
Dim pfeatureWS As IFeatureWorkspace
Set pfeatureWS = PWorkspace

Dim pfieldsedit As IFieldsEdit
Dim poidfld As IFieldEdit
Dim pstorenamefld As IFieldEdit
Dim psalesfld As IFieldEdit

Set poidfld = New Field
Set pstorenamefld = New Field
Set psalesfld = New Field
Set pfieldsedit = New Fields

poidfld.Name = "oid"
poidfld.Type = esriFieldTypeOID
poidfld.Length = 8

pstorenamefld.Name = "store"
pstorenamefld.Type = esriFieldTypeString
pstorenamefld.Length = 16

psalesfld.Name = "sales"
psalesfld.Type = esriFieldTypeInteger
psalesfld.Length = 8

pfieldsedit.AddField poidfld
pfieldsedit.AddField pstorenamefld
pfieldsedit.AddField psalesfld

Dim ptable As ITable
Set ptable = pfeatureWS.CreateTable("sales2000", pfieldsedit, Nothing, Nothing , “”)
Dim prow As IRow
Set prow = ptable.CreateRow

prow.Value(1) = "store1"
prow.Value(2) = 3000
prow.Store

End Sub
يا هلا بالمهندس / زكريا يحيى

حاولت استخدم الكود Codes المشار اليه في الاعلي واعطاني اخطاء كثيرة ( لم يعمل ) مثل



1- ياريت طريقة استخدامها او اضافتها الي البرنامج
2- ايضا تعريف بسيط لاستخدام كل كود بالعربي في اعلي الكود في المشاركة "كل كود علي حده"

شكرا يا هندسه ونورت المنتدي ومرحبا بك بين اخوانك وابنائك