VB: form data to save to notepad

Hi guys,

Im new to VB and im trying to create a form that will save the data from the form to Notepad. But when I click the "save" button I made, it saves the data, but the error "448##error" appears on the notepad. What is wrong with the code? I tried creating the first line and entering the data, but i cant seem to get it right

Can you post the actual code so we can take a look? Are you using VBA or VB6?

Regards,
Garry
http://www.accautomation.ca

jsalzm1 said:

Hi guys,

Im new to VB and im trying to create a form that will save the data from the form to Notepad. But when I click the "save" button I made, it saves the data, but the error "448##error" appears on the notepad. What is wrong with the code? I tried creating the first line and entering the data, but i cant seem to get it right

Click to expand...

Post your save button code.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim k As Long

If TextBox10.Text <> "" Then
If MsgBox("Please ensure all of the following criteria is correct:" & vbNewLine & "Job #" & TextBox1.Text & vbNewLine & "Sales Order Number:" & TextBox2.Text & vbNewLine & "Date:" & DateTimePicker1.Text & vbNewLine & "Requested by:" & ComboBox1.Text & vbNewLine & "Serial #:" & TextBox3.Text & vbNewLine & "Hose Type:" & ListBox2.Text & vbNewLine & "Hose Size:" & ListBox3.Text & vbNewLine & "Fitting 1:" & TextBox11.Text & vbNewLine & "Fitting 2:" & TextBox12.Text & vbNewLine & "Quantity:" & NumericUpDown1.TextAlign & vbNewLine & "OAL:" & TextBox4.Text & vbNewLine & "Cut Off:" & TextBox5.Text & vbNewLine & "Offset:" & TextBox6.Text & vbNewLine & "Crimp 1:" & TextBox7.Text & vbNewLine & "Crimp 2" & TextBox8.Text & vbNewLine & CheckBox1.Text & vbNewLine & CheckBox2.Text, vbYesNo) = vbYes Then
MsgBox("Hose Sucessfully Added")
ReDim Preserve jobnumber(0 To totalhoses)
ReDim Preserve salesorder(0 To totalhoses)
ReDim Preserve hosedate(0 To totalhoses)
ReDim Preserve request(0 To totalhoses)
ReDim Preserve serial(0 To totalhoses)
ReDim Preserve type(0 To totalhoses)
ReDim Preserve hosesize(0 To totalhoses)
ReDim Preserve fitting1(0 To totalhoses)
ReDim Preserve fitting2(0 To totalhoses)
ReDim Preserve qty(0 To totalhoses)
ReDim Preserve oal(0 To totalhoses)
ReDim Preserve cutoff(0 To totalhoses)
ReDim Preserve offset(0 To totalhoses)
ReDim Preserve cs1(0 To totalhoses)
ReDim Preserve cs2(0 To totalhoses)
ReDim Preserve cleaned(0 To totalhoses)
ReDim Preserve pig(0 To totalhoses)

jobnumber(totalhoses) = TextBox1.Text
salesorder(totalhoses) = TextBox2.Text
hosedate(totalhoses) = DateTimePicker1.Text
request(totalhoses) = ComboBox1.Text
serial(totalhoses) = TextBox3.Text
type(totalhoses) = ListBox2.Text
hosesize(totalhoses) = ListBox3.Text
fitting1(totalhoses) = TextBox11.Text
fitting2(totalhoses) = TextBox12.Text
qty(totalhoses) = NumericUpDown1.TextAlign
oal(totalhoses) = TextBox4.Text
cutoff(totalhoses) = TextBox5.Text
offset(totalhoses) = TextBox6.Text
cs1(totalhoses) = TextBox9.Text
cs2(totalhoses) = TextBox10.Text
cleaned(totalhoses) = CheckBox1.Text
pig(totalhoses) = CheckBox2.Text

FileOpen(2, "HoseData.txt", OpenMode.Output)
WriteLine(2, tempjobnumber, tempsalesorder, temphosedate, temprequest, tempserial, temptype, temphosesize, tempfitting1, tempfitting2, tempqty, tempoal, tempcutoff, tempoffset, tempcs1, tempcs2, tempacs1, tempacs2, tempcleaned, temppig)

For k = 1 To totalhoses

WriteLine(2, jobnumber(k), salesorder(k), hosedate(k), request(k), serial(k), type(k), hosesize(k), fitting1(k), fitting2(k), qty(k), oal(k), cutoff(k), offset(k), cs1(k), cs2(k), cleaned(k), pig(k))

Next
FileClose(2)
Hoses_Load(sender, e)

Else
MsgBox("Please Review")
End If
Else
MsgBox("Save")
End If

End Sub



sorry if that is hard to read

Im using Visual Basic on Visual Studio 2013

jsalzm1 said:

Im using Visual Basic on Visual Studio 2013

Click to expand...

Start by putting some break points in your code and run to the break points to find our where the error occurs.

I would also add error handling.

jsalzm1 said:

Im using Visual Basic on Visual Studio 2013

Click to expand...

This is probably an error causing problem...

"qty(totalhoses) = NumericUpDown1.TextAlign"

theres no error....it works, the question im having is when I go back into notepad after hitting save, inside the notepad file says "448##error". Like the file isnt reading what i have in my code

jsalzm1 said:

theres no error....it works, the question im having is when I go back into notepad after hitting save, inside the notepad file says "448##error". Like the file isnt reading what i have in my code

Click to expand...

You are writing to notepad, notepad isn't reading from your code. I assume you know this. You are just creating a Text document.

I haven't looked through the code, but if you put in breakpoints you can do an awful lot of monitoring of values while the code is in break mode and see where the error occurs. I would start with making sure that the Arrays contain the values you expect (every one of them).

correct. so for me to create a text document and have the, lets say textbox1 to save, do i need to create a line with "job number", then under that put in some bs value like "2222" then save the notepad file and try rerunning the program again?

jsalzm1 said:

theres no error....it works, the question im having is when I go back into notepad after hitting save, inside the notepad file says "448##error". Like the file isnt reading what i have in my code

Click to expand...

As I read the code, you are only adding one element to the array for each write command. I'm not sure why you are re-writing the whole array each time.

Maybe I am misunderstanding what you are doing, but my principle is to try to keep it as simple as I can - this doesn't *seem* to be the simplest way to do this.

Regardless, as I said above, I recommend finding out what isn't working in your code. You could simply remove the arrays and just get the writeline part working.

jsalzm1 said:

correct. so for me to create a text document and have the, lets say textbox1 to save, do i need to create a line with "job number", then under that put in some bs value like "2222" then save the notepad file and try rerunning the program again?

Click to expand...

My last post for a while - I'm going to lunch.

Have you defined what you actually want to do, clearly in your own mind? I don't have that clear in mine so I don't know if I can help you without that clear definition.

Maybe someone else can.

Not really....This isnt my project. Im an IE (interning at the moment) and an ME was trying to write this to use out in the shop. So he gave me all of this. So Im trying to get it to work, which some of it I have. I am just stuck here and highly confused.

If you're using VS2013, you should really take advantage of the tools provided by .NET. This code looks like it was copied from an old VB6 program.

For instance you have a lot of arrays that are Redimmed every time you add another item. This is exactly what a List (collection) was designed for:

Instead of the Dim that you have outside of your click handler, you would use this:
In place of Redim, and setting the last element value, you would do this:

For writing to files, use the StreamWriter object.




These are all standard tools that are part of the .NET framework and have a much better chance of working in future versions.

Archie said:

If you're using VS2013, you should really take advantage of the tools provided by .NET. This code looks like it was copied from an old VB6 program.

For instance you have a lot of arrays that are Redimmed every time you add another item. This is exactly what a List (collection) was designed for:

Instead of the Dim that you have outside of your click handler, you would use this:

Code:

Private  JobNumber as new (List of String)

In place of Redim, and setting the last element value, you would do this:

Code:

JobNumber.Add(TextBox1.Text)

For writing to files, use the StreamWriter object.

Code:

   Dim Index as integer
   Using sw As New System.IO.StreamWriter("HoseData.txt", True)
        While index<JobNumber.Count
                 sw.WriteLine(JobNumber(index)
                 index += 1
         End While
         sw.close
    End Using

These are all standard tools that are part of the .NET framework and have a much better chance of working in future versions.

Click to expand...

I thought you might be able to make some suggestions. My VB skills, though pretty good at one time, are a bit rusty now.