9 / 9 / 0
Регистрация: 25.04.2013
Сообщений: 52
|
|
20.05.2016, 08:13
|
4
|
Лучше поздно чем никогда 
Я вот так вот делал в такой ситуации:
| VB.NET | 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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
| ' Универсальная процедура с входными параметрами для выборки из бызы
' iTableName - Имя создаваемой таблицы в iDataSet
' iCommandText - Текст команды
' iName - Имя дочерней процедуры
Public Sub SelectQueryData(ByVal iTableName As String, ByVal iCommandText As String, Optional ByVal iName As String = "")
Try ' Настраиваем команду SQL
With SqlCom
' Если таблица iTableName существует то, очищае ее
If iDataSet.Tables.Contains(iTableName) Then iDataSet.Tables(iTableName).Clear()
SqlCom.Connection = Conn ' Указываем подключение
SqlCom.CommandText = iCommandText ' Указываем текст запроса
End With
' Настраиваем Адаптер
With iDataAdapter
On Error GoTo UpdateTableName ' Если ошибка, значит привязка к DateSet уже определена
.SelectCommand = SqlCom ' Указываем команду на выгрузку данных из базы
.Fill(iDataSet, iTableName) ' Выгруженные данные заливаем в DateSet и именуем
UpdateTableName:
.Update(iDataSet, iTableName) ' Значит просто обновляем таблицу
End With
' ======================================================================================================
iDataAdapter.Dispose() ' Освобождаем ресурсы от DataAdapter
iDataSet.Dispose() ' Освобождаем ресурсы от DataSet
Conn.Close() ' Закрываем соединение
' Сообщение при неудачном подключении к базе данных
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical & Chr(10) & _
"Ошибка вызова прощедуры: " & iName, Application.ProductName)
Conn.Close()
End Try
End Sub
' Выборка заявлений в суд
Public Sub GetPr_PetitionsDebt()
' Выгружаем заявлений в суд
iTableName = "PetitionsDebt" ' Имя будущей таблицы
iCommandText = "SELECT * " & _
"FROM vPr_PetitionsDebt " & _
"WHERE(AbonentId =" & My.Settings.CurrAbonId & ") " & _
"ORDER BY DtPeriodStart" ' Текст SQL запроса")
SelectQueryData(iTableName, iCommandText, "GetPr_PetitionsDebt") ' Выполняем универсальный Селект
' Добавление итоговы сумм в конец iDataSet
Dim iCount As Integer = iDataSet.Tables("PetitionsDebt").Rows.Count ' Кол-во исков
Dim iSumDebt, iSumGovTax As Double ' Сумма долгов и госпошлин
If iCount <> 0 Then
iSumDebt = SumValueInDateSet("PetitionsDebt", "DebtSumm")
iSumGovTax = SumValueInDateSet("PetitionsDebt", "GovTax")
' Запись итоговых сумм в массив
With iDataSet.Tables("PetitionsDebt")
Dim rowArray(7) As Object
rowArray(0) = DBNull.Value
rowArray(1) = DBNull.Value
rowArray(2) = DBNull.Value
rowArray(3) = DBNull.Value
rowArray(4) = "Итого"
rowArray(5) = iSumDebt
rowArray(6) = iSumGovTax
.Rows.Add.ItemArray = rowArray
End With
End If
End Sub
' Суммирование значений по столбцу в таблице из iDataSet
Public Function SumValueInDateSet(ByVal iTableName As String, ByVal iColumnName As String)
Dim Counter As Double = 0 ' Счетчик строк
Dim iSum As Double = 0 ' Накопитель суммы
' Цик по строкам iDataSet если он не пустой
If iDataSet.Tables(iTableName).Rows.Count <> 0 Then
For Each iRow As DataRow In iDataSet.Tables(iTableName).Rows
Counter = iRow.Item(iColumnName).ToString
iSum = Counter + iSum
Next
Return iSum
End If
Return 0
End Function |
|
1
|
(
Сообщение было отмечено Памирыч как решение
