| Вопрос: Помогите дилетанту | Добавлено: 04.02.05 21:30 |
Автор вопроса:  Jekan
|
|
Срочно нужно написать код, а я к сожалению совсем не программист. В общем есть база mdb такого плана
стол 2 стул 5 шкаф 11 Имеется DataCombo, связанный с ADO Data Control. Как сделать чтобы при выборе какого либо значения в DataCombo в TextBox отображалось соответствующее ему значение. Вопрос наверное примитивный, но все-таки просьба ответить. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  AlexF Вопросов: 20 Ответов: 113 |
Профиль | | #1 | Добавлено: 05.02.05 01:58 |
davai e-mail, skinu tebe proektik 
|
||
|
Номер ответа: 2 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #2 | Добавлено: 05.02.05 02:50 |
|
Вот код. Просто кинь на форму ComboBox, TextBox и кнопку. Если что, могу выслать все готовое.
'fldName- item names 'fldCount - items count Option Explicit Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim strPath As String Dim strTable As String Dim I As Long, nrecs As Long Private Sub Command1_Click() Unload Me End Sub Private Sub Combo1_Click() ' show count data in textbox Text1.Text = Combo1.ItemData(Combo1.ListIndex) End Sub Private Sub Form_Load() ' Database placement strPath = App.Path & "\db1.mdb" ' Table name strTable = "tblName" ' connct to db and open recordset Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0  ata Source=" & strPath & ";"
Set rs = New Recordset rs.Open "select * from " & strTable, db, adOpenStatic, adLockOptimistic ' fill combo FillList Combo1, rs, "fldName", "fldCount" Set rs = Nothing db.Close End Sub Public Sub FillList(lst As Control, rsData As Object, strDisplayField As String, _ Optional strValueField As String) 'Clear list lst.Clear If (rsData.EOF And rsData.BOF) Then Exit Sub 'Get number of records nrecs = rsData.RecordCount rsData.MoveFirst 'Add items to list For I = 1 To nrecs lst.AddItem rsData(strDisplayField) & "" If Not IsMissing(strValueField) And Len(Trim$(strValueField)) > 0 Then lst.ItemData(lst.NewIndex) = rsData(strValueField) & "" End If rsData.MoveNext Next End Sub |
||
|
Номер ответа: 3 Автор ответа: Jekan Вопросов: 1 Ответов: 1 |
Профиль | | #3 | Добавлено: 05.02.05 08:47 |
| Спасибо за ответ, мой e-mail rd_t@rambler.ru, скинь плз весь проект. | ||
Страница: 1 |