Знатокам VB обращаюсь

ст 06.05.2004 - 06:33 | в VB пишу прогу которая подцепляется к базе акцесс, как прогаммно описать подсчет суммы всех записей одной поляны?
ADI 1 - 06.05.2004 - 12:03 | Private Sub Command1_Click() 'Это обработчик события Click для кнопки, размещенной на форме On Error GoTo err_Res_Sum 'Создаем объект подключения Dim cn As New ADODB.Connection 'Создаем набор записей Dim rs As New ADODB.Recordset Dim sql As String, Sum As Double Sum = 0 'Задаем строку подключения cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\MyDocs\РОФОМС\Ошибки0304\WorkFinal.mdb" 'Открываем подключение cn.Open 'Формируем запрос sql = "Select * From 1401_53" With rs 'Открываем набор записей .Open sql, cn, adOpenForwardOnly, adLockReadOnly 'В цикле производим подсчет записей по полю KODST Do Until .EOF Sum = Sum + rs("KODST") 'Перемещаемся на следующую запись .MoveNext Loop 'Закрываем набор записей .Close End With Set rs = Nothing 'Закрываем подключение cn.Close Set cn = Nothing 'Выводим результат в текстовое поле Text1.Text = CStr(Sum) Exit Sub err_Res_Sum: MsgBox Err.Description, vbCritical, "Errors!" End Sub
mif 2 - 06.05.2004 - 14:48 | Но лучше подсчет сделать с помощью SUM. Типа "SELECT SUM(ИмяПоля) FROM ИмяТаблицы", можно навороченней "SELECT SUM(ИмяПоля*НаПоле) AS [ИмяПоляСуммыПроизведений] FROM ИмяТаблицы" Потом If Not rs.EOF Then MySum = rs.fields("ИмяПоля") либо rs.fields("ИмяПоляСуммыПроизведений"). Так быстрее будет работать и писанины меньше, а значит путаницы.
ADI 3 - 06.05.2004 - 15:47 | To 2: Согласен

>>