[oyong]

i would like to search records from access and after searching i would like to pass it to datagrid.

Private Sub cmdsearch_Click()
On Error GoTo err_Handler
   Set Conn = New ADODB.Connection
	Dim rs As New ADODB.Recordset
	Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\newd\CebuYachtClub.mdb;Persist Security Info=False"
	Conn.Open
	rs.Open "Select * From yati where Registration_Number=txtsregnumber.text", Conn, adOpenDynamic, adLockOptimistic
	
	With rs
	   .AddNew
	   
		!Registration_Number = txtrnumber
		!Vessel_Name = txtvname.Text
		!Vessel_Owner = txtvowner.Text
		!Month_Of_Docking = txtmonth.Text
		!Year_Of_Docking = txtyear.Text
		!Day_Of_Docking = txtday.Text
		!LOA = txtloa.Text
		!Beam = txtbeam.Text
		!Hull_Type = txthtype.Text
		!Keel_Draft = txtkdraft.Text
		!Air_Draft = txtadraft.Text
		!Engine = txtengine.Text
		!Port_Of_Origin = txtporigin.Text
		!Distination = txtdistination.Text
		!Lenght_Of_Stay = txtlstay.Text
		!Purpose_Of_Visit = txtpvisit.Text
		!Contact_Number = txtcnumber.Text
		!Email_Address = txtemailadd.Text
		!Port_Of_Registry = txtpregistry.Text
	 .Update
	   MsgBox "Data Found"
		 
	End With
	
	
	rs.Close
	Set rs = Nothing
	 adodcsearch.Refresh
	 dtgrdsearch.Refresh
Exit_Err:
	Exit Sub
err_Handler:
	 MsgBox "No records found", vbExclamation
	Resume Exit_Err
End Sub

Mod Edit: Please use code tags when posting your code. Code tags are used like so =>

Thanks,
PsychoCoder

This post has been edited by PsychoCoder: 19 July 2009 - 08:52 AM

[PsychoCoder]

Are you receiving any errors? Does this code not work that way you intended it? When asking for help there are a couple items that are vital in order for someone to properly help you:

• Post the code you're having problems with
  
• Post the exact error you're receiving, if you are receiving one
  
• If no error explain what the code is doing versus what you want it to do
  
• Post your question in the body of your post, not the description field

[thava]

i can able to find one correction

if registration no is numeric datatype

rs.Open "Select * From yati where Registration_Number=" & val(txtsregnumber.text), Conn, adOpenDynamic, adLockOptimistic

if registration no is string datatype

rs.Open "Select * From yati where Registration_Number='" & txtsregnumber.text &"' ", Conn, adOpenDynamic, adLockOptimistic

other than this error you should mention it

[rajaganeshh]

I am always having the Msg like No Record Found...

Attached image(s)

• 

This post has been edited by rajaganeshh: 21 September 2009 - 01:19 AM

[thava]

where is your code