PRB: Quotes Added When Using Write# to Write Numbers to File (193262)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Select References from the Project menu and check Microsoft DAO 3.5 Object Library or Microsoft DAO 3.51 Object Library.
3. Paste the following code into the declarations section of Form1:`

         Private Sub Form_Load()
            Dim wrkJet As Workspace
            Dim dbsNorthwind As Database
            Dim rsInvoices As Recordset
      
            'Create Microsoft Jet Workspace object.
            Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
      
            'Open Database object from saved Microsoft Jet database for
            'exclusive use.
      
            MsgBox "Opening Northwind..."
            Set dbsNorthwind = wrkJet.OpenDatabase("Nwind.mdb", True)
            Set rsInvoices = dbsNorthwind.OpenRecordset("select _
            [Salesperson],[OrderID],[OrderDate],[ProductID] from [Invoices]")
      
            Open "test.tmp" For Output As #1
            Write #1, rsInvoices.Fields("productid").Properties("Value").Value
            Write #1, rsInvoices!ProductID
            Close #1
      
            rsInvoices.Close
            dbsNorthwind.Close
            wrkJet.Close
   
            Dim a As Long, b As Long
            Open "test.tmp" For Input As #1
            Input #1, a, b
            Msgbox "a=" & a
            Msgbox "b=" & b
            Close #1
      
         End Sub
   						

4. Press the F5 key to run the project. The message boxes "a=24" and "b=0" are displayed.
   
   NOTE: The file test.tmp that is created in the project or default Visual Basic directory has the following contents which demonstrates that Visual Basic has placed quotes around the number:

            24
            "24"
   						

Workaround

   Write #1, rsInvoices!ProductID
				

   Write #1, rsInvoices!ProductID.value