تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ساعدووني عجزت أعرف احله
#1
Sad 
السلام عليكم..
طبعا واضح من العنوان ساعدووني Sad ..

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

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


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

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

ضعي الكود الذي تتعاملين معه
الرد
تم الشكر بواسطة:
#3
هو طبعا تكون مرتبطة بالاكسس..


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


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


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


الملفات المرفقة
.docx   Public sub changeposition.docx (الحجم : 12.66 ك ب / التحميلات : 28)
الرد
تم الشكر بواسطة:
#4
تفضلي الكود للسؤال الثاني
كود :
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
الرد
تم الشكر بواسطة: العزابي , Basil Abdallah
#5
مساعدةتفضلي الكود للسؤال الثاني
كود :
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..

فماالحل ؟!

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



الملفات المرفقة
.docx   vb3Code.docx (الحجم : 113.09 ك ب / التحميلات : 26)
الرد
تم الشكر بواسطة:
#6
أختي الكريمة، ضعي المشروع لتشغيله والعمل عليه، لأن به أشياء كثيرة تحتاج تعديل.


تم تصحيح كود changeposition في المشاركة السابقة بخصوص ظهور -1
الرد
تم الشكر بواسطة:
#7
هذا تصحيح بسيط لفورم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
الرد
تم الشكر بواسطة:
#8
(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
شكراً حبيبتي..
انتي الحين ضبط معاك ؟!
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ي اخوان التدخل العاجل لمساعدتكم عجزت والله في ربط جدولين مع بعض مرفق لكم نموذج جاهز mohamedgadain61 6 436 23-02-20, 12:39 PM
آخر رد: alsalamoni
Shocked Hard Disk Serial كيف أعرف سيريال الهاردسك الخاصي بي او الرقم التسلسلي ims.ataya 3 4,555 11-02-20, 05:13 AM
آخر رد: mustafa shaker22
  كيف أعرف عدد تكرار أسماء موجودة في نفس العمود في الداتاقريدفيو جيولوجي مبتدئ 1 383 26-12-19, 03:24 AM
آخر رد: اسامه الهرماوي
  كيف أعرف عدد تكرار أسماء موجودة في نفس العمود في الداتاقريدفيو جيولوجي مبتدئ 4 495 25-12-19, 10:00 AM
آخر رد: جيولوجي مبتدئ
  كيف أعرف وجود صفوف مكررة من خلال الداتاقريدفيو جيولوجي مبتدئ 2 468 31-10-19, 03:00 PM
آخر رد: جيولوجي مبتدئ
Exclamation [VB.NET] كيف يمكنني أن أعرف هل تم الضغط على زر نجمة * sniperjawadino 4 867 07-11-18, 07:13 PM
آخر رد: sniperjawadino
  ممكن أعرف ما هو الخطأ فى هذا الباترين ابو روضة 3 704 28-10-18, 11:50 PM
آخر رد: elgokr
  كيف أعرف فارق التوقيت لدولة ما (GMT+) hichem1 3 782 07-06-18, 01:30 AM
آخر رد: hichem1
  [سؤال] ممكن أعرف كيف أعرض بيانات من ملف xml بدون قاعدة بيانات في برنامج الفيجوال بيسك Ahmed jroup 1 774 28-10-17, 08:06 AM
آخر رد: Mohamad Anan
  احتاج مساعدة معقدة عجزت في طباعة صور باركود ب Datagridviwe وطباعتها في Reportviwer mohammed.gadain61 2 933 17-04-17, 05:26 PM
آخر رد: mohammed.gadain61

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم