Премини към съдържанието

metamorphosism

Потребител
  • Публикации

    3
  • Регистрация

  • Последно онлайн

Харесвания

0 Неутрална репутация

Всичко за metamorphosism

  • Титла
    Новобранец
  1. Здфравейте! Лаптопа ми е ASUS X54H, прецака ми се харда и понеже е гаранционен ми поставиха друг - нов хард-500GB. Инсталирах си Windows 7 Professional започнах да инсталирам драйверите, стигнах до ето този драйвер VGA_Intel_Win7_32 - неможах да инсталирам драйвера - изписа ми ето това съобщение " This computer does not meet the minimum requirements for installing the software" Какво трябва да направя за да мога да го инсталирам. Благодаря!
  2. Здравейте и за много години! Имам проблем, който се опитвам да реша, но безуспешно за сега! В какво се състои той... Само да вметна, че проекта, който почти съм създал е на Visual basic 6.0 и Access 2003. Имам една форма(form1), в която съм поместил формите: (combo1)- който визуализира списък : година, име. Тоест, това са критерите за търсене на запис в базаданни; (тextbox14) - в него въвеждам съотвтно името на записа, който търся, но преди това в combo1 съм задал критерий да търси по "Име" . Аналогично ако в combo1 ако съм задал да търси по "Година" в textbox14 въвеждам съответно 2012 или 2013 и така нататък; (ListView), който визуализира данните записани в базата. До тук добре. Поствам кода за да визуализирам двата критерия по който извличам записи.. Първи критерий : 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 Но има един недостатък, който искам да отстраня, но немога да се сетя как да го направя а именно: Да добавя още един (textbox). И когато в (combo1) задам критерий за търсене по "Година", в новия ( textbox) въведа примерно 2013 а в textbox14 въведа съответно Името на записа който търся, ListView да филтрира всички записи отговарящи на този критерий . А пропо ( ЗАБРАВИХ ДА СПОМЕНА, ЧЕ ЗАПИСИТЕ СА ИМЕНА НА ХОРА) . БАЛАГОДАРЯ ВИ ЗА ПОМОЩА ПРЕДВАРИТЕЛНО! Поствам картинка за да придобиете представа как изглежда формата! pic1.bmp
  • Разглеждащи в момента   0 потребители

    Няма регистрирани потребители разглеждащи тази страница.

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.