Printable View
من یه بانک اطلاعاتی دارم که حدود 10000 اسم تو اون هست حالا می خوام یه سرچ باکس درست کنم تا اگر یکی از اسم هایی که در تکست باکس جست و جو مطابق با یکی از نام های فیلد بانک اطلاعاتی بود تمام مشخصات فرد رو نشون بده.
از متد های find first..... نمیشه استفاده کرد چون در حالت زیر
" 'مقدار جست وجو ' = " نام فیلد " data1.recordset.d finfirst
اگر مقار جست و جو تکست باکس جست و جو باشه به مشکل میخوره و فیلد مورد نظر رو پیدا نمی کنه
Video Rental System using ADO
This is a program that uses the ADODB connections to link to an Access database. All connections are created/opened at runtime. Security,passwords,usernames are in Database. Users are in two user groups. Uses SQL statements such as INsert, SElect etc. Links to website uses MDI form and Child Forms. Toolbar with Image list. Status bar that displays a random message. Data Reports using Datareport control. Class Module Example. ISnumeric validation. Search facility for searching the database. examples of using the List View Control
کد:http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC20041123178284582.gif
کد:http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=57388&strZipAccessCode=tp%2FV573880112
PC PART INVENTORY
Good for beginners who want to learn database. I include simple code in searching,add,edit,delete,print in the system. It has good GUI.JUST TRY!!!
کد:http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC2004916656129197.JPG
کد:http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=56208&strZipAccessCode=tp%2FP562083791
دوست عزیز اصلا متوجه نشدم .یکم بیشتر توضیح بده انگلیسی ما مثل شما خوب نیست :دی
این برنامه ها با دیتابیس کار می کنن و در ضمن قسمتی هم برای جست و جو دارند
یعنی شما می تونید اونها رو داونلود کنید بعد قسمت مربوط به جست و جو رو پیدا کنید
و اون رو تو برنامه خودتون استفاده کنید.
[PHP]Dim s As String
''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''
Set db = OpenDatabase("E:\Program Files\Microsoft Visual Studio\VB98\Project\PhonBook\MainBank.mdb")
Set rs = db.OpenRecordset("table1", dbOpenDynaset)
s = InputBox("Family")
s = "Famili='" + s + "'"
rs.FindFirst s
If rs.NoMatch Then
'Beep
MsgBox ("No Match")
Else
Call print2(rs)
End If
db.Close[/PHP]
print 2 رو فراخوانی میکنه که اونجا اون عناصر دیتا تعریف میشن ::
[PHP]Private Sub print2(rs)
Form4.Show
Form4.Text1.Text = rs("Name")
Form4.Text2.Text = rs("Famili")
Form4.Text3.Text = rs("Mobile")
Form4.Text4.Text = rs("Manzel")
Form4.Text5.Text = rs("Adress")
Form4.Text6.Text = rs("radif")
end sub
[/PHP]
این کدا رو من واسه برنامه خودم نوشتم
اگه جایی مشکل داشتی بپرس
شرمنده میتوی بیشتر توضیح بدینقل قول:
ببینکد:1- dim s As String
''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''
2- Set db = OpenDatabase("E:\Program Files\Microsoft Visual Studio\VB98Project\PhonBook\MainBank.mdb")
3- Set rs = db.OpenRecordset("table1", dbOpenDynaset)
4- s = InputBox("Family")
5- s = "Famili='" + s + "'"
6- rs.FindFirst s
7- If rs.NoMatch Then
'Beep
8- MsgBox ("No Match")
9- Else
10- Call print2(rs)
End If
11- db.Close
خط 1 که تعریف میکنیم s رو از نوع استرینگ
خط شماره 2 اون دیتا بیسی که تو هاردت هست رو باز میکنی ( دیتا بیس من تو آدرس E:\Program Files\Microsoft Visual Studio\VB98Project\PhonBook\MainBank.mdb هست ) تو باید این قسمت رو آدرس محل دیتا بیس خودت بنویسی
خط شماره 3 table مربوطه رو باز میکنه
خط شماره 4 یه جعبه متن باز میکنه میگه فامیلی مورد جستجو رو وارد کن
خط 5 و 6 میگرده دنبال فامیلی مورد نظر
خط 7 میگه اگه پیدا نشد
خط 8 یه msgbox باز میکنه و پیغام میده که پیدا نکرد
خط 9 میگه اگه پیدا کرد ( وگرنه )
خط 10 تابع print2(rs) رو فراخوانی میکنه
خط 11 هم دیتا بیس رو میبنده
حالا print2(rs) چیه؟؟
[PHP]1- Private Sub print2(rs)
2- Form4.Show
3- Form4.Text1.Text = rs("Name")
4- Form4.Text2.Text = rs("Famili")
5- Form4.Text3.Text = rs("Mobile")
6- Form4.Text4.Text = rs("Manzel")
7- Form4.Text5.Text = rs("Adress")
8- Form4.Text6.Text = rs("radif")
9- end sub [/PHP]
خط 1 و 9 که میدونی چیه... (دستورات رو بین اینا مینویسیم )
خط 2 اگه فرمی جدا بخوای نمایش بدی نتایج جستجو رو شماره فرم رو مینویسی ( اینجا نتایج جستجو تو فرم 4 نمایش داده میشه )
خط 3 تو فرم 4 عناصری که بعد از جست جو نمایش داده میشن رو باید درج کنی ( مثلا من اینجا "نام و فامیلی و شماره موبایل و شماره منزل و آدرس و شماره ردیف رو میخوام نمایش بده واسم که برای همشون تکست باکس در نظر گرفتم ) خط 3 میگه تکست 1 از فرم 4 رو فیلد نام قرار بده ( در نتیجه ی جستجو نام رو نمایش میده )
خط 4 میگه تکست 2 از فرم 4 رو فامیلی قرار بده
و همینطور تا خط 8
بازم اگه مشکلی بود بپرس
به مشکل خوردم . اولین دستوراتتو رو دگمه جست و جو گذاشتم ولی سری دوم کد رو نمیدونم کجا باید بنویسی :دی
آخر از همه بنویسنقل قول:
فرقی نمیکنه کجا باشه
فقط حتما باید با private Sub شروع بشه و آخرش هم end sub باشه
این یادت باشه که اگه میخوای وسط دستورات بنویسی باید بعد از End Sub دستور قبلی بنویسی
این کارو کردم از خطی که نوشتی rs.FindFirst s ایراد میگیرهنقل قول:
[HTML]Private Sub Command3_Click()
Dim s As String
''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''
Set db = OpenDatabase("C:\Documents and Settings\amir\Desktop\s2.mdb")
Set rs = db.OpenRecordset("12", dbOpenDynaset)
s = InputBox("Family")
s = "2='" + s + "'"
rs.FindNext s
If rs.NoMatch Then
'Beep
MsgBox ("No Match")
Else
Call print2(rs)
End If
db.Close
End Sub[/HTML]
اینم از ائن یکی همون طور که گفتم ارور میده از قسمته .......
[HTML] Private Sub print2(rs)
Form10.Show
Form10.Text1.Text = rs("Name")
Form10.Text2.Text = rs("Famili")
Form10.Text3.Text = rs("Mobile")
Form10.Text4.Text = rs("Manzel")
Form10.Text5.Text = rs("Adress")
Form10.Text6.Text = rs("radif")
End Sub[/HTML]
خب عناصر توی دیتا بیس چی داری؟؟
اولا باید همشونو ربط بدی به هم
اینا رو که میدونی
بله همه رو به هم ربط دادمنقل قول:
دوست عزیز یه سورس پیدا کردم ولی مشکل میخورم
این اون سورس هست [HTML]Dim a As Integer
a = Val(InputBox("For Search Enter Studentfamili : ", "Search"))
With Data1.Recordset
.FindFirst "2 = " & a
If .NoMatch Then
MsgBox "Not Find This Student", vbOKOnly + vbExclamation, "Not Find"
End If
End With[/HTML]
میتونی برنامتو بفرستی واسم ؟ ببینم چطوره
شاید خودم واست ردیفش کردم
یا فقط قسمت سرچ رو واسم بفرست
کامل بفرستی بهتره
بدلیل محدودیتم نمیتونم ولی اینو بگم که طرف یه سری فیلد رو پر میکنه اعم از نامو نام خانوادگی و.......نقل قول:
بعد من یه سرچ میخوام اگر زد فامیل اکبری تمام اکبری ها رو تو خود اون فیل د ها نشون بده مثلا طرف فامیلیش اکبری هست شماره موبایل 02655564545 وقتی جستو جو کرد اکبری رو بقیه داده هایی که با اکبری ذخیره شدن رو تو فید هاشون نمایش بده مثل موبایل تکه کد بالا رو امتحان کن برای یکی دو بار جواب میده
کدی که من دادم هم همین کارو میکنه منتها من دقیقا متوجه مشکلت نشدم
البته این کد بعضی وقتها جواب نمیده ها
فکر کنم برای من از اون وقت ها هست