November 19, 2008 01:17am pst

1. GrahamSkan 489,054
2. matthews... 388,582
3. PaulHews 327,834
4. RobSamp... 319,732
5. zorvek 310,350
6. jpaulino 283,226
7. Idle_Mind 240,019
8. angelIII 197,709
9. rorya 196,990
10. danaseaman 171,880
11. BlueDevilF... 166,975
12. c0ldfyr3 157,345
13. capricorn1 128,322
14. saurabh726 116,195
15. webtubbs 114,001
16. robinu 112,221
17. TRobinJa... 109,490
18. robberbaron 97,170
19. emoreau 96,058
20. Dhaest 86,719
21. purplepo... 85,982
22. nutsch 83,701
23. chris_bot... 83,347
24. byundt 83,235
25. ee_rlee 81,307

1. Idle_Mind 1,866,555
2. GrahamSkan 1,526,909
3. PaulHews 1,460,773
4. AzraSound 1,400,747
5. angelIII 1,294,935
6. vinnyd79 1,242,790
7. Erick37 1,211,724
8. EDDYKT 1,143,342
9. emoreau 1,120,917
10. matthews... 1,025,038
11. TimCottee 1,010,616
12. BlueDevilF... 905,552
13. ryancys 868,939
14. Ark 856,902
15. egl1044 752,746
16. Shauli 718,021
17. sirbounty 669,716
18. zorvek 628,113
19. zzzzzooc 552,977
20. inthedark 529,097
21. Richie_Si... 508,332
22. RobSamp... 502,917
23. rorya 484,765
24. danaseaman 476,189
25. Dhaest 465,652

05.23.2008 at 08:30AM PDT, ID: 23427922

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.4

Handling null values when writing to a sequential file

Asked by usuajg0 in Visual Basic Programming, VB Database Programming, Microsoft Development

Tags: Visual Basic

I'm writing data to a sequential file using VB that someone is trying to upload into SAS. In SAS, they're having troublie dealing with some null values. Is there a proper convention I should be using in writing to the sequential file to deal with null values? I could check each value, for example, and if null, then insert "NA" or some other character but is there some convention I should use such as an ASCII character that signifies the value is null? Currently all I'm doing is pulling data from a data warehouse into an ado recordset and then looping through the fields and placing commas after each field to prepare the string to be written to the file.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

           
           
             Private Sub executeQuery()
On Error GoTo errHandler
    
    Dim rs As ADODB.Recordset
    Dim cntr As Integer
    Dim fso As New FileSystemObject
    
    Dim outputFile As File
    Dim txtStream As TextStream
    Dim rec As String
    Dim sLen As Integer
    Dim recCnt As Long
    
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    
    rs.Open getSQL(iprocess), cnCDW
        
    '// CREATE TEXT FILE
    fso.CreateTextFile (fileName)
    
    '// REFERENCE THE FILE
    Set outputFile = fso.GetFile(fileName)
    
    '// OPEN TEXT STREAM FOR WRITING TO THE FILE
    Set txtStream = outputFile.OpenAsTextStream(ForWriting)
    
    '// WRITE HEADER ROW TO FILE
    txtStream.WriteLine headerRow
    
    Do While Not rs.EOF
    
    '// APPLY CSV FORMAT AND TRIM VALUE
        For cntr = 0 To fieldCount
            rec = rec & Trim(rs.Fields(cntr)) & Chr(44)
        Next cntr
    
    '// REMOVE COMMA AT END OF RECORD
        sLen = Len(rec)
        rec = Mid(rec, 1, (sLen - 1))
        
    '// WRITE RECORD TO FILE
        txtStream.WriteLine rec
        
        recCnt = recCnt + 1
        sbZDU.Panels(1).Text = recCnt
        DoEvents
 
        rs.MoveNext
        rec = ""
    Loop
    
    rs.Close
    Set rs = Nothing
    
    txtStream.Close
    
    Set fso = Nothing
    
    MsgBox "Process Complete"
    
Exit Sub
 
errHandler:
 
On Error Resume Next
txtStream.Close
Set txtStream = Nothing
Set fso = Nothing
MsgBox Err.Description
If (Not rs Is Nothing) Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
 
End Sub

           
         

Keywords: Handling null values when writing to a …

	Title
1	Proper ado syntax for Open recordset
2	Design question: Loading an ADO rec…
3	Null Recordset
4	ADO.NET and ADO Recordsets
5	ADO Update Recordset ASP
6	Sequential Numbering

Loading Advertisement...

20081112-EE-VQP-44 / EE_QW_2_20070628

Handling null values when writing to a sequential file

Asked by usuajg0 in Visual Basic Programming, VB Database Programming, Microsoft Development

Tags: Visual Basic

About this solution