Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Data Components / 5 сообщений из 5, страница 1 из 1
15.04.2006, 16:39
    #33668901
anjekos
anjekos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Components
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\gar.mdb;Jet OLEDB:Database Password=жопа;"
Adodc1.RecordSource = "select * from tbAgents"
Adodc1.ToolTipText = "..."
Adodc1.CursorType = adOpenDynamic
Adodc1.LockType = adLockOptimistic
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
If CStr(Adodc1.Recordset.AbsolutePosition) = -1 Then
Adodc1.Caption = "..."
Else
Adodc1.Caption = "..." & _
CStr(Adodc1.Recordset.AbsolutePosition)
End If
End Sub
При этом грид пустой, не видно текста, хотя при нажатии на adodc1 по записям ходит
?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2006, 17:02
    #33668920
anjekos
anjekos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Components
причем если вставить новый Data Grid то все ок, если поменять ширину столбца то текст становится невидимым
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2006, 20:39
    #33669048
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Components
По поводу проблемы с тем, что данные не отображаются.

PRB: DataGrid or DbGrid May Not Display Data .

По воводу кода. Этот кусок лучше вставить на событие "Adodc1_MoveComplete".

Код: plaintext
1.
    Adodc1.Caption = "..." & _
      CStr(Adodc1.Recordset.AbsolutePosition)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2006, 22:19
    #33669114
anjekos
anjekos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Components
Большое спасибо!
Но как же теперь задать размер столбца!:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2006, 22:16
    #33669816
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Components
Ничего не меняй в свойствах "Layout", а ширину столбцов выставляй программно:

Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim col As Column
    
    Set DataGrid1.DataSource = Adodc1

    For Each col In DataGrid1.Columns
        col.Width =  200 
    Next col
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Data Components / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 518ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166037]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 197ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 246ms
total:  518ms
x
x
Закрыть


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