Sequential Access Data Files

[nicole0904]

How do I import a picture from a sequential file. I want the sequential file to have the pathname and filename and that to load the picture as the image.

[Comatose]

If I understand you correctly, you want to have a sequential file... that file will have a path in it, to a picture file, that you will load, is this correct?

dim seqfile as string
dim tmpvar as string

open seqfile for input as #1
	line input #1, tmpvar
close #1

picture1.picture = tmpvar

Similarly, If You want to have 1 sequential file, with multiple paths (to different pictures), then you could read that into a collection as such:

dim xPaths as new collection
dim seqfile as string
dim tmpvar as string

seqfile = "c:\somefile.dat"

open seqfile for input as #1
	do until eof(1)
		line input #1, tmpvar
		xPaths.Add tmpvar
	loop
close #1

If I'm way out in left field, then please elaborate your question, and I'll be happy to assist you in any further help that you need.

[nicole0904]

I've found a way around that, which I think will be easier for the user. What I'm shooting for is a program where the user enters in the part number and clicks a button and this pulls the manufacturer and product description with a logo. The manager (I'm hoping) will write the information into the sequential file, or update it as necessary(which I'm told is frequently). Right now my code looks like this:

Private Sub cmdGetInfo_Click()

strProdNo = txtProdNo.Text
Do While Not EOF(1)
Input #1, co, part, dscr, ul

If strProdNo = part Then
lblDscrpt.Caption = dscr
lblCo.Caption = co
If ul = "UL1" Then
imgUL.Visible = True
Else
If ul = "UL2" Then
imgUL2.Visible = True
End If
End If
Else
lblDscrpt.Caption = "Not Found"
lblCo = " "
imgUL.Visible = False
imgUL2.Visible = False

End If
Loop

End Sub

With the code like this when I click the button to bring up the info. I get "Not Found"

So I moved the "Loop" to after "Input #1, co, part, dscr, ul"
This will find the last set of data in the Sequential file, but the first record brings up "Not Found"

I'm still playing around with thing, but any suggestions would be nice!
Thanks!

[Comatose]

The INPUT has to be within the loop, in order to loop through the entire file. Also, if you have records AFTER the record that is actually found, that are not containing the part number in strProdNo, Then lblDscrpt and lblCo get set to Not found and nothing. So, Pretend that you have a file with:

not what you want
not what you want
what you want
not what you want

Then The Captions Get Reset on the last line of the file, because it's not what you are looking for. You need to do 1 of two things here.... the best way is to beak out of the loop, before it finishes reading the file. So, Your code would look a little something like this:

Private Sub cmdGetInfo_Click()

strProdNo = txtProdNo.Text
Do While Not EOF(1)
	Input #1, co, part, dscr, ul

	If strProdNo = part Then
		lblDscrpt.Caption = dscr
		lblCo.Caption = co
		If ul = "UL1" Then
			imgUL.Visible = True
			exit do
		Else
			If ul = "UL2" Then
				imgUL2.Visible = True
				exit do
			End If
		End If
	Else
		lblDscrpt.Caption = "Not Found"
		lblCo = " "
		imgUL.Visible = False
		imgUL2.Visible = False
	End If
Loop
End Sub

I'm not sure if that will help or not.... drop a line and let me know. k?

[nicole0904]

That is perfect!
Thanks a bunch!

[Comatose]

You're very welcome ;)

[nicole0904]

Ok now I want the user to use a separate program to enter in the information that is read. I've entered in two sets of data to test. I can enter them in fine. They look all right in notepad, but when I run the program that is reading from the file. I get the input past end of file error or it will only read the last set of data entered. I know why I'm getting input past end of file error, there is an extra space after the last entry. I delete that and then it won't find the first entry.

[EMAIL=[e-mail]]If this isn't clear or you want my code email me[/EMAIL]

[Comatose]

I'm sending you an e-mail right now