Hello,
I want to write some data from my access database into a text file a specific layout.
Everytime somwhere at the end of the file the line gets cut of.
What am I doing wrong?
Thanks in advance everyone
I want to write some data from my access database into a text file a specific layout.
Everytime somwhere at the end of the file the line gets cut of.
What am I doing wrong?
Thanks in advance everyone
Code:
Private Sub SelecterenTeverwerkenMutaties()
Dim strConnectionstringAccessFull As String = strConnectionstringAccess & strPath2Access
Dim connAccess As New OleDbConnection(strConnectionstringAccessFull)
'Nieuwe debiteuren
Dim strNieuwe_SQL As String = String.Format("SELECT DISTINCT trim(PatientNummer) AS [Patientnummer],trim(Achternaam) AS [Achternaam],TRIM(Voorletter) AS [Voorletter],trim(Geslacht) AS [Geslacht], " & _
"trim(Adres) AS [Adres],trim(Postcode) AS [Postcode],trim(Plaats) AS [Plaats],trim(Land) AS [Land],trim(GeadresseerdAan) AS [GeadresseerdAan], " & _
"trim(SoortVerzekering) AS [SoortVerzekering],trim(TelefoonNummer) AS [TelefoonNummer] " & _
"FROM tbl01IMPORT_CHIPSOFT WHERE trim(PatientNummer) NOT IN (" & _
"Select Trim(PatientNummer)FROM tblBASIS_DEBITEUREN_MUTATIES)")
'Gemuteerde debiteuren
Dim strGemuteerde_SQL As String = String.Format("SELECT DISTINCT trim(c.PatientNummer) AS [Patientnummer],trim(c.Achternaam) AS [Achternaam],TRIM(c.Voorletter) AS [Voorletter],trim(c.Geslacht) AS [Geslacht], " & _
"trim(c.Adres) AS [Adres],trim(c.Postcode) AS [Postcode],trim(c.Plaats) AS [Plaats],trim(c.Land) AS [Land],trim(c.GeadresseerdAan) AS [GeadresseerdAan], " & _
"trim(c.SoortVerzekering) AS [SoortVerzekering],trim(c.TelefoonNummer) AS [TelefoonNummer] " & _
"FROM tbl01IMPORT_CHIPSOFT AS C " & _
"INNER JOIN tblBASIS_DEBITEUREN_MUTATIES AS D ON TRIM(C.PatientNummer)=TRIM(D.PatientNummer) " & _
"WHERE(Trim(C.Achternaam) <> Trim(D.Achternaam) Or Trim(C.Voorletter) <> Trim(D.Voorletter) " & _
"Or Trim(C.Geslacht) <> Trim(D.Geslacht)) " & _
"Or TRIM(C.Adres)<>TRIM(D.Adres) or TRIM(C.Postcode)<>TRIM(D.Postcode) or TRIM(C.Plaats)<>TRIM(D.Plaats) " & _
"or TRIM(C.Land)<>TRIM(D.Land) or TRIM(C.GeadresseerdAan)<>TRIM(D.GeadresseerdAan) " & _
"or TRIM(C.SoortVerzekering)<>TRIM(D.SoortVerzekering) or TRIM(C.TelefoonNummer)<>TRIM(D.TelefoonNummer)")
Dim sql As String = String.Format("{0} UNION {1}", strNieuwe_SQL, strGemuteerde_SQL)
Dim SampleSource As New DataSet
Dim TableView As DataView
Dim SampleCommand As New OleDbCommand()
Dim SampleDataAdapter = New OleDbDataAdapter()
SampleCommand.CommandText = sql
SampleCommand.Connection = connAccess
SampleDataAdapter.SelectCommand = SampleCommand
SampleCommand.CommandTimeout = 0
SampleDataAdapter.Fill(SampleSource)
TableView = SampleSource.Tables(0).DefaultView
intTeller = SampleSource.Tables(0).Rows.Count()
'Dim Table As New DataTable
'SampleDataAdapter.Fill(Table)
' ***** Onderstaande actie gebeurd pas bij 2e keer export uit chipsoft
Dim strInlezenDebiteurenInArtemis As String = strPath2ExportTeVerwerkenDebiteuren & "TE_VERWERKEN_DEBITEUREN_MUTATIES_" & DateTime.Now.ToString("yyyyMMddHHmm") & ".txt"
'Dim objWriter As New System.IO.StreamWriter(strInlezenDebiteurenInArtemis, False, Encoding.GetEncoding("utf-8"))
'Dim objWriter As New System.IO.StreamWriter(strInlezenDebiteurenInArtemis, False, Encoding.GetEncoding("iso-8859-1"))
Dim objWriter As New System.IO.StreamWriter(strInlezenDebiteurenInArtemis, False, Encoding.Default)
Dim intProgress As Integer = 0
For Each DataRow As DataRow In SampleSource.Tables(0).Rows
Dim strPatientNummer As String = DataRow(0).ToString 'PatientNummer
Dim strAchternaam As String = DataRow(1).ToString 'Achternaam
Dim strVoorletter As String = DataRow(2).ToString 'Voorletter
Dim strGeslacht As String = DataRow(3).ToString 'Geslacht
Dim strAdres As String = DataRow(4).ToString 'Adres
Dim strPostcode As String = DataRow(5).ToString 'Postcode
Dim strPlaats As String = DataRow(6).ToString 'Plaats
Dim strLand As String = DataRow(7).ToString 'Land
Dim strGeadresseerdAan As String = DataRow(8).ToString 'GeadresseerdAan
Dim strSoortVerzekering As String = DataRow(9).ToString 'SoortVerzekering
Dim strTelefoonNummer As String = DataRow(10).ToString 'TelefoonNummer
objWriter.WriteLine("CS".PadRight(10) & "P" & strPatientNummer.PadRight(20) & "U" & "".PadRight(30) & strAchternaam.PadRight(30) & strVoorletter.PadRight(30) _
& strGeslacht.PadRight(10) & "A" & strAdres.PadRight(320) & strPostcode.PadRight(10) & strPlaats.PadRight(30) & "".PadRight(30) & strLand.PadRight(10) _
& strGeadresseerdAan.PadRight(50) & "".PadRight(20) & "VRIJ".PadRight(10) & strSoortVerzekering.PadRight(2) & strTelefoonNummer.PadRight(20) & "".PadRight(20) & "P")
Next
End Sub
