(11-03-17, 03:28 AM)khodor1985 كتب : شو المشكلة، قصدك البرنامج مش شغال

(11-03-17, 03:32 AM)khodor1985 كتب : هذه النسخة بإصدار 4.5
المرفق بعدل التعديل على الإصدار :

---

    Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            txtsailman.Text = fullname
            sorse()
            Dim ss As String
            ss = "INSERT INTO [tab_older] ([date], [sailman]) VALUES (@date, @sailman)"
            Dim cmd As New OleDbCommand(ss, con)
            cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
            cmd.Parameters.AddWithValue("@sailman", txtsailman.Text)
           


            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()

            con.Open()
            sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
            cmd = New OleDbCommand(sqlstr, con)
            txtnamper.Text = cmd.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

       
    End Su