Visual Basic

Private Sub CreateTextFile(ByVal FilePath As String, ByVal data As String)<br />
        Dim oFile As System.IO.File<br />
        Dim oWrite As System.IO.StreamWriter<br />
        Dim oRead As System.IO.StreamReader<br />
        Dim PreviousData As String = ""<br />
        Dim CheckHypen As String<br />
<br />
        If File.Exists(FilePath) Then<br />
            oRead = oFile.OpenText(FilePath)<br />
            While oRead.Peek <> -1<br />
                If PreviousData = "" Then<br />
                    PreviousData = oRead.ReadLine()<br />
                Else<br />
                    CheckHypen = oRead.ReadLine<br />
                        PreviousData = PreviousData & ControlChars.NewLine & CheckHypen<br />
                    End If<br />
                End If<br />
            End While<br />
            oRead.Close()<br />
        End If<br />
<br />
        oWrite = oFile.CreateText(FilePath)<br />
<br />
        If PreviousData = "" Then<br />
            PreviousData = data<br />
            oWrite.WriteLine(PreviousData)<br />
        Else<br />
            PreviousData = PreviousData & ControlChars.NewLine & data<br />
            oWrite.WriteLine(PreviousData)<br />
        End If<br />
       <br />
        oWrite.Close()<br />
end sub<br />

<br />
Dim TextFile As StreamWriter<br />
TextFile = File.AppendText(sFileName)<br />

<br />
Dim fi As New FileInfo(sFileName)<br />
'fi.CreationTime now holds the creation date/time<br />

rahul.net11 wrote:

MessageBox.Show("File Found. File was created on: ")
'Dim TextFile As System.IO.TextWriter
Dim TextFile As StreamWriter

TextFile.WriteLine(id)
TextFile.Close()

End If

Senthil S wrote:

sum(fld,condfld)

Jwalant Natvarlal Soneji wrote:

what to do to override or get rid of this.

       Dim strconnection As String = "workstation id=5875-049;packet size=4096;user id=sde;Password=topology;data source=SGIICORNETGS01;persist security info=False;initial catalog=Tshwane_Valuations"
       Dim cn As SqlConnection = New SqlConnection(strconnection)
       cn.Open()
Dim  cmdstr as String  = "Select Property_Mass.boundary_Area,  "  _
   " &  Property_Mass.Actual_Extent, Property_Mass.Attrib_code,  "  _
   " &  Property_Mass.Lis_key, Property_Mass.Func_key, Property_Mass.Density, "  _
   " &  Property_Mass.New_Net_Usable_Extent, Property_Mass.New_Total_Land_Factor, "  _
   " &  Property_Mass.New_AdJ_Extent_1, Property_Mass.New_Points_1, Property_Mass.New_ADJ_Extent_2 , " _
   " &  Property_Mass.New_Points_2, Property_Mass.Fin_LS_Prediction, Property_Mass.Confidence_score , " _
   " &  Property_Mass.Flagtype, Property_Summary.Purchase_Date, Property_Summary.Purchase_Price " _
   " &  from Property_Mass, Property_Summary " _
   " &  where Property_Mass.Lis_key = Property_Summary.Lis_key "
       Dim da As New SqlDataAdapter(cmdStr, cn)
       Dim ds As New DataSet
       da.Fill(ds)
       Dim dv As New DataView(ds.Tables("Property_Mass"))
       dgDetails.DataSource = dv