لاهل الخبره ارجوا المساعده!!!!!

سلام الله عليكم

يمكنك اخي الكريم أنشاء قواعد بيانات قبل تشغيل البرنامج يدويا او أنشائها أثناء التشغيل بواسطه الكود البرمجي

هذا الكود يقوم بصنع قاعده بيانات اكسس :-

'أول شيء :-

'--------------------------------------------------------------------------

' من reference علم علي microsoft dao 3.6 object library

'--------------------------------------------------------------------------

'ثم أكتب هذا الكود في القسم العام او في موديل :-



Public Sub create_new_database()

Dim wrk1 As Workspace

Dim db_new As Database



Set wrk1 = DBEngine.Workspaces(0)

Set db_new = wrk1.CreateDatabase("أسم قاعده البيانات التي تود أنشائها", dbLangGeneral, dbEncrypt)

db_new.Close

End Sub

'--------------------------------------------------------------------------

'وقم بنداء الأجراء مثلا عند الضغط علي زر أمر :-

Private Sub Command1_Click()

Call create_new_database

End Sub

أما بالنسبه لأنشاء الجداول :-

'ضع هذا الأجراء في القسم العام او موديل 

'--------------------------------------------------------------------------

Public Sub create_new_table()

Dim database1 As Database

Dim table1 As TableDef



Set database1 = OpenDatabase("أسم القاعده")



With database1

'نضع هنا اسم الجدول المراد انشاؤه بدلا من tb1



    Set table1 = database1.CreateTableDef("tb")

    With table1

        'هنا نضع اسم الحقل ونوعه

        .Fields.Append .CreateField("number", dbMemo)

        .Fields.Append .CreateField("name", dbMemo)

        .Fields.Append .CreateField("address", dbMemo)

    End With

    

End With

database1.TableDefs.Append table1

End Sub

'--------------------------------------------------------------------------

أما بالنسبه للجمل الخاصه بالأضافه والتعديل والتنقل والحذف والبحث :-

أولا ينبغي عليك أنشاء متغيرين للتنقل في قاعده البيانات والتحكم فيها :-

'ضع هذا الكود في موديل :-



Public d As Database

Public t As Recordset

وعند تحميل البرنامج اي في حدث Form_load ضع هذا الكود :-

Set d = DBEngine(0).OpenDatabase(App.Path & "أسم قاعده البيانات")

Set t = d.OpenRecordset("أسم الجدول")

الأن انت جاهز للتنقل في قاعده البيانات :-

الأنتقال الي السجل الاول :-

t.MoveFirst

الأنتقال الي السجل التالي :-

t.MoveNext

الأنتقال الي السجل السابق :-

t.MovePrevious

الأنتقال الي السجل الأخير :-

t.MoveLast

والاّن اذا اردنا أضافه بيانات :-

t.AddNew

وأذا ارنا حفظ البيانات التي أضفناها او التي عدلنا فيها وبدون هذا الكود لن يظهر البيانات التي أضفناها الا بعد عمل Restart للجهاز :-

t.UpdateRecord

واذا أردنا التعديل :-

t.Edit

واذا أردنا الحذف :-

t.Delete

واذا اردنا البحث :-

Dim a As String, B As String

B = InputBox("أدخل ما تريد أن تبحث عنه", "بحث ", "1")

If B = "" Then

Exit Sub

Else

a = "أسم السجل في قاعدة البيانات=" & Val(B)

Data1.Recordset.FindFirst (a)

If Data1.Recordset.NoMatch Then

MsgBox ("هذا السجل غير موجود")

End if

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

ولك تحياتي

شكرا اخي الكريم

عندي شويه اسئله اذا كان لا يوجد احراج .

اود منك ومن الجميع كيف اجعل قاعده البيانات لا يوجد بها تكرار في البيانات ؟

2-كيف اربط قاعده جاهزه اصلا بس ابي اعمل معالجه لها باضافه بحذف وكيف اجعل مثلا txt1.text اذا كان رقم اذهب الى الفلد الفلاني وتحقق منه غير ذلك اذهب الى كذا....الخ

3- هل لكل جدول اعمل له كود خاص فيه اسمه واسماء الحقول به ؟

4- طبعا قاعده البيانات فيها اكثر من جدول وكل جدول اكثر من فلد وسجل كيف اجعل ابحث فيها؟؟؟؟

5-هل لابدمن العلاقات بين الجدوال؟

6- كيف اجعل العلاقه 1 تو مني ككود مثلا؟

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

مشكور أخي الغالى علي الشرح ;)

ومادام انت جيت هنا يبقي اتحمل بقي

هاسئلك سؤال يا استاذى واخى الكريم ;)

كيف يمكنني أنشاء قاعده بيانات اكسس 2000 بأستخدام adox ???

لو مجاوبتش هاقتلك :'(

سلام

السلام عليكم

من شان ما تقتله تفضل الحل /

'
 Dim cat As New ADOX.Catalog
'
     cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & App.Path & "Database.mdb;"
'

طبعا هذا الكود يعمل بعد إضافة مكتبة adox

بالتوفيق .