VPF::Как работать с DBList - Форум программистов

abalich

Дата 14.3.2007, 20:46 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

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

У меня есть DBlist1.

Код


 DBList1.RowSource = Data1 
 DBList1.ListField = "login"

как мне сделать, чтобы при нажатии на DBList1 (на определённый текст) data1 переходила к записи с этим текстом

(база даннаых Access)

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

Мой дядя самых честных "грабил"...

abalich

Дата 15.3.2007, 20:00 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

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

Ну чё ни кто не знает?""" smile

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

Мой дядя самых честных "грабил"...

Akina

Дата 16.3.2007, 00:19 (ссылка)

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

Загрузка ...

Советчик

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

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

Что, настолько ленив, что самому в MSDN влом заглянуть? или религия не позволяет? Так и быть, на сей раз сделаю это за тебя:

Цитата(MSDN)

DataList Control Example

To try the example, place a DataList, two ADO Data Controls and a DataGrid control on a form. Be sure the Nwind.mdb file has been installed on the computer at the path specified in the ConnectionString, or change the code to the correct path. Paste the code into the Declarations section of the form and run the project. Click any row on the DataGrid, and use the DataCombo control to change the Supplier of the product. Then click on another row in the DataGrid control to see the change take effect. (In the DataGrid control, the SupplierID column will change.)

Код


Private Sub Form_Load()
   ' Use the same connection string for both ADO Data
   ' controls. If the code fails, check the path to the Nwind.mdb.
   ' The Nwind.mdb is installed with Visual Basic at the specified
   ' (default) path.
   Dim ConnectionString As String
   ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _
   "Dbq=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;" & _
   "Uid=;Pwd="

   ' Note that for both ADO Data controls, the RecordSource must contain
   ' one common field: the SupplierID. It is this common field that will
   ' be changed by the DataCombo control in the recordset returned by 
   ' ADODC1. ADODC2 supplies the value to change to.
   With Adodc1
      .RecordSource = _
      "SELECT ProductName, ProductID, SupplierID FROM Products"
      .ConnectionString = ConnectionString
      .Refresh
      .Caption = "Products"
      .Visible = False
   End With
      
   With Adodc2
      .RecordSource = "SELECT CompanyName, SupplierID FROM Suppliers"
      .ConnectionString = ConnectionString
      .Refresh
      .Caption = "Suppliers"
      .Visible = False
   End With
   
   Set DataGrid1.DataSource = Adodc1
   
   With DataList1
      Set .DataSource = Adodc1
      .DataField = "SupplierID" ' The field to be changed.
      .BoundColumn = "SupplierID"   ' Field in ADODC2 that changes 
                                    ' DataField.
      Set .RowSource = Adodc2
      .ListField = "CompanyName" ' Field displayed by DataCombo.
   End With
   
   ' Synchronize DataGrid and DataCombo by
   ' moving to first record of ADODC1's recordset.
   Adodc1.Recordset.MoveFirst
End Sub

Модератор: В дальнейшем буду удалять такие темы без предупреждения.

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

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

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