[نبيل كونكت]

PHP كود :

 Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       
        txtsailman.Text = fullname
        sorse()


        Try
            a = 0
            a = txtnamper.Text

       
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Try
            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
        Sub MySub()
        Dim f As New folder
        sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
    End Sub
    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
        Dim cmd As New OleDbCommand(String.Empty, con)
        Dim ss As String
        con.Open()
        For Each r As DataGridViewRow In dgvprodac.Rows
            Dim ad As Integer = Val(r.Cells(0).Value)
            Dim txt As Integer = Val(r.Cells(2).Value)
            cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty +{0} WHERE [id] = {1} ", txt, ad)
            cmd.ExecuteNonQuery()
        Next
        Try


            'cmd = New OleDbCommand(sqlstr, con)
            ss = "INSERT INTO [tab_older] ([date], [sailman],[ID]) VALUES (@date, @sailman, @ID)"
            Dim md As New OleDbCommand(ss, con)
            cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
            cmd.Parameters.AddWithValue("@sailman", txtsailman.Text)
            cmd.Parameters.AddWithValue("@ID", txtnamper.Text)
            'con.Open()
            cmd.ExecuteNonQuery()
            'con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()
        MsgBox("تم حفظ الفاتوره")
        dt.Rows.Clear()
        MySub()
       
       
      

        
    End Sub     End Sub 


[abdualla]

أخي نبيل

لا تصلح MAX(Id)) + 1 والأفضل أن تقرأ Id بعد الحفظ من أجل أن تكون على يقين من القيمة وذلك عن طريق

PHP كود :

SELECT @@IDENTITY