Все то же исправление записей (ADO)

@Bogdanov · Регистрация: 11.08.2008

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

К вопросу то 06.06.2002
Ну если уж про транзакции нельзя рассказать, подскажите хоть где пример в нете посмотреть... А нельзя ли полученные при выборке данные записать в переменные, а потом на основе их создать новую запись???

Неужели никому не приходилось подобного делать?

@Solovyov.Dmitry · 14.08.2008, 14:56

Не много поподробнее...

@Bogdanov · 14.08.2008, 15:19 **[ТС]**

OK. Есть некое приложение, работающее с удаленной базой в (настоящий момент JET когда будет

четко определена структура - переведется на SQL сервер). В базе - данные по типу каталога

'уникальный номер' 'наименование' 'описание' далее реквизиты кому продано, срок гарантии,

обслуживание и проч. В виду специфичности товара - большинство покупателей постояные и

наименования категории товара в принципе практически не отличаются.
Каждый раз вбивать массу информации муторно, если находить запись и вносить в нее изменеия

все проходит на ура, но есть нюанс - измененная запись перезаписывает себя, а требуется -

чтоб отредактированная информация внеслась в БД как новая запись.

Кусоче кода подключения и поиска:

Коннект (принадлежность полей к прописана в свойствах а не в коде)

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As ADODB.Connection
    Set db = New ADODB.Connection
    db.CursorLocation = adUseClient
    db.Open 'PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=tuningBrab.mdb;'
 
    'Создаем основной набор записей
    Set rs = New ADODB.Recordset
    rs.Open 'SELECT * FROM tblKpp ORDER BY id', db, adOpenStatic, adLockOptimistic
    
    'Разносим по массиву элементов данные из основного набора
    Dim oText As TextBox
    For Each oText In Me.txtFields
        Set oText.DataSource = rs
    Next

Упрощенный запрос на выборку (кстати в нем тоже есть проблемка

)

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmdPrn_Click()
Dim rs1 As ADODB.Recordset
Dim sSQL As String
sSQL = 'SELECT * FROM tblKpp WHERE [model] = '' & txtFields(0).Text & '''
 
Dim db1 As Connection
    Set db1 = New Connection
    db1.CursorLocation = adUseClient
    db1.Open 'PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=tuningBrab.mdb;'
    Set rs1 = New Recordset
    rs1.Open sSQL, db1, adOpenStatic, adLockOptimistic
    
Set prnOplata.DataSource = rs1
    prnOplata.Show
    
Set rs1 = nothing
Set db1 = nothing
End Sub

@Solovyov.Dmitry · 14.08.2008, 16:15

На вскидку, если я конечно правильно понял проблемку, возникает два варианта:
1. Хранить в отдельной таблице постоянно используемую информацию и вставлять по мере необходимости.
2. Создать два рекордсета. Первый содержит повторно используемую информацию, второй, тот, где создается новая запись, что-то вроде:
Rs2.AddNew
Rs2![Field1]=Rs1![Field1]
Rs2![Field2]=Rs1![Field2]
...
Rs2![FieldN]=Rs1![FieldN]
Rs2.Update

Заранее прошу простить, если я неправильно понял суть вопроса

@Bogdanov · 14.08.2008, 17:09 **[ТС]**

Так, только та иформация, которая содержится во всей базе одновременно и является постоянно используемой. В нее постоянно, из автосервисов и магазина добавляется и изменяется иноформация. Отдельно существует лмшь справочник с кодировками и наименованиями товара. Технология работы - пришел клиент в офис с накладной, в оторой указан код и сумма, оператор находит его запись в базе, вносит обычно незначительное изменение но основная масса данных остается целой.

Коннект к БД - это, в принципе, и есть рекордсет с повторно используемой информацией.

Выполняем запрос (например по фамилии клиента).
Собственно во время запроса и открывается новый отсоединенный рекордсет (вторая часть кода), данные оператором исправляются. (естественно на клиенте) а передать ты их предлагаешь первому?

Поробовал

Code
1
2
3
4
5
Private Sub cmdSaveNew_Click()
Rs2.AddNew
Rs2![txtFields(0)] = rs1![txtFields(0)]
Rs2.Update
End Sub

Ругается

object Requied

@Bogdanov · 14.08.2008, 19:21 **[ТС]**

Тысяча извинений, ступил и только сейчас увидел, ошибка
Object variable or With block variable not set

@Solovyov.Dmitry · 17.08.2008, 09:28

Не правильно обозваны поля. Нужно попробывать так:
rs1!txtField(0)
и то я не уверен, что можно в качестве имени поля использовать массив.
Если предыдущий вариант не заработает, то можно так:
dim MyField as Field
MyField.Name=txtField(0)
rs1!MyField=rs2!MyField
По моему так.

@Bogdanov · 17.08.2008, 16:37 **[ТС]**

Ругается

'Can't assign to read-only property'

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@Bogdanov 0 / 0 / 0 Регистрация: 11.08.2008 Сообщений: 35

	Все то же исправление записей (ADO) 14.08.2008, 14:15. Показов 872. Ответов 7 Метки нет (Все метки) К вопросу то 06.06.2002 Ну если уж про транзакции нельзя рассказать, подскажите хоть где пример в нете посмотреть... А нельзя ли полученные при выборке данные записать в переменные, а потом на основе их создать новую запись??? Неужели никому не приходилось подобного делать? 0

@Solovyov.Dmitry 0 / 0 / 1 Регистрация: 21.07.2008 Сообщений: 120
	14.08.2008, 14:56
	Не много поподробнее... 0

@Solovyov.Dmitry 0 / 0 / 1 Регистрация: 21.07.2008 Сообщений: 120
	14.08.2008, 16:15
	На вскидку, если я конечно правильно понял проблемку, возникает два варианта: 1. Хранить в отдельной таблице постоянно используемую информацию и вставлять по мере необходимости. 2. Создать два рекордсета. Первый содержит повторно используемую информацию, второй, тот, где создается новая запись, что-то вроде: Rs2.AddNew Rs2![Field1]=Rs1![Field1] Rs2![Field2]=Rs1![Field2] ... Rs2![FieldN]=Rs1![FieldN] Rs2.Update Заранее прошу простить, если я неправильно понял суть вопроса 0

@Bogdanov 0 / 0 / 0 Регистрация: 11.08.2008 Сообщений: 35
	14.08.2008, 19:21 [ТС]
	Тысяча извинений, ступил и только сейчас увидел, ошибка Object variable or With block variable not set 0

@Solovyov.Dmitry 0 / 0 / 1 Регистрация: 21.07.2008 Сообщений: 120
	17.08.2008, 09:28
	Не правильно обозваны поля. Нужно попробывать так: rs1!txtField(0) и то я не уверен, что можно в качестве имени поля использовать массив. Если предыдущий вариант не заработает, то можно так: dim MyField as Field MyField.Name=txtField(0) rs1!MyField=rs2!MyField По моему так. 0

@Bogdanov 0 / 0 / 0 Регистрация: 11.08.2008 Сообщений: 35
	17.08.2008, 16:37 [ТС]
	Ругается 'Can't assign to read-only property' 0