[سؤال] اضافة التاريخ الى قاعدة البيانات

كود :

 Dim ConnStr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\data\stag01y40.mdb;User ID=Admin;jet oledb:database password=4405;"



        Dim Conn As New OleDbConnection(ConnStr)

        Dim SQLstr As String





        Dim SavInto As New OleDb.OleDbCommand



        If Conn.State = ConnectionState.Open Then

            Conn.Close()





        End If















        SQLstr = "INSERT INTO [send] (id  , date , from_b , to_b , note_m , note1 , note2 , note3 , fr3)" & _

         "values ('" & TextBox1.Text & "','" & DateTimePicker1.Text  & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox3.Text & "','" & "1" & "','" & "0" & "','" & "0" & "','" & TextBox8.Text & "')"

        SavInto.CommandType = CommandType.Text

        SavInto.CommandText = SQLstr

        SavInto.Connection = Conn

        Conn.Open()

        'SavInto.CommandText = "UPDATE [table3] SET num14= '" & TextBox28.Text & ""





        SavInto.ExecuteNonQuery()

        SavInto.Dispose()





        Conn.Close()

كود :

Dim CmdInsert As New OleDbCommand

With CmdInsert

.Connection = Conn 

.CommandType = CommandType.Text

.CommandText = "Insert Into send (id , date , from_b , to_b , note_m , note1 , note2 , note3 , fr3)values( @id ,  @date ,  @from_b ,  @to_b ,  @note_m ,  @note1 ,  @note2 ,  @note3 ,  @fr3)

.Parameters.Clear()

.Parameters.AddWithValue("@id", OleDbType.VarChar).Value = TextBox1.Text

.Parameters.AddWithValue("@date", OleDbType.Date).Value = DateTimePicker1.text

.Parameters.AddWithValue("@from_b", OleDbType.VarChar).Value = ComboBox1.Text

.Parameters.AddWithValue("@to_b", OleDbType.VarChar).Value = ComboBox2.Text

.Parameters.AddWithValue("@note_m", OleDbType.VarChar).Value = TextBox3.Text

.Parameters.AddWithValue("@note1", OleDbType.VarChar).Value = "1"

EndrWithers.AddWithValue("@note2", OleDbType.VarChar).Value = "0"

Tryrameters.AddWithValue("@note3", OleDbType.VarChar).Value = "0"

Ifarameters.AddWiThenlue("@fr3", OleDbType.VarChar).Value = TextBox8.Text

End With

Try

If Conn.State = 1 Then Conn.Close()

Conn.Open()

CmdInsert.ExecuteNonQuery()

Con.Close()

MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")

CmdInsert = Nothing

Catch ex As Exception

Conn.Close()

MsgBox(Err.Description, MsgBoxStyle.Information)

Finally

If Conn.State = ConnectionState.Open Then Conn.Close()

End Try

End Sub