17-06-13, 01:50 PM
ازاى اخلى التاريخ ائلى داخل على الداتا بيس يبقا يوم وشهر وسنة بس مش عايز الساعة علشان بيظهر عندى كدا
25/11/2013 7.38 انا مش عايز الساعة ديه
25/11/2013 7.38 انا مش عايز الساعة ديه
Dim SaveHeadSQL As String = "INSERT INTO Table (TheDate) VALUES(@TheDate)"
Dim SaveHeadCMD As New OleDbCommand
If Con.State = ConnectionState.Closed Then
Con.Open()
With SaveHeadCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveHeadSQL
.Parameters.AddWithValue("TheDate", [color=#FF0000]dtDate.Value.Date[/color])
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
Else
With SaveHeadCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveHeadSQL
.Parameters.AddWithValue("TheDate", [color=#FF0000]dtDate.Value.Date[/color])
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
End If
Imports System.Data.OleDb
Module functions
Public Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\DATABASENAME.mdb")
End Module
Dim SaveHeadSQL As String = "INSERT INTO Table (TheDate) VALUES(@TheDate)"
Dim SaveHeadCMD As New OleDbCommand
If Con.State = ConnectionState.Closed Then
Con.Open()
With SaveHeadCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveHeadSQL
.Parameters.AddWithValue("TheDate", [color=#FF0000]Now.Date[/color])
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
Else
With SaveHeadCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveHeadSQL
.Parameters.AddWithValue("TheDate", [color=#FF0000]Now.Date[/color])
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
End If