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

أرجو رفع مثال ليتم التعديل عليه.

شكراً

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

هذا مثال على كيفية تحويل البيانات من felxgrid الى جدول في قاعدة البيانات

sqls = "select * from itemdata "

If rs.State = adStateOpen Then rs.Close

rs.Open sqls, db, adOpenKeyset, adLockPessimistic

For i = 1 To fg.Rows - 1

fg.Col = 1

fg.Row = i

rs.AddNew

fg.Col = 1

fg.Row = i

rs![Description] = fg.Text

fg.Col = 2

rs![unit] = fg.Text

fg.Col = 3

rs![qty] = fg.Text

qtyre = fg.Text

fg.Col = 4

rs![unitprice] = fg.Text

fg.Col = 5

rs![amount] = fg.Text

rs![lpono] = Me.Text1

rs.Update

Next

حيث fg هنا هي felx اي نقوم بعمل عداد لقراة البيانات من felx وعملية اضافة مباشرة الى الجدول

الاخوه الاعزاء شكرا لمروركم الكريم

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

abdo.rar

نرجو منك اخي الكريم ارفاق المثال للتعديل علية

الاخ الغالى المثال بالمشاركه السابقه تحت عنوان ( ارفقت لكم قاعده البيانات للتعديل عليها)ربما الفظ خانى وشكرا

اخى ابو شروق انا عندى فكره انت تقدر تعمل جدول مثلا وتسمية temp وبعد كده تبدء تتعامل معاه بشكل مؤقت من إضافة وحذف فى الفلكس جريد ويكون الجدول ده يكون واخد نفس تصميم الجدول اللى انت المفروض بتحفظ فيه الاساسى وبعد كده لما يتم الضغط على أضافة الاصناف الى الجدول الاساسى يتم نقل كل السجلات اللى تم حفظها فى الجدول temp الى الجدول الاساسى وبعد كده يتم حذف الجدول temp

دى طريقة

الاخوه الاعزاء مشكور جدا على مروركم الكريم

الاخ weal abed المشكله تكمن فى انا لما بضيف فى الجريد الاصناف بتاخذ رقم مسلسل طيب لوحبيب احذف صف من الجريد يتم تعديل الارقام المسلسه وعليه بختلف رقم الجريد عن الرقم الموجود فى الجدول لانه لو كنت سيادتك حملت المثال حتلاقى فيه رقم فاتوره ثم ارقام المشتريات فى هذه الفاتوره وده ححتاجه بعدين فى الاستعلام وعمل كشوف الحساب

وشكرا لاهتمامك ،،،،

ابوشروق

اخى وانت ليه تخلى المسلسل من خلال الاكسس طب متخلى من خلال برنامجك الخاص بيك ايه المشكلة ؟؟؟؟؟؟؟؟

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

طيب ياجماعه الكود ده مشى معايا بس بيضيف صف واحد فقط

Dim rs2 As New Recordset

sql = "select*from transin"

rs2.Open sql, cnn, 1, 2

If rs2.EOF = True Then

rs2.AddNew

rep1.Col = 1

rs2("namber") = rep1.Text

rep1.Col = 2

rs2("Name") = rep1.Text

rep1.Col = 3

rs2("unit") = rep1.Text

rep1.Col = 4

rs2("unitprice") = rep1.Text

rep1.Col = 5

rs2("qty_in") = rep1.Text

rep1.Col = 6

rs2("total") = rep1.Text

rep1.Col = 7

rs2("discount") = rep1.Text

rep1.Col = 8

rs2("alltotal") = rep1.Text

rep1.Col = 9

rs2("gevme") = rep1.Text

rep1.Col = 10

rs2("dateout") = rep1.Text

rep1.Col = 11

rs2("idin") = rep1.Text

rs2.Update

End If

MsgBox "ÊãÊ ÇáÇÖÇÝå ÈäÌÇÍ"

rep1.Rows = 1

End If

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

تفضل البرنامج بعد التعديل في المرفقات

abdo.rar

الف شكر اخى ماجد

وكفاك فخرا ان فيكم محمدا الذى قال خيركم من تعلم العلم وعلمه

وماجدا للتابعيين منـــــــارا زاده الله من العلم بســـــــــــــــــــــطه

ونفع به امه الاســـــــــــلام وجعل كل ذلك فى ميزانـــــــــــــــــــــه

لست شاعرا انمــا كلمــــــا شممت ريح محمدا اثــــــــــــــــــــــارو

وفى النهايه لى عندك وصيه ابلغ سلامى الى محمد المختــــــــــــار

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