اضافة التاريخ الى قواعد البيانات

السلام عليكم

انا مسويه برنامج وابغى اليوزر يدخل التاريخ والوقت وانا بخزنهم مع مجموعة بيانات في الداتا

هو حيدخلها في تكست بوكس\

انا باخذها واحولها الى صيغة تاريخ واخزنها

اقتباس

date1 = CDate(TextBox3.Text)

المفروض انها الان تقبل الاضافه للداتا

Dim saveinto As New OleDb.OleDbCommand

Dim conStr As String = "provider=microsoft.Jet.OLEDB.4.0;" & "data source=" & Application.StartupPath & "\thedata.mdb"

Dim conn As New OleDbConnection(conStr)

saveinto.Connection = conn

saveinto.CommandType = CommandType.Text

saveinto.CommandText = "INSERT INTO table1 (num,[date]) VALUES(" & num & ",@ date1 )"

conn.Open()

saveinto.ExecuteNonQuery()

conn.Close()

لكن هو يعلق ولما جربت اغير الجمله الى

اقتباس

saveinto.CommandText = "INSERT INTO table1 (num,[date]) VALUES(" & num & "," & date1 & " )"

قبلها لي بس يضيفها لي كوقت مو تاريخ

رغم اني مسويه طباعه في داخل البرنامج وطبع لي التاريخ صح

انا معدله على خيارات اقليميه وخيارات اللغه ومحوله التاريخ عندي لميلادي ومعدله صيغته

M/d/yyyy

اما الوقت فاساسا مااضافه لي

وهذي جملته

اقتباس

saveinto.CommandText = "INSERT INTO table1 (num,[date],Attendance) VALUES(" & num & "," & date1 & "," & time1 & " )"

وهذا تحويل الوقت من نص الى تاريخ

Try

' x = Format(date1, "dd/mm/yyyy")

time1 = CDate(TextBox2.Text)

Catch ex As Exception

End Try

\\\