منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] إنشاء قاعدة بيانات بالكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] إنشاء قاعدة بيانات بالكود (/showthread.php?tid=10608)



إنشاء قاعدة بيانات بالكود - mobark54 - 05-11-14

السلام عليكم ورحمة الله وبركاته
إلى الأخوة أصحاب الخبرة


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



RE: إنشاء قاعدة بيانات بالكود - medo_ya - 06-11-14

السلام عليكم ورحمة الله وبركاته
اذا كنت فهمت سؤالك
اول حاجة تعمل موديول جديد وتحط فيه :
كود الربط بين قاعدة البيانات والفيجوال
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
اتمنى انى اكون افدت حضرتك لاني مبتدأ لسه والله المستعان
اخوك ممدوح


RE: إنشاء قاعدة بيانات بالكود - mobark54 - 06-11-14

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


مشكووور كثير أخي الكريم على مرورك Shy Shy
بس انا قصدي من السؤال Idea  هو إنشاء القاعدة من خلال الكود, يعني قاعدة البيانات ما تكون موجودة إنما اقوم بتصميمها بالكود. Exclamation Exclamation


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