VisualBasic.net

    Люди помогите......
    сдесь у меня такое задания по VB.
    Надо сделать datenbank -- все оk. Все данные я могу заносить и в listboxе показывает номер занесеного(например клиент) -- тоже идет. Теперь мне надо нажать на номер в listboxe и он должен выпленуть данные клиента.
    Все перепробывал но не найду как листбокс запрограммировать.? ?(

    Куда выплюнуть то?
    А вообще делается это элементарно. Ну 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 Recordset


    Set rsKunde.ActiveConnection = "Provider=........." 'Здесь ConnectionString к базе данных


    rsKunde.CursorType = adOpenKeyset
    rsKunde.LockType = adLockReadOnly


    sSQLCommand = "SELECT * FROM MyDatenBank where KundenID="+KundenID

    rsKunde.Open sSQLCommand


    If Not (rsKunde.BOF And rsKunde.EOF) Then

    Set DataGrid1.DataSource = rsKunde


    End 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


    исходя из того что в лист стоят номера клиента

    Сообщение было отредактировано 1 раз, последнее редактирование пользователем wlpnfast ().

    спасиба вам бсем, сделал так:



    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 переделат? ?( 8o

    Сообщение было отредактировано 1 раз, последнее редактирование пользователем Siluet ().

    Это нормально. Есть такой язык программирования низкого уровня как ассемблер. Этот язык наиболее близок к машинному языку. Програма написанная на VB или Delphi ориентирована на человека, чтобы тот мог простыми функциями и процедурами объяснить компьютеру что он хочет. Далее компилятор всю эту человеческую аброкадабру, с точки зрения машины, переводит на точный и понятный язык, отбрасывая чуднЫе названия переменных, процедур, функций и объектов присваивая им понятные машине адреса и коды. Так вот обратный перевод возможен только в язык ассемблер.