Люди помогите......
сдесь у меня такое задания по VB.
Надо сделать datenbank -- все оk. Все данные я могу заносить и в listboxе показывает номер занесеного(например клиент) -- тоже идет. Теперь мне надо нажать на номер в listboxe и он должен выпленуть данные клиента.
Все перепробывал но не найду как листбокс запрограммировать.?
VisualBasic.net
- Siluet
- Вопрос темы решён
-
-
Куда выплюнуть то?
А вообще делается это элементарно. Ну ereignis от нажатия на листбокс отловить сможешь надеюсьPrivate Sub List1_Click()
call MySelect(Text1.Text)
End Subну а далее делаешь SELECT * FROM MyDatenBank where KundenID=searshStr
Private Sub MySelect(ByVal KundenID AS String)
Dim sSQLCommand As String
Dim rsKunde As New RecordsetSet rsKunde.ActiveConnection = "Provider=........." 'Здесь ConnectionString к базе данных
rsKunde.CursorType = adOpenKeyset
rsKunde.LockType = adLockReadOnlysSQLCommand = "SELECT * FROM MyDatenBank where KundenID="+KundenID
rsKunde.Open sSQLCommandIf Not (rsKunde.BOF And rsKunde.EOF) Then
Set DataGrid1.DataSource = rsKundeEnd IF
Set rsKunde = Nothing
Exit Sub -
Думаю это немного call MySelect(Text1.Text) не верно
скорее всего так
Private Sub List1_Click()
wal = Form1.List1.ListIndex
wal2 = Form1.List1.List(wal)
call MySelect(wal2)
End Subисходя из того что в лист стоят номера клиента
-
А ты не думый, попробуй.
Есть 1001 способ доступа к листбоксу -
спасиба вам бсем, сделал так:
Private Sub lbxKunde_SelectedIndexChanged(ByVal ......
b = lbxKunde.SelectedIndex
meinKunde(b).ausgabeNr()
txtNr.Text = meinKunde(b).ausgabeNr()
meinKunde(b).ausgabeName()
txtName.Text = meinKunde(b).ausgabeName()
meinKunde(b).ausgabeBranche()
cmxBranche.Text = meinKunde(b).ausgabeBranche()передетим использовал arrays...............
да возможностей 1000.......
Разговаривал с одним программистом и он говорит, что VB.NET это scheiЯ* и не кто этим не пользуется. что вы думайте? -
на VB.NET давеча проект делали для WEB. А так VB-какашка последняя. Неудобная до жути. Я предпочитаю Дельфи. Но некоторуе клиенты ставят условие чтобы софт разрабатывался на VB. Вот такой проект у меня сейчас идет. Марока большая, но клиент платит.
-
у меня ест один вопрос.... как я могу *.ехе датайку обратно в VB Quelltext переделат?
-
Никак.
-
-
Это нормально. Есть такой язык программирования низкого уровня как ассемблер. Этот язык наиболее близок к машинному языку. Програма написанная на VB или Delphi ориентирована на человека, чтобы тот мог простыми функциями и процедурами объяснить компьютеру что он хочет. Далее компилятор всю эту человеческую аброкадабру, с точки зрения машины, переводит на точный и понятный язык, отбрасывая чуднЫе названия переменных, процедур, функций и объектов присваивая им понятные машине адреса и коды. Так вот обратный перевод возможен только в язык ассемблер.