تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] المشكلة بترقيم تلقائي لحقل في قاعدة البيانات
#1
لدي حقول في جدول 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



وما نيل المطالب  بالتمني ,,,

لكن تأخذ الدنيا غلابا ........................


الرد }}}}
تم الشكر بواسطة:
#2
 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
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم
أخي العزيز
أعمل على قاعدة أكسس ... وما هو المتغير OleDBC في عبارة With OleDBC
برجاء التوضيح ليعمل الكود
ولكم جزيل الشكر



وما نيل المطالب  بالتمني ,,,

لكن تأخذ الدنيا غلابا ........................


الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد شخص يعرف سبب هذه المشكلة !! كود برمجي 4 33 منذ 1 ساعه مضت
آخر رد: كود برمجي
  [سؤال] ما سبب ظهور هذه المشكلة ddemed 20 192 منذ 2 ساعة مضت
آخر رد: alma2
  البحث في قاعدة بيانات اكسس hatem555 6 80 اليوم, 02:53 AM
آخر رد: hatem555
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 63 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  استيراد البيانات من الاكسيل salah mansour 1 51 18-05-17, 06:28 AM
آخر رد: khaled12345
  [VB.NET] ترقيم تلقائي بشرط محمد بوقزاحة 1 62 17-05-17, 06:35 AM
آخر رد: alma2
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 98 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 238 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 278 11-05-17, 11:54 AM
آخر رد: khaled12345
  عند استدعاء تقرير يطلب مني كلمة السر لقاعدة البيانات samawi 3 106 05-05-17, 10:24 PM
آخر رد: samawi

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


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