چند سوال

سلام
اول, از مدیران این بخش بابت نامناسب بودن عنوان تاپیک, پوزش میخوام, چون چند سوال داشتم, نمیتونستم عنوان بهتری قرار بدم و زدن تاپیک های مجزا هم, انجمن رو بیخودی شلوغ میکرد. درهرصورت ببخشید

چند سوال از شما اساتید داشتم, امیدوارم به من کمک کنید. پیشاپیش هم از کمک شما دوستان تشکر میکنم

- برنامه ای بنویسید که یک عدد دریافت کند و جذر آن را محاسبه ونمایش دهد

- برنامه ای بنویسید که یک عدد دریافت کند اگر عدد زوج بود پیغام دهدعدد زوج است و اگر عدد فرد بود پیغام دهد که عدد فرد است

شرمنده که ابتدایی هستند. بازم ممنون

سلام.
جواب سوال اول:

کد:

---

MsgBox Sqr(16)

---

جواب سوال دوم:

کد:

---

If Val(Text1.Text) Mod 2 = 0 Then
    MsgBox "عدد زوج است"
Else
    MsgBox "عدد فرد است"
End If

---

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

با سلام مجدد
یک سوال درباره جستجو تو جدول پایگاه داده داشتم. میخواستم اگه میشه یک توضیح / مثال در اینباره بزنید. من یک برنامه با پایگاه داده تو VB ساختم و تمام قسمتهاش رو کامل کردم اما نحو جستجو رو بلد نیستم. اگه از دوستان کسی بلده, ممنون میشم کمک کنه

نمیدونم لازمه یا نه, ولی تصویر برنامه نوشته شده رو میزارم (اگه کدهاشم لازم بود, بگید تا بزارم)

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام خسته نباشید.

شما ابتدا باید یک فیلد از جدول رو با Adoc انتخاب کنید سپس مقدار اونو در داخل تکس باکس قرار بدید.برای مثال به وسیله کد زیر میتونی اولین فیلد رو Select کنی:

کد:

---

    Adodc1.Recordset.MoveFirst
    Txt_FName.Text = Adodc1.Recordset.Fields("LName")
    Txt_LName.Text = Adodc1.Recordset.Fields("FName")

---

برای آخرین فیلد فقط خط اول رو تغییر بده:

کد:

---

Adodc1.Recordset.MoveLast

---

برای فیلد بعدی:

کد:

---

Adodc1.Recordset.MoveNext

---

برای فیلد قبلی:

کد:

---

Adodc1.Recordset.MovePrevious

---

برای جستجو هم از کد Sql استفاده کن:
مثلاً فیلد هایی که LName برابر با ایران باشد:

کد:

---

    Adodc1.RecordSource = "SELECT * FROM Tbl_1 Where (LName LIKE '" & "ايران" & "%')"
    Adodc1.Refresh

---

یا:

کد:

---

    Adodc1.RecordSource = "SELECT * FROM Tbl_1 Where (LName = '" & "ايران" & "')"
    Adodc1.Refresh

---

الان اونی که جستجو کردی Select شده فقط کافیه مقدار رو به TextBox ها بدی:

کد:

---

    Txt_FName.Text = Adodc1.Recordset.Fields("LName")
    Txt_LName.Text = Adodc1.Recordset.Fields("FName")

---

موفق و سربلند باشید.