گذاشتن چند شرط برای Data Base

[SeyedMoosavi]

سلام
من یه دیتابیس دارم می خوام بدونم چه طور میشه بهش بگم اگر مثلا فیلد Name مساوی با Txtname و ّفیلد Family مساوی TxtFamily بود اون وقت کار رو انجام بده چی باید بگم؟

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

[اوبالیت به بو]

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]

به غیر از if تو در تو راه دیگه ای نیست؟
مثلا با استفاده از and

[SeyedMoosavi]

دوست عزیز من از راه کد نویسی به Data Base وصل شدم
این کد رو نیگاه کن

Rst.Open "SELECT Name,Family,Price FROM Parton WHERE Phone='" + ComPartonPhone + "'", Cnn, adOpenKeyset, adLockOptimistic, adCmdText

می خوام مثلا چند تا WHERE براش تعریف کنم
متوجه منظورم میشی؟

[اوبالیت به بو]

نه!
خوب شما به جاي چند تا If از عملگر AND استفاده كن. همين كد رو ويرايش كن

[maryamb]

بین فیلد های where هم میتونی از and استفاده کنی

[SeyedMoosavi]

Maryamb عزیز
تست کنم ببینم چی میشه

[SeyedMoosavi]

بین فیلد های where هم میتونی از and استفاده کنی
تست کردم نشد
چه طور باید ازش استفاده کنم؟

[SeyedMoosavi]

کسی نیست کمک کنه؟

[vbhamed]

سلام
اين راهش :



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]

Adodc1.RecordSource = "SELECT * FROM name WHERE name_1 LIKE('" & Text1 & "%')"
Adodc1.Refresh

[ali_habibi1384]

دوست عزیز مهم نیست که شما از چه راهی به دیتا بیس وصل میشی وقتی وصل شدی می تونی اطلاعات رو بخونی . فکر می کنم راهی که دوستمون obalijoOon گفت درست باشه . حالا من با یکم تغییرات اونو واستون بازنویسی می کنم شاید مفهومتر باشه:


if adodc1.recordset.fields("a")=txtname and adodc1.recordset.fields("b")=txtfamily then
_____________
_____________
end if

[SeyedMoosavi]

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

Select * From Table1 Where Family = '" & Trim$(txtFamily) & "' And Name = '" & Trim$(txtName) & "'