جستجو در دیتابیس

[احمدیان]

سلام

در حال نوشتن برنامه کتابخانه هستم، در جستجو مشکل دارم.
وقتی کاربر روی جستجو کلیک می کنه یه inputbox ظاهر میشه و شماره عضویت را از کاربر میگیره، بعد باید بره و این شماره رو در جدول، و در فیلد ID، جستجو کنه و مشحصات اون رکورد رو در Textbox ها بیاره تا کاربر بتونه مشخصات عضو رو ویرایش کنه.
اما نمیدونم واقعا باید چه کار کنم. لطفا راهنمایی کنید.

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

احمدیان

[shervinrv]

خب ببین یه SELECT سادست



DIM CM AS OLEDBDATACOMMAND ممکنه SQL هم باشه فرقی نداره
DIM CN AS NEW OLEDBCONNECTION("عبارت کانکشن")
CM=NEW OLEDBCOMMAND("SELECT FIRSTNAME,LASTNAME,BIRTHDATE,ADDRESS,TEL FROM USERS WHERE USERID=@USERID",CN)
CM.PARAMETERS.ADD("@USERID",USERIDTEXTBOX.TEXT)
چون تعداد پارامترا زیاده باید از DATAREADER استفاده کنی
DIM DR AS OLEDBDATAREADER
CN.OPEN
DR=CM.EXECUTEREADER
WHILE DR.READ
FIRSTNAMETXT.TEXT=DR(0)
LASTNAMETST.TEST=DR(1)
BIRTHDATETXT.TEXT=DR(2)
ADDRESSTXT.TEXT=DR(3)
TELTXT.TEXT=DR(4)
END WHILE
DR.CLOSE
CN.CLOSE


FIRSTNAMETXT.TEXT)
LASTNAMETST.TEST)
BIRTHDATETXT.TEXT
ADDRESSTXT.TEXT
TELTXT.TEXT
اینها تکست باکسهایی هست که اطلاعات خوانده شده از دیتابیس توشون نوشته میشه

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

این کد هارو باید توی روال دکمه بنویسید