18-04-22, 05:12 PM
السلام عليكم
وكل عام وانتم بخير
سؤالي عدي حقلين من نوع تكست يمثلان وقت الحضور والانصراف
ويظهر الوقت بالطريقة التالية مثلا 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
وكل عام وانتم بخير
سؤالي عدي حقلين من نوع تكست يمثلان وقت الحضور والانصراف
ويظهر الوقت بالطريقة التالية مثلا 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