طلب لو تكرمتوا

السلام عليكم

طبعا يمكن فعل ذلك بعددة طرق منها الطريقه التالية :

'في قسم التصاريح العامة ضع الكود التالي

Dim db As ADODB.Connection

Private Sub Form_Load()

'

Dim db As ADODB.Connection

Set db = New ADODB.Connection

db.CursorLocation = adUseClient

db.Provider = "Microsoft.Jet.OLEDB.3.51"

db.Open App.Path & "YourDataBase.MDB"

'

db.Execute "INSERT INTO Table1 (Field1,Field2) VALUES ('YourData1','YourData2');"

db.Execute "INSERT INTO Table2 (Field1,Field2) VALUES ('YourData1','YourData2');"

'Field1 الحقل الاول

'Field1 الحقل الثاني

'YouData1 'البيانات الخاصة بالحقل الأول

'YouData2 'البيانات الخاصة بالحقل الثاني

'تحياتي

End Sub

أخي الكريم : Visitor_OM

أشكرك كثيرا على ردك

ولكن لدي بعض الأسئلة على هذا الكود . أرجو أن يتسع صدرك لها

1- أعتقد أن هذا الكود خاص بقاعدة بيانات من نوع أكسس 2000

فكيف أحوله إلى 97

2- ماذا يوضع في زر الحفظ

3- ماهي أسماء الجداول في هذا المثال

إذا تكرمت أرجو التوضيح في مثال

وشكرا لتعاونكم .....

والسلام ؛؛؛؛

السلام عليكم

أخي العزيز تحية لك.

بالنسبة للسؤال الاول :

الكود يعمل مع access 97 مافيه اي مشكلة إن شاء الله .

الكود لزر الحفظ :

'

db.Execute "INSERT INTO Table1 (Field1,Field2) VALUES ('YourData1','YourData2');"

db.Execute "INSERT INTO Table2 (Field1,Field2) VALUES ('YourData1','YourData2');"

'

اسماء الجداول هي :

Table1

Table2

'''

وإذا صار معي وقت راح احط مثال .

والمعذرة على التقصير . تحياتي

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

وأنا بانتظار المثال

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

وشكرا مرة أخرى ...

تحملني تراي مبتدأ في الفيجوال

والسلام ؛؛؛

ابشر وما يكون خاطرك إلا طيب .

تفضل المثال أدناه :

على فكرة هذا المثال يقوم بحفظ نفس البيانات في ثلاث جداول مختلفة وهي table2,table3,table4 على اعتبار الجدول table1 هو الجدول الرئيسي وفي كل جدول ثلاث حقول وهي FirstName , LastName , Address اتمنى ان تستفيد من المثال . وانا في انتظار اي تعليق او اي ملاحظة حول المثال .

طبعا المثال يتعامل مع قاعدة بيانات اكسس 97

تحياتي

ado001.zip

أخي الكريم Visitor_OM

لا أدري ماذا أقول لك

فجزاك الله كل خير

هذا ما كنت أبحث عنه منذ فترة

ألف شكر

والسلام ؛؛؛

العفو اخي العزيز ولا شكر على واجب