View Full Version : نحوه جستجو چند فیلد بطور همزمان در VB
رضا حسینی
سه شنبه 18 بهمن 1384, 13:36 عصر
نحوه جستجو چند فیلد بطور همزمان در VB چگونه است؟ لطفاً راهنمایی کنید؟
sohrab o
سه شنبه 18 بهمن 1384, 22:13 عصر
تو سایت اگه جستجو کنی پیداش می کنی
رضا جان ورودتو به سایت تبریک می گم
اول تو سایت جستجو کن اگه نبود بعد تاپیک بده
بازم تبریک
sohrab o
پنج شنبه 20 بهمن 1384, 10:49 صبح
چی شد پیدا کردی
balis_pascal
شنبه 22 بهمن 1384, 10:25 صبح
سلام
میتوانید به آدرس زیر مراجعه کنید
http://www.barnamenevis.org/forum/showthread.php?t=36045
Javad_Mail
دوشنبه 24 بهمن 1384, 11:31 صبح
اگه منظورت از بانکهای SQL هستش کدش به صورت زیر
Select * From Tabel Name Where
بعد از دستور Where می تونی اطلاعات خودت رو بگذاری
مثلا فیلد X1 و x2 رو با هم جستجو کنی
X1='A' And X2='B'
به جای And از Or هم می تونی استفاده کنی
به جای مساوی از
Like =%'asd'% هم می تونی استفاده کنی
و ....
ajor3sunti
پنج شنبه 18 اسفند 1384, 15:14 عصر
من میخوام یه تکس باکس بزارم بعد روی یک شستی یه دستور بزارم که یک کلمه رادر
جستجو کنه میشه بگین ado
من دستور زیر را نوشتم کجاش رو تغییر بدم که دنبال کلمه بگرده اخه این دستور عدد رو جستجو میکنه
select * from s where ID =" & Val(TxtSearch.Text)
sepideh65
دوشنبه 22 اسفند 1384, 10:14 صبح
اگر کلمهVAR را به همراه پرانتز ها برداری درست می شه
sepideh65
دوشنبه 22 اسفند 1384, 10:17 صبح
همون VAL:لبخند:
ajor3sunti
دوشنبه 22 اسفند 1384, 22:29 عصر
بازم درست نشد:گریه:
vbhamed
سه شنبه 23 اسفند 1384, 23:22 عصر
سلام دوست عزیز
مشکل اینه که براش گیومه نذاشتی
دستور رو اینطوری بنویس
sql = "select * from s where ID ='" & TxtSearch.Text & "'"
hmdfar@yahoo.com
ajor3sunti
چهارشنبه 24 اسفند 1384, 21:39 عصر
حالا چطور میشه با قرار دادن یک
combo box
بشه هر
ّField
که خواستیم بگردیم؟
vbhamed
پنج شنبه 25 اسفند 1384, 00:11 صبح
سلام
به این صورت که در AddItem ها عنوان فیلد و در ItemData ها نام فیلد را می گذاری
ItemData(0) برای اولین عنصر Combo و به همین ترتیب تا آخر
Private Sub Form_Load()
With Combo1
.AddItem "Name"
.AddItem "Family"
.AddItem "Tel"
.ItemData(0) = "Name"
.ItemData(1) = "Family"
.ItemData(2) = "Tel"
End With
End Sub
سپس دستور رو جایی که می خواهی جستجو انجام شود بنویس
If Combo1.ListIndex > 0 Then
Sql = "Select * From Table Where " & Combo1.ItemData(Combo1.ListIndex) & " = '" & txtSearch & "'"
End If
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.