ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / из DBF
5 сообщений из 5, страница 1 из 1
из DBF
    #36163052
Valihan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valihan
Гость
Set CN = New ADODB.Connection
CN = " Provider=Microsoft.Jet.OLEDB.4.0;"
CN = " Data Source=c:\OPLATA_KS.dbf;"
CN = " Extended Properties=dBASE IV;"
CN = " User ID=Admin;"
CN = " Password=;"

Как подсичать сумму 1- столбца в этой таблице

и результат записать в List1
...
Рейтинг: 0 / 0
26.08.2009, 09:07
| Ответить | Цитировать | Написать  
из DBF
    #36163070
Фотография bbx1389
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bbx1389
Участник
Добрый день.

Не очень понял, где recordset....

1. Использовать агрегирующую функцию Sum
2. Пройтись циклом по столбцу

If not (MyRec.EOF and MyRec.BOF) Then MyRec.MoveFirst
Dim t as Integer
t=0
'Цикл по записям, пока не достигнем конца
Do Until MyRec.EOF
'Пишете значения в соответствующие ячейки
t=t+MyRec.Fields(10).Value
MyRec.MoveNext

Loop
...
Рейтинг: 0 / 0
26.08.2009, 09:22
| Ответить | Цитировать | Написать  
из DBF
    #36163072
Фотография bbx1389
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bbx1389
Участник
Только t тип не integer, а какой Вам нужен...
...
Рейтинг: 0 / 0
26.08.2009, 09:23
| Ответить | Цитировать | Написать  
из DBF
    #36163094
Valihan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valihan
Гость
Так ну с циклом понятно

но что то я не догоняю как выташить данные из таблицы

запросом что ли типо вот так кк ипользую рекордсет
select * from OPLATA_KS
...
Рейтинг: 0 / 0
26.08.2009, 09:38
| Ответить | Цитировать | Написать  
из DBF
    #36163569
Core12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Core12
Участник
Ну так у вас все данные в рекордсете все храниться
а потом вашим полям будете назначать значения отттуда
например
Код: plaintext
1.
Set text1.DataSource = rsADOTest
text1.DataField = "ID"
...
Рейтинг: 0 / 0
26.08.2009, 12:20
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / из DBF
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]