نمایش تصادفی پیغام ازبانک

[sina26]

سلام دوستان
من میخوام در رویداد Form_Load فقط یک پیغامی از بانک بصورت تصادفی برای کاربر نمایش داده بشه اینو چطوری میتونم انجام بدم
پیغامی مانند : خوش آمدید
لحظات خوبی داشته باشید
لحظالتتان همیشه زیبا
و.......

[Dr.Bronx]

شما یک تیبل میسازید به نام مثلا Tip یک id داره یکی هم matn ( مثلا )
اول باید یک id رو به صورت رندم انتخاب کنید .

Dim TipId As String
Randomize
TipId = Int(Rnd() * 3) + 1
rs.Open "SELECT * FROM tip WHERE id Like '%" & TipId & "%'", conn, adOpenStatic, adLockOptimistic

اون عدد 3 تعداد متن های شماست
اگر 20 تا متن دارید اون رو هم 20 کنید .

بعد هم یک تکست باکس رو برابر با matn قرار میدین !

موفق و موید باشید ./

[sina26]

شما یک تیبل میسازید به نام مثلا Tip یک id داره یکی هم matn ( مثلا )
اول باید یک id رو به صورت رندم انتخاب کنید .

Dim TipId As String
Randomize
TipId = Int(Rnd() * 3) + 1
rs.Open "SELECT * FROM tip WHERE id Like '%" & TipId & "%'", conn, adOpenStatic, adLockOptimistic

اون عدد 3 تعداد متن های شماست
اگر 20 تا متن دارید اون رو هم 20 کنید .

بعد هم یک تکست باکس رو برابر با matn قرار میدین !

موفق و موید باشید ./
سلام دوست گرامی
با تشکر از شما من میخوام قبل از اینکه فرم Load بشه این پیغام به کاربر داده بشه

[Dr.Bronx]

خوب بالاخره باید دستورات اجرا بشه دیگه
روی هوا که نمیشه دستورات رو اجرا کرد
شما می تونی فرمت رو Hide کنی
بعد از این که پیغام تایید شد show کن .

موفق باشید ./

[xxxxx_xxxxx]

چون از عملگر Like استفاده کردید ممکن است بعضی اعداد شانس بیشتری برای نمایش داشته باشند. بستگی به این داره که اعداد به چه ترتیبی در جدول ذخیره شده باشند.
مثلاً اگر در فیلد ID چند عدد به این ترتیب داشته باشیم:

345
34
3
45
5
4

اونوقت عدد تصادفی ما هر کدام از اعداد قرمز رنگ که باشه باز عدد آبی رنگ انتخاب میشه و هیچ وقت اعداد قرمز شانسی برای نمایش ندارند.

از طرفی، اصلاً نیازی به فیلد tip_ID نیست. شما می تونید بنویسید SELECT * FROM tip و بعد بر اساس RecordCount یک عدد تصادفی تولید کنید و مستقیم به همان رکورد پرش کنید:

Dim TipId As String
Randomize
rs.Open "SELECT * FROM tip", conn, adOpenStatic, adLockOptimistic
TipId = Int(Rnd() * rs.RecordCount)
rs.Move TipId

با این کار دکمه های next و previous هم تو برنامه درست عمل می کنند (;

تاپیک به بخش مطالب مرتبط به بانک اطلاعاتی منتقل شد.

[sina26]

با سلام خدمت مدیرمحترم جناب xxxxx_xxxxx و دوست گرامی DrBronx عزیز
با تشکر از شما عزیزان و راهنمائی هاتون :قلب: