Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница:

 

  Вопрос: Vb.net + ADODB??? Не удалить запись из таблицы Добавлено: 18.05.10 15:46  

Автор вопроса:  Cramper
Пытаюсь работать в Vb.net(2008) c базами *.mdb.Использую ADODB.Recordset. Все работает как в Vb6 (поиск, выборка). Но не удается изменить записи, например, удалить.

Пример кода

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim tmp, tmp1, tmp2 As String

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s As String
        s = "D:\db1.mdb"
        cn = New ADODB.Connection
        rs = New ADODB.Recordset

        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb")
        rs.Open("Clients", cn, ADODB.CursorTypeEnum.adOpenKeyset = ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockBatchOptimistic)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        rs.MoveFirst()
        MsgBox(tmp)
        Do While Not rs.EOF
            If rs("FIO").Value = tmp Then
                MsgBox(111)
                rs.Delete()
                MsgBox(222)
                rs.Update()
            End If
            rs.MoveNext()
        Loop
' rs.Update()

        rs.Close()

    End Sub

Vb.net ни на что не жалуется, но и не удаляет запись. Помогите, пожалуйста, как с этим бороться???

Ответить

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

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам