Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / из DBF / 5 сообщений из 5, страница 1 из 1
26.08.2009, 09:07
    #36163052
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из DBF
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:22
    #36163070
bbx1389
bbx1389
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из DBF
Добрый день.

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

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

запросом что ли типо вот так кк ипользую рекордсет
select * from OPLATA_KS
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 12:20
    #36163569
Core12
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из DBF
Ну так у вас все данные в рекордсете все храниться
а потом вашим полям будете назначать значения отттуда
например
Код: plaintext
1.
Set text1.DataSource = rsADOTest
text1.DataField = "ID"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / из DBF / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 335ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2160631]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 194ms
total:  335ms
x
x
Закрыть


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