Архив форумов ЦИТФорума

[[MEXAHuK]]

Подскажите, пожалуйста, как средствами ADO можно добавлять данные (это не проблема) в таблицу, с проверкой на их существование(вот это для меня проблема).Т. е. берем таблицу и выцепляем оттуда какой-нибудь RecordSet, далее при добавлении этого набора данных в другую таблицу необходимо записаны ли они там или нет, если нет, до записываем, если нет то не записываем.
Заранее благодарен за любую помощь.

[wAndyK]

Как только это нельзя сделать!

Ну навскидку:

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

Это конечно не самый быстрый вариант, но работает (я делал нечто такое)

::From Andy\

[Salut]

select_rma = "select rma.id_rma from rma where " _
& "rma_id_user =" + Str(id_user) + " AND " _
& "rma_id_project =" + Str(id_project) + " AND " _
& "rma_id_date =" + Str(id_date) + " ;"
id_rma = -1
Set rstRMA = dbs.OpenRecordset(select_rma)
If Not rstRMA.EOF Then id_rma = rstRMA!id_rma
If id_rma = -1 Then
request_rma = "INSERT INTO rma (rma_id_user,rma_id_project,rma_id_date,rma_hours) " _
& "VALUES(" + Str(id_user) + "," + Str(id_project) + "," + Str(id_date) + "," + Str(Worksheets("Sheet1").Cells(LigneNum, 4 + i).Value) + ");"
dbs.Execute (request_rma)
Else
request_rma = "UPDATE rma SET rma_hours=" + Str(Worksheets("Sheet1").Cells(LigneNum, 4 + i).Value) + " WHERE id_rma=" + Str(id_rma) + " ;"
dbs.Execute (request_rma)
End If