[ابو ليلى]

اخي عادل  انا لا استطيع ارفاق مثال بسبب اختلاف الاصدارات بيني و بينك
لذلك ارفع لك تعديل المثال وهو كود النموذج الخاص بك مع تعديل Stored Procedure الخاص بالتعديل (UpdateTime_Job) و ان شاء الله يعمل معك

اولا كود النموذج

PHP كود :

Imports System.Data.SqlClient
Public Class Form1
    Dim CON As New SqlConnection("Data Source=LAPNONO;Initial Catalog=jobss;Integrated Security=True")
    '----------Public Sub Insert ---------- 
    Public Sub InsertTime_Job(ByVal Name As String, ByVal DateNow As String, ByVal NameDey As String, ByVal TimeOn As String, ByVal Code As String)
        Dim cmd As SqlCommand
        Cmd = New SqlCommand("InsertTime_Job", con)
        cmd.CommandType = CommandType.StoredProcedure
        Dim Parma(4) As SqlParameter
        Parma(0) = New SqlParameter("@Name", SqlDbType.NVarChar, 50) With {.Value = Name}
        Parma(1) = New SqlParameter("@DateNow", SqlDbType.NVarChar, 50) With {.Value = DateNow}
        Parma(2) = New SqlParameter("@NameDey", SqlDbType.NVarChar, 50) With {.Value = NameDey}
        Parma(3) = New SqlParameter("@TimeOn", SqlDbType.NVarChar, 50) With {.Value = TimeOn}
        Parma(4) = New SqlParameter("@Code", SqlDbType.NVarChar, 50) With {.Value = Code}
        Cmd.Parameters.AddRange(Parma)
        Con.Open()
        cmd.ExecuteNonQuery()
        Con.close()
        MessageBox.Show("تمت إضافة البيانات بنجاح", "إضافة جديد", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub


    Public Function GetFiled(ByVal ReturnFiled As String, ByVal Tbl As String, ByVal CondFiled As String, ByVal Id As String) As String
        Dim serch As String = ""
        serch = "Select " & ReturnFiled & " From " & Tbl & " Where " & CondFiled & " Like '" & Id & "' "

        Dim Cmd As New SqlCommand(serch, CON)
        Dim ReturnResult As String = ""
        CON.Open()
        Dim red As SqlDataReader = Cmd.ExecuteReader
        While red.Read
            If red.HasRows Then
                If Not (red(ReturnFiled) Is Nothing) Or red(ReturnFiled).ToString.Length > 0 Then
                    ReturnResult = red(ReturnFiled).ToString
                Else
                    ReturnResult = 0
                End If
            End If
        End While
        red.Close()
        Cmd.Dispose()
        CON.Close()
        Return ReturnResult
    End Function


    Sub SHDATA(ByVal X As String)

        Dim sql = "select * from User_Emp where Code='" & (X) & "'"
        Dim cmd As New SqlCommand(sql, CON)
        CON.Open()
        Dim C As Integer = cmd.ExecuteScalar
        CON.Close()
        If C = 0 Then
            MessageBox.Show("لم يتم العثور على سجل ")
            Exit Sub
        Else
            INSERT(txttime.Text)
        End If
    End Sub


    '----------Public Sub Update ---------- 
    Public Sub UpdateTime_Job(ByVal TimeOut1 As String, ByVal Id As Integer)
        Dim cmd As SqlCommand
        cmd = New SqlCommand("UpdateTime_Job", CON)
        cmd.CommandType = CommandType.StoredProcedure
        Dim Parma(1) As SqlParameter
        Parma(0) = New SqlParameter("@TimeOut1", SqlDbType.NVarChar, 50) With {.Value = TimeOut1}
        Parma(1) = New SqlParameter("@ID", SqlDbType.Int) With {.Value = Id}

        cmd.Parameters.AddRange(Parma)
        CON.Open()
        cmd.ExecuteNonQuery()
        CON.Close()
        MessageBox.Show("تم تعديل البيانات بنجاح", "تعديل ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub


    Sub INSERT(ByVal Y As String)

        Dim sql1 = "select TOP 1 ID, TimeOut1 FROM Time_Job WHERE (DateNow ='" & txtdate.Text & "' And  CODE='" & TXTCODE.Text & "') ORDER BY ID Desc"

        Dim da As New SqlClient.SqlDataAdapter(sql1, CON)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim DT1 = ds.Tables(0)
        If DT1.Rows.Count <= 0 Then
            txtName.Text = GetFiled("Name", "User_Emp", "Code", TXTCODE.Text)
            InsertTime_Job(txtName.Text, txtdate.Text, txtday.Text, txttime.Text, TXTCODE.Text)
            MsgBox("تم تسجيل الدخول بنجاح")
        Else
            If DT1(0)(1).ToString = "" Then
                UpdateTime_Job(txttime.Text, DT1(0)(0))
                MsgBox("تم تسجيل الخروج")
            Else
                txtName.Text = GetFiled("Name", "User_Emp", "Code", TXTCODE.Text)
                InsertTime_Job(txtName.Text, txtdate.Text, txtday.Text, txttime.Text, TXTCODE.Text)
                MsgBox("تم تسجيل الدخول بنجاح")
            End If
        End If

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        SHDATA(TXTCODE.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtdate.Text = Format(Today, "yyyy/MM/dd")
        txtday.Text = Date.Today.ToString("dddd")
    End Sub

    Private Sub TimerSS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerSS.Tick
        txttime.Text = Date.Now.ToString("hh:mm:ss tt")
    End Sub
End Class 


ثانيا التعديل على الاجراء المخزن (UpdateTime_Job)

PHP كود :

ALTER procedure [dbo].[UpdateTime_Job] 

@TimeOut1 nvarchar(50),
@ID integer


As 
UPDATE Time_Job Set 


TimeOut1=@TimeOut1

Where
ID=@ID 


انسخ الاكواد وضعها في مشروعك و اخبرني بالنتيجة
موفق ان شاء الله