1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
|
" codeBody "
van Private SubbtnCreateStatement_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten btnCreateStatement.Click
Schemerige myConn als Nieuwe MySqlConnection
Schemerige myComm als Nieuwe MySqlCommand
Schemerige myDataAdapter als Nieuwe MySqlDataAdapter
Schemerige myData als Nieuwe DataTable
Schemerige CustomersDataRow als oztech_testDataSet.CustomersRow = C (C (Me.CustomersBindingSource.Current, DataRowView). Rij (), oztech_testDataSet.CustomersRow)
Schemerige strSQL als Koord
Schemerige sEndDate als Koord
Schemerige CustomerRef als Koord
CustomerRef = CustomerRefComboBox.Text
sEndDate = Formaat (DateTimePicker2.Value, „yyyy-mm-dd“)
strSQL = „UITGEZOCHTE tr.TransID, RT. Datum, trt. Categorie, trt. Descr, cz.CustomerRef, RT. Bedrag, SOM (RT. Bedrag) ALS TotalGroup, RT. Nota's,“ & _
„PERIOD_DIFF (CONCAT (JAAR (“ & sEndDate & „), ALS (MAAND (“ & sEndDate & „) <10, „0“, ''), MAAND (“ & sEndDate & „)), CONCAT (JAAR (RT. Datum), ALS (MAAND (RT. Datum) <10, „0“, ''), MAAND (RT. Datum))) ALS Dagen,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID = T1.TransID“ & _
„WEGGEGAAN SLUIT me aan bij T2 van Transacties OP T2.TransID = TA.TransactionID_Allocation WAAR (tr.TransID = T1.TransID) EN T2.CustomerID = „14“) * -1, 0) ALS TotalAgainstCustomer,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID_Allocation = T1.TransID“ & _
„WAAR tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ & _
„VAN Klanten CZ, Transacties RT, TransTypes trt“ & _
„WAAR (tr.CustomerID = cz.CustomerID EN cz.CustomerRef = „“ & CustomerRef & „“ EN tr.TransTypeID = trt.TransTypeID) „& _
„EN (RT. Date<=“ & sEndDate &“) „& _
„EN NIET tr.TransTypeID IN („HET DEBET VAN HET BESLUIT“, „LOST KREDIET OP“)“ & _
„GROEP DOOR IFNULL (LinkTo, TransID)“ & _
„HEBBEND TotalGroup <>0“ & _
„ORDE DOOR RT. Datum, tr.TransID GRENS 0, 30“
myConn = GetConnection ()
Probeer
myConn.Open ()
Probeer
myComm.Connection = myConn
myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
myError van de vangst als MySqlException
MessageBox.Show („Er was een foutenlezing van het gegevensbestand: “ & myError.Message)
Het eind probeert
myError van de vangst als MySqlException
MessageBox.Show („Fout die met het gegevensbestand verbindt: “ & myError.Message)
Tot slot
Als myConn.State <> ConnectionState.Closed toen
myConn.Close ()
Eind als
Het eind probeert
Sub van het eind
De Klasse van het eind
|