Private VorbtnCreateStatement_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnCreateStatement.Click
Schwaches myConn als neues MySqlConnection
Schwaches myComm als neues MySqlCommand
Schwaches myDataAdapter als neues MySqlDataAdapter
Schwaches myData als neues DataTable
Schwaches CustomersDataRow als oztech_testDataSet.CustomersRow = C (C (Me.CustomersBindingSource.Current, DataRowView). (), oztech_testDataSet.CustomersRow) rudern
strSQL als Schnur verdunkeln
sEndDate als Schnur verdunkeln
CustomerRef als Schnur verdunkeln
CustomerRef = CustomerRefComboBox.Text
sEndDate = Format (DateTimePicker2.Value, „Yyyy-MillimeterdD“)
strSQL = „AUSERWÄHLTES tr.TransID, tr. Datum, trt. Kategorie, trt. Descr, cz.CustomerRef, tr. Menge, SUMME (tr. Menge) ALS TotalGroup, tr. Anmerkungen,“ u. _
„PERIOD_DIFF (CONCAT (JAHR (“ u. sEndDate u. "), WENN (MONAT (“ u. sEndDate u. ")<10, „0“, ''), MONAT (“ u. sEndDate u. ")), CONCAT (JAHR (tr. Datum), WENN (MONAT (tr. Datum) <10, „0“, ''), MONAT (tr. Datum))) ALS Tage“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID = T1.TransID“ u. _
„VERLASSEN Verhandlung-T2 AUF VERBINDEN T2.TransID = TA.TransactionID_Allocation, WO (tr.TransID = T1.TransID) UND T2.CustomerID = „14“) * -1, 0) ALS TotalAgainstCustomer,“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID_Allocation = T1.TransID“ u. _
„, WO tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ u. _
„Kunden CZ, Verhandlungen tr, TransTypes vom trt“ u. vom _
„, WO (tr.CustomerID = cz.CustomerID UND cz.CustomerRef = „“ u. CustomerRef u. „“ UND tr.TransTypeID = trt.TransTypeID) „u. _
„UND (tr. Date<=“ u. sEndDate u. ") „u. _
„UND NICHT tr.TransTypeID IN („BESCHLUSS-SCHULDPOSTEN“, „BESCHLUSS-GUTSCHRIFT ")“ u. _
„GRUPPE DURCH IFNULL (LinkTo, TransID)“ u. _
„, TotalGroup <>0“ u. _ HABEND
„AUFTRAG DURCH tr. Datum, tr.TransID BEGRENZUNG 0, 30“
myConn = GetConnection ()
Versuch
myConn.Open ()
Versuch
myComm.Connection = myConn
myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
Fang myError als MySqlException
MessageBox.Show („es gab einen Störungsmesswert von der Datenbank: “ u. myError.Message)
Enden-Versuch
Fang myError als MySqlException
MessageBox.Show („Störung, die an die Datenbank anschließt: “ u. myError.Message)
Schließlich
Wenn myConn.State <> ConnectionState.Closed dann
myConn.Close ()
Beenden wenn
Versuch beenden
Unterseeboot beenden
Kategorie beenden
|