السلام عليكم ورحمة الله وبركاته
عند إنشاء جدول داخل قاعدة بيانات أريد إضافة ترقيم تلقائي للجدول فكيف يتم ذلك بالطريقة التالية
Dim db As Database
Dim ws As Workspace
Dim tb as TableDef
Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase(App.Path & "/uuh.mdb", dbLangGeneral, dbVersion40)
Set tb = db.CreateTableDef("hhh") 'هنا كيف أضيف للخصائص بحيث يصبح ترقيم تلقائي
Set gg = tb.CreateField("sddf", dbText)
tb.Fields.Append gg
db.TableDef.Append tb
db.Closeأرجو المساعدة
ألف شكر لك أخي العزيز على هذا المثال
ولكن في الحقيقة لقد أثرت لي عدة أسئلة فأنا كنت أعتقد أن تقنية ADO مشابهة تماما لل DATA ولكنك قمت بفعل ذلك من خلال إضافة مكتبة وليس عنصر تحكم ADO فهلا أوضحت لي الفرق بينهما كما أريد رأيك في التقنية الأفضل للتعامل مع قواعد البيانات لأني كنت أعتقد أن DAO أفضل من ADO
كما أرجو شرح هذه العبارة
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\New.mdb;"
وشكرا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
