Копирование строк в таблице

[LeON_LTS]

Прошу пояснить почему не работает код... Суть задачи в таблице есть записи. Нужно выбрать все записи с определенным значением поля "КодПС" и сделать их копии при этом значение поля "Поколение" изменить с 1 на 2. Среда разработки VB6. Запрос в среде Access проверялся - работает.

Dim MyDN As Database, rsDB As Recordset
Set MyDN = OpenDatabase(Path + "\basa.mdb")
' копирование записей с индексом 2 поколения
Set rsDB = MyDN.Execute("INSERT INTO [Name_Table] SELECT Name_Table.КодПС AS КодПС, Name_Table.Учет AS Учет, Name_Table.Наименование AS Наименование, Name_Table.Мощность AS Мощность, 2 AS Поколение, Name_Table.Характер AS Характер From Name_Table Where КодПС = " & str(КодЗапис))

MyDN.Close

[karlex]

В смысле "не работает"?

[LeON_LTS]

Выдает ошибку "Expected Function or variable"

[alibek]

А текст ошибки тебе ни о чем не говорит?

[LeON_LTS]

Если бы говорил то не спрашивал бы, поэтому и прошу помоч

[alibek]

Ну так словарь возьми.
Он должен натолкнуть тебя на мысль, что ошибка у тебя синтаксическая.
Например, что в DAO Execute — это Sub, а не Function.

[LeON_LTS]

Dim MyDN As Database
Set MyDN = OpenDatabase(Path + "\basa.mdb")
' копирование записей с индексом 2 поколения
MyDN.Execute("INSERT INTO [Name_Table] SELECT Name_Table.КодПС AS КодПС, Name_Table.Учет AS Учет, Name_Table.Наименование AS Наименование, Name_Table.Мощность AS Мощность, 2 AS Поколение, Name_Table.Характер AS Характер From Name_Table Where КодПС = " & str(КодЗапис))
MyDN.Close

Cделал так, ошибка 3067 "In Microsoft Jet databases, this error occurs if you don't select a table name when you create a query. Select at least one table or query."
"В базах данных Microsoft Jet, эта ошибка происходит, если вы не выбрать имя таблицы, когда вы создаете запрос. Выберите, по крайней мере, одну таблицу или запрос."
Вроде запрос составлен правильно.

[alibek]

Этот запрос:

Код: Выделить всё

INSERT INTO [Name_Table]
SELECT Name_Table.КодПС AS КодПС, Name_Table.Учет AS Учет, Name_Table.Наименование AS Наименование, Name_Table.Мощность AS Мощность, 2 AS Поколение, Name_Table.Характер AS Характер
From Name_Table
Where КодПС = ...

в Access выполняется правильно?
Если правильно, попробуй еще написать так (предварительно убедившись, что нет уникального индекса по полю КодПС):

Код: Выделить всё

INSERT INTO [Name_Table] ([КодПС], [Учет], [Наименование], [Мощность], [Поколение], [Характер])
SELECT [КодПС], [Учет], [Наименование], [Мощность], 2 AS [Поколение], [Характер]
From [Name_Table]
Where [КодПС] = ...

[LeON_LTS]

Все ок заработало, только не пойму тот запрос в Access тестился и все нормально было. Спасибо за помощь !