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


اريد طريقة لحذف بيانات بعد تحديدها من الداتا قريد من خلال CheckBox
الرد }}}}
تم الشكر بواسطة:
#2
حذف البيانات من داخل الداتا كريد فيو من خلال الكود التالي ..........

PHP كود :
Dim psation As Integer BindingContext(User_Table).Position

        If MsgBox
("هل تريد فعلا حذف المستخدم"MsgBoxStyle.YesNo"حذف المستخدم") = MsgBoxResult.Yes Then

            User_Table
.Rows(psation).Delete() 
 
حيث ان User_Table هو اسم الجدول المراد حذف البيانات منه و من خلال الداتا كريد فيو و بالنسبة ل checkbox فاضف انت الشرط المناسب يعني بعد تحديد ال ckeckbox قم بالحذف ............. تحياتي ...
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:
#3

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

الجواب موجود في مشاركتي في موضوعك طباعة السجلات المحددة في الداتا قريد

ضع هذا السطر مع حذف " [ORDER BY [ID "
PHP كود :
Dim sqlString As String " DELETE FROM [table1] " 

بدلاً من هذا السطر
PHP كود :
Dim sqlString As String " SELECT * FROM [table1] " 

يعني من الآخر
PHP كود :
Public Function SqlDataGridViewChecked() As String

    
' تجهيز الجزء الأول من جملة الاستعلام '
    
Dim sqlString As String " DELETE FROM [table1] "

    ' تجميع الأسطر عن طريق تشيك بوكس '
    
Dim w As New List(Of String)
    For 
Each r As DataGridViewRow In Me.DataGridView1.Rows
        
If r.Cells(0).Value True Then w.Add(" ([ID] = " r.Cells("id").Value ") ")
    
Next

    
' تجميع بقية جملة الاستعلام '
    
sqlString &= " WHERE " Join(w.ToArray" OR ")

    If 
w.Count 0 Then Return sqlString

End 
Function 
الرد }}}}
تم الشكر بواسطة: aftfm
#4
الف شكر اخي العزيز وليد ولكن لم يتم الحذف هذا مثال لعملية الطباعة بعد الاختيار من اداة Chickbox

ارجو التعديل عليه


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 108.01 ك ب / التحميلات : 101)
الرد }}}}
تم الشكر بواسطة:
#5

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

المشكلة ليس لدي كريستال ريبورت للتجربة

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

هذا كود Form1 تم تعديله بالكامل تقريباً
PHP كود :
Imports System.Data.OleDb

Public Class Form1

    
Public connString As String "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" Application.StartupPath "\data.mdb"



#Region " Form1_Load "
    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

        
' تعبئة الداتاجريدفيو '
        
FillDataGridView()

    
End Sub
#End Region




    
' زر طباعة المحدد '
#Region " Button1_Click "
    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Me
.Cursor Cursors.WaitCursor

        
' طباعة المحدد '
        
PrintSelections()

        
Me.Cursor Cursors.Default
    
End Sub
#End Region

    
' زر طباعة الكل '
#Region " Button2_Click "
    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        Me
.Cursor Cursors.WaitCursor

        
' طباعة الكل '
        
PrintAll()

        
Me.Cursor Cursors.Default
    
End Sub
#End Region


    
' زر حذف المحدد '
#Region " Button3_Click "
    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        Me
.Cursor Cursors.WaitCursor

        
If MsgBox("هل أنت متأكد من الحذف؟"MsgBoxStyle.Question _
                  MsgBoxStyle
.YesNo MsgBoxStyle.MsgBoxRtlReading _
                  MsgBoxStyle
.MsgBoxRight_
            
MsgBoxResult.Yes _
        Then
            
' حذف المحدد '
            
DeleteSelections()
        
End If

        
Me.Cursor Cursors.Default
    
End Sub
#End Region




    
' تعبئة الداتاجريدفيو '
#Region " FillDataGridView() "
    
Private Sub FillDataGridView()
        Try

            
Using da As New OleDbDataAdapter("SELECT * FROM [persons]"connString)
                
Using dt As New DataTable

                    da
.Fill(dt)

                    
Me.DataGridView1.DataSource dt

                    
' بإمكانك إخفاء عمود في الداتاجريدفيو '
                    ''
Me.DataGridView1.Columns("id").Visible False

                End Using
            End Using

            
' إضافة عمود تشكبوكس في الداتاجريدفيو '
            
AddDataGridViewCheckBoxColumn()

        Catch 
ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub
#End Region


    
' إضافة عمود تشكبوكس في الداتاجريدفيو '
#Region " AddDataGridViewCheckBoxColumn() "
    
Private Sub AddDataGridViewCheckBoxColumn()

        
' إذا وجد عمود تشكبوكس داتاجريدفيو نقوم بحذفه '
        
If Me.DataGridView1.Columns("printCheckBox"IsNot Nothing Then
            Me
.DataGridView1.Columns.Remove("printCheckBox")
        
End If

        
' إنشاء عمود تشكبوكس داتاجريدفيو '
        
Dim clmCheckBox As New DataGridViewCheckBoxColumn

        
' تسمية العمود لاستخدامه بالاسم '
        
clmCheckBox.Name "printCheckBox"

        ' تسمية رأس العمود '
        
clmCheckBox.HeaderText "اختر للطباعة"

        ' إضافة العمود إلى داتاجريدفيو '
        
Me.DataGridView1.Columns.Add(clmCheckBox)

    
End Sub
#End Region


    
' طباعة المحدد '
#Region " PrintSelections() "
    
Private Sub PrintSelections()
        Try

            
' جملة الاستعلام '
            
Dim sqlString As String SqlSelectDataGridViewChecked()

            If 
sqlString <> "" Then

                Using da 
As New OleDbDataAdapter(sqlStringconnString)
                    
Using dt As New DataTable

                        da
.Fill(dt)

                        
' الفورم 2 '
                        
Form2.print(dt)
                        
Form2.ShowDialog()

                    
End Using
                End Using

                ClearDataGridViewCheckBox
()

            
End If

        Catch 
ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub
#End Region


    
' تجهيز جملة الاستعلام '
#Region " SqlSelectDataGridViewChecked() As String "
    
Private Function SqlSelectDataGridViewChecked() As String

        
' تجهيز الجزء الأول من جملة الاستعلام '
        
Dim sqlString As String "SELECT * FROM [persons] "

        ' تجميع الأسطر عن طريق تشيكبوكس '
        
Dim w As New List(Of String)
        For 
Each r As DataGridViewRow In Me.DataGridView1.Rows

            
If r.Cells("printCheckBox").Value True Then
                w
.Add(" ([id] = " r.Cells("id").Value ") ")
            
End If

        
Next

        
' تجميع بقية جملة الاستعلام '
        
sqlString &= " WHERE " Join(w.ToArray" OR ") & " ORDER BY [id] "

        
If w.Count 0 Then Return sqlString

    End 
Function
#End Region


    
' إفراغ تشيكبوكس '
#Region " ClearDataGridViewCheckBox() "
    
Private Sub ClearDataGridViewCheckBox()
        For 
Each r As DataGridViewRow In Me.DataGridView1.Rows
            r
.Cells("printCheckBox").Value False
        Next
    End Sub
#End Region


    
' طباعة الكل '
#Region " PrintAll() "
    
Private Sub PrintAll()
        Try

            
Using da As New OleDbDataAdapter("SELECT * FROM [persons]"connString)
                
Using dt As New DataTable

                    da
.Fill(dt)

                    
' الفورم 2 '
                    
Form2.print(dt)
                    
Form2.ShowDialog()

                
End Using
            End Using

        
Catch ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub
#End Region


    
' حذف المحدد '
#Region " DeleteSelections() "
    
Private Sub DeleteSelections()
        Try

            
' جملة الحذف '
            
Dim sqlString As String SqlDeleteDataGridViewChecked()

            If 
sqlString <> "" Then

                Using conn 
As New OleDbConnection(connString)
                    
Using cmd As New OleDbCommand(sqlStringconn)

                        
' تنفيذ الحذف '
                        
conn.Open()
                        
cmd.ExecuteNonQuery()
                        
conn.Close()

                    
End Using
                End Using

                
' تعبئة الداتاجريدفيو '
                
FillDataGridView()

            
End If

        Catch 
ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub
#End Region


    
' تجهيز جملة الحذف '
#Region " SqlDeleteDataGridViewChecked() As String "
    
Private Function SqlDeleteDataGridViewChecked() As String
        
Try

            
' تجهيز الجزء الأول من جملة الاستعلام '
            
Dim sqlString As String "DELETE FROM [persons] "

            ' تجميع الأسطر عن طريق تشيك بوكس '
            
Dim w As New List(Of String)
            For 
Each r As DataGridViewRow In Me.DataGridView1.Rows

                
If r.Cells("printCheckBox").Value True Then
                    w
.Add(" ([id] = " r.Cells("id").Value ") ")
                
End If

            
Next

            
' عكسنا الترتيب لأن الحلقة تبدأ بالعكس '
            
w.Reverse()

            
' تجميع بقية جملة الاستعلام '
            
sqlString &= "  WHERE  " Join(w.ToArray" OR ")

            If 
w.Count 0 Then Return sqlString

        
Catch ex As Exception
        End 
Try
    
End Function
#End Region


End Class 

هذا كود Form2 تم تعديله
PHP كود :
Public Class Form2

    
Public Sub print(ByVal dt As DataTable)

        
Dim rpt As New CrystalReport1

        rpt
.SetDataSource(dt)

        
CrystalReportViewer1.ReportSource rpt

    End Sub

End 
Class 

الرد }}}}
تم الشكر بواسطة: aftfm
#6
بارك الله فيك الف شكر 10%10
الرد }}}}
تم الشكر بواسطة:
#7
Big Grin 
باقي الحفظ والتعديل من خلال المحدد في DataGridview
الرد }}}}
تم الشكر بواسطة:
#8
قمت بالمحاولة ظهر لدي خطأ في جملة الاضافة

INSERT INTO

لاحظ المثال إذا امكن التعديل عليه

مع ملاحظة ان الحفظ اريده في جدول آخر وليس في نفس الجدول الذي تم استعراض البيانات منه


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 117.08 ك ب / التحميلات : 32)
الرد }}}}
تم الشكر بواسطة:
#9
هل الحفظ من الداتا قريد يختلف عن الحذف والطباعة بالنسبة لموضوعي من خلال المحدد من ChickBox
الرد }}}}
تم الشكر بواسطة:
#10
لم يتم الحفظ من خلال الداتا قريد بعد الاختيار من اداة Chickbox

ارجوا مساعدتي في هذا الموضوع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 27 أمس, 02:14 PM
آخر رد: tryold
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 45 أمس, 11:22 AM
آخر رد: ممدوح الخطيب
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 25 06-12-16, 04:34 PM
آخر رد: Ayman97
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 32 05-12-16, 07:53 PM
آخر رد: kofa
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 125 05-12-16, 03:09 PM
آخر رد: thevirus
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 133 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 71 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 70 01-12-16, 07:04 AM
آخر رد: araxis
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 180 29-11-16, 07:26 AM
آخر رد: amgad525
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 85 24-11-16, 11:40 PM
آخر رد: mohammedbassim

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


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