منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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

 ممكن تعديل الكود ده

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