[fifz]

I am beginner of vb.net 2008, i have try this code but it can display my database, i want to display my database like when i insert the header title of table from database, it can show all the information. the example like i have a textbox and one search button, when i insert the word IT, it will show me all information about IT department.

 Protected Sub cmdSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSearch.Click

		Dim InputStr As String = txtsearch .Text

		Dim patternStr As String = "([^\.\?\!]*)[(" & Trim(InputStr) & ")][\.\?\!]"

		'For Each FileStr As String In IO.Directory.GetFiles("C:\Documents and Settings\sofi.SHDMNET.000\Desktop\PR1", "*.mdb")
		For Each FileStr As String In IO.Directory.GetFiles("C:\Documents and Settings\sofi.SHDMNET.000\Desktop\PR1\PR INFO\", "*.mdb")


		  Dim strToSearch As String = IO.File.ReadAllText(FileStr)


			If strToSearch.Contains(InputStr) = True Then


			End If


		Next

	End Sub

End Class

please help me...

This post has been edited by fifz: 16 June 2009 - 07:11 PM

[MattjCook07]

fifz, on 16 Jun, 2009 - 06:04 PM, said:

I am beginner of vb.net 2008, i have try this code but it can display my database, i want to display my database like when i insert the header title of table from database, it can show all the information. the example like i have a textbox and one search button, when i insert the word IT, it will show me all information about IT department.

 Protected Sub cmdSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSearch.Click

		Dim InputStr As String = txtsearch .Text

		Dim patternStr As String = "([^\.\?\!]*)[(" & Trim(InputStr) & ")][\.\?\!]"

		'For Each FileStr As String In IO.Directory.GetFiles("C:\Documents and Settings\sofi.SHDMNET.000\Desktop\PR1", "*.mdb")
		For Each FileStr As String In IO.Directory.GetFiles("C:\Documents and Settings\sofi.SHDMNET.000\Desktop\PR1\PR INFO\", "*.mdb")


		  Dim strToSearch As String = IO.File.ReadAllText(FileStr)


			If strToSearch.Contains(InputStr) = True Then


			End If


		Next

	End Sub

End Class

please help me...

This just smells like a school assignment? And the code you are showing can easily be found online, if you are a beginner you would use a litter rougher coding standards. Try learning something about VB before you post code you didn't write and expect someone to correct for you.

[fifz]

that not a school assignment!

i have search via the internet but when i insert the coding, it still can't show me the database..

i don't expect someone to correct me.. but i just need a help... because i have search the code from the internet.