الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ما هو الخطا فى هذا الكود

مغلق
بدأه kokogogo2000 في 1 أبريل 2006 · 6 رد · 626 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدى مشكلة هى عندما اعمل update فى MSFlexGrid1 يحفظ كل الملفات ذى اول ملف

بمعتى عندى فى MSFlexGrid1 جدول اسمة الاسم العنوان المرتب

محمد السعودية 500

احمد دبى 600

عند عمل update اكتشف فى الداتا بيس انها اصبحت الاسم العنوان المرتب

محمد السعودية 500

محمد السعودية 500

مش عارف السبب اية

الكود الى انا استخدمة هو

dbrs3.Open "select * from calls where CompanyID=" & Label31.Caption & "", cn, adOpenStatic, adLockOptimistic

Do Until dbrs3.EOF

dbrs3("CallType") = MSFlexGrid1.TextMatrix(i, 0)

dbrs3("CallDate") = MSFlexGrid1.TextMatrix(i, 1)

dbrs3("CallTime") = MSFlexGrid1.TextMatrix(i, 2)

dbrs3("Subject") = MSFlexGrid1.TextMatrix(i, 3)

' dbrs3("Notes") = MSFlexGrid1.TextMatrix(i, 6)

dbrs3.Update

dbrs3.MoveNext

Loop

dbrs3.Close

MsgBox "Data Saved", vbInformation, "administrator"

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

#2

فضلا ارفق الملف هنا حتى يتم تعديله

460.gif

#3

يجب عليك أن تحدد السجل بعينه الذي تريد إجراء العملية عليه

lxcs.png

syria-flag_small.jpg

#4

السلام عليكم

الخطاء بسيط كل ما في الامر هو انك تضيف السطر ده

i=i+1

و الكود هيشتغل كويس ان شاء الله

يعني الكود بتاعك يكون كده

dbrs3.Open "select * from calls where CompanyID=" & Label31.Caption & "", cn, adOpenStatic, adLockOptimistic

Do Until dbrs3.EOF
dbrs3("CallType") = MSFlexGrid1.TextMatrix(i, 0)
dbrs3("CallDate") = MSFlexGrid1.TextMatrix(i, 1)
dbrs3("CallTime") = MSFlexGrid1.TextMatrix(i, 2)
dbrs3("Subject") = MSFlexGrid1.TextMatrix(i, 3)
' dbrs3("Notes") = MSFlexGrid1.TextMatrix(i, 6)
dbrs3.Update
dbrs3.MoveNext
i=i=1
Loop
dbrs3.Close

بس كده

انا اقترح عليك انك تعمل loop علي ال MSFlexGrid1 ثم تعمل AddNew نفذ الامر ده الاول "Delete from calls "

ليه بقول اعمل addnew

لانك لو عملت اضافة ل سجلات جديده في الMSFlexGrid1 مش هتضاف عندك في الdatabase لانك بتعمل ال Loopعلي ال RecordSet مش ال MSFlexGrid1

معلش طولت عليك

سلام

#5

شكرا اخى العزيز على اهتمامك

انا عايز اعمل حاجة اخرى عايز اضيف لاول مرة ثم بعد ما اشوفهم من الداتا بيس فى الفليكس جريد يتم التعديل على احداهما واضافة اخرى

بمعنى عايز طريقة احفظ بها لو يعرف كم واحد جديد ويسجلة جديد وكم واحد تم التعديل فية ويعدلة فى الداتا بيس

#6

ممكن تعمل bound بين ال Grid و ال RecordSet

#7

شكرا اخى ممكن تعطينى ميثال اشكرك

هذا الموضوع مغلق.

مواضيع مشابهة