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



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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 17 366 منذ 27 دقيقة مضت
آخر رد: Abdalazim19
  نقل قاعدة بيانات الى العميل dasktop 5 66 منذ 1 ساعه مضت
آخر رد: asemshahen5
  خطأ عند عمل نسخه احتياطيه لقاعده البيانات خالد كامل1 10 160 أمس, 03:00 AM
آخر رد: asemshahen5
  مقارنة بين السجلات في جدولين مختلفين ضمن نفس قاعدة البيانات comeps 2 59 17-08-19, 11:52 AM
آخر رد: comeps
  [سؤال] سؤال بخصوص قواعد البيانات bakriano30@yahoo.com 3 74 17-08-19, 08:48 AM
آخر رد: سعود
  مشكلة في mysql البيانات فارغة عماني939 1 43 17-08-19, 12:32 AM
آخر رد: اسامه الهرماوي
  قاعدة بيانات dasktop 3 98 15-08-19, 12:03 AM
آخر رد: اسامه الهرماوي
Question كيفية التخلص من تكرار تخزين البيانات الرائد 13 465 14-08-19, 12:25 PM
آخر رد: الرائد
  [VB.NET] تجربة لأربع حواسيب تقوم بعملية البحث في قاعدة البيانات sniperjawadino 9 255 13-08-19, 07:27 PM
آخر رد: sniperjawadino
  [VB.NET] مراجعة الاسم قبل التعديل بقاعدة البيانات محمد اسماعيل 10 227 03-08-19, 01:03 AM
آخر رد: محمد اسماعيل

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


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