21-02-20, 02:38 PM
السلام عليكم
تتبعت دورة من المنتدي و حاولت حفظ التاريخ بهذه الصيغة و ما وصلت للحل
كيف اخواني احفظ التاريخ هكذا yyyy-MM-dd بدون الوقت بارك الله فيكم
هذا الكود الذي استعملته و اريخ حفظ حقل التاريخ و هو من نوع تاريخ
تتبعت دورة من المنتدي و حاولت حفظ التاريخ بهذه الصيغة و ما وصلت للحل
كيف اخواني احفظ التاريخ هكذا yyyy-MM-dd بدون الوقت بارك الله فيكم
هذا الكود الذي استعملته و اريخ حفظ حقل التاريخ و هو من نوع تاريخ
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
insert_new_row(Me.TextBox1.Text, Me.TextBox2.Text)
End Sub
Public Sub insert_new_row(ByVal id As Int32, ByVal datebirth As Date)
Dim Cmd As New OleDbCommand
With Cmd
Cmd.Connection = Conne
Cmd.CommandType = CommandType.Text
Cmd.CommandText = "insert into table1 ( field_id , field_birth ) values ( @field_id , @field_birth )"
Cmd.Parameters.Clear()
Cmd.Parameters.AddWithValue("@field_id", OleDbType.Integer).Value = id
Cmd.Parameters.AddWithValue("@field_birth", OleDbType.Date).Value = datebirth
End With
Try
If Conne.State = 1 Then Conne.Close()
Conne.Open()
Cmd.ExecuteNonQuery()
Conne.Close()
Catch ex As Exception
Conne_2020.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
End Try
End Sub