SQL-запрос на обновление строк

@es_ · Регистрация: 14.01.2013

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

Всем доброго времени суток! Помогите, пожалуйста, написать, как мне кажется, не сложный запрос.
Имеется таблица: tablel1, в ней есть поле: refdes, в котором уникальные значения, т.е. одинаковых значений нет (значения, например: r1, r2, r3 и т.д.). И ещё есть поля с разными значениями (параметрами), которые могут повторяться: field1, field2, field3 и т.д.
И вот мне нужно сделать UPDATE запрос, например, мне нужно обновить строки с refdes=r2,r3, обновить поля: field1, field2, field3, но значения взять для этих полей из r1.
Есть соображения, но не пойму как объединить эти два запроса:
SELECT field1, field2, field3 FROM tablel1 WHERE refdes=r1
и
UPDATE tablel1 SET field1=?, field2=?, field3=? WHERE refdes=r2 or refdes=r3
Заранее спасибо!

mobile · 08.12.2015, 10:24

Видимо, придется пользоваться длукапами, поскольку связей не прослеживается

SQL

UPDATE tablel1 SET 
field1=Dlookup("field1","tablel1","refdes=r1"),
field2=Dlookup("field2","tablel1","refdes=r1"),
field3=Dlookup("field3","tablel1","refdes=r1")
WHERE refdes=r2 OR refdes=r3

@es_ · 08.12.2015, 10:35 **[ТС]**

Ого! Я, конечно, не каждый день работаю с SQL-запросами, но всё же часто, и тем не менее про Dlookup первый раз услышал. Видимо, не зря говорят: "Век живи, век учись".
Спасибо большое за помощь, всё работает так как я и хотел!

@alvk · 08.12.2015, 10:49

Это не SQL-функция и к SQL не имеет никакого отношения.

@es_ · 08.12.2015, 10:56 **[ТС]**

Сообщение от alvk

Это не SQL-функция и к SQL не имеет никакого отношения.

Это функция, которую, можно использовать только в Access?

mobile · 08.12.2015, 11:53

Да, это функция Access.Application. Если Вы обращаетесь в БД из внешнего приложения, то с учетом сложности запроса, изменить данные можно либо рекордсетом, либо создав объект Access.Application и произведя обновление его методами. На ВБА это будет так

Visual Basic

Dim path, app As Object, s
path = "C:\путь\МояБД.mdb"
Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase path
s = "UPDATE tablel1 SET " _
& "field1=Dlookup('field1','tablel1','refdes=r1'), " _
& "field2=Dlookup('field2','tablel1','refdes=r1'), " _
& "field3=Dlookup('field3','tablel1','refdes=r1') " _
& "WHERE refdes=r2 OR refdes=r3"
app.docmd.runsql s

Еще вариант без открытия аппликейшн, воспользоваться DAO

Visual Basic

Dim dbe As Object, db As Object,s
Set dbe = CreateObject("DAO.DBEngine.36")    'DAO.DBEngine.36 для mdb, DAO.DBEngine.120 для accdb
Set db = dbe.OpenDatabase("C:\путь\МояБД.mdb")
s = "UPDATE tablel1 SET " _
& "field1=Dlookup('field1','tablel1','refdes=r1'), " _
& "field2=Dlookup('field2','tablel1','refdes=r1'), " _
& "field3=Dlookup('field3','tablel1','refdes=r1') " _
& "WHERE refdes=r2 OR refdes=r3"
db.Execute s
 
'Или, если в БД есть сохраненный запрос с длукапами, то выполнить его. 
'Тогда в коде писать текст запроса не надо
Dim dbe As Object, db As Object,s
Set dbe = CreateObject("DAO.DBEngine.36")    'DAO.DBEngine.36 для mdb, DAO.DBEngine.120 для accdb
Set db = dbe.OpenDatabase("C:\путь\МояБД.mdb")
db.Execute "ИмяЗапроса"

@texnik-san · 08.12.2015, 12:04

SQL

UPDATE tablel1 
  INNER JOIN (SELECT tablel1.*, 1 AS NEW FROM tablel1) AS sq 
  ON tablel1.refdes = sq.new 
SET sq.field1 = [tablel1].[field1], sq.field2 = [tablel1].[field2], sq.field3 = [tablel1].[field3]
WHERE (((sq.refdes)=2 OR (sq.refdes)=3));

@texnik-san · 08.12.2015, 12:06

Работает.

@es_ · 08.12.2015, 13:25 **[ТС]**

mobile, Ещё раз спасибо! Мне как раз таки нужно запрос выполнить из стороннего приложения.
Программку пишу на C#, с БД общаюсь по средствам OleDbConnection, и при выполнении вами написанного запроса всё прошло на ура. Так что всё ок!

texnik-san, супер! Примерно что-то подобное я себе и представлял, только, конечно же, знаний в области SQL мне не хватило, спасибо! )

SQL-запрос на обновление строк

Решение

Решение

@es_ 217 / 216 / 114 Регистрация: 14.01.2013 Сообщений: 459
		1
	SQL-запрос на обновление строк 08.12.2015, 10:01. Показов 2549. Ответов 8 Метки нет (Все метки) Всем доброго времени суток! Помогите, пожалуйста, написать, как мне кажется, не сложный запрос. Имеется таблица: tablel1, в ней есть поле: refdes, в котором уникальные значения, т.е. одинаковых значений нет (значения, например: r1, r2, r3 и т.д.). И ещё есть поля с разными значениями (параметрами), которые могут повторяться: field1, field2, field3 и т.д. И вот мне нужно сделать UPDATE запрос, например, мне нужно обновить строки с refdes=r2,r3, обновить поля: field1, field2, field3, но значения взять для этих полей из r1. Есть соображения, но не пойму как объединить эти два запроса: SELECT field1, field2, field3 FROM tablel1 WHERE refdes=r1 и UPDATE tablel1 SET field1=?, field2=?, field3=? WHERE refdes=r2 or refdes=r3 Заранее спасибо! 0

@es_ 217 / 216 / 114 Регистрация: 14.01.2013 Сообщений: 459
	08.12.2015, 10:35 [ТС]	3
	Ого! Я, конечно, не каждый день работаю с SQL-запросами, но всё же часто, и тем не менее про Dlookup первый раз услышал. Видимо, не зря говорят: "Век живи, век учись". Спасибо большое за помощь, всё работает так как я и хотел! 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	08.12.2015, 10:49	4
	Это не SQL-функция и к SQL не имеет никакого отношения. 0

@es_ 217 / 216 / 114 Регистрация: 14.01.2013 Сообщений: 459
	08.12.2015, 10:56 [ТС]	5
	Сообщение от alvk Это не SQL-функция и к SQL не имеет никакого отношения. Это функция, которую, можно использовать только в Access? 0

@es_ 217 / 216 / 114 Регистрация: 14.01.2013 Сообщений: 459
	08.12.2015, 13:25 [ТС]	9
	mobile, Ещё раз спасибо! Мне как раз таки нужно запрос выполнить из стороннего приложения. Программку пишу на C#, с БД общаюсь по средствам OleDbConnection, и при выполнении вами написанного запроса всё прошло на ура. Так что всё ок! texnik-san, супер! Примерно что-то подобное я себе и представлял, только, конечно же, знаний в области SQL мне не хватило, спасибо! ) 0