تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله فى الكود خاصتا الــ id
#1
PHP كود :
 Private Sub folderadd_Load(sender As ObjectAs EventArgsHandles 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(sqlstrcon)
            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 ObjectAs EventArgsHandles 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} "txtad)
            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 
الرد }}}}
تم الشكر بواسطة:
#2
أخي نبيل

لا تصلح MAX(Id)) + 1 والأفضل أن تقرأ Id بعد الحفظ من أجل أن تكون على يقين من القيمة وذلك عن طريق
PHP كود :
SELECT @@IDENTITY 
الرد }}}}
تم الشكر بواسطة: نبيل كونكت , نبيل كونكت


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعده في تحويل الكود VB.NET 2 46 منذ 6 ساعة مضت
آخر رد: VB.NET
  [VB.NET] هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 2 34 اليوم, 01:42 AM
آخر رد: السيد الجوهري
  هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 0 22 اليوم, 01:22 AM
آخر رد: السيد الجوهري
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,452 أمس, 09:30 PM
آخر رد: رمضان محمد
  تغير خط التقرير باستخدام الكود أثناء التشغيل engmedomed@gmail.com 1 58 11-01-18, 04:38 PM
آخر رد: عبدالله الدوسري
  للخبـراء مشكله تحويل صيغه طـلال 1 45 11-01-18, 04:29 PM
آخر رد: عبدالله الدوسري
  مشكله بتمنع عمل داتا ادابتر نبيل فتحى 1 38 09-01-18, 09:48 PM
آخر رد: عبدالله الدوسري
  عندي مشكلة في تشغيل هذا الكود nooralcown 1 86 04-01-18, 05:45 PM
آخر رد: Amir_alzubidy
  تعديل الكود ده لو سمحتوا يا جماعه نبيل فتحى 1 50 02-01-18, 04:58 PM
آخر رد: طالب برمجة
  [VB.NET] احتاج تعديل الكود "تأكد من الصلاحية" hglogtd 3 105 02-01-18, 01:02 AM
آخر رد: طالب برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم