|
Take a look here, the code he shows is in C# but it shows all the date formats, so it should be easy to follow.
Date and Time Manipulation in SQL Server 2000
http://www.sqljunkies.com/HowTo/6676BEAE-1967-402D-9578-9A1C7FD826E5.scuk
|
|
|
|
|
This is my first post, so sorry if I break any taboos. I have developed a contact manager program in VB.net 2003. I am storing my data in a Access 2000 database. I have a find button and text box that searches a given field for a match, but the code I have written searches for the exact word and doesn't search for partial matches. I have looked all over the internet and have been unable to find a solution. I have included below the find exact match code as well as my attempt at a partial match search. Any guidance or help would be appreciatied.
Find Exact (Does Work)
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindExactMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase(DsSalesMainViewer.MAIN(i)("CONTACTLASTNAME")) = UCase(txtFind.Text) Then<br />
Exit For<br />
End If<br />
Next i<br />
If i = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
Find Partial Code (DOES NOT WORK) I get a syntax error on the then at the end of the like statement.
Private Sub btnFindPartialMatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindPartialMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase((dsSalesMainViewer.Main(i)("CONTACTLASTNAME")) Like "*" & UCase(txtFind.Text) & "*" Then<br />
Exit For<br />
End If<br />
Next i<br />
If = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
Thanks, Andy S.
|
|
|
|
|
LIKE '%WHAT-TO-MATCH%'
Like "'%" & UCase(txtFind.Text) & "%'" Then
|
|
|
|
|
I appreciate the help. I tried changing the code as follows, but I still have a syntax error following the Then at the end of the like statement.
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindExactMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase((dsSalesMainViewer.Main(i)("CONTACTLASTNAME")) Like "'%" & UCase(txtFind.Text) & "%'" <br />
Exit For<br />
End If<br />
Next i<br />
If = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
|
|
|
|
|
I don't see the then in the code you posted.
If UCase((dsSalesMainViewer.Main(i)("CONTACTLASTNAME")) Like "'%" & UCase(txtFind.Text) & "%'") Then
|
|
|
|
|
Ok, that last line got rid of the syntax error I was having and I can run debugger, but I now have no find functionality. The program finds no matches even if you type the exact string. I have included the current code revision. Thanks for your help thus far, it is greatly appreciated.
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindExactMatch.Click<br />
Dim i As Integer<br />
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1<br />
If UCase((DsSalesMainViewer.MAIN(i)("CONTACTLASTNAME")) Like "'%" & UCase(txtFind.Text) & "%'") Then<br />
Exit For<br />
End If<br />
Next i<br />
If i = Me.BindingContext(DsSalesMainViewer, "Main").Count Then<br />
MessageBox.Show("Sorry, there was no match found!", "Search Results", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
Else<br />
Me.BindingContext(DsSalesMainViewer, "Main").Position = i<br />
End If<br />
End Sub
|
|
|
|
|
The LIKE statement has to be used as a string not as a vb statement, sorry, try this.
For i = 0 To Me.BindingContext(DsSalesMainViewer, "Main").Count - 1
Dim sString As String = "Like '%" & UCase(txtFind.Text) & "%'"
If UCase((DsSalesMainViewer.MAIN(i)("CONTACTLASTNAME")) & sString) Then
Exit For
End If
Next i
|
|
|
|
|
I get the unhandled exception below. Addedlike is the first value in the table.
An unhandled exception of type 'System.InvalidCastException' occurred in microsoft.visualbasic.dll
Additional information: Cast from string "ADDEDLIKE '%SA%'" to type 'Boolean' is not valid.
|
|
|
|
|
Add a space in the line like this,
Dim sString As String = " Like '%" & UCase(txtFind.Text) & "%'"
if this doesn't work I'm gonna need to see more code to re-write it, I dont have your data and ect. ect.
|
|
|
|
|
Unfortunately that didn't work either. Gave me the same exception. The code for this form is very large. What would be the best way to get you the information that you need?
|
|
|
|
|
How do I load a listbox with the names of people out of a database, but return a numeric value. Like I would in ASP in a select statement. Although I display names, the value is a numeric index.
Cheers for now.
|
|
|
|
|
when binding the combobox to your datasource, set the Member properties appropriately...
like so:
myCombo.DataSource = myDataset.Tables("Employee")
myCombo.DisplayMember = "EmployeeFullName"
myCombo.ValueMember = "EmployeeID"
hope this helps.
-jim
|
|
|
|
|
Hi
I want to create a Microsoft Word document which has the ability of Mail Merge to MySQL database.
The application should change Datasource and Range of Mail Merge. After changing the Datasource and Range, it should perform "Merge to Printer"
I did created the document but need help in Mail Merge
Thanks in advance
|
|
|
|
|
Microsoft Knowledge Base Article - 301656
How To Automate Microsoft Word to Perform a Mail Merge from Visual Basic .NET
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q301/6/56.ASP&NoWebContent=1
|
|
|
|
|
Thanks for replying. It did helped me alot. By accidently I rated 2/5. I give 5/5.
Thanks Again
|
|
|
|
|
hi,
now i am devloping an report using crystal report in my application. i need to print in preprinted sheet. i need to set fixed width for details section and after the fixed size then print goes to next new page. any one help to me.
thanks in advance
Have A Nice Day!
Murali.M
|
|
|
|
|
I made a cd player in vb.net using the windows media player active x
control (OCX). I am incrementing songs in a list box, the code is
below.
The problem I am haveing is that when I play mp3 tracks, the very
begining is getting cut off. I think the song needs to buffer first.
How can I do this?
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If AxWindowsMediaPlayer1.playState() = WMPPlayState.
wmppsStopped Then
If ListBox1.SelectedIndex() <= ListBox1.Items.Count - 2
Then
ListBox1.SelectedIndex() = ListBox1.SelectedIndex() +
1
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.controls.play()
'Else : MessageBox.Show("End of Playlist")
End If
End If
End Sub
Many thank's,
Glen Conaway
|
|
|
|
|
You can't control the buffering of WMP.
After you set the URL of the player, you might want to poll the Player.playState property and make sure it is Ready (value: 10) before you "hit the play button".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
How do I do this?
I tried a loop with a check to see if the playstate property is ready and it doesn't change to ready, and when I try to set it to ready it says its a read only property.
Many Thanks,
Glen Conaway
|
|
|
|
|
I've never used the WMP as a control in any app, so I'm not an authority on how exactly how it works. But, from what I can gather, you either set the Player.URL property to whatever source MP3 your using, then poll, in a loop, the status of the Player.playState property to see if it ever becomes Ready
Do
Application.DoEvents()
Loop Until (Player.playState = 10)
I can't say if it will ever become ready, but I think what is happening is that your trying to play the file before it's loaded or buffered. The player starts, but with no data, you get silence. Then, when the file is loaded it starts playing from where the player's timer says it's supposed to be and not at the beginning of the file.
As a test, set the .URL of the source MP3, then do Thread.Sleep(5000), then do Player.Controls.Play() and see what happens.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thank's for the help, the thread.sleep method will come in helpfull.
In my program I have a stop button (AxWindowsMediaPlayer1.controls.stop(), and if I click it and wait, then select a different track, and then hit play I still have the save problem.
I converted my tracks to MP3 using the MusicMatch Jukebox convert file feature, Maby the MusicMatch didn't put enough empty space at the begining of the tracks, yet when I play the tracks in the windows media player (from operating system), and in the Music Match Jukebox, they play fine.
Many thanks,
Glen Conaway
|
|
|
|
|
To all out there... sorry if i'm asking too much in this forums.. Its ok if u all cant help me but if there's one soul out there who's willing to help me in this.. May God bless you in everything that you do..
Peace to the WOrld!!
|
|
|
|
|
Hello there. You should take Dave's point. When you ask for complete solutions, realize that most of the folks who answer questions on these forums are professionals who are paid for developing complete solutions.
Also know, that there are many (like Dave) who believe in contributing to the community and are willing to donate their time to answer questions of a specific nature - to assist other developers through a specific problem, but not to do their work for them.
There are many kind souls here. Please post a specific question rather than a request for a complete solution and you'll likely see a great deal of kindness in the response.
|
|
|
|
|
Anybody out there who can provide me with the complete codes for sending email.. Need it for my project also.. Thanx...
Peace to the WOrld!!
|
|
|
|
|
bearnini wrote:
provide me with the complete codes for sending email
That's the wrong question to ask around here. We're not doing homework for anyone. We'll help you with specific questions/problems you have, but we're not a One Stop Source Code Shop.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|