serch in vb

[علی معینی]

دوستان عزیز -باسلام
برای جستجو کردن درون یک تیبل (مثلا" نحوه جستجو از فیلد name) چه توصیه ای دارید.
لطفا" بیشتر راهنمائی فرمائید چون من تازه کار هستم.:بوس:با تشکر

[mahdyeh]

سلام
وقت بخیر !
لطفا بفرمائید ، جستجو در داخل تیبل در بانک اطلاعاتی؟ ( کدام ؟ ) تا دقیقا کدش رو در وی بی براتون بزارم .

[adhami]

برای جستجو کردن درون یک تیبل (مثلا" نحوه جستجو از فیلد name) چه توصیه ای دارید.


یک توصیه قبل از ایجاد تاپیک : ابتدا جستجو کنید بعد سوال رو مطرح کنید .
برای جواب از این تاپیک استفاده کنید . (http://barnamenevis.org/forum/showthread.php?t=74143&highlight=serach)

[علی معینی]

سلام
وقت بخیر !
لطفا بفرمائید ، جستجو در داخل تیبل در بانک اطلاعاتی؟ ( کدام ؟ ) تا دقیقا کدش رو در وی بی براتون بزارم .


با سلام و تشکر از شما :
بانک در sql server ونامش : banke_rayaneh
نام تیبل : person
نام فیلدها : no_per عددی - name و l_name رشته ای است .

[Evil 69]

خوب پسر خوب از دستور select استفاده کن دیگه
select نام فیلد ها from نام تیبل where شرط

[alikhalesi]

سلام. بهترین نوع جستجو از نظر من، استفاده از دستورات SQL هستش. همونطور که دوستمون گفت. اگه خواستی یه ایمیل بهم بزن یه فایل PDF واست بفرستم که عالیه.

[MMR_1344]

دوست عزیز نیکی و پرسش ایمیل من MMR_1323@yahoo.com اگر بفرستی ممنون میشم

[mahdyeh]

سلام
وقت بخیر !


بانک در sql server ونامش : banke_rayaneh
نام تیبل : person
نام فیلدها : no_per عددی - name و l_name رشته ای است .



Dim flag As Integer
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=banke_rayaneh;Data Source=."
cnn.Open
cmd.ActiveConnection = cnn
cmd.ActiveConnection = cnn
cmd.CommandText = "select * from person"
cmd.CommandType = adCmdText
Set rec = cmd.Execute
flag = 1
While rec.EOF = False
If Text1.Text = rec(1).Value Then
flag = 0
GoTo mk
End If
rec.MoveNext
Wend
mk:
If flag = 1 Then
MsgBox " in name dar list mojod nist "
Else
Text2.Text = rec(0).Value
Text3.Text = rec(1).Value
Text4.Text = rec(2).Value
End If
Exit Sub

End Sub









http://barnamenevis.org/forum/C:\Documents and Settings\karami\Desktop\Search.bmp

[MMR_1344]

دوست عزیز متشکر اون رو امتحان میکنم اگر مشکلی بود مزاحمت میشم(البته اگر اشکالی نداره)

[mahdyeh]

دوباره سلام
و عصر بخیر !



خوب پسر خوب از دستور select استفاده کن دیگه
select نام فیلد ها from نام تیبل where شرط


Evil هم راست میگن یک راه ساده تر (و کوتاهتر )



Dim flag As Integer
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=banke_rayaneh;Data Source=."
cnn.Open
cmd.ActiveConnection = cnn
cmd.ActiveConnection = cnn
cmd.CommandText = "select * from person where name='" & text1.Text & "'"
cmd.CommandType = adCmdText
Set rec = cmd.Execute
Text2.Text = rec(0).Value
Text3.Text = rec(1).Value
Text4.Text = rec(2).Value

End Sub