25-01-20, 09:55 PM
(آخر تعديل لهذه المشاركة : 26-01-20, 12:08 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل .. يمكن أن أقوم بتغيير الكود تماما و أستغني عن هذا بالكامل
لكن من باب تتبّع نفس تنسيقات الكود .. و عدم المساس بجزئياته .. ألتمس منكم فضل و كرم و ليس أمر المساعدة لو كان ذلك بالإمكان بكيفية تغيير هذه الأكواد لتتناسب مع أدوات الديف إكسبرس ..
إخواني الأفاضل .. يمكن أن أقوم بتغيير الكود تماما و أستغني عن هذا بالكامل
لكن من باب تتبّع نفس تنسيقات الكود .. و عدم المساس بجزئياته .. ألتمس منكم فضل و كرم و ليس أمر المساعدة لو كان ذلك بالإمكان بكيفية تغيير هذه الأكواد لتتناسب مع أدوات الديف إكسبرس ..
1 - كود الحذف :
كود :
Public Sub DeleteRowFrom_Location(ByVal DataGridView1 As DataGridView)
Dim Position As Integer = DataGridView1.CurrentRow.Index
Dim ID_Position As Integer = DataGridView1.Rows(Position).Cells("STUDENT_Id").Value
Dim CmdDelete As New OleDbCommand
With CmdDelete
.Connection = Conne_2019
.CommandType = CommandType.Text
.CommandText = "DELETE From TBL_STUDENT Where STUDENT_Id = @STUDENT_Id"
.Parameters.Clear()
.Parameters.AddWithValue("@STUDENT_Id", OleDbType.Integer).Value = ID_Position
End With
Try
If Conne_2019.State = 1 Then Conne_2019.Close()
Conne_2019.Open()
CmdDelete.ExecuteNonQuery()
Conne_2019.Close()
CmdDelete = Nothing
Catch ex As Exception
Conne_2019.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
End Try
End Sub
كود :
Public Sub DeleteRowFrom_Location(ByVal DataGridView1 As DataGridView)
Dim Position As Integer = DataGridView1.CurrentRow.Index
Dim ID_Position As Integer = DataGridView1.Rows(Position).Cells("STUDENT_Id").Value
كود :
If DataGridView1.CurrentRow.Cells(8).Value.ToString = "" Then
Me.TextBox10.Text = ""
Else
Me.TextBox10.Text = Format(DataGridView1.CurrentRow.Cells(8).Value, "yyyy-MM-dd")
End If
كود :
If GridView1.GetDataRow(e.FocusedRowHandle)("STUDENT_Date_Birth").ToString() = "" Then
Me.TxtStudentDateNaissance.Text = ""
Else
Me.TxtStudentDateNaissance.Text = Format(GridView1.GetDataRow(e.FocusedRowHandle)("STUDENT_Date_Birth"), "yyyy-MM-dd")
End If
قناتنا على اليوتوب