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

تشوه قاعدة البيانات

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

بسم الله الرحمن الرحيم

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

سبحان الله وبحمده سبحان الله العظيم

s.gif

#2

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

اذيك اخ مسلم

اقتباس
وبعد كده على طول أروح أعدل وأحفظ التعديل العميه

لماذا تقوم بفعل هذه العمليه بعد عملية البحث ؟

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#3

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

وفقك الله اخوك مهند

#4

اخ moslem_12002

اقتباس
يعنى هخلى السجل يتحرك للاول لحد ما يوصل للاخر

كيف تتم عملية البحث هل بجمل التكرار أم بجمل الاستعلام أم بخصائص ADO !

فكل عملية لها نهاية وعليك عند الانتهاء منها اعادة ما كنت عليه ... وسأوضح لك الامر بعد ان تجيب على السؤال

تم تعديل هذه المشاركة بواسطة HnHn في 4 مايو 2007 في 13:06

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#5

بسم الله الرحمن الرحيم

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

وعلى العموم يأخوانى هذا الكود اذى أستخدمته فى عملية البحث وهو بحث بدلالة الموجود فى combobox

If nb.RecordCount = 0 Then
Beep
msg "áÇ ÊæÌÏ ÈíÇäÇÊ ãÓÌáå", ""
Exit Sub
End If
'''''''''''''''''''
If Combo4.Text = "ÃÓã ÇáÚÖæ" Or Combo4.Text = "" Then	 'Ýì ÍÇáÉ ÞíÇã ÇáãÓÊÎÏã ÈÚÏã ÃÎÊíÇÑ ÃòÓã æÇáÖÛØ Úì ÈÍË
Beep
msg "ÃÎÊÑ ÃÓã ÚÖæå áÃÊãÇã ÚãáíÉ ÇáÈÍË", "ÎØÃ"
Exit Sub
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''
nb.MoveFirst
nb.Find "n1='" + Combo4.Text + "'"
If nb.EOF Then
Call clear
Set DataGrid1.DataSource = Nothing
Combo4.Text = "ÃÓã ÇáÚÖæ"
button5.Enabled = False
button6.Enabled = True
Beep
msg "ÇáÃÓã ÛíÑ ãÓÌá", "äÊíÌÉ ÇáÈÍË"
Exit Sub
End If
''''''''''''''''''''
Call found
'''''''''''''''''
Dim kl As New ADODB.Recordset
kl.ActiveConnection = cn
kl.Source = "select n1 as [ÇáÃÓã],n2 as [ÇáÚäæÇä],n3 as [ÊÇÑíÎ ÇáÊÓÌíá],n4 as [ÊÇÑíÎ ÇáÃäÊåÇÁ],n5 as [ÇáÔåÑ],n6 as [ÞíãÉ ÇáÃÔÊÑÇß],n7 as [ÇáãÈáÛ ÇáãÏÝæÚ],n8 as [ÇáãÈáÛ ÇáãÊÈÞì],n11 as [åÇÊÝ ÇáãäÒá],n12 as [ÇáãÍãæá] from bkarat where n1='" + Combo4.Text + "'"
kl.CursorType = adOpenDynamic
kl.LockType = adLockOptimistic
kl.CursorLocation = adUseClient
kl.Open
Set DataGrid1.DataSource = kl
''''''''''''''''''''''''''''''''''''''''''''
If Text8.Text = "" Then
Image1.Picture = LoadPicture()
Exit Sub
End If
Image1.Picture = LoadPicture(App.Path & "\pic8\" + Text8.Text + ".jpg")

سبحان الله وبحمده سبحان الله العظيم

s.gif

#6

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

اشكرك

Call found

ما وظيفة هذا الاجراء

Dim kl As New ADODB.Recordset
kl.ActiveConnection = cn
kl.Source = "select n1 as [C????],n2 as [C????C?],n3 as [EC??I C?E????],n4 as [EC??I C???E?C?],n5 as [C?O??],n6 as [???E C??OE?C?],n7 as [C??E?U C??I???],n8 as [C??E?U C??EE??],n11 as [?CE? C?????],n12 as [C??????] from bkarat where n1='" + Combo4.Text + "'"
kl.CursorType = adOpenDynamic
kl.LockType = adLockOptimistic
kl.CursorLocation = adUseClient
kl.Open
Set DataGrid1.DataSource = kl

هو انت بتعيد البحث مره اخرى

where n1='" + Combo4.Text + "'"

ولا ايه ؟

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#7

بسم الله الرحمن الرحيم

أخى A7med_prof أنا أبنى البرامج الخاصه بى على أساس البرامج الفرعيه اى اننى أكتب ما أريد فيها ثم أستدعيها يوفر على ذلك عدم كتابة الاكواد فى الفورم مثال ذلك

found

حيث أننى أكتب فيه كود كالتالى

text1.text=rs("r1")
text2.text=rs("r2")

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

Dim kl As New ADODB.Recordset
kl.ActiveConnection = cn
kl.Source = "select n1 as [C????],n2 as [C????C?],n3 as [EC??I C?E????],n4 as [EC??I C???E?C?],n5 as [C?O??],n6 as [???E C??OE?C?],n7 as [C??E?U C??I???],n8 as [C??E?U C??EE??],n11 as [?CE? C?????],n12 as [C??????] from bkarat where n1='" + Combo4.Text + "'"
kl.CursorType = adOpenDynamic
kl.LockType = adLockOptimistic
kl.CursorLocation = adUseClient
kl.Open
Set DataGrid1.DataSource = kl

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

where n1='" + Combo4.Text + "'"

وده أكيد انت تعرف انه هوه اللى بيدى القيمه الجديده للداتاجريد وشكرا أخى العزيز على تفاعلك مع أسئلتى

سبحان الله وبحمده سبحان الله العظيم

s.gif

#8
اقتباس
أخى A7med_prof أنا أبنى البرامج الخاصه بى على أساس البرامج الفرعيه اى اننى أكتب ما أريد فيها ثم أستدعيها يوفر على ذلك عدم كتابة الاكواد فى الفورم

انا فاهم ولكني كنت اريد معرفة الوظيفه الذي يقوم بها هذا الاجراء

على العموم بدل اللفه دي كلها طيب ما تعمل فلتر !!

انظر الى هذا المثال zip.gif How_To_Use_Filter.zip ( 19.37k )

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#9

أول مره أعرف ان فيه فلتر مع الادو او مع قاعدة البيانات عموما بس انا شايف ان هوه زى like يعنى أختلاف بسيط بس المشكله برده مازلت قائمه انا عارف انى مدوخ الكل معايه بس معلش

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

لما يبحث عن قيمه وميلقيش أمسح كل اللى فى التكستات

وأكتب فى أول كود التعديل والحذف

if text1.text=""then
beep
msgbox"حدد عميل ليتم تعديل بيانته"
exit  sub
end if

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

dim hh as new adodb.Recordset

وبستخدم المخزن hh فى البحث بس ,rsفى باقى العمليات من حفظ وتعديل مع العلم ان الاتنين بيفتحوا جدول واحد

وبستخدم قبل كود الاستدعاء

hh.close
hh.open

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

سبحان الله وبحمده سبحان الله العظيم

s.gif

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

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