28-11-14, 03:08 PM
28-11-14, 09:09 PM
السلام عليكم ورحمة الله
هذه طريقتين تنشئ لك جملة استعلام جاهزة، ما عليك إلا استخدامها بطريقتك
الأولى: لو كنت تحدد الأسطر عن طريق تحديدها بالماوس
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MsgBox(SqlDataGridViewSelections)
End Sub
Public Function SqlDataGridViewSelections() As String
' تجهيز الجزء الأول من جملة الاستعلام '
Dim sqlString As String = " SELECT * FROM [table1] "
' تجميع الأسطر عن تحديدها بالماوس '
Dim w As New List(Of String)
For Each r As DataGridViewRow In Me.DataGridView1.SelectedRows
w.Add(" ([ID] = " & r.Cells("id").Value & ") ")
Next
' تجميع بقية جملة الاستعلام '
sqlString &= " WHERE " & Join(w.ToArray, " OR ") & " ORDER BY [ID] "
If w.Count > 0 Then Return sqlString
End Function
الثانية: لو كنت تحدد الأسطر عن طريق عمود يكون تشيك بوكس
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MsgBox(SqlDataGridViewChecked)
End Sub
Public Function SqlDataGridViewChecked() As String
' تجهيز الجزء الأول من جملة الاستعلام '
Dim sqlString As String = " SELECT * 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 ") & " ORDER BY [ID] "
If w.Count > 0 Then Return sqlString
End Function
28-11-14, 11:22 PM
ممكن مثال حيث ان الموضوع مفيد وهام للجميع