-
Create A Fixed Text File From SQL DB Table
Hello programmers. After doing much research I am unable to resolve how or where to custom format each field of my SQL table output into my text file. Can someone help me with enhancing the below vb script? I need to reformat certain values. Do I do the formatting in the Dim section or in the if not – then section or in the streamwriter section?
Two Sample Format Problems:
1. Using the below VB script in asp.net the “paydate” is outputting to the checkfile.txt as 1/1/2010. I need to format it so it outputs as 1/1/10.
2. Using the below VB script in asp.net the “checkamt” is outputting to the checkfile.txt as 848.7000. I need to format it so it outputs as 848.70.
Dim sw As New System.IO.StreamWriter("c:\CheckFile.txt")
For Each dr As DataRow In ds.Tables(0).Rows
Dim Strpaydate As String = String.Empty
Dim Strcheckamt As String = String.Empty
Dim Strname As String = String.Empty
Dim Stradd1 As String = String.Empty
Dim Stradd2 As String = String.Empty
Dim Stradd3 As String = String.Empty
Dim Stradd4 As String = String.Empty
Dim Strpostcode As String = String.Empty
Dim Strinvno As String = String.Empty
Dim Strinvoiceamt As String = String.Empty
Dim Strvendor As String = String.Empty
Dim Strcheckno As String = String.Empty
Dim Strsname As String = String.Empty
Dim StrGrp As String = String.Empty
Dim StrGroupName As String = String.Empty
If Not IsDBNull(dr("paydate")) Then Strpaydate = (dr("paydate"))
If Not IsDBNull(dr("checkamt")) Then Strcheckamt = Format(dr("checkamt"))
If Not IsDBNull(dr("name")) Then Strname = (dr("name"))
If Not IsDBNull(dr("add1")) Then Stradd1 = (dr("add1"))
If Not IsDBNull(dr("add2")) Then Stradd2 = (dr("add2"))
If Not IsDBNull(dr("add3")) Then Stradd3 = (dr("add3"))
If Not IsDBNull(dr("add4")) Then Stradd4 = (dr("add4"))
If Not IsDBNull(dr("postcode")) Then Strpostcode = (dr("postcode"))
If Not IsDBNull(dr("invno")) Then Strinvno = (dr("invno"))
If Not IsDBNull(dr("invoiceamt")) Then Strinvoiceamt = (dr("invoiceamt"))
If Not IsDBNull(dr("vendor")) Then Strvendor = (dr("vendor"))
If Not IsDBNull(dr("checkno")) Then Strcheckno = (dr("checkno"))
If Not IsDBNull(dr("sname")) Then Strsname = (dr("sname"))
If Not IsDBNull(dr("Grp")) Then StrGrp = (dr("Grp"))
If Not IsDBNull(dr("GroupName")) Then StrGroupName = (dr("GroupName"))
sw.WriteLine(Strpaydate + " " + Stradd4 + " " + " " + Strname + " " + Strcheckamt + " " + Stradd1 + " " + Stradd2 + " " + Stradd3 + " " _" " + Strpostcode + " " + Strinvno + " " + Strinvoiceamt + " " + Strvendor + " " + Strcheckno _" " + Strsname + " " + StrGrp + " " + StrGroupName)
Next
Similar Threads
-
By dhaya in forum Database
Replies: 11
Last Post: 08-25-2003, 05:24 PM
-
By Steve Oliver in forum VB Classic
Replies: 0
Last Post: 07-25-2002, 04:29 PM
-
Replies: 1
Last Post: 11-27-2001, 07:53 AM
-
By Rob Pesce in forum VB Classic
Replies: 2
Last Post: 11-11-2000, 12:15 AM
-
By Becky in forum Database
Replies: 1
Last Post: 07-11-2000, 03:27 PM
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Development Centers
-- Android Development Center
-- Cloud Development Project Center
-- HTML5 Development Center
-- Windows Mobile Development Center
|