تقييم الموضوع :
  • 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
برجاء التوضيح ليعمل الكود
ولكم جزيل الشكر



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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض البيانات من قاعده البيانات لليوم الحالي. Rabeea Qbaha 0 11 منذ 5 ساعة مضت
آخر رد: Rabeea Qbaha
  [سؤال] ماذا افعل ؟ في ضياع قاعدة بيانات سكيول سيرفر 2008 salah mansour 3 58 أمس, 03:55 PM
آخر رد: thevirus
Photo [سؤال] ارجوا توضيح المشكلة بعد عملية الحفظ أبووسم 7 119 أمس, 03:07 AM
آخر رد: أبووسم
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 63 19-01-17, 04:21 AM
آخر رد: tifagreet
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 97 14-01-17, 08:19 PM
آخر رد: كفاح
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 127 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 172 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 66 11-01-17, 02:13 AM
آخر رد: مساعدة
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 346 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 135 01-01-17, 02:33 PM
آخر رد: صبري زينوبي

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


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