Registrations are now open. Join us today!
There is still a lot of work to do on the wiki yet! More information about editing can be found here.
Already have an account?

Microsoft KB Archive/171496

From BetaArchive Wiki

Article ID: 171496

Article Last Modified on 2/24/2004



APPLIES TO

  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition



This article was previously published under Q171496

SYMPTOMS

An error occurs when reading fixed-length strings into a UDT.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This bug has been fixed in Visual Studio 97 Service Pack 2.

For more information on the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

170365 INFO: Visual Studio 97 Service Packs - What, Where, and Why


For a list of the Visual Basic 5.0 bugs that were fixed in the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

171554 INFO: Visual Basic 5.0 Fixes in Visual Studio 97 Service Pack 2


MORE INFORMATION

Steps to Reproduce Behavior

  1. Create a new Standard EXE project in Visual Basic 5.0.
  2. Add a new module to the project.
  3. Inside this module, cut and paste the following code:

          Option Explicit
    
          Type config_rec
            cnf_sync_byte As Integer
            cnf_sysout    As String * 8
            cnf_mode      As String * 8
            cnf_period    As Integer
            cnf_cmp_print As Integer
            cnf_version   As String * 7
            cnf_prog_id   As Integer
            cnf_cond_code As Integer
            cnf_parity    As Integer
          End Type
    
          Sub TestFile(Config As config_rec)
    
            Dim FileNum As Integer
            Dim cnfgfile As String
    
            FileNum = FreeFile
    
            cnfgfile = "Test.Dat"
    
            On Error GoTo WriteErrHandler
    
            Open cnfgfile For Binary As FileNum
            Put #FileNum, 1, Config
            Close #FileNum
    
            Open cnfgfile For Binary Access Read As FileNum
            Get #FileNum, 1, Config
    
            Close #FileNum
    
            Exit Sub
    
            WriteErrHandler:
                MsgBox "Error : " & Err & " (" & Error & ")"
    
          End Sub
                            
  4. Add a CommandButton to Form1.
  5. In the CommandButton's click event, add the following code:

          Dim Config As config_rec
          TestFile Config
                            
  6. Save and run project. There will be an error, and a MsgBox will pop up with the error number (52) and message (Bad File Name Or File Number).


Keywords: kbbug kbfix kbvbp500sp2fix kbvs97sp2fix KB171496