|
in vb.net,what's significant differences from vb 6.0 and how are powerfull vb.net compared by borland delphi version up to 7.0?
thanks for your comments.
|
|
|
|
|
|
One very significant difference you should be aware of:
VB6 requires you to deploy a minimum runtime file set that is about ~1.5 MB setup file size.
VB.NET requires you to deploy the NET framework which is about ~30 MB setup file size.
Robert
|
|
|
|
|
Still having same problem... Here is a less confusing version I think. I renamed everything back to default (more or less) I am trying to filter my TempData table (MS Access) by a value and have the new data reflected in the MainDataSet1 instance. I know im still far off, but I feel that im getting closer. (Later the fixed string '11x14' will be a variable based on the combobox)
and yes I know that this code doesnt work... that is my problem... its a major hack job
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
OleDbSelectCommand1.CommandText = "SELECT TemplateID, Images, ImageSize, ID FROM TempData WHERE ImageSize = '11x14'"
OleDbSelectCommand1.Connection = OleDbConnection1
OleDbConnection1.Open()
OleDbSelectCommand1.ExecuteReader()
OleDbConnection1.Close()
OleDbAdapter.SelectCommand = OleDbSelectCommand1 '"SELECT TemplateID, Images, ImageSize, ID FROM TempData WHERE ImageSize = '11x14'"
OleDbAdapter.Fill(MainDataSet1.TempData)
End Sub
Any help is appreciated. I WILL learn this or go totally insane.
|
|
|
|
|
 I dont care what they say.. hacking code does work!
Sub Picker_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim LicForm As New LicForm()
OleDbSelectCommand1.CommandText = "SELECT TemplateID, Images, ImageSize, ID FROM TempData WHERE ImageSize = '" & LicForm.Aspect & "'"
MainDataSet1.Clear()
OleDbAdapter.Fill(MainDataSet1)
'If LicForm.Aspect = "" Then MsgBox("oops", MsgBoxStyle.Information)
Initialize()
End Sub
Sub Initialize()
Dim ImageList1 As New ImageList()
Dim Counter As Integer
Dim Path As String
ImageList1.Images.Clear()
ListView1.Items.Clear()
ImageList1.ImageSize = New Size(128, 64)
MsgBox(MainDataSet1.TempData.Count, MsgBoxStyle.Information)
For Counter = 1 To MainDataSet1.TempData.Count
Path = MainDataSet1.TempData(Counter - 1).TemplateID
ImageList1.Images.Add(Image.FromFile("C:\Adobe Project\Icons\" & LicForm.Aspect & "\" & Path & ".jpg"))
ListView1.Items.Add(Path)
Next Counter
ListView1.LargeImageList = ImageList1
For Counter = 0 To MainDataSet1.TempData.Count - 1
ListView1.Items(Counter).ImageIndex = Counter
Next Counter
ListView1.View = View.LargeIcon
ListView1.Update()
Me.Update()
End Sub
I just wanted to post this update to say "Yeah!" and so anyone who didnt understand the original question would now maybe see. Thanks again all and I will be here all week long.
and yes there will be further refinements.. this is my initial working copy
|
|
|
|
|
Hi Mike,
A process writes on the log file from the oldest date to the latest.
I have to extract first the latest ( which is at the end of the log)
I have to search for the “warning” or “critical string“
I have a code that reverses the reading of the log file but my problem is, the details next to it was written also in a reverse manner.. like this…
03/03/05 11:34:04:
03/03/05 11:34:04:AC4_PROD_17.XIE1F_LOTSUBPRODUCTHIST. object has grown from 2128 to 2129 extents
03/03/05 11:34:04:AC2_PROD_8.XIE3F_LOTTXNHIST. object has grown from 4700 to 4701 extents
03/03/05 11:34:04:AC2_PROD_8.XIE1F_LOTSUBPRODUCTHIST. object has grown from 5603 to 5604 extents
03/03/05 11:34:04:AC2_PROD_8.XIE2F_LOTPARAMHIST. object has grown from 8351 to 8352 extents
03/03/05 11:34:04:AC2_PROD_8.XIE3F_LOTHIST. object has grown from 3651 to 3652 extents
03/03/05 11:34:04:AC2_PROD_8.XIE1F_ENTITYPARAMHIST. object has grown from 5542 to 5543 extents
03/03/05 11:34:04:ERROR#**** Error: marsprod@cvspwcora010n2:MARS:object_extent_growth:WARNING ERROR
Here’s my code:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fs As FileStream = File.Open("\\cvspwcora010\d$\oracle\admin\log\oramon_marsprod.log", FileMode.Open, FileAccess.ReadWrite, System.IO.FileShare.ReadWrite)
Dim streamReader As New StreamReader(fs)
Dim stringresult As String = streamReader.ReadToEnd
Dim arLogLines() As String = stringresult.Split(vbNewLine)
Dim i = 0
Dim b = Len(arLogLines(i))
For i = arLogLines.Length - 1 To 0 Step i - 1
' If InStr(arLogLines(i), "WARNING") Or InStr(arLogLines(i), "CRITICAL") Then
Response.Write(" " & arLogLines(i) & "
")
' Response.Write(" " & arLogLines(i) & "
")
' End If
Next
End Sub
anyone? thanks
|
|
|
|
|
You messed up on the For statement. The Step modifier should be just "-1", not "i-1". Your code should look more like this:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fs As FileStream = File.Open("\\cvspwcora010\d$\oracle\admin\log\oramon_marsprod.log", _
FileMode.Open, FileAccess.ReadWrite, System.IO.FileShare.ReadWrite)
Dim streamReader As New StreamReader(fs)
Dim stringresult As String = streamReader.ReadToEnd
Dim arLogLines() As String = stringresult.Split(vbNewLine)
Dim i As Integer
Dim b As Integer = Len(arLogLines(i))
For i = arLogLines.Length - 1 To 0 Step -1
If InStr(arLogLines(i), "WARNING") Or InStr(arLogLines(i), "CRITICAL") Then
Response.Write(" " & arLogLines(i) & "<BR>")
End If
Next
End Sub
You might also want to consider putting in some Try/Catch blocks around the file stuff in case the file is unavailable for some reason.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
thanks Dave.. always been very helpful..
|
|
|
|
|
I hav a vb source codes which I want to change them into vb.net source code, is there any tools that can help me to do so??? In vb, there was a keyword 'set' and 'let' which cannot supported in vb.net anymore. Can some one tell me what should i use to replace this keywords?? Some portion of the vb code( it is vb code,right) is as below:
<%
Set objInputXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
objInputXMLDoc.load Server.MapPath("doSpellingSuggestion.xml")
objInputXMLDoc.selectSingleNode("//key").Text = Google_Web_APIs_license_key
objInputXMLDoc.selectSingleNode("//phrase").Text = Search_String
%>
and what does <% this mean??? Thank you so much
|
|
|
|
|
Doesn't the VS.NET compiler already do that conversion for you when you open a VB project ? That's what I thought happened.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
This is VBScript code you found in a ASP web page. There is no conversion tool that will convert this for you. You'll have to recode the page by hand using VB.NET and ASP.NET, using a Web Forms project.
Set and Let are not needed anymore. (Actually, Let was optional to begin with.) There are no replacement words for them.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi there,
I use a Setup-Project to deploy my application. Now i made a new Version - and want to deploy it as update - so i changed the version number in the setup-project -> it changed the ProductCode (absolutely correct) and the upgradecode stays the same (absolutely correct).
Now if I install the new version it overwrites the old version (as it should do) but it creates a second software entry (in "control panel" -> "add remove programs")
does anybody know how to avoid this?
thanks!!
|
|
|
|
|
I just bought a brand new laptop and installed a fresh copy of XP. I have tried a few times now to install VB.net and this same error keeps coming up. What is causing this? These cd's work fine on my desktop but do not work on the laptop. Any help would be great! =Brandon
|
|
|
|
|
Never heard of the message. Could you post the EXACT wording of the message?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm trying to do what should be a simple thing: watch a directory, and when a file appears read what's in the file. I'm using a FileWatcher to watch the directory, and that's working fine. What's not working is the StreamReader (actually it works once then starts failing).
Here's a code snippet from the handler routine that is set to process file creation events (I'm typing it in, so typos are mine, not in the code):
<br />
Private Sub processNewFile(Byval source As Object, ByVal e As FileSystemEventArgs)<br />
Dim message As String<br />
Dim sr As StreamReader<br />
<br />
Try<br />
' Uncomment the following to make it work<br />
' MsgBox("Be patient")<br />
sr = New StreamReader(e.FullPath)<br />
message = sr.ReadToEnd()<br />
sr.Close()<br />
MsgBox("The message is: " & message)<br />
Catch ex As Exception<br />
MsgBox("Dang...got an exception")<br />
End Try<br />
End Sub<br />
I test this by plopping files into the watched directory. The symptoms are as follows:
1) The first time I create a file in the watched directory it works perfectly.
2) Any subsequent attempt to create a file will cause the "new" statement to fail. The actual exception claims that the file is in use.
3) If I uncomment the commented lines in the code above (which causes a useless message box to appear) or if I add sufficiently long delay at that same point, it works perfectly.
By the way, if I take the exact same code and do it somewhere else (i.e. not in a handler for the filewatcher, just fire it off with a button click) it works perfectly, so clearly there's something about the context that's causing this.
Any ideas why this shouldn't work?
|
|
|
|
|
Hello,
I have recently had a similar problem with a message box being required to give the process a bit of a "break".
You could use a thread to stop the process for a couple of seconds, such as:
Edit:
Dim thread As Threading.Thread = New Threading.Thread(AddressOf TestSub)
Private Sub processNewFile(Byval source As Object, ByVal e As FileSystemEventArgs)
Try
thread.Start()
Catch ex As Exception
MsgBox("Dang...got an exception")
End Try
End Sub
And then create a new sub such as:
Sub TestSub()
'Your code goes here
End Sub
To pause your thread, all that you need to do is: thread.Sleep(1000)
Programmer2k4
My sig:
"The so-called 'Bugs' do not exist, they are merely features hidden by developers with message boxes that say 'An unhandled exception has occurred'." - Programmer2k4
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
I now use my CodeProject Blog!
|
|
|
|
|
Programmer2k4 wrote:
I have recently had a similar problem with a message box being required to give the process a bit of a "break".
Yes, but such tricks are symptomatic of not understanding what's going on under the covers. Adding sleeps/waits is dangerous since you need to determine what is the maximum time that you need in order to ensure success. You can't do that without understanding what's going on...and if you understand what's going on you shouldn't need the sleep in the first place!
I actually re-wrote the code to just keep trying to do the "new" and to count how many times it takes before it's successful. I then fired off a process on a machine running a real O/S (not this windows piece of ...oh nevermind), to just keep creating the file. The result is that the "new" always succeeds on the first iteration when the program is initially fired up. After that it may take anywhere from 4 to 25 iterations before being successful (usually around 6 or 7).
Clearly there's some sort of asynchronous issue going on here, but I can't figure out what the heck it is!
|
|
|
|
|
Glen Baker wrote:
Adding sleeps/waits is dangerous since you need to determine what is the maximum time that you need in order to ensure success.
True, but you could put the thread.sleep(300) inside of the Catch exc as exception. That way, it checks every 300 milliseconds if it is ready, and if not, it sleeps for another 300 milliseconds, until it eventually works.
I don't think there is any way to read/write to the file if it is returning a "File is already in use" error in previous tries.
Programmer2k4
My sig:
"The so-called 'Bugs' do not exist, they are merely features hidden by developers with message boxes that say 'An unhandled exception has occurred'." - Programmer2k4
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
I now use my CodeProject Blog!
|
|
|
|
|
Programmer2k4 wrote:
I don't think there is any way to read/write to the file if it is returning a "File is already in use" error in previous tries.
This is the crux of the whole issue. The file should not be in use! The StreamReader.Close() method has been called, the method has been exited. There should be no resources associated with the file (at least not with any reasonable operating system!). However clearly the O/S is maintaining some sort of handle to the file and something has to be kicked repeatedly in the butt to get the resources freed.
Unfortunately I can't for the life of me figure out what is holding onto the file, how to free it up, and why it eventually fixes itself.
Very frustrating.
|
|
|
|
|
StreamReader? I must be missing something here. The file is being written to disk by another process, your code tries to read the file when the FileSystemWatcher event fires (which will happen when the file is CREATED, not when it's completely written!) Your code attempts to read a file that is still being written and hasn't been flushed to disk and closed, correct?
The StreamReader/StreamWriter classes hold onto underlying Win32 file handles. Even though you called close on the Reader/Writer object, it would appear that the underlying, unmanaged, file handle hasn't been closed and released. This won't happen until the the Reader/Writer object is collect, which will call .Dispose() on the object. You can try calling .Dispose() yourself to free the underlying resources that your application holds.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
StreamReader? I must be missing something here. The file is being written to disk by another process, your code tries to read the file when the FileSystemWatcher event fires (which will happen when the file is CREATED, not when it's completely written!) Your code attempts to read a file that is still being written and hasn't been flushed to disk and closed, correct?
Ah...this is a plausible explanation! The first time that the handler gets called I notice that the system appears to load a dll (microsoft.visualbasic.dll). Subsequent iterations of the handler do not result in this dll being loaded. It may well be that the process of loading the dll is sufficient to delay things enough for the file write to complete, and therefore cause the StreamReader constructor to work.
From then on the dll is not loaded (it's already there), so the StreamReader constructor is called sooner, and as Dave points out the file may not be completely written yet, therefore causing the symptoms that I'm seeing.
Interestingly, trying to use read only handle doesn't solve this problem.
Hmm...makes me wonder how to properly use the FileWatcher at all.
Anyway, thanks Dave for pointing out the obvious. I'll now scratch my growing stubble and see if I can figure out a way to make this sucker work!
|
|
|
|
|
skifanatic wrote:
Interestingly, trying to use read only handle doesn't solve this problem.
That's because the other process has opened the file for write acces with DenyShareAll attributes. No other process on earth can open that file until the write is completed and the file is flushed and closed.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
That's because the other process has opened the file for write acces with DenyShareAll attributes.
The other process is samba (I'm dropping the file onto the Windows machine from my Linux machine...yes, I'm one of those annoying Linux people
|
|
|
|
|
Perhaps explicitly opening the files as readonly will help.
<br />
Dim sr As New IO.StreamReader(IO.File.OpenRead(e.FullPath))<br />
message = sr.ReadToEnd()<br />
sr.Close()<br />
I colleague of mine was having problems with trying to read, then upload, image files to a database. In the end, both the uploaded files and even the source files were getting hammered somehow, even though the code looked good. Opening the source files as readonly fixed the issue.
-- Dallas
|
|
|
|
|
I am trying to find a way to extract and send the contents of TEXT FILE 1, via email, to a list of email addresses in TEXT FILE 2.
So just to clarify, I would like some code which will rip the contents of Text File 1 and send the contents to everyone in Text File 2.
Any help received will be greatly appreciated.
Thanks,
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
