Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 13:40 05.08.20 
Клубове/ Компютри и Интернет / Бази данни Всички теми Следваща тема Пълен преглед*
Информация за клуба
Тема Извличане на данни по зададен критерий!
Автор 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

БЛАГОДАРЯ ПРЕДВАРИТЕЛНО!



Цялата тема
ТемаАвторПубликувано
* Извличане на данни по зададен критерий! drosg   15.01.13 10:32
. * Re: Извличане на данни по зададен критерий! AйeзCeдaй   18.01.13 12:09
. * Re: Извличане на данни по зададен критерий! drosg   21.01.13 11:58
. * Re: Извличане на данни по зададен критерий! AйeзCeдaй   24.01.13 17:45
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2020 Dir.bg Всички права запазени.