29-03-14, 12:47 AM
السلام عليكم
يمكنك تجربة هذا الكود
هو يقوم ب اخذ IDtb من DGView ويقارنو من الجدول وتتم العمليه اذا كانت عملة تعديل او حذف
If Me.DGView.Rows.Count > 0 Then
If Me.DGView.SelectedRows.Count > 0 Then
Dim intStdID As Integer = Me.DGView.SelectedRows(0).Cells("IDtb").Value
If Not conn.State = ConnectionState.Open Then
conn.Open()
End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = conn
cmd.CommandText = "DELETE FROM table1 WHERE IDtb=" & intStdID
If cmd.ExecuteNonQuery() Then
MsgBox("تمت إضافة عملية المسح بنجاح", MsgBoxStyle.Information)
Me.RefreshData()
End If
conn.Close()
End If
End If
يمكنك تجربة هذا الكود
هو يقوم ب اخذ IDtb من DGView ويقارنو من الجدول وتتم العمليه اذا كانت عملة تعديل او حذف
If Me.DGView.Rows.Count > 0 Then
If Me.DGView.SelectedRows.Count > 0 Then
Dim intStdID As Integer = Me.DGView.SelectedRows(0).Cells("IDtb").Value
If Not conn.State = ConnectionState.Open Then
conn.Open()
End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = conn
cmd.CommandText = "DELETE FROM table1 WHERE IDtb=" & intStdID
If cmd.ExecuteNonQuery() Then
MsgBox("تمت إضافة عملية المسح بنجاح", MsgBoxStyle.Information)
Me.RefreshData()
End If
conn.Close()
End If
End If
