|
Тема |
Извличане на данни по зададен критерий! |
|
Автор |
drosg (новак) |
|
Публикувано | 15.01.13 10:32 |
|
|
Здравейте на всички и за много години!
А сега по същество!
Уфффф как да го обясня... ще опитам, пък ще видим!
Проекта е със Визуал бейсик 6.0 и Аксес 2003
Във форма съм поставил Listview , combo1 i textbox14
В combo1 се зарежда списък : Име; Година
За какво иде реч Ако в combo1 е Име и в textbox14 въведа Име на човек който е записан в базата то по този критерий извличам всички записи с това име .
Ако в combo1 избера Година и в textbox14 въведа примерно 2013 извличам всички записи от 2013.
Поствам кода за да го погледнете и ако е удобно да ми подскажете как да направя следното :
Искам да добавя още един textbox
А идеята е следната: Ако в combo1 избера Година а в новодобавения textbox въведа примерно 2013(година) а в textbox14 въведа име то да извлека запис отговаряш на критерия зададен в combo1 и в textbox тоест combo1 - Година , textbox - 2013, в textbox14 - Иван Драганов Драганов в Listview да филтрира записи на името на Иван Драганов Драганов създадени през 2013г.
ето кода :
Private Sub textbox14_Change()
Select Case Combo1.Text
Case "Година"
SQL = "Select * from danni where Година like '" & TextBox14.Text & "%' order by danni.Година asc;"
Cmd.CommandText = SQL
Set Rs = Cmd.Execute
ListView1.ListItems.clear
With Rs
Do Until .EOF
Set List = ListView1.ListItems.Add(, , !Име & "")
List.SubItems(1) = !Година & ""
List.SubItems(2) = !Подразделение & ""
List.SubItems(3) = !Регномер & ""
List.SubItems(4) = !Отпуск & ""
List.SubItems(5) = !Използвал & ""
List.SubItems(6) = !Остават & ""
List.SubItems(7) = !Забележка & ""
List.SubItems(8) = !Регномерчл213 & ""
List.SubItems(9) = !Отпускчл213 & ""
List.SubItems(10) = !Използвалчл213 & ""
List.SubItems(11) = !Оставатчл213 & ""
List.SubItems(12) = !Забележкачл213 & ""
List.SubItems(13) = CStr(!ID)
.MoveNext
Loop
End With
Case "Име"
SQL = "Select * from danni where Име like '" & TextBox14.Text & "%' order by danni.Име asc;"
Cmd.CommandText = SQL
Set Rs = Cmd.Execute
ListView1.ListItems.clear
With Rs
Do Until .EOF
Set List = ListView1.ListItems.Add(, , !Име & "")
List.SubItems(1) = !Година & ""
List.SubItems(2) = !Подразделение & ""
List.SubItems(3) = !Регномер & ""
List.SubItems(4) = !Отпуск & ""
List.SubItems(5) = !Използвал & ""
List.SubItems(6) = !Остават & ""
List.SubItems(7) = !Забележка & ""
List.SubItems(8) = !Регномерчл213 & ""
List.SubItems(9) = !Отпускчл213 & ""
List.SubItems(10) = !Използвалчл213 & ""
List.SubItems(11) = !Оставатчл213 & ""
List.SubItems(12) = !Забележкачл213 & ""
List.SubItems(13) = CStr(!ID)
.MoveNext
Loop
End With
End Select
With ListView1
If .ListItems.Count > 0 Then
Set .SelectedItem = .ListItems(1)
ListView1_ItemClick .SelectedItem
End If
End With
Set List = Nothing
Set Rs = Nothing
End Sub
БЛАГОДАРЯ ПРЕДВАРИТЕЛНО!
|
| |
|
|
|