Chat LIVE With Programming Experts! There Are 23 Online Right Now...

Welcome to Dream.In.Code
Become a VB Expert!

Join 244,174 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,345 people online right now. Registration is fast and FREE... Join Now!




vb6.0

 
Reply to this topicStart new topic

vb6.0, code for searching in database

jenny_jeff24ever
13 Sep, 2008 - 12:30 AM
Post #1

New D.I.C Head
*

Joined: 2 Aug, 2008
Posts: 2

hi anyone can help us today... We need the information today! please help us, were doing our project but we don't know how to update and search with link to database using visual basic..were hoping for your quick response,,thank you...

CODE


Private Sub SEARCH_Click()
prompt$ = "enter full book title"
SearchStr$ = InputBox(prompt$, "book title search")
Data1.Recordset.Index = "booktitle"
Data1.Recordset.Seek "=", SearchStr$
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
End If
End Sub




User is offlineProfile CardPM
+Quote Post


dineeshd
RE: Vb6.0
13 Sep, 2008 - 01:06 AM
Post #2


Group Icon

Joined: 30 Jun, 2008
Posts: 600



Thanked: 25 times
Dream Kudos: 575
My Contributions
You can find many tutorials related database access in our Visual Basic Tutorials Section.
User is offlineProfile CardPM
+Quote Post

akhileshbc
RE: Vb6.0
28 Sep, 2008 - 04:06 AM
Post #3

D.I.C Head
Group Icon

Joined: 26 Sep, 2008
Posts: 177



Thanked: 6 times
Dream Kudos: 50
My Contributions
CODE
Private Sub SEARCH_Click()
prompt$ = "enter full book title"
SearchStr$ = InputBox(prompt$, "book title search")
Data1.Recordset.movefirst
Data1.Recordset.findfirst "booktitle='" &  SearchStr$ &"'"
If Data1.Recordset.NoMatch Then
msgbox "Nothing Found"
End If
End Sub

User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic

Time is now: 7/4/09 05:45AM

Live VB Help!

Be Social

Dream.In.Code RSS Feed Dream.In.Code LinkedIn Group Follow Us On Twitter Fan Us On Facebook

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month