VBNet - Форум - Опять тот же вопрос по БД

Вопрос: Опять тот же вопрос по БД Добавлено: 16.09.06 14:31

Автор вопроса: андрей | ICQ: 592601042

Что-то не туя у меня не выходит( вопрос через один вниз)
Воспользовался советом NECO, но видимо не туда...
Получился такой код, вернее последний его вариант:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OleDbDataAdapter1.Fill(DataSet11)
    End Sub
    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        TextBox1.Text = ComboBox1.SelectedValue
        Dim вот As Integer
        вот = Me.BindingContext(DataSet11, "Обвязка Сенатор").Position
        TextBox2.Text = DataSet11.Tables("Обвязка Сенатор").Rows("На складе").Item(вот)
    End Sub

Подскажите где туплю
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: андрей ICQ: 592601042 Вопросов: 12 Ответов: 15	Профиль \| \| #1	Добавлено: 17.09.06 17:53
	Вопрос снят. Купил книгу "Программирование баз данных" Род Стивенс, там все доступно растолковано для таких как я. Оказалось все до безобразия просто. Если опустить ковыряния в конструкторах и назначение свойств ЭУ все сводится к такому коду Private WithEvents вот As CurrencyManager Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Адаптор.Fill(ДатаСет) вот = Me.BindingContext(ДатаСет, "Таблица" End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Адаптор.Update(ДатаСет) End Sub И все прекрасно работает. УРА Ответить

Страница: 1 |