Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Помощь в ...

Тема: Помощь в даделке кода!

15.06.2007 21:02:09

seva

7 сообщения

Тема: Помощь в даделке кода!

Есть справочная система. Необходимо доделать код, так чтобы в 8-ми столбцах (исполнениях одного изделия) считалась сумма деталей по каждому их виду. Приведенный код работает только с 1-м исполнением , т.е. как я думаю в цикле по всем записям необходимо внести исправление.
Нужна именно сумма т.к. в строках как узлы так и детали т.е. одно в другое может входить и поэтому
есть необходимость во временной таблице, которая при этом нужна и далее.
Поможите! Очень срочно нужно!
Заранее благодарен :-)

Код полностью работоспособен

Private Sub CalcTempTable()
Dim conDatabase As ADODB.Connection
Dim rstRs1 As ADODB.Recordset
Dim strSQL As String
Dim dbs As Database, rst As Recordset
Dim rstTempAll, rstTemp As Recordset

Set conDatabase = CurrentProject.Connection
Set rstRs1 = New ADODB.Recordset
Set dbs = CurrentDb

DoCmd.SetWarnings False
dbs.Execute ("DROP TABLE TemproryTable")
DoCmd.SetWarnings True

' Временная таблица спецификации заданного изделия
strSQL = "SELECT * INTO TemproryTable FROM Спецификация where КодИзделия = '" + [Forms]![РСП]![Поле3] + "' ORDER BY КодДет"
rstRs1.Open strSQL, conDatabase, adOpenDynamic, adLockOptimistic
Set rstTempAll = dbs.OpenRecordset("TemproryTable", dbOpenTable)

rstTempAll.MoveFirst

' Цикл по всем записям с заданным изделием
' MsgBox rstTempAll.RecordCount
Do While Not rstTempAll.EOF
strSQL = "SELECT * INTO temp1 FROM TemproryTable WHERE КодДет = " + "'" + rstTempAll!КодДет + "'"
dbs.Execute (strSQL)

' Сумма количества деталей
strSQL = "SELECT SUM([Кол-воНаУзел]) FROM temp1"
rstRs1.Open strSQL, conDatabase, adOpenStatic, adLockOptimistic

rstTempAll.Edit
rstTempAll.Fields(4).Value = rstRs1.Fields(0).Value
rstTempAll.Update
rstRs1.Close

dbs.Execute ("DROP TABLE temp1")

rstTempAll.MoveNext
Loop

rstTempAll.Close
Set rstTempAll = Nothing

dbs.Close
Set dbs = Nothing

conDatabase.Close
Set conDatabase = Nothing
Set rstRs1 = Nothing

End Sub

P.S. Доступ к базе с помощью ADO и DAO
Автор: seva от 21.03.2002 13:05:43 Источник ...