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

بياناتي تخزن بطريقة خاطئة في قاعدة البيانات

مغلق
بدأه haking33 في 28 ديسمبر 2005 · 15 رد · 1,025 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

في هذه الصورة تتضح مشكلتي ...

يبق وأن طرحت المشكله وأرسل لي الحل لكن لم أفهم الكود المرسل ، لكني أرفق صورة بالمشكلة التي تحدث معي

وهو عندما أقوم بحفظ السجل بالطريقة العادية rs.add فإن ما يحدث في قاعدة البيانات هو أن تخزن بطريقة خاطئة

كما أن عمل التالي rs.next وكذلك السجل السابق والأول والأخير لا يعطيان السجلات الصحيحة ....

هذه هي الكودات المستخدمة في الربط في الموديل

Public Sub Countions()
  Set db = New ADODB.Connection
  db.CursorLocation = adUseClient
  m_ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=" & _
           "Microsoft.Jet.OLEDB.4.0;Data Source=" & _
           "" & App.Path & "\takamol.mdb;Jet OLEDB:" & _ ' اسم قاعدة البيانات
           "Database Password=;"
  db.Open m_ConnectionString

End Sub

وهذه المستخدمة في زر الإضافة

Dim deleartable As New ADODB.Recordset

If deleartable.State = adStateOpen Then deleartable.Close
deleartable.Open "dealers", db, adOpenDynamic, adLockOptimistic

deleartable.AddNew
    With deleartable
    
    ![Dealer_Code] = Text1.Text
    ![Dealer_Name1] = Text2.Text
    ![Dealer_Name2] = Text3.Text
    ![Address_1] = Text4.Text
    ![Address_2] = Text5.Text
    ![Tel_No_1] = Text6.Text
    ![Tel_No_2] = Text7.Text
    ![Fax_No_1] = Text8.Text
    ![Fax_No_2] = Text9.Text
    ![Mobile_No] = Text10.Text
    ![Contact_Person] = Text11.Text
    ![e_mail] = Text12.Text
    ![Tap_Dealer] = Combo1.Text
'
    deleartable.Update
deleartable.close
set deleartable = nothing

وبنفس الطريقة في التالي

Dim deleartable As Recordset
Set deleartable = db.OpenRecordset("dealers", dbOpenTable)
If deleartable.EOF Then
    MsgBox "this is the last record", , "oh"
Else
deleartable.MoveNext
    Text1.Text = deleartable![Dealer_Code]
    Text2.Text = deleartable![Dealer_Name1]
    Text3.Text = deleartable![Dealer_Name2]
End If
deleartable.Close
Set deleartable = Nothing

وتم إضافة الإستدعاء في الفورم المطلوب

وهكذا فما المشكله ؟؟؟؟

الموضوع مهم يا شباب أنا على طور إخراج برنامج وهذه العوائق أمامي جامدة ...

#2

ماهي الصورة الخاطئة التي حفظ فيها البيانات ؟

460.gif

#3

اخي العزيز ارفق مثالك ليتم التعديل عليه

158.gif

هناك فرق بين أن تكبر بالعمر

، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
 
 

164684_514411088579476_442405016_n.jpg

#4

هذه الصورة يا شاب

post-16729-1135887203_thumb.gif

#5

على فكرة يا شباب أنا أعمل على أكسس 2003

ولما حولت إلى 97 النتائج مختلفة لكن خاطئة أيضا

أنتظر جوابكم أساتذتي المحترمين

#6

مشكلتك بسيطة ان شاء الله

علي حد علمي هذا يحدث عندك لأن نوع الحقل Text و بالتالي فهو يعامل الارقام علي انها نصوص و يرتبها أيضا علي أنها نصوص !!!

و بالتالي الحل هو ان تغير هذا الحقل الي integer او long أو اي شكل رقمي اخر

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

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

و الحل أيضا أن ترتب البيانات بنفسك مثلا

rs.open "select * from emp order by empid", cn, 1, 3

أرجوا ان تحل مشكلتك و أتمني لك التوفيق

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#7

لا زالت المشكلة يا شباب حاولت بأكثر من طريقة هذا هو البرنامج إذا أحد يستطيع معالجة الأمر

القضية الأكبر أنني لما ‘مل نكست تعمل للمرة الأولى لكن لما أعملها للمرة الثانية لا يتحرك السجل ولا البيانات وأما زر الخلف فأبدا ما يعمل ، منتظر جواب أحد الأخوة الخبراء

New.rar

#8

اخي العزيز المشكلة التي رأيتها من وجه نظري هي في الكود وسوف يتم تعديله وارساله ونرجو الصبر بعض الوقت كوني مشغول

158.gif

هناك فرق بين أن تكبر بالعمر

، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
 
 

164684_514411088579476_442405016_n.jpg

#9

ما ادري اخي العزيز المثال الذي ارفقته ناقص ام ماذا كوني عملت اضافة وطلعت لي حقول غير مضافه في قاعدة البيانات

وايضاً الكود غير مطابق لمتطلبات القاعدة

158.gif

هناك فرق بين أن تكبر بالعمر

، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
 
 

164684_514411088579476_442405016_n.jpg

#10

الغى هذه الجملة من تعريف ال connection

PROVIDER=MSDataShape;

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

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

من مواضيعى :

--------------

دروس تعلم كيف تصحح أخطائك بنفسك

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#11

عزيزي

الداتا تايب المستخدمه لديك في جدولك عباره عن text لكي تعمل Acesnding او Deacesnding للارقام لازم تستخدم الداتاتايب كرقم او عمله

#12

ثانيا المؤشر adOpenDynamic استبدله بالمؤشر adOpenStatic حتى تتصفح بدون مشاكل movenext

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

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

من مواضيعى :

--------------

دروس تعلم كيف تصحح أخطائك بنفسك

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#13

أخي العزيز الفوارس2000 نعم فعلا بعض الحقول ناقصة في الفورم لكن المشكله بشكل عام هي ما أريد حلها بغض النظر عن الحقول الآخرى

أنتظر تعديلك للكود ..

أخي العزيز VB6-Rocket جربت نصيحتك ، وقمت بتغيير adOpenDynamic لكن نفس المشكلة يظهر السجل التالي مرة واحدة فقط بشكل صحيح ولكن عندما أضغط الزر مرة ثانية لا يستجيب .

#14

يا ريت ترفق البرنامج

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

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

من مواضيعى :

--------------

دروس تعلم كيف تصحح أخطائك بنفسك

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#15

اخي العزيز سوف يتم التعديل بشكل كامل على مثالك في الاتصال والحفظ وتقدم السجلات

ولكن ارجو الصبر لكوني حالياً مشغول

158.gif

هناك فرق بين أن تكبر بالعمر

، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
 
 

164684_514411088579476_442405016_n.jpg

#16

بالنسبه وعلى المستعجل حسب 

'كود امر التالي
Private Sub Command1_Click()
     On Error Resume Next
       deleartable.MoveNext
            Text1.Text = deleartable![Dealer_Code]
            Text2.Text = deleartable![Dealer_Name1]
            Text3.Text = deleartable![Dealer_Name2]
           
End Sub

'كود امر السابق
Private Sub Command2_Click()
   On Error Resume Next
       deleartable.MovePrevious
            Text1.Text = deleartable![Dealer_Code]
            Text2.Text = deleartable![Dealer_Name1]
            Text3.Text = deleartable![Dealer_Name2]
     
End Sub

وآمل الرد اذا تناسب معك وانحلت مشكلتك ام لا

وارجو تبليغي على الخاص بعد طرح رد لا ن خاصية التبليغ لا تعمل لا تابع موضوعك

158.gif

هناك فرق بين أن تكبر بالعمر

، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
 
 

164684_514411088579476_442405016_n.jpg

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…