[iFayfoy]

السلام عليكم..
طبعا واضح من العنوان ساعدووني ..

س/ عند حذف سجل بقاعدة البيانات وضغطنا ok يخرج من الفورم عى طول ويظهر -1 من -1 في ال lable عند التنقل بين السجلات.. المطلوب تعديله..

س/ ما هو الكود الذي يجعل كلمة : لا يوجد سجل سابق عند الضغط على زر سجل سابق ولا يوجد سجل تالي عند الضغط على زر سجل تالي ظاهرة في label باستخدام الif statement ؟

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

[مساعدة]

السلام عليكم

كيف طريقتكم في التعامل السجلات؟

---

ضعي الكود الذي تتعاملين معه

[iFayfoy]

هو طبعا تكون مرتبطة بالاكسس..

شوفي اللي ادرجته بالوورد..

كذا تكون معاملتي مع السجلات..

اذا تبين زياده قولي لي..

[مساعدة]

تفضلي الكود للسؤال الثاني

كود :

Public Sub changeposition()
   lable.Text = "السجل " & Me.bidingcontext(dataset1, "table1").Position + 1 & " من " & _
   Me.bidingcontext(dataset1, "table1").Count

   If Me.bidingcontext(dataset1, "table1").Position = Me.bidingcontext(dataset1, "table1").Count - 1 Then
       lable.Text = "لا يوجد سجل تالي"
   End If

   If Me.bidingcontext(dataset1, "table1").Position = 0 Then
       lable.Text = "لا يوجد سجل سابق"
   End If

   If Me.bidingcontext(dataset1, "table1").Count = 0 Then
       lable.Text = "لا يوجد سجلات"
   End If

End Sub

---

السؤال الاول لم يتم توضيح كود الحذف المستخدم.

---

تم تصحيح كود changeposition بخصوص ظهور -1

[iFayfoy]

مساعدةتفضلي الكود للسؤال الثاني

كود :

Public Sub changeposition()
   lable.Text = "السجل" & Me.bidingcontext(dataset1, "table1").Position & "من" & _
   Me.bidingcontext(dataset1, "table1").Position - 1

   If Me.bidingcontext(dataset1, "table1").Position = Me.bidingcontext(dataset1, "table1").Count - 1 Then
       lable.Text = "لا يوجد سجل تالي"
   End If

   If Me.bidingcontext(dataset1, "table1").Position = 0 Then
       lable.Text = "لا يوجد سجل سابق"
   End If

   If Me.bidingcontext(dataset1, "table1").Count = 0 Then
       lable.Text = "لا يوجد سجلات"
   End If

End Sub

---

السؤال الاول لم يتم توضيح كود الحذف المستخدم.

كذا يصير احط البوتون داخل جملة الشرط ؟

وبالنسبة للسؤال الاول هو :

الاكسس تكون مرتبطة بقواعد البيانات..
اذا حذفنا واحد من السجلات بواسطة البوتن اللي بالفيجوال..
على طول يطلع بالليبل -1 من -1..

فماالحل ؟!

شوفي ادرجت الاكواد اللي تبغانا نسوي عليها..

[مساعدة]

أختي الكريمة، ضعي المشروع لتشغيله والعمل عليه، لأن به أشياء كثيرة تحتاج تعديل.

---

تم تصحيح كود changeposition في المشاركة السابقة بخصوص ظهور -1

[مساعدة]

هذا تصحيح بسيط لفورم1 Form1

كود :

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Dim dbcon As New OleDb.OleDbConnection(My.Settings.Database1ConnectionString)
    Dim dataset1 As New DataSet
    Dim Sql As String


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dataset1.Reset()
        '   امر ال SQL
        Sql = "select * from table1"
        ' فتح قواعد البيانات
        dbcon.Open()
        'جلب البياتات مباشرة من الملف وتخزينها في قاعدة بيانات وسيطة خاصة بال SQL
        Dim dataadapter1 As New OleDb.OleDbDataAdapter(Sql, dbcon)
        ' ملء قاعدة بيانات ال VB
        dataadapter1.Fill(dataset1, "table1")
        'اغلاق قواعد البيانات
        dbcon.Close()

        ' textbox عند التحميل: عرض السجلات في

        TextBox1.DataBindings.Add("text", dataset1, "table1.name")
        TextBox2.DataBindings.Add("text", dataset1, "table1.city")
        TextBox3.DataBindings.Add("text", dataset1, "table1.mobile")


        changeposition()
    End Sub
    Public Sub changeposition()
        Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من " & _
            Me.BindingContext(dataset1, "table1").Count

        Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من" & _
Me.BindingContext(dataset1, "table1").Count

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.BindingContext(dataset1, "table1").Position = 0
        changeposition()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.BindingContext(dataset1, "table1").Position -= 1
        changeposition()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.BindingContext(dataset1, "table1").Position += 1
        changeposition()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Me.BindingContext(dataset1, "table1").Position = Me.BindingContext(dataset1, "table1").Count
        changeposition()
    End Sub


    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        سجل.Show()
        Me.Close()
    End Sub

    Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        ' Me.Close()
        Application.Exit()
    End Sub

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        Me.Hide()
        Form4.Show()

    End Sub

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel, "تاكيد عملية الحذف") = MsgBoxResult.Cancel Then
            Exit Sub
        End If

        Dim sql1 As String
        sql1 = Sql
        Sql = "delete from Table1 where mobile=" & TextBox3.Text & ""
        Dim delete1 As New OleDbCommand(Sql, dbcon)
        dbcon.Open()
        'امر لتنفيذ اوامر ال SQL السابقة
        delete1.ExecuteNonQuery()
        'اغلاق قواعد البيانات
        dbcon.Close()


        dataset1.Clear()
        Dim dataadapter1 As New OleDbDataAdapter(sql1, dbcon)
        dataadapter1.Fill(dataset1, "table1")

        changeposition()


        MsgBox(" تمت عملية الحذف من قاعدة البيانات")
    End Sub


End Class

[iFayfoy]

(02-01-17, 12:23 AM)مساعدة كتب : هذا تصحيح بسيط لفورم1 Form1

كود :

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

   Dim dbcon As New OleDb.OleDbConnection(My.Settings.Database1ConnectionString)
   Dim dataset1 As New DataSet
   Dim Sql As String


   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       dataset1.Reset()
       '   امر ال SQL
       Sql = "select * from table1"
       ' فتح قواعد البيانات
       dbcon.Open()
       'جلب البياتات مباشرة من الملف وتخزينها في قاعدة بيانات وسيطة خاصة بال SQL
       Dim dataadapter1 As New OleDb.OleDbDataAdapter(Sql, dbcon)
       ' ملء قاعدة بيانات ال VB
       dataadapter1.Fill(dataset1, "table1")
       'اغلاق قواعد البيانات
       dbcon.Close()

       ' textbox عند التحميل: عرض السجلات في

       TextBox1.DataBindings.Add("text", dataset1, "table1.name")
       TextBox2.DataBindings.Add("text", dataset1, "table1.city")
       TextBox3.DataBindings.Add("text", dataset1, "table1.mobile")


       changeposition()
   End Sub
   Public Sub changeposition()
       Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من " & _
           Me.BindingContext(dataset1, "table1").Count

       Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من" & _
Me.BindingContext(dataset1, "table1").Count

   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Me.BindingContext(dataset1, "table1").Position = 0
       changeposition()
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       Me.BindingContext(dataset1, "table1").Position -= 1
       changeposition()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       Me.BindingContext(dataset1, "table1").Position += 1
       changeposition()
   End Sub

   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
       Me.BindingContext(dataset1, "table1").Position = Me.BindingContext(dataset1, "table1").Count
       changeposition()
   End Sub


   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
       سجل.Show()
       Me.Close()
   End Sub

   Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
       ' Me.Close()
       Application.Exit()
   End Sub

   Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
       Me.Hide()
       Form4.Show()

   End Sub

   Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
       If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel, "تاكيد عملية الحذف") = MsgBoxResult.Cancel Then
           Exit Sub
       End If

       Dim sql1 As String
       sql1 = Sql
       Sql = "delete from Table1 where mobile=" & TextBox3.Text & ""
       Dim delete1 As New OleDbCommand(Sql, dbcon)
       dbcon.Open()
       'امر لتنفيذ اوامر ال SQL السابقة
       delete1.ExecuteNonQuery()
       'اغلاق قواعد البيانات
       dbcon.Close()


       dataset1.Clear()
       Dim dataadapter1 As New OleDbDataAdapter(sql1, dbcon)
       dataadapter1.Fill(dataset1, "table1")

       changeposition()


       MsgBox(" تمت عملية الحذف من قاعدة البيانات")
   End Sub


End Class

شكراً حبيبتي..
انتي الحين ضبط معاك ؟!