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

نسخة كاملة : المشكلة بترقيم تلقائي لحقل في قاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لدي حقول في جدول daily عبارة عن ارقام سندات تخزن في الجدول
استخدمت الكود التالي  ولكن  لم  يعمل
Try

            Dim num As String = "select max(id_kh) from daily"
            Dim tar As New OleDbCommand(num, conn)

            conn.Open()
            Dim A As Integer = tar.ExecuteScalar + "1"
            Me.TextBox1.Text = A
            conn.Close()

            '  Me.TextBox2.Clear()
        Catch ex As Exception

        End Try

أين  الخطأ  وكيف  اضيف  ترقيم  تلقائي  لهذا  الحقل  علما" قد تكون هناك  فراغات  بالسجلات  لأن  قد يكون هناك رقم اخر لسجل اخر  فيه ترقيم  لسند صرف  مثلا" في حقل اسميته id_s  ولسند قيد id_k
 try this
        Dim num As String = "SELECT MAX(ID_kh) + 1 AS Expr1 FROM Daily"
        Dim OleDBDR As OledbDataReader
        With OleDBC
            .Connection = con
            .CommandText = num
        End With
        OleDBDR = OleDBC.ExecuteReader
        If OleDBDR.HasRows Then
            While OleDBDR.Read
                If OleDBDR.IsDBNull(0) = True Then
                    TextBox1.Text = 1
                Else
                    TextBox1.Text = (OleDBDR.Item("Expr1"))
                End If
            End While
        Else
            TextBox1.Text = 1
        End If
السلام عليكم
أخي العزيز
أعمل على قاعدة أكسس ... وما هو المتغير OleDBC في عبارة With OleDBC
برجاء التوضيح ليعمل الكود
ولكم جزيل الشكر