Свой Update у Recordset-а

@RoAlex · Регистрация: 13.11.2007

Студворк — интернет-сервис помощи студентам

У класса ADODB.Recordset есть метод: Update
Как сделать так, чтобы в программе при вызове этого метода выполнялся бы мой код? В ООП это именуется перегрузкой метода, как ее реализовать в VB (при отсутствии наследования)?

@RoAlex · 19.11.2007, 17:25 **[ТС]**

To Alan++:
Приходилось ли тебе создавать свой OLEDBSimpleProvider? - Там все закручено вокруг порядковых номеров строк и столбцов - идеально для данных типа двумерных массивов и совершено криво привязывается к таблице БД.
Еще, смущает использование в клентской части класса DataAdapter:

Code
1
2
3
4
5
6
7
8
9
Dim da As New DataAdapter
Dim ds As New MyDataSource
 
 
Private Sub Form_Load()
Set da.Object = ds
DataGrid1.DataMember = App.Path & 'Customer.txt'
Set DataGrid1.DataSource = da
End Sub

- В MSDN о нем никакой информации, как будто такого и нет

20.11.2007, 19:35

А в рекордсете вроде есть в колелкции полей свойство OriginalValue.

rsTemp.Fields('name').value = 'test'
rsTemp.update

rsTemp.Fields('name').value = 'test again'

тогда
rsTemp.Fields('name').value = 'test again'
rsTemp.Fields('name').originalvalue = 'test'

ну а дальше по обстоятельствам
rsTemp.update или rsTemp.Cancel

или как?

@RoAlex · 21.11.2007, 17:43 **[ТС]**

1) OriginalValue - неизменяемое свойство
2) В обработчиках событий его значение недоступно. Пишет:

OriginalValue : <Consumer's event handler called a non-reentrant method in the provider.>

Новые блоги и статьи Все статьи Все блоги /
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .

@RoAlex 0 / 0 / 0 Регистрация: 13.11.2007 Сообщений: 12

	Свой Update у Recordset-а 13.11.2007, 14:38. Показов 3340. Ответов 22 Метки нет (Все метки) У класса ADODB.Recordset есть метод: Update Как сделать так, чтобы в программе при вызове этого метода выполнялся бы мой код? В ООП это именуется перегрузкой метода, как ее реализовать в VB (при отсутствии наследования)? 0

dan
	20.11.2007, 19:35
	А в рекордсете вроде есть в колелкции полей свойство OriginalValue. rsTemp.Fields('name').value = 'test' rsTemp.update rsTemp.Fields('name').value = 'test again' тогда rsTemp.Fields('name').value = 'test again' rsTemp.Fields('name').originalvalue = 'test' ну а дальше по обстоятельствам rsTemp.update или rsTemp.Cancel или как?

@RoAlex 0 / 0 / 0 Регистрация: 13.11.2007 Сообщений: 12
	21.11.2007, 17:43 [ТС]
	1) OriginalValue - неизменяемое свойство 2) В обработчиках событий его значение недоступно. Пишет: OriginalValue : <Consumer's event handler called a non-reentrant method in the provider.> 0