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

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

اذيك اخ مسلم

اقتباس

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

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

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

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

اخ moslem_12002

اقتباس

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

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

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

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

أولا وقبل كل شى الف مبروك أخ 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")

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

اشكرك

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 أنا أبنى البرامج الخاصه بى على أساس البرامج الفرعيه اى اننى أكتب ما أريد فيها ثم أستدعيها يوفر على ذلك عدم كتابة الاكواد فى الفورم مثال ذلك

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 + "'"

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

اقتباس

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

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

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

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

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

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

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

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

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

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

dim hh as new adodb.Recordset

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

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

hh.close
hh.open

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