[mobark54]

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

إلى الأخوة أصحاب الخبرة

ممكن طريقة إنشاء قاعدة بيانات أكسس من خلال OleDb مع إضافة جدول داخلها من خلال الكود

[medo_ya]

السلام عليكم ورحمة الله وبركاته
اذا كنت فهمت سؤالك
اول حاجة تعمل موديول جديد وتحط فيه :
كود الربط بين قاعدة البيانات والفيجوال
Public constr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\account.mdb")

الكونيكشن
Public con As New OleDbConnection(constr)
والداتا ادابتر
Public da As New OleDbDataAdapter
والداتا سيت
Public ds As New DataSet

بعد كده نروح علي الفورمة اللي انت عاملها وتكتب جوا ال بابلك صب
كود لو قاعدة البيانات مفتوحة يبقي تقفلها
if con.state=1 then con.close
نعرف متغير
dim sqlstr as string="select * from اسم الجدول جوا القاعدة "
بعد كده نفتح قاعدة البيانات
con.open
بعد كده نملي الداتا اداباتر بقاعدة البيانات
da.fill(ds,"اسم الجدول جوا قاعدة البيانات ")
بعد كده نقفل القاعدة
con.close
اتمنى انى اكون افدت حضرتك لاني مبتدأ لسه والله المستعان
اخوك ممدوح

[mobark54]

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

مشكووور كثير أخي الكريم على مرورك

بس انا قصدي من السؤال   هو إنشاء القاعدة من خلال الكود, يعني قاعدة البيانات ما تكون موجودة إنما اقوم بتصميمها بالكود.

بعبارة أُخرى عندما يفتح الشخص البرنامج والبرنامج لا يجد قاعدة البيانات في مكانها, يقوم البرنامج بإنشاء القاعدة و إنشاء الجداول داخلها.