طلب لشرح و إصلاح كود برمجي

اخي الكريم

اولا موضوعك مخالف لقوانين المنتدى

ثانيا لم تقول لنا ماهي رسالة الخطا

ثالثا نص الكود طالع على شكل ابتسامات

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

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

Private Sub aprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aprev.Click
Dim G As Integer
Dim B As Integer
B = M
G = ds1.Tables(0).Rows.Count
B = B - 1
If B >= G Then
conn1.Open()
sid.Text = ds1.Tables(0).Rows( B) (0)
sname.Text = ds1.Tables(0).Rows( B) (1)
If ds1.Tables(0).Rows( B) (2) = "mail" Then
ge.Checked = True
Else
ge.Checked = False
End If
addre.Text = ds1.Tables(0).Rows( B) (3)
sphone.Text = ds1.Tables(0).Rows( B) (4)
amu.Text = ds1.Tables(0).Rows( B) (5)
datee.Text = ds1.Tables(0).Rows( B) (6)
conn1.Close()
Else
MsgBox("you are arrive at first record ", MsgBoxStyle.Information, "information message")

End If
End Sub

واذا في أي شي مانو واضح رح حاول وضحوا بس انتو قلولي عليه وشكرا كتير الكون

أختكم في الله

(مشاركة فارغة)

تم التعديل, الان يمكن قراءة الشفرة بصورة أوضح.

أما بخصوص المخالفة فالأخ ينبه إلى ضرورة الالتزام باختيار عنوان مناسب أكثر للموضوع يناسب نص الوضوع بشكل أكبر.

أمر آخر يرجى الالتزام بالكتابة باللغة العربية الفصحى قدر الإمكان, اللهجة السورية غير مفهومة للكثيرين.

السلام عليكم

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

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

وشكرا على المشاركات السابقة و خاصة للأخ xacker على المساعدة في المشكلة التي كانت عم تواجهني في الكتابة بالمنتدى.

أختكم في الله meme

السلام عليكم

كما ذكر الاخوة الكرام, لوكنتي عرضتي رسالة الخطأ, لعُرف سببها!!!

فإن لم تكن هنالك رسالة خطأ , فأظن والله أعلم أنكِ لم تقومي بعملية التعبئة أصلاً؟؟؟

على كل حال , ربما لم يكون الامر كذلك فعملية التعبئة Fill Statement ضرورية لجلب البيانات.

لانه في النصوص البرمجية المعروضة لا يوجد عنصر يقوم بجلب البيانات

كذلك لا داعي لعملية فتح و اغلاق الاتصال , على الاقل في هذا الكود ..

إذا كنتي تستخدمين العنصر DataAdapter فهو يتولى عملية فتح و إغلاق الاتصال, لكن لابد أن تقومي بعملية التعبئة

بهذا الشكل

myDataAdapter.Fill(DataSet)

والله أعلم..

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

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

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

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

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

أختكم في الله meme

السلام عليكم

عدم وضع ملامح و تعليقات على النصوص, تُصبِح مبهمة غير واضحة المعالم.

على كلِ حال. الامر لا يحتاج إلى هذا التعقيد...

و عن طريق الـ BindingManagerBase تكون الامور ايسر و اسهل من ذلك كله..

إليك ذلك.

في الكود الاسفل قمنا بتعريف عنصر من BindingManagerBase وتم ربطه بالجدول المراد الابحار فيه.

   'Manager Base Of Context Binding Controls
	Dim BindMBase As BindingManagerBase

BindMBase = Me.BindingContext(DataSet,"TableName")

الان للذهاب للصف السابق نقوم بالتالي:

If BindMBase.Position > 0 Then
BindMBase.Position -=1
End If

بالتوفيق إن شاء الله.

وعليكم السلام

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

لم أجد أي شي عن هذه الأداة (هاذا ما فهمته انها أداة او عنصر) BindingManagerBase ولكن الفيجول لم يعترض على الكود أبدا وحاولت عندما لم ينجح الكود مع الزر السابق فقد استخدمته لبرمجة الزر التالي بأن غيرت على الشكل التالي :

  BindMBase = Me.BindingContext(DataSet,"TableName")	  *
If BindMBase.Position < 0 Then
BindMBase.Position +=1
 End If

ومع ذلك فهو لم ينفذ اضافة الى انه يظهر الرسالة التالية:

وأيضا نفس الرسالة تظهر رغم أنني حاولت مرة أخرى بعد ما قمت بعملية التعبئة كالتالي :

da1.fill(ds1)

أي : ds1:data set da1:data adapter

وبالنهاية لم أستطع جعل الزر ينفذ عمله المطلوب فما هو العنصر BindingManagerBase

وهو يعترض عند السطر الذي بجواره نجمة (*)

للأسف لم أستطع ارفاق الصورة لرسالة الخطأ فاذا ولو من اللممكن ان تدلوني عالطريقة لأرفقها

السلام عليكم

أختي أحسن اللهُ إليكي

النصوص معروضة كمثال فقط

و التعديل يطرأ منكم بحيث تغيرين كل من DataSet إلى ds1 حسب الموجود لديكي بالمشروع

و تغيرين الـ TableName إلى اسم الجدول الذي تودين الابحار فيه .

بالتوفيق إن شاء الله.

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

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

meme أختكم في الله