Member Avatar for vitchu2003
vitchu2003 0 Newbie Poster

Hello Friends,
I need to store 4text files(diff location) into MYSQL Database., then i access 4 locations data.Here i attached 2 text files.
1. report cum export.txt file contain how i export single databade into text file
2.SalesHyd.txt file after i export the following step1.
Now i need to read and store SlaesHyd data's into 1 seperate temporary table it's contain 4 column InvoiceNumber,Date,Title,Qty(Same thing i do 4 locations data)

The following code i used to read and load to database
Private Sub cmdLoad_Click()
Dim fso As FileSystemObject
Dim ts As TextStream
Dim LinesFromFile, NextLine As String

Set ts = fso.OpenTextFile(("D:\StrandReports" & "\SalesHyd.txt"), ForReading, True)

LinesFromFile = ts.ReadLine
NextLine = Split(LinesFromFile, vbTab)


???????????????(here i need what can i do?)

End Sub

Pl Help me ASAP


Advance Thanks and regards,
Viswanathan D

Private Sub CmdReport_Click()

   If Val(txtStartDate) > Val(txtEndDate) Then
        MsgBox "Start date is greater than end date", vbInformation + vbOKOnly, StrProject
        txtEndDate.SetFocus
        Exit Sub
    End If
    Dim oCon As New ADODB.Connection
    Dim oCmd As New ADODB.Command
    Dim reReport As New ADODB.Recordset
    Dim frmReportViewer As New frmRepViewer
    If sCaller = "Sales Report" Then
        Set Report = Application.OpenReport(App.Path + "\Reports\crSales.rpt")
        oCmd.CommandText = oReport.RepSalesReport(Format(txtStartDate, "dd-mm-yyyy"), Format(txtEndDate, "dd-mm-yyyy")).CommandText
    Else
         Set Report = Application.OpenReport(App.Path + "\Reports\crGVSales.rpt")
        oCmd.CommandText = oReport.RepGVSalesReport(Format(txtStartDate, "yyyy-mm-dd"), Format(txtEndDate, "yyyy-mm-dd")).CommandText
    End If
    oCon.Open oReport.GetConnectString
    Set oCmd.ActiveConnection = oCon
    Set rsReport = oCmd.Execute
    If Not (rsReport.EOF Or rsReport.BOF) Then
    
    
    Dim fso As New FileSystemObject
    Dim TxtStream As TextStream
    Dim i As Integer
    Dim strText As String
    Dim strText1 As String
    Dim strTitle As String
    Dim strQty As String
    Dim strInvoiceID As String
    Dim strInvoiceNo As String
    Dim strInvoiceDate As String
    
   i = 1
      If fso.FileExists("D:\StrandReports" & "\SalesHyd.txt") Then
         fso.DeleteFile ("D:\StrandReports" & "\SalesHyd.txt")
      End If
     
     Set TxtStream = fso.OpenTextFile(("D:\StrandReports" & "\SalesHyd.txt"), ForAppending, True)
 
     While Not rsReport.EOF
    
       strInvoiceID = rsReport("InvoiceID")
       strInvoiceNo = rsReport("InvoiceNo")
       strInvoiceDate = rsReport("InvoiceDate")
       strTitle = rsReport("Title")
       strQty = rsReport("Qty")
           
       strText = strInvoiceNo + vbTab + strInvoiceDate + vbTab + strTitle + vbTab + strQty
       TxtStream.WriteLine strText
              
       i = i + 1
    rsReport.MoveNext
   Wend
    TxtStream.Close
    
        With Report
            .Database.AddADOCommand oCon, oCmd
            .AutoSetUnboundFieldSource crBMTNameAndValue
            .DiscardSavedData
            .txtDate.SetText txtStartDate & " To " & txtEndDate
             frmReportViewer.Show
        End With
    Else
        MsgBox "No details found", vbInformation, StrProject
    End If
    rsReport.Close
    Set rsReport = Nothing
    Set oCmd = Nothing
    oCon.Close
    Set oCon = Nothing
    Set Report = Nothing
End Sub
    







NOTE: The Following Code i used Read and load to Database


Private Sub cmdLoad_Click()
Dim fso As FileSystemObject
Dim ts As TextStream
Dim LinesFromFile, NextLine As String

Set ts = fso.OpenTextFile("D:\strand\strandhyd.txt", ForReading, True)

LinesFromFile = ts.ReadLine
NextLine = Split(LinesFromFile, vbTab)


??????(after abv line i don't know what cn i do?)

End Sub
0015 	2006-09-20	 	 
 	 	The Plague 	1 
 	 	A Happy Death 	1 
 	 	 	 
0016 	2006-09-20	 	 
 	 	The Essential for life Kit 	1 
 	 	The Wal Mart Triumph 	1 
 	 	The Warren Buffett CEO 	1 
 	 	Gray`s Anatomy 	1 
 	 	Homer The Illiad / The Odyssey 	1 
 	 	 	 
0017 	2006-09-20	 	 
 	 	People Watching 	1 
 	 	Why Most Things Fail 	1 
 	 	Guns Germs and Steel 	1 
 	 	The Emerging Mind 	1
  • 1 Contributor
  • 0 Replies
  • 59 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.