Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Visual Basic 6: adodc и datagrid (http://forum.oszone.net/showthread.php?t=40782)

DestR0yer 09-11-2004 21:53 271728

Visual Basic 6: adodc и datagrid
 
Такая проблема:
Есть база Access97, форма, на форме: пара текст-боксов, adodc, datagrid и пара бАтонов. Нужно реализовать поиск через adodc, чтобы критерии поиска задавались текст-боксами, а результат выводился в datagrid. Насколько я понял нужно выполнить sql-запрос через свойство adodc.recordsource. Но у меня почему-то ничего не выходит. Поможите чем сможите, а то сроки сдачи практической горят :(

Prisoner 10-11-2004 02:33 271815

Я слаб в Access'е, но может быть помогу логикой или чем придется. Что именно у вас не получается?

DestR0yer 11-11-2004 21:14 272259

У меня не получается обновить информацию в DataGrid. Я добавляю запись в базу средствами VB. Но почему-то в сетке изменения не отображаются.

Prisoner 13-11-2004 02:21 272562

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

DestR0yer 16-11-2004 19:12 273355

К Adodc у меня подключен запрос из базы, а запись я добавляю в одну из таблиц. После чего делаю рефреш и Adodc и DataGrid, но ничего не меняется в DataGrid. В Adodc все есть и запись в базе появляется.

privalihin 13-01-2010 15:01 1319160

Ставишь на форму Timer, присваеваешь свойству Interval 5000 (10000) - это сколько секунд 5 либо 10, можешь еще меньше. Когда запись добавлена, записи DataGrid обновяться через столько секунд укажешь и все сразу же увидишь.


'процедура обновления данных
Private Sub Timer1_Timer()
Dim book As Variant
Dim coll As Integer
On Error Resume Next
book = Adodc1.Recordset.Bookmark
coll = DataGrid1.Col
Adodc1.Refresh
Adodc1.Recordset.Bookmark = book
DataGrid1.Col = coll
End Sub

privalihin 13-01-2010 15:35 1319187

А у меня другой вопрос: как сделать в Adodc, чтобы всегда отображалась последняя запись?


Время: 04:39.

Время: 04:39.
© OSzone.net 2001-