هل يمكنني إنشاء جداول أكسس بالكود؟؟

يمكن ذلك اختي ولكن يجب اولا ان تنشئي قاعدة بيانات حتى تضعي فيها الجدول ومن ثم بعد ذلك تستخدمي الكائن oledbconnection لعمل اتصال بالقاعدة من ثم تستخدمي الكائن Oledbdataadapter لعمل الربط سوف احاول ان اعمل ذلك في مثال ثم اضعه هنا

شكراً لك أخي أبو عزام

أنا بانتظار المثال وجزاك الله كل خير

السلام عليكم ورحمة الله وبركاته

لقد تمكنت من عمل الجداول بالكود عن طريق عمل استعلام

وأضع الكود هنا لعله يستفيد منه من يبحث عنه لاحقاً

   Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\DB.mdb"
		Dim Conn As New OleDbConnection(ConStr)
		Dim createTable As New OleDb.OleDbCommand
		createTable.Connection = Conn
		createTable.CommandType = CommandType.Text
		createTable.CommandText = "create table myTable (a text(200) ,b text(200))"
		Conn.Open()
		createTable.ExecuteNonQuery()
		Conn.Close()

وشكراً

شكرا لك لمشاركتنا به

لدي مشكله ربما تمكنتي من افادتي...

انا بحاجه الى اضافة جدوال مدخل اسماؤها بواسطه المستخدم...

قمت بتغيير هذا السطر فقط ليأخذ الاسم من التكست المدخل

createTable.CommandText = "create table myTable (a text(200) ,b text(200))"

الى

		createTable.CommandText = "create table" + text1.text + "(SubType text(200))"

وفي كل مره يظهر لي خطأ في تكوين الجمله.

في حالة نجاحك ارجو مساعدتي بكيفيه حلها.