View Full Version : گذاشتن چند شرط برای Data Base
SeyedMoosavi
پنج شنبه 02 خرداد 1387, 16:05 عصر
سلام
من یه دیتابیس دارم می خوام بدونم چه طور میشه بهش بگم اگر مثلا فیلد Name مساوی با Txtname و ّفیلد Family مساوی TxtFamily بود اون وقت کار رو انجام بده چی باید بگم؟
با تشکر از تمام دوستان
اوبالیت به بو
پنج شنبه 02 خرداد 1387, 16:14 عصر
If Adodc1.Recordset.Field("Name") = Trim(NameTxt.Text) Then
If Adodc1.Recordset.Field("Family") = Trim(FamilyTxt.Text) Then
Print "Correct"
Else
Print "Critical "
End If
Else
Print "Critical"
End If
چند تا برنامه Login هستش كه از همين روش استفاده كردن. "Login" رو جستجو كنيد
maryamb
پنج شنبه 02 خرداد 1387, 16:19 عصر
به غیر از if تو در تو راه دیگه ای نیست؟
مثلا با استفاده از and
SeyedMoosavi
پنج شنبه 02 خرداد 1387, 16:20 عصر
دوست عزیز من از راه کد نویسی به Data Base وصل شدم
این کد رو نیگاه کن
Rst.Open "SELECT Name,Family,Price FROM Parton WHERE Phone='" + ComPartonPhone + "'", Cnn, adOpenKeyset, adLockOptimistic, adCmdText
می خوام مثلا چند تا WHERE براش تعریف کنم
متوجه منظورم میشی؟
اوبالیت به بو
پنج شنبه 02 خرداد 1387, 16:22 عصر
نه!
خوب شما به جاي چند تا If از عملگر AND استفاده كن. همين كد رو ويرايش كن
maryamb
پنج شنبه 02 خرداد 1387, 16:25 عصر
بین فیلد های where هم میتونی از and استفاده کنی
SeyedMoosavi
پنج شنبه 02 خرداد 1387, 16:27 عصر
Maryamb عزیز
تست کنم ببینم چی میشه
SeyedMoosavi
پنج شنبه 02 خرداد 1387, 17:05 عصر
بین فیلد های where هم میتونی از and استفاده کنی
تست کردم نشد
چه طور باید ازش استفاده کنم؟
SeyedMoosavi
پنج شنبه 02 خرداد 1387, 17:28 عصر
کسی نیست کمک کنه؟
vbhamed
پنج شنبه 02 خرداد 1387, 18:40 عصر
سلام
اين راهش :
Adodc1.RecordSource = "Select * From Table1 Where Family = '" & Trim$(txtFamily) & "' And Name = '" & Trim$(txtName) & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
.
.
.
End If
فقط از يك كنترل Ado ديگه استفاده كن و از كنترل Ado اصلي برنامت استفاده نكن
vahid_visualbasic
جمعه 03 خرداد 1387, 18:50 عصر
Adodc1.RecordSource = "SELECT * FROM name WHERE name_1 LIKE('" & Text1 & "%')"
Adodc1.Refresh
ali_habibi1384
جمعه 03 خرداد 1387, 20:15 عصر
دوست عزیز مهم نیست که شما از چه راهی به دیتا بیس وصل میشی وقتی وصل شدی می تونی اطلاعات رو بخونی . فکر می کنم راهی که دوستمون obalijoOon گفت درست باشه . حالا من با یکم تغییرات اونو واستون بازنویسی می کنم شاید مفهومتر باشه:
if adodc1.recordset.fields("a")=txtname and adodc1.recordset.fields("b")=txtfamily then
_____________
_____________
end if
SeyedMoosavi
جمعه 03 خرداد 1387, 23:51 عصر
با تشکر از تمام دوستان همون طور که همتون اشاره کردین جواب این هست
Select * From Table1 Where Family = '" & Trim$(txtFamily) & "' And Name = '" & Trim$(txtName) & "'
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.