[alaqsa]

اخواني الكرام


هل هذا هو الكود


واين اضعه اذا كان هوه

كود :

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", Now.Date)

                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        Else
            With SaveHeadCMD
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SaveHeadSQL

                .Parameters.AddWithValue("TheDate", Now.Date)

                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        End If