مطلوب كود اضافة عدة سجلات دفعة واحدة

يا اخوانى ما فى رد على السؤال

انا محتاجه ضرورى

اى تعليق

شكرا لكم

اخي العزيز

على ما يبدو انه فكرة جديد ارسل مثال صغير ليتم معالجيتة ولمعرفة قاعدة البيانات وكيفية الربط

والله الموفق

dim sql,sql2,sql3 as string

sql = "INSERT INTO s_nm VALUES ('" & number_s1 & "','" & name_s1 & "','" & class1 & "')"s

sq2l = "INSERT INTO s_nm VALUES ('" & number_s2 & "','" & name_s2 & "','" & class2 & "')"s

sql 3= "INSERT INTO s_nm VALUES ('" & number_s3 & "','" & name_s3 & "','" & class3 & "')"s

If rs.State = adStateOpen Then rs.Close

rs.Open sql, db, adOpenDynamic, adLockOptimistic

rs.Open sql2, db, adOpenDynamic, adLockOptimistic

rs.Open sql3, db, adOpenDynamic, adLockOptimistic

طرق كثيرة لعمل ذلك لكن نرجو منك ان تضع الطريقة التي تضيف بها سجل واحد

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

وبالنسبة لطريقة اضافة سجل واحد انا اتبع هذه الطريقة

If RS.State = adStateOpen Then RS.Close

RS.Open "product", CN, adOpenDynamic, adLockPessimistic

RS.AddNew

( RS!Fields(0)= Trim(t1.Text

(RS!Fields(1) = Trim(t2.Text

( RS!Fields(2 )= Trim(t3.Text

( RS!Fields(3) = Trim(t4.Text

( RS!Fields(4) = Trim(t5.Text

( RS!Fields(5) = Trim(t6.Text

( RS!Fields(6) = Trim(t7.Text

RS.Update

RS.Fields.Refresh

على سبيل المثال

ولكم جزيل الشكر

هذا الكود السابق كنت اكتبه لاضافة ما بالتكست

الىالجدول ولكنى اريد كود يضيفى من عدة تكسيت فى صفوف

الى عدة سجلات

ومشكورين اخوانى