Database

[Batch User]

This is a project I'm currently working on. It really has no use just thought it would be fun.

As you may notice I have a 'create' button that allows me to create a text document. But the thing is every time you load the program you need to create a new text document. I wondering if anyone can help me out with a 'load' button that would load a .txt file.

thanks.

CODE
Dim position As Integer
	Structure person
		Public ID As Integer
		<VBFixedString(15)> Public name As String
		<VBFixedString(15)> Public surname As String
	End Structure

	Dim list(44) As person
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim RecLength As Long, Employee As person
		Dim filenum As Integer

		filenum = FreeFile()

		FileOpen(filenum, TextBox1.Text, OpenMode.Random, , , Len(Employee))

		FileClose(filenum)

	End Sub
	Function FindLastRecordNo() As Integer
		Dim temp As person, filenumber As Integer

		filenumber = FreeFile()

		FileOpen(filenumber, TextBox1.Text, OpenMode.Random, OpenAccess.Read, , Len(temp))
		FindLastRecordNo = 1

		Do While Not EOF(filenumber)
			FileGet(filenumber, temp, )
			FindLastRecordNo = FindLastRecordNo + 1
		Loop

		FileClose(filenumber)
	End Function
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim Employee As person, lastrecord As Integer
		Dim filenum As Integer

		lastrecord = FindLastRecordNo()

		filenum = FreeFile()
		FileOpen(filenum, TextBox1.Text, OpenMode.Random, , , Len(Employee))
		Employee.ID = Val(TextBox2.Text)
		Employee.name = TextBox3.Text
		Employee.surname = TextBox4.Text

		FilePut(filenum, Employee, lastrecord)

		FileClose(filenum)

	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Dim filenum As Integer
		Dim employee As person, count As Integer, Temp As String
		filenum = FreeFile()
		FileOpen(filenum, "D:\school\test4.txt", OpenMode.Random, , , Len(employee))
		count = 1
		ListBox1.Items.Clear()
		Do While Not EOF(filenum)

			FileGet(filenum, employee, count)
			Temp = Str(employee.ID) + "  " + employee.name + "  " + employee.surname

			ListBox1.Items.Add(Temp)
			count = count + 1
		Loop
		FileClose(filenum)
	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		Dim filenum As Integer
		Dim employee As person
		filenum = FreeFile()
		FileOpen(filenum, TextBox1.Text, OpenMode.Random, , , Len(employee))
		Do While Not EOF(filenum)
			FileGet(filenum, employee, )
			If employee.ID = Val(TextBox5.Text) Then

				position = Loc(filenum)

				TextBox5.Enabled = False
				TextBox6.Enabled = True
				TextBox7.Enabled = True
				Button4.Enabled = False
				Button5.Enabled = True
				Button6.Enabled = True


				TextBox6.Text = employee.name
				TextBox7.Text = employee.surname
				Exit Do
			End If
		Loop
		FileClose(filenum)
	End Sub

	Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
		Dim filenum As Integer
		Dim employee As person
		filenum = FreeFile()
		FileOpen(filenum, TextBox1.Text, OpenMode.Random, , , Len(employee))

		Seek(filenum, position)


		employee.ID = Val(TextBox5.Text)
		employee.name = TextBox6.Text
		employee.surname = TextBox7.Text
		FilePut(filenum, employee, )
		FileClose(filenum)

		TextBox5.Enabled = True
		TextBox6.Enabled = False
		TextBox7.Enabled = False
		Button4.Enabled = False
		Button5.Enabled = True
		Button6.Enabled = False

		TextBox5.Text = ""
		TextBox6.Text = ""
		TextBox7.Text = ""
	End Sub

	Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
		Dim filenum As Integer
		Dim employee As person, filenum1, filenum2 As Integer

		filenum1 = FreeFile()
		FileOpen(filenum1, TextBox1.Text, OpenMode.Random, OpenAccess.Read, , Len(employee))

		filenum2 = FreeFile()
		FileOpen(filenum2, "temp.text", OpenMode.Random, OpenAccess.Write, , Len(employee))

		Do While Not EOF(filenum1)

			If (Loc(filenum1) <> position - 1) Then
				FileGet(filenum1, employee, )
				FilePut(filenum2, employee, )
			Else
				FileGet(filenum1, employee, )
			End If
		Loop

		FileClose(filenum1)
		FileClose(filenum2)

		Kill(TextBox1.Text)

		Rename("text.txt", TextBox1.Text)


		TextBox5.Enabled = True
		TextBox6.Enabled = False
		TextBox7.Enabled = False
		Button4.Enabled = False
		Button5.Enabled = True
		Button6.Enabled = False

		TextBox5.Text = ""
		TextBox6.Text = ""
		TextBox7.Text = ""

	End Sub
	Private Sub swap_them(ByRef number1 As person, ByRef number2 As person)
		Dim temp As person
		temp = number1
		number1 = number2
		number2 = temp
	End Sub
	Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
		Dim filenum As Integer
		Dim i, j As Integer
		Dim employee As person, count, counter As Integer, temp As String
		filenum = FreeFile()
		FileOpen(filenum, TextBox1.Text, OpenMode.Random, , , Len(employee))

		count = 1
		ListBox2.Items.Clear()
		Do While Not EOF(filenum)
			FileGet(filenum, employee, count)

			list(count).ID = Val(employee.ID)
			list(count).name = employee.name
			list(count).surname = employee.surname
			count = count + 1
		Loop
		FileClose(filenum)
		For counter = 1 To count
			ListBox2.Items.Add(Str(list(counter).ID) + "  " + list(counter).name + "  " + list(counter).surname)
		Next
		For i = 1 To count
			For j = 2 To count
				If list(j).ID < list(j - 1).ID Then swap_them(list(j), list(j - 1))
			Next
		Next
		ListBox2.Items.Add("****Numeric Order****")
		For counter = 1 To count
			ListBox2.Items.Add(Str(list(counter).ID) + "  " + list(counter).name + "  " + list(counter).surname)
		Next
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		TextBox1.Clear()
		TextBox2.Clear()
		TextBox3.Clear()
		TextBox4.Clear()
		TextBox5.Clear()
		TextBox6.Clear()
		TextBox7.Clear()
	End Sub
End Class

[Batch User]

Bump. Please can someone help?