class= " lineNumbers "
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:
|
class=
class= btnCreateStatement_Click " id= " codeSnippet936853 Private Sub (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnCreateStatement.Click
Тусклое myConn как новое MySqlConnection
Тусклое myComm как новое MySqlCommand
Тусклое myDataAdapter как новое MySqlDataAdapter
Тусклое myData как новое DataTable
Тусклое CustomersDataRow как oztech_testDataSet.CustomersRow = CType (CType (Me.CustomersBindingSource.Current, DataRowView). Гребите (), oztech_testDataSet.CustomersRow)
Затемните strSQL как шнур
Затемните sEndDate как шнур
Затемните CustomerRef как шнур
CustomerRef = CustomerRefComboBox.Text
sEndDate = форма (DateTimePicker2.Value, «yyyy-mm-dd»)
strSQL = «ОТБОРНОЕ tr.TransID, tr. Дата, trt. Категория, trt. Descr, cz.CustomerRef, tr. Количество, СУММА (tr. Количество) КАК TotalGroup, tr. Примечания,» & _
«PERIOD_DIFF (CONCAT (ГОД (» & sEndDate & "), ЕСЛИ (МЕСЯЦ (» & sEndDate & ")<10, «0», ''), МЕСЯЦ (» & sEndDate & ")), то, CONCAT (ГОД (tr. Дата), ЕСЛИ (МЕСЯЦ, то (tr. Дата) <10, «0», ''), МЕСЯЦ (tr. Дата))) КАК дни,» & _
«IFNULL ((отборная СУММА (AllocationAmount) ОТ ОГО T1 трудыов СОЕДИНЯЕТ TransactionAllocations TA НА TA.TransactionID = T1.TransID» & _
«О СОЕДИНИТЕ T2 трудыов НА T2.TransID = TA.TransactionID_Allocation ГДЕ (tr.TransID = T1.TransID) И T2.CustomerID = «14») * -1, 0) КАК TotalAgainstCustomer,» & _
«IFNULL ((отборная СУММА (AllocationAmount) ОТ ОГО T1 трудыов СОЕДИНЯЕТ TransactionAllocations TA НА TA.TransactionID_Allocation = T1.TransID» & _
«ГДЕ tr.TransID = T1.TransID) * -1, 0) КАК PaidAmount» & _
«ОТ trt клиентов cz, трудыов tr, TransTypes» & _
«ГДЕ (tr.CustomerID = cz.CustomerID И cz.CustomerRef = «» & CustomerRef & «» И tr.TransTypeID = trt.TransTypeID) «& _
«И (tr. Date<=» & sEndDate & ") «& _
«И НЕ tr.TransTypeID В («ДЕБИТ РЕШЕНИЯ», «КРЕДИТ РЕШЕНИЯ ")» & _
«ГРУППА IFNULL (LinkTo, TransID)» & _
«ИМЕЮЩ TotalGroup <>0» & _
«ЗАКАЗ tr. Дата, ПРЕДЕЛ 0 tr.TransID, 30»
myConn = GetConnection ()
Попытка
myConn.Open ()
Попытка
myComm.Connection = myConn
myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
myError задвижки как MySqlException
MessageBox.Show («было чтение ошибки от базы данных: » & myError.Message)
Попытка конца
myError задвижки как MySqlException
MessageBox.Show («ошибка соединяясь к базе данных: » & myError.Message)
Окончательно
Если <> ConnectionState.Closed myConn.State после этого
myConn.Close ()
Закончитесь если
Закончите попытку
Закончите подводную лодку
Закончите тип
|