رفتن به مطلب
  • 0

شرط به آخر رسیدن آیدی در Database (دیتابیس)


Kazem Forghani

سوال

سلام

چطوری یه شرط بگذارم که اگر آیدی داخل دیتابیس آخرین بود یه کاری انجام بده ؟

یعنی مثلا اگر 12 عدد آیدی دارم . مثلا بگیم آخرین بود یعنی 12 ؟

فقط فوریه! تمام برنامه را نوشتم به جز همین !

پیشاپیش ممنون.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • پاسخ ها 44
  • ایجاد شده
  • آخرین پاسخ

ارسال‌های توصیه شده

این رو بررسی کن گزارش بده

Sub Btn_Next_Click
    id = id + 1    
    Select Main.ListViewValue
        Case 1
            Dim Cursor1 As Cursor
            Cursor1 = SQL1.ExecQuery("SELECT * FROM family")
            For i = 0 To Cursor1.RowCount -1
                If i <> Cursor1.RowCount -1 Then
                    fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,"Pic",bitmap2)
                    Pictures.Bitmap = bitmap2
                    fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Russian,"R_name")
                    fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,English,"E_name")
                    fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Pasian,"P_name")
                Else
                    'code visible button
                End If
            Next
        Case 2
            Dim Cursor1 As Cursor
            Cursor1 = SQL1.ExecQuery("SELECT * FROM Color")
            For i = 0 To Cursor1.RowCount -1
                If i <> Cursor1.RowCount -1 Then
                    fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,"Pic",bitmap2)
                    Pictures.Bitmap = bitmap2
                    fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Russian,"R_name")
                    fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,English,"E_name")
                    fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Pasian,"P_name")
                Else
                    'code visible button
                End If
            Next
    End Select
End Sub

لینک ارسال
به اشتراک گذاری در سایت های دیگر

دکمه back کلا نشون داده نمیشه!

و بعد از یکبار کلیک روی باتون next کلا باتون نشنون داده نمیشه! جای اون 'code visible button کد visible باتون رو نوشتم .

متاسفم ولی این هم نشد.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

یه دستور SQL هست که آخربن ستون آیدی رو میگیره...فک کنم این باشه:

SELECT LAST(id) FROM tbl

برای استفاده ازش توی بیسیک به احتمال زیاد از این کد باید استفاده کنی:

	cur = sql1.ExecQuery("SELECT LAST(id) FROM tbl")
	For i=0 To cur.RowCount-1
		cur.Position = i
		lastid = cur.GetInt("id")
	Next

چک کن ببین بدردت میخوره یا نه...

 

اینم یه کتاب برای دستورات SQL شاید بدرد خیلیا بخوره...بدرد من که خیلی خورده

دانلود

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ببین

چرا حالا حتما میخوای ای دی اخرو بگیری؟

خو یه فیلد اخر بانکت درست کن و توش مثلا بنویس end یا نمیدونم " " خالی بذار

بعد بگو هر وقت فیلد مثلا معنی = "" بود، فلان شرط رو نشون بده

یه کن روش فک کن

یه تست بزن ببین عملی میشه

شایدم نشه این کارو کرد

مشکل حل شد!

این همه پست . فقط با یکم تفکر انجام می شد!

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.

×
×
  • اضافه کردن...