[strongriseman]

السلام عليكم 
وكل عام وانتم بخير  

سؤالي عدي حقلين من نوع تكست يمثلان وقت الحضور والانصراف  
ويظهر الوقت بالطريقة التالية  مثلا   6:13 ص او  4:20 م 
عند الحفظ لقاعدة البيانات تظهر مشكلة وحاولت بكل الطرق بدون فائدة 
استعملت هذا الكود للحفظ  مع العلم استعمل قاعدة بيانات من نوع sqlserver  ونوع الحقل time(7)

Dim CmdInsert As New SqlCommand
        With CmdInsert
            .Connection = Con
            .CommandType = CommandType.Text
            .CommandText = "Insert Into wardya (num , name , time1 , time2 , period , addrate)values( @num ,  @name ,  @time1 ,  @time2 ,  @period ,  @addrate)"
            .Parameters.Clear()
            .Parameters.AddWithValue("@num", SqlDbType.Int).Value = Val(Txtnum.Text)
            .Parameters.AddWithValue("@name", SqlDbType.VarChar).Value = Txtname.Text.Trim
            'Now.ToString("hh:mm tt")
            .Parameters.AddWithValue("@time1", SqlDbType.Date).Value = Format(TextBox3.Text.ToString, "hh:mm tt")
            .Parameters.AddWithValue("@time2", SqlDbType.Date).Value = Format(TextBox4.Text.ToString, "hh:mm tt")
            .Parameters.AddWithValue("@period", SqlDbType.Date).Value = Format(TextBox5.Text.ToString, "hh:mm tt")
            '.Parameters.AddWithValue("@time1", SqlDbType.Date).Value = (TextBox3.Text)
            '.Parameters.AddWithValue("@time2", SqlDbType.Date).Value = (TextBox4.Text)
            '.Parameters.AddWithValue("@period", SqlDbType.Date).Value = (TextBox5.Text)
            .Parameters.AddWithValue("@addrate", SqlDbType.Int).Value = Val(Txtaddrate.Text)
        End With
        Try
            If Con.State = 1 Then Con.Close()
            Con.Open()
            CmdInsert.ExecuteNonQuery()
            Con.Close()
            MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
            newnum()

            CmdInsert = Nothing
        Catch ex As Exception
            Con.Close()
            MsgBox(Err.Description, MsgBoxStyle.Information)
        Finally
            If Con.State = ConnectionState.Open Then Con.Close()
        End Try