كيف انشئ قاعدة بيانات عن طريق الكود

اتمني ان يكون الرد سريع ....... -waf

:unsure:

vb code

PLZ

اخي

انا ماعرفش كل الطرق المتاحة لإنشاء قاعدة بيانات بالكود

لكن انا اعرف طريقة يتم بها إنشاء قاعدة البيانات بالكود

بس القاعدة الناتجة بتكون لها تنسيق اوفيس 95

مش عارف ده ممكن ينفعك ولا لأ

على كل حال انا هارفق مثال على الطريقة اللي انا اعرفها

ويارب تكون فيها فائدة ليك

example.zip

ببساطة شديدة بتحط نسخة من قاعدة البيانات الفارغة كـ Resources و تعمله Extraction لو ما لقيتش القاعدة الأولى.

السلام عليكم

:(

كمان مش أكس بي

اقتباس

بس القاعدة الناتجة بتكون لها تنسيق اوفيس 95

Sub CreateDb(Path As String)
 Dim db As Database
 Dim table As TableDef
 Dim soru As Field
 Dim pic As Field
 Dim zorlukderecesi As Field
 Dim ders As Field
 Dim sinif As Field
 Dim unite As Field
  'Create Database
  Set db = CreateDatabase(Path, dbLangGeneral, dbEncrypt)
   'Create Table
   Set table = db.CreateTableDef("Deneme")
	'Create Fields.
	'For see all datatypes press F2. Library "DAO" and Classes "DataTypeEnum"
	Set soru = table.CreateField("Soru", dbMemo, 0)
	Set pic = table.CreateField("Pic", dbMemo, 0)
	Set zorlukderecesi = table.CreateField("zorlukderecesi", dbText, 20)
	Set ders = table.CreateField("Ders", dbText, 50)
	Set sinif = table.CreateField("Sinif", dbText, 50)
	Set unite = table.CreateField("Unite", dbText, 10)

	'Add Fields to Table
	table.Fields.Append soru
	table.Fields.Append pic
	table.Fields.Append zorlukderecesi
	table.Fields.Append ders
	table.Fields.Append sinif
	table.Fields.Append unite

	'Add Table to Database
	db.TableDefs.Append table

	MsgBox "Your Database which name is " & table.Name & " And which version is " & db.Version & vbCrLf & _
		   "created at " & table.DateCreated & " has " & table.Fields.Count & " Fields", vbInformation, "Create Database"

End Sub

Private Sub Command1_Click()
 CreateDb App.Path & "\" & "Data.mdb"
End Sub

اقتباس

ببساطة شديدة بتحط نسخة من قاعدة البيانات الفارغة كـ Resources و تعمله Extraction لو ما لقيتش القاعدة الأولى

تمام طريقة كويسة كتير

اخ salem salem يعني لو يوجد كود لهذه الطريقة عند الأخ محمد :rolleyes:

فأنا برأي أن تتبعها لانها تسهل عليك الجداول و عندها تقدر حتى تسترجعها مع مافيها من بيانات

خد نسخة من قاعدة البيانات فارغة كموديل واذا لم يجد البرنامج قاعة البيانات الخاصة به يضع الفارغة مكانها والقاعدة الفارغة لها نفس تصم الاقاعدة الاساسية يمكنك تخزين القاعدة الفارغة فى ملف البرنامجEXE

اشكر جميع الاخوان علي التفاعل

بس ممكن تبين طريقة (ببساطة شديدة بتحط نسخة من قاعدة البيانات الفارغة كـ Resources و تعمله Extraction لو ما لقيتش القاعدة الأولى )

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

اقتباس

كمان مش أكس بي

:lol:

يا أخي المزمجر

انا حاولت اساعد بس وانا وضحت اني ماعرفش كل الطرق

حتى لو كنت أجهل أهل الأرض وهي طريقة واحدة اللي أعرفها

فقلت أحطها هنا

وليا ملاحظة صغيرة وسؤال

الكود اللي انت حاطه هو تقريبا نفس اللي انا حاطه مع اختلاف في طريقة كتابته

وبرده قاعدة البيانات الناتجة ليها تنسيق Access 95

ياريت تفهمنا ازاي ممكن من خلال الكود ده نعمل قاعدة بيانات ليها تنسيق Access XP

لأني انا كمان كنت عاوز اعرف ازاي اعمل قاعدة بيانات ليها تنسيق أعلى من Access 95

واكون شاكر ليك جدا

اقتباس

Sub CreateDb(Path As String)
Dim db As Database
Dim table As TableDef
Dim soru As Field
Dim pic As Field
Dim zorlukderecesi As Field
Dim ders As Field
Dim sinif As Field
Dim unite As Field
  'Create Database
  Set db = CreateDatabase(Path, dbLangGeneral, dbEncrypt)
   'Create Table
   Set table = db.CreateTableDef("Deneme")
	'Create Fields.
	'For see all datatypes press F2. Library "DAO" and Classes "DataTypeEnum"
	Set soru = table.CreateField("Soru", dbMemo, 0)
	Set pic = table.CreateField("Pic", dbMemo, 0)
	Set zorlukderecesi = table.CreateField("zorlukderecesi", dbText, 20)
	Set ders = table.CreateField("Ders", dbText, 50)
	Set sinif = table.CreateField("Sinif", dbText, 50)
	Set unite = table.CreateField("Unite", dbText, 10)

	'Add Fields to Table
	table.Fields.Append soru
	table.Fields.Append pic
	table.Fields.Append zorlukderecesi
	table.Fields.Append ders
	table.Fields.Append sinif
	table.Fields.Append unite

	'Add Table to Database
	db.TableDefs.Append table

	MsgBox "Your Database which name is " & table.Name & " And which version is " & db.Version & vbCrLf & _
		   "created at " & table.DateCreated & " has " & table.Fields.Count & " Fields", vbInformation, "Create Database"

End Sub

Private Sub Command1_Click()
CreateDb App.Path & "\" & "Data.mdb"
End Sub

هعمل مثال أن شاء الله

مرفق B)

Extract_DB_from_resources.rar

حل ممتاز تشكر اخي العزيز

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

اخواني انا عضو جديد واحب ارحب بالموجدين قبل كل شي

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

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

وابغي من البرنامج اذا لم يجد القاعدة يقوم بنشائها اتموماتيكي عن طريق كود في فورم

التحميل وانشاء السجلات داخلها وتكون بانتظار البيانات الجديدة

عجزت عن هذا الحل

و أسف علي الاطالة

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

مع ملاحظة أنه يعمل بواسطة مكتبه الداو وينشئ قاعدة بيانات حتى أكسس 2007

_________________________.rar

اقتباس

يا أخي المزمجر

انا حاولت اساعد بس وانا وضحت اني ماعرفش كل الطرق

حتى لو كنت أجهل أهل الأرض وهي طريقة واحدة اللي أعرفها

فقلت أحطها هنا

أنا ماني فاهم أيش تقصد :wacko:

أنا لما صرحت بــ

اقتباس

كمان مش أكس بي

بس القاعدة الناتجة بتكون لها تنسيق اوفيس 95

كنت أقصد : (h)

وهي طريقة واحدة اللي أعرفها

يعني أقصد صفة الكود الذي وضعته أنا و ليس كودك :huh:

و السلام عليكم

يا جماعة ممكن حد يساعدنى ويقولى ازاى ادمج ملفين صوت فى ملف واحد