|
I created a little demo program. My suggestion of returning the value from the Main method doesn't seem to be available in VB.NET (It must be a C# thing)
Anyway this works:
Module Module1
Sub Main()
Environment.Exit(Convert.ToInt32(Environment.GetCommandLineArgs.GetValue(1)))
End Sub
End Module
It takes a commandline parameter which it returns back as the error code. The following little batch file demonstrates:
SetErrorLevel 5
echo The error level is %errorlevel%
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Not getting the response you want from a question asked in an online forum: How to Ask Questions the Smart Way!
|
|
|
|
|
I've created a service that updates the components of several of my applications from a central file share on my network. The service is running with the localsystem account. An exception occurs when the service attempts to connect to the file share. The share contains the components that I copy to the local computer to update an application. I think the problem lies in the way the service connects to the shared folder. It uses the local computer's credentials when it connects, I think. Is there any way that the service can connect to the specified file share using the current user's credentials?
|
|
|
|
|
Services run all the time, even when there is no user logged in.
A better solution would be to allocate a domain account for the service to use that has the relevant access.
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Not getting the response you want from a question asked in an online forum: How to Ask Questions the Smart Way!
|
|
|
|
|
Like Colin said, you'll have to create an account that has rights to both the local machine for updating the components AND rights to the server share. The local system account does NOT have any rights to any network resources. Go into the Service manager and change the account that your service is running under to use this account.
Using the currently logged in users account is not a good idea...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
When i try to insert the date type in the format 23/03/2004 12:00:00, I am getting an error incorrect syntax near (.).
coulfd anyone hep me with thiw
|
|
|
|
|
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
|
|
|
|