VPF::Динамически прицепить DataGrid к объекту Adodc.

Voldemar2004

Дата 3.1.2006, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Как динамически отсоединить/прицепить DataGrid к объекту Adodc.
Нужно во время работы программы указывать, какой Adodc соответствует DataGrid'у.

Код

DataGrid1.DataSource = Adodc1

Выдает ошибку: "Метод или объект данных не найден".

--------------------

i_i
(';')
(V)

user posted image

Akina

Дата 4.1.2006, 01:21 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Ты же объект присваиваешь... где SET ???

и вообще

Цитата(MSDN)

Changing Displayed Data at Run Time
Once you have created a grid using the design-time features, you may also wish to dynamically change the data source of the grid at run time. The general methods for accomplishing this are discussed below.

Changing the RecordSource of the DataSource
The most common method of changing displayed data is to alter the query of the DataSource. For example, if the DataGrid control uses an ADO Data control as its DataSource, rewriting the RecordSource and refreshing the ADO Data control will change the data displayed.

Код


' The ADO Data control is connected to the Northwind database's
' Products table. The new query asks for all records which have
' the SupplierID = 12.
Dim strQuery As String
strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"
Adodc1.RecordSource = strQuery
Adodc1.Refresh

Changing the DataSource
At run-time you can reset the DataSource property to a different data source. For example, you may have several ADO Data controls, each connected to different databases, or set to different RecordSource properties. Simply reset the DataSource from one ADO Data control to another:

Код


' Reset the DataSource to an ADO Data control that is connected to
' the Pubs database, using the Authors table.
Set DataGrid1.DataSource = adoPubsAuthors

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Voldemar2004

Дата 11.1.2006, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Цитата(Akina @ 4.1.2006, 01:21

)

Ты же объект присваиваешь... где SET ???

Спасибо, я про

Код

Set

совсем забыл.

Код


Option Explicit

Private Sub connect_Click()

    Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub disconnect_Click()

    Set DataGrid1.DataSource = Nothing

End Sub

Akina, такой код сойдет? Я напрямую сделал, без дополнительной переменной объектного типа.

--------------------

i_i
(';')
(V)

user posted image

Akina

Дата 11.1.2006, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Voldemar2004 @ 11.1.2006, 20:48

)

такой код сойдет?

Я почем знаю? Ты коннекты на базу закрывать не забываешь? А если программа обвалится посередь работы? нет, все нормально? тогда сойдет.

--------------------

FreeArcher

Дата 12.1.2006, 07:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 26.12.2005

Репутация: нет
Всего: нет

А как сделать тоже самое, но для DataEnvironment ?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »