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

مشكله في الربط

مغلق
بدأه codejava في 4 أبريل 2007 · 4 رد · 597 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أواجهه حاليا مشكله في مشروع التخرج هو عند عمل ربط Sql server 2000 مع VB.net 2003 في التنقلات بين السجل حيث الفورم هو لجدولين مربوطين علما انه استخدمت Sql command وهي insert ,delet, update لكن عند عمل التنقلات يطلع خط في ال position عملت مثل الselect اي txtId.Text= DS.Taplesname(pos).columnname رجاء تحديد عمل المتغر pos من نوع int بشكل صحيح بين السجلات للجدولين

#2

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

Me.BindingContext(ds, "Table").Position += 1

هذا على ما اعلم وعلى مافهمت من رسالتك اعذرنى لو اخطات وليغفر ليا الله(ما اريد الا الاصلاح مااستطعت...)

لن تبلغ المجد حتى تلعق الصبرااااااااا

#4

أرسل لكم جزء من الكود لمعرفة الخلل

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

هنا للإتصال بالسيرفير

DS11.Clear()

DS21.Clear()

SqlDataAdapter1.Fill(DS11, "Patients")

SqlDataAdapter2.Fill(DS21, "Companion")

pos = DS11.Patients.Count - 1

inc = -1

pno = DS11.Patients(pos).Patient_no

If pno <= 0 Then

txtPNo.Text = 1

Else

txtPNo.Text = pno + 1

End If

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

If inc <> pos Then

inc = Me.BindingContext(DS11, "Patients").Position + 1

navRec()

Else

MsgBox("no more rows")

End If

End Sub

Private Sub btnPrve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrve.Click

If inc > 0 Then

inc = Me.BindingContext(DS11, "Patients").Position - 1

navRec()

Else

MsgBox("we are in first row or no records intered")

End If

End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

inc = 0

navRec()

End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

inc = Me.BindingContext(DS11, "Patients").Count - 1

navRec()

End Sub

حيث الداله navRec() هي

ربط لل لText اي

txtId txtPNo.Text = DS11.Patients(inc).Patient_no

txtCName.Text = DS21.Companion(inc).Com_name

هذا فقط جزء من الكود كمثال


      
      

      
    

  

    
    

      
#5
        
        

      
مازلت أنتظر ردكم

      
      

      
    

  

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

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