|
Steven J Jowett wrote: So the employers need to be educated in the benefits of ceasing development in vb6 and migrating to .NET
Wish it is that simple.
Cost, risk, re-training, disruption to business, to name a few....
|
|
|
|
|
For how long should you flog a dead horse?
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
Until the shareholders revolt and lynch the CEO.
|
|
|
|
|
Until the guys who's paying for the system are convinced and willing to redo the system...
Look, we have a system, written in Delphi 5, each sub module is one exe, and there are hundreds of them, from A01 to G99, that are used by a few branches in different country, each having different business logic, and as such each branches are having the similar but not the same A01.exe-G99.exe, same for the database, enhancement is done by copy the exe and change from there, every queries are embedded in the form, and you must look at each form to look at the SQL statement, the way of passing variable is to make in-memory temp tables, then call SQL to retrieve the values from the temp tables, the database field are all user defined type for no apparent reason and benefit, date is stored as integer, money is stored as integer after mutiplied by 10000, rates are stored as integer after multiplied by 100, 10000 or 1000000 depends on the mood of the programmer, language support on a platform that doesn't support multi-languages, functions are duplicated all over the places...
Simply put, the style of the system was done in the fashion in the dBase era.
I would make a new system in a heartbeat, if I have the say. But until the people who's paying for the system are ready to remake that pile of doo-doo, the system needs to be maintained as it is.
Good thing I am not the one who's maintaining it....
|
|
|
|
|
darkelv wrote: Good thing I am not the one who's maintaining it....
If I was the one, I'd quit.
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
Even if you quit, someone else would be hired to maintain it.
Systems are usually replaced when it can no longer support the business, or the cost of maintaining it is way too high. Rarely it's due to "it's written in horrible language".
|
|
|
|
|
Only the businesses can estimate that. I was maintaining a 16-bit VC++ 1.5 app. only 4 years ago. How long ago was that a dead product?
Kevin
|
|
|
|
|
It is not always easy to rewrite an application in such a fashion as to behave identically to an old one. If end users have grown accustomed to all sorts of little nuances in an old application, it may be difficult to ensure that all such nuances come through in a rewrite, especially if the earlier inclusion of such nuances was not done systematically but rather on an ad-hoc basis.
When doing such a rewrite, it can be hard to avoid a sort of 'limbo', where customers whose system works are reluctant to switch to a comparatively untested new system. Without customer assistance in testing the new system, it may be difficult to get it to the point that customers are happy switching to it.
|
|
|
|
|
I used the crystal report wizard to connect a Ms SQL Server. During the procedure the wizard requested for the username and password to the database.
However, when i run the application and want to pull up a report the page request for the database password.
What am i doing wrong?
JESA
|
|
|
|
|
How did you connect to the database when you developed the code?? If you used Trusted Connection or Windows Authentication, then that connection was made using your windows ID. If this is an ASP.NET app, the code is no longer running under your ID, but is using the ASPNET account. Since the ASPNET account isn't trusted by SQL Server, you get the credentials box asking for a valid login.
It could be other things too, but this is a common problem with new people using SQL Server.
|
|
|
|
|
hello,
how do i indent XML using DOM...
i have a XML but it is not properly Indented. what should i do to indent it....
thankx in advance
koolprasad2003
Be a good listener...Because Opprtunity knoughts softly...N-Joy
|
|
|
|
|
There is no formatting in the DOM. You only format the XML when it's written to a stream using the XmlTextWriter class. A quick'n'dirty sample:
Public Shared Function GetXmlDocumentAsString(ByVal document As XmlDocument) As String
Using ms As New MemoryStream()
Dim xtw As New XmlTextWriter(mw, Encoding.UTF8)
With xtw
.Formatting = Formatting.Indented
.Indentation = 4
.IndentChar = " "c
End With
document.WriteContentTo(xtw)
xtw.Flush()
Dim textBytes() As Byte = ms.ToArray()
Return Encoding.UTF8.GetString(textBytes)
End Using
End Function
|
|
|
|
|
I have a calculator program and I would like to be able to use the key pad to enter the numbers and perform the calculations, such as adding, and having the enter key be the equals key. Would some point me in the direction of how to accomplish this? This is my current code:
Public Class calcFRM
Dim num, ans As Double
Dim oper1, oper2 As Integer
Dim oper3 As String
Private Sub num0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0.Click
num = num & 0
display.Text = num
End Sub
Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num1.Click
num = num & 1
display.Text = num
End Sub
Private Sub num2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2.Click
num = num & 2
display.Text = num
End Sub
Private Sub num3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.Click
num = num & 3
display.Text = num
End Sub
Private Sub num4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4.Click
num = num & 4
display.Text = num
End Sub
Private Sub num5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5.Click
num = num & 5
display.Text = num
End Sub
Private Sub num6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num6.Click
num = num & 6
display.Text = num
End Sub
Private Sub num7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num7.Click
num = num & 7
display.Text = num
End Sub
Private Sub num8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8.Click
num = num & 8
display.Text = num
End Sub
Private Sub num9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9.Click
num = num & 9
display.Text = num
End Sub
Private Sub dot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dot.Click
MsgBox(" not coded")
End Sub
Private Sub eql_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eql.Click
If oper3 = "+" Then
oper2 = Val(display.Text)
display.Text = oper1 + oper2
ElseIf oper3 = "-" Then
oper2 = Val(display.Text)
display.Text = oper1 - oper2
ElseIf oper3 = "*" Then
oper2 = Val(display.Text)
display.Text = oper1 * oper2
ElseIf oper3 = "/" Then
oper2 = Val(display.Text)
display.Text = oper1 / oper2
End If
End Sub
Private Sub div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles div.Click
oper3 = "/"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub multi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multi.Click
oper3 = "*"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub subt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subt.Click
oper3 = "-"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
oper3 = "+"
oper1 = Val(display.Text)
display.Clear()
display.Text = ans
num = 0
End Sub
Private Sub del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del.Click
display.Clear()
ans = 0
num = 0
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
MsgBox("This button currently has no function")
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
MsgBox("This button currently has no function")
End Sub
End Class
Thank you
|
|
|
|
|
Handle the keypress event on the form and check the value of the key pressed, then call your events for the different buttons based on the key pressed.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hi to all,
I want to show the contents of a cell of datagridview when i click on
that cell to text box
How i can able to achive it????????
Please Help.
Thanks
|
|
|
|
|
use the cell click event to identify the cell and set the text property of the textbox to the cell value
TextBox1.text = sender.value
|
|
|
|
|
ppl,
am using a grid
at run time am getting 8 values in to the coloumn,
when i call the grid i need to edit only one column value from the grid and finally am saving all data in to my table,
could you explain me how to edit a particular (only one )column value....
self confidence+hard work=SUCCESS
|
|
|
|
|
Write your editing template so it shows the values for the other columns, and not a control to allow editing.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
i could not get editing template mean?
self confidence+hard work=SUCCESS
|
|
|
|
|
Hi all,
In my application i am generating a word document after that,as per my requirement i need to open a popup window contains file upload control.
Actually what happens is Word document is generating fine after clicking Save button behind popup window containing file upload control is closing.
Can any body help me from this?
thanks in advance,
eswar.
|
|
|
|
|
Try popping the upload form from the save event!
|
|
|
|
|
Hello iahve a problem with my vb 6 application ,in application i got the data from a machine to the text file then read this file and transfer that data to the data base,its works fine on first and thier is timer which chech the file for update but when timer generate event it did not work and not read from file,ithink the release of the memory is the problem please give me some sugesstion for memeory release in vb 6
thanks
|
|
|
|
|
I doubt very much that memory release is the problem. It sounds like you're very confused. Why are you still using VB6 ?
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
i think when i opena it remains open thats why its not updating it,and i am using vb 6 beacuse application that i am using is devloped in vb6 and now i am changing it for new requirments.
Dim fso As FileSystemObject
Dim target_folder As File
Set fso = New FileSystemObject
Set target_folder = fso.GetFile(filename)
Dim value As String
Dim datemodified As String
value = Now
value = Left(value, Len(value) - 6)
datemodified = target_folder.DateLastModified
is their anay wway to close the file and drp the links between application and a file,like "close fso" but it is not working
|
|
|
|
|
Ah - so it's not memory, it's the file itself. I don't know. I've never used VB6, it's a nightmare. However, any file class, in any language, should offer a close method, as in target_folder.Close() or fso.Close()
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|