Timas, MDM, etc.
This commit is contained in:
@@ -2186,24 +2186,24 @@ Public Class frmMDMDatenverarbetiung
|
||||
' End If
|
||||
'End If
|
||||
|
||||
Dim connectionString = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
|
||||
Else
|
||||
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
|
||||
End If
|
||||
'Dim connectionString = ""
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
' connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
|
||||
'Else
|
||||
' connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
|
||||
'End If
|
||||
|
||||
Dim con As New OleDbConnection(connectionString)
|
||||
Dim cmd As New OleDbCommand
|
||||
Dim var1 As String
|
||||
'Dim con As New OleDbConnection(connectionString)
|
||||
'Dim cmd As New OleDbCommand
|
||||
'Dim var1 As String
|
||||
|
||||
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
|
||||
Dim reader As OleDbDataReader = Nothing
|
||||
'Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
|
||||
'Dim reader As OleDbDataReader = Nothing
|
||||
|
||||
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
con.Open()
|
||||
|
||||
For Each r In dt.Rows
|
||||
Try
|
||||
'Zeitstempel
|
||||
@@ -2212,35 +2212,35 @@ Public Class frmMDMDatenverarbetiung
|
||||
r(0) & "'," & r(1) & ",'" & r(2) & "','" & r(3) & "','" & r(4) & "','" & r(5).ToString.Replace("'", " ") & "','" & r(6) & "'," & CDbl(r(7)).ToString.Replace(",", ".") & "," & CDbl(r(8)).ToString.Replace(",", ".") & "," & CDbl(r(9)).ToString.Replace(",", ".") & ",'" & datPloseAnhang.Text & "')", "FMZOLL")
|
||||
|
||||
|
||||
Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10) "
|
||||
' "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
|
||||
Using Command As New OleDbCommand(SQLQuery, con)
|
||||
'Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10) "
|
||||
'' "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
|
||||
'Using Command As New OleDbCommand(SQLQuery, con)
|
||||
|
||||
Command.Parameters.AddWithValue("@P1", r(0))
|
||||
Command.Parameters.AddWithValue("@P2", r(1))
|
||||
Command.Parameters.AddWithValue("@P3", r(2))
|
||||
Command.Parameters.AddWithValue("@P4", r(3))
|
||||
Command.Parameters.AddWithValue("@P5", r(4))
|
||||
Command.Parameters.AddWithValue("@P6", r(5))
|
||||
Command.Parameters.AddWithValue("@P7", r(6))
|
||||
Command.Parameters.AddWithValue("@P8", CDbl(r(7)))
|
||||
Command.Parameters.AddWithValue("@P9", CDbl(r(8)))
|
||||
Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
|
||||
' Command.Parameters.AddWithValue("@P1", r(0))
|
||||
' Command.Parameters.AddWithValue("@P2", r(1))
|
||||
' Command.Parameters.AddWithValue("@P3", r(2))
|
||||
' Command.Parameters.AddWithValue("@P4", r(3))
|
||||
' Command.Parameters.AddWithValue("@P5", r(4))
|
||||
' Command.Parameters.AddWithValue("@P6", r(5))
|
||||
' Command.Parameters.AddWithValue("@P7", r(6))
|
||||
' Command.Parameters.AddWithValue("@P8", CDbl(r(7)))
|
||||
' Command.Parameters.AddWithValue("@P9", CDbl(r(8)))
|
||||
' Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
|
||||
Command.Dispose()
|
||||
End Using
|
||||
' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
|
||||
' Command.Dispose()
|
||||
'End Using
|
||||
|
||||
Catch ex2 As System.Exception
|
||||
MsgBox("err: " & ex2.Message & ex2.StackTrace)
|
||||
' MsgBox("err: " & ex2.Message & ex2.StackTrace)
|
||||
|
||||
Finally
|
||||
If reader IsNot Nothing Then reader.Close()
|
||||
'Finally
|
||||
' If reader IsNot Nothing Then reader.Close()
|
||||
End Try
|
||||
|
||||
|
||||
Next
|
||||
con.Close()
|
||||
|
||||
End If
|
||||
pic.Visible = True
|
||||
Return True
|
||||
@@ -2292,24 +2292,24 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
|
||||
|
||||
Dim connectionString = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
|
||||
Else
|
||||
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
|
||||
End If
|
||||
'Dim connectionString = ""
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
' connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
|
||||
'Else
|
||||
' connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
|
||||
'End If
|
||||
|
||||
Dim con As New OleDbConnection(connectionString)
|
||||
Dim cmd As New OleDbCommand
|
||||
Dim var1 As String
|
||||
'Dim con As New OleDbConnection(connectionString)
|
||||
'Dim cmd As New OleDbCommand
|
||||
'Dim var1 As String
|
||||
|
||||
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
|
||||
Dim reader As OleDbDataReader = Nothing
|
||||
'Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
|
||||
'Dim reader As OleDbDataReader = Nothing
|
||||
|
||||
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
con.Open()
|
||||
'con.Open()
|
||||
For Each r In dt.Rows
|
||||
Try
|
||||
'Zeitstempel
|
||||
@@ -2318,38 +2318,38 @@ Public Class frmMDMDatenverarbetiung
|
||||
r(0) & "'," & r(1) & ",'" & r(2) & "','" & r(3) & "','" & r(4) & "','" & r(5).ToString.Replace("'", " ") & "','" & r(6) & "','" & r(7).ToString.Replace("'", " ") & "','" & r(8).ToString.Replace("'", " ") & "'," & CDbl(r(9)).ToString.Replace(",", ".") & "," & CDbl(r(10)).ToString.Replace(",", ".") & "," & CDbl(r(11)).ToString.Replace(",", ".") & ",'" & datPloseAnhang.Text & "')", "FMZOLL")
|
||||
|
||||
|
||||
Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Entry Terminal],[Exit Terminal],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10,@P11,@P12) "
|
||||
' "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
|
||||
Using Command As New OleDbCommand(SQLQuery, con)
|
||||
'Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Entry Terminal],[Exit Terminal],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10,@P11,@P12) "
|
||||
'' "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
|
||||
'Using Command As New OleDbCommand(SQLQuery, con)
|
||||
|
||||
Command.Parameters.AddWithValue("@P1", r(0))
|
||||
Command.Parameters.AddWithValue("@P2", r(1))
|
||||
Command.Parameters.AddWithValue("@P3", r(2))
|
||||
Command.Parameters.AddWithValue("@P4", r(3))
|
||||
Command.Parameters.AddWithValue("@P5", r(4))
|
||||
Command.Parameters.AddWithValue("@P6", r(5))
|
||||
Command.Parameters.AddWithValue("@P7", r(6))
|
||||
Command.Parameters.AddWithValue("@P8", r(7))
|
||||
Command.Parameters.AddWithValue("@P9", r(8))
|
||||
Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
|
||||
Command.Parameters.AddWithValue("@P11", CDbl(r(10)))
|
||||
Command.Parameters.AddWithValue("@P12", CDbl(r(11)))
|
||||
' Command.Parameters.AddWithValue("@P1", r(0))
|
||||
' Command.Parameters.AddWithValue("@P2", r(1))
|
||||
' Command.Parameters.AddWithValue("@P3", r(2))
|
||||
' Command.Parameters.AddWithValue("@P4", r(3))
|
||||
' Command.Parameters.AddWithValue("@P5", r(4))
|
||||
' Command.Parameters.AddWithValue("@P6", r(5))
|
||||
' Command.Parameters.AddWithValue("@P7", r(6))
|
||||
' Command.Parameters.AddWithValue("@P8", r(7))
|
||||
' Command.Parameters.AddWithValue("@P9", r(8))
|
||||
' Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
|
||||
' Command.Parameters.AddWithValue("@P11", CDbl(r(10)))
|
||||
' Command.Parameters.AddWithValue("@P12", CDbl(r(11)))
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
|
||||
' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
|
||||
|
||||
Command.Dispose()
|
||||
End Using
|
||||
' Command.Dispose()
|
||||
'End Using
|
||||
|
||||
Catch ex2 As System.Exception
|
||||
MsgBox("err: " & ex2.Message & ex2.StackTrace)
|
||||
|
||||
Finally
|
||||
If reader IsNot Nothing Then reader.Close()
|
||||
'Finally
|
||||
' If reader IsNot Nothing Then reader.Close()
|
||||
End Try
|
||||
|
||||
|
||||
Next
|
||||
con.Close()
|
||||
'con.Close()
|
||||
End If
|
||||
pic.Visible = True
|
||||
Return True
|
||||
@@ -2465,42 +2465,42 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Function deleteMautD(Datenquelle As String) As Boolean
|
||||
Try
|
||||
Dim connectionString = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
|
||||
Else
|
||||
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
|
||||
End If
|
||||
'Dim connectionString = ""
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
' connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
|
||||
'Else
|
||||
' connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
|
||||
'End If
|
||||
|
||||
Dim con As New OleDbConnection(connectionString)
|
||||
Dim cmd As New OleDbCommand
|
||||
Dim var1 As String
|
||||
'Dim con As New OleDbConnection(connectionString)
|
||||
'Dim cmd As New OleDbCommand
|
||||
'Dim var1 As String
|
||||
|
||||
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
|
||||
Dim reader As OleDbDataReader = Nothing
|
||||
'Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
|
||||
'Dim reader As OleDbDataReader = Nothing
|
||||
|
||||
|
||||
'FMZOLL-Tabelle
|
||||
Try
|
||||
con.Open()
|
||||
'Try
|
||||
' con.Open()
|
||||
|
||||
'Zeitstempel
|
||||
Dim SQLQuery = "DELETE FROM tblMautbericht WHERE Datenquelle='" & Datenquelle & "' "
|
||||
Using Command As New OleDbCommand(SQLQuery, con)
|
||||
' 'Zeitstempel
|
||||
' Dim SQLQuery = "DELETE FROM tblMautbericht WHERE Datenquelle='" & Datenquelle & "' "
|
||||
' Using Command As New OleDbCommand(SQLQuery, con)
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
|
||||
' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
|
||||
|
||||
Command.Dispose()
|
||||
End Using
|
||||
' Command.Dispose()
|
||||
' End Using
|
||||
|
||||
Catch ex2 As System.Exception
|
||||
MsgBox("err: " & ex2.Message & ex2.StackTrace)
|
||||
'Catch ex2 As System.Exception
|
||||
' MsgBox("err: " & ex2.Message & ex2.StackTrace)
|
||||
|
||||
Finally
|
||||
If reader IsNot Nothing Then reader.Close()
|
||||
End Try
|
||||
' 'Finally
|
||||
' ' If reader IsNot Nothing Then reader.Close()
|
||||
'End Try
|
||||
|
||||
con.Close()
|
||||
'con.Close()
|
||||
|
||||
Return SQL.doSQL("DELETE FROM tblMautbericht WHERE Datenquelle='" & Datenquelle & "' AND cast(Billingdate as Date)= '" & datPloseAnhang.Text & "'", "FMZOLL")
|
||||
|
||||
|
||||
Reference in New Issue
Block a user