powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Data Components
5 сообщений из 5, страница 1 из 1
Data Components
    #33668901
anjekos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Data Components
    #33668920
anjekos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
причем если вставить новый Data Grid то все ок, если поменять ширину столбца то текст становится невидимым
...
Рейтинг: 0 / 0
Data Components
    #33669048
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
По поводу проблемы с тем, что данные не отображаются.

PRB: DataGrid or DbGrid May Not Display Data .

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

Код: plaintext
1.
    Adodc1.Caption = "..." & _
      CStr(Adodc1.Recordset.AbsolutePosition)
...
Рейтинг: 0 / 0
Data Components
    #33669114
anjekos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо!
Но как же теперь задать размер столбца!:)
...
Рейтинг: 0 / 0
Data Components
    #33669816
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ничего не меняй в свойствах "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
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Data Components
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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