ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataMember2
17 сообщений из 17, страница 1 из 1
DataMember2
    #32693529
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
подключился к базе SQL7.0 через DataEnviroment
используя свойства объекта MSHFlexGrid "DataSource", "DataMember" загоняю записи в него
но есть проблемка при добавлении новых записей в таблицу SQL, объект MSHFlexGrid не обновляется в отличие от DataGrid, обновляется только при загрузке етой формы где сидит MSHFlexGrid
как мне обновлять MSHFlexGrid не выгружая форму????
...
Рейтинг: 0 / 0
14.09.2004, 12:57:49
| Ответить | Цитировать | Написать  
DataMember2
    #32693619
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Перебиндить заново к гриду.

Magnus
...
Рейтинг: 0 / 0
14.09.2004, 13:21:26
| Ответить | Цитировать | Написать  
DataMember2
    #32693626
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
ето как?
...
Рейтинг: 0 / 0
14.09.2004, 13:23:16
| Ответить | Цитировать | Написать  
DataMember2
    #32693655
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Заново назначить датасоурс.

Magnus
...
Рейтинг: 0 / 0
14.09.2004, 13:34:44
| Ответить | Цитировать | Написать  
DataMember2
    #32693703
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
программно у меня ето не получается как сделать см . тему DataMember
у меня ето сделано через свойства в окне свойств
есть пример как программно?
...
Рейтинг: 0 / 0
14.09.2004, 13:49:40
| Ответить | Цитировать | Написать  
DataMember2
    #32693865
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
У DE есть коллекция комман и рекордсетов, а также ссылки на все обьекты содержащиеся в нем. Найди свой рекордсет и цепляй.

А лучше выкинь DE и делай все руками - меньше головной боли.

Magnus
...
Рейтинг: 0 / 0
14.09.2004, 14:48:27
| Ответить | Цитировать | Написать  
DataMember2
    #32693946
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
бл*
мне пример нужен.... непойму Я
...
Рейтинг: 0 / 0
14.09.2004, 15:15:43
| Ответить | Цитировать | Написать  
DataMember2
    #32694206
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
set MSHFlexGrid.DataSource = DataEnvironment1
MSHFlexGrid.DataMemeber = DataEnvironment1.Command1

F1

Magnus
...
Рейтинг: 0 / 0
14.09.2004, 16:47:59
| Ответить | Цитировать | Написать  
DataMember2
    #32694824
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
да не прет так
делал я так уже первоночально
...
Рейтинг: 0 / 0
15.09.2004, 06:49:15
| Ответить | Цитировать | Написать  
DataMember2
    #32695480
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Что именно не прет? Текст ошибки?

Magnus
...
Рейтинг: 0 / 0
15.09.2004, 12:45:09
| Ответить | Цитировать | Написать  
DataMember2
    #32695510
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Код: plaintext
1.
Set MSHFlexGrid.DataSource = Nothing
Set MSHFlexGrid.DataSource = DataEnvironment1.rеcordset1


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


Magnus
...
Рейтинг: 0 / 0
15.09.2004, 12:54:10
| Ответить | Цитировать | Написать  
DataMember2
    #32695891
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
все получилось
вот так должно быть
klfull.ms.DataMember = "SQL_rs"
Set klfull.ms.DataSource = SQL_DATA
всем спасиба за участие
...
Рейтинг: 0 / 0
15.09.2004, 15:12:06
| Ответить | Цитировать | Написать  
DataMember2
    #32769759
Фотография Дюков Дима
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дюков Дима
Участник
Я вот тоже мучаюсь без DE. Может примерчик есть где?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim DB As New ADODB.Connection
Dim strConnectionString As String
Private Sub Form_Load()
Dim AdoX As New ADODB.Recordset
strConnectionString = "Provider=SQLOLEDB;" & _
      "Data Source=ЧЧЧ;Initial Catalog=" + _
      "ЧЧЧЧ;User Id=ЧЧЧЧ;Password=;"
DB.Open strConnectionString
Set AdoX = DB.Execute("select ax.DateCredit,ax.Price,ax.PercYear,ax.Descript," + _
"bx.DateCredit, bx.Pay, bx.PercPay, bx.Descript " + _
"from Credits AX Join Credits Bx on(ax.Price>0 and bx.Price=0 and ax.PayDoc=bx.PayDoc) " + _
"order by ax.DateCredit,ax.PayID")
Set hGrid.DataSource = AdoX
End Sub

Вот собственно, а выдает просто список без иерархии
...
Рейтинг: 0 / 0
05.11.2004, 02:42:23
| Ответить | Цитировать | Написать  
DataMember2
    #32770194
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Дюков ДимаЯ вот тоже мучаюсь без DE. Может примерчик есть где?
Вот собственно, а выдает просто список без иерархии
Вообще-то иерархию создают такой конструкцией:
{} AS TVK00 APPEND ({} AS TVK01 RELATE ... TO ...) AS TVK01
Но лучше создай два Command в DE, свяжи их (через вкладку Relation того, что станет дочерним), скопируй Hierarchy Info (свойства родительского Command) в свой код и пользуйся.

P.S.
Не могу понять за что ругают DE. Что за глюки там люди находят? Лично я нашел только один подводный камень: после Requery надо пройти по всем контролам:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
   For Each c In Me.Controls
     If (TypeOf c Is TextBox) Or (TypeOf c Is DTPicker) Or (TypeOf c Is    DataCombo) Then
         Set c.DataSource = Nothing
     End If
   Next c
   DE1.rs.Requery
   Set Grid1.DataSource = DE1
   For Each c In Me.Controls
      If (TypeOf c Is TextBox) Or (TypeOf c Is DTPicker) Or (TypeOf c Is DataCombo) Then
         Set c.DataSource = DE1
      End If
   Next c

Ну так это всегда делаешь если пишешь rs ручкам и работаешь на свазанном рекордсете.
...
Рейтинг: 0 / 0
05.11.2004, 11:15:22
| Ответить | Цитировать | Написать  
DataMember2
    #32770354
Фотография Дюков Дима
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дюков Дима
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
AdoX.Open "Select NameFirm as [Ôèðìà],UNI as [Êîä],NameP as [Ïðîöåíò],PercSet as [%] From Accounts,Percents Where Uni=Account", Db, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = AdoX
    
    MSHFlexGrid1.MergeCells = flexMergeFree
    
    MSHFlexGrid1.MergeCol( 0 ) = True
    MSHFlexGrid1.MergeCol( 1 ) = True
    Me.MSHFlexGrid1.ex
    
    MSHFlexGrid1.Refresh

Вот так все получилось и без DE - будь он неладен
...
Рейтинг: 0 / 0
05.11.2004, 12:10:26
| Ответить | Цитировать | Написать  
DataMember2
    #32771512
Фотография Дюков Дима
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дюков Дима
Участник
но вот как правильно сделать, чтоб групировала по моему

что это за
Код: plaintext
MergeCol или MergRow
...
Рейтинг: 0 / 0
05.11.2004, 20:40:20
| Ответить | Цитировать | Написать  
DataMember2
    #32772203
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Дюков ДимаMergeCol или MergRow
MergeCol делает слившимися ячеики с одинаковым содержимым по вертикали,
MergeRow - по горизонтали.
Честная группировка - это MS Data Shaping Provider (см. выше).
...
Рейтинг: 0 / 0
08.11.2004, 10:06:41
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataMember2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32770194&tid=2168653]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 87ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 1ms
others: 269ms
total:  467ms
созд. / загр.: 467ms
x
x
Закрыть


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