| Вопрос: запись в БД с условием | Добавлено: 03.08.05 07:24 |
Автор вопроса:  Alik
|
|
Имеется база SQL 2000
table1: id, full_name table2: id, date, sum Как можно использую DAO сделать следующее: вернуть все записи из table1 посмотреть есть ли записи с id из table1 в table2 и датой за текущей месяц по дням и если нет то вставить запись в table2. Пример: table1: 12345 рога и копыта если нет записи с таким id в table2 то вставить в table2 след. записи: 12345 01082005 0 12345 02082005 0 12345 03082005 0 ............... ............... 12345 31082005 0 итого 31 запись |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Alik Вопросов: 13 Ответов: 16 |
Профиль | | #1 | Добавлено: 03.08.05 08:17 |
|
Опечатка:
строку - Как можно использую DAO сделать следующее: читать как - Как можно использую ADO сделать следующее: |
||
|
Номер ответа: 2 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 03.08.05 09:40 |
|
Dim rstTemp As New Recordset
Dim dt1 As Date, _ dt2 As Date dt1 = VBA.Date dt2 = VBA.Date Do While VBA.Month(dt1) = VBA.Month(dt1 - 1) dt1 = dt1 - 1& Debug.Print dt1 Loop Do While VBA.Month(dt2) = VBA.Month(dt2 + 1) dt2 = dt2 + 1& Debug.Print dt2 Loop ' SQL запроч че-нить вроде этого: Call rstTemp.Open("SELECT * FROM table1" 
Call rstTemp.Open("SELECT * FROM table2 tb2 WHERE (tb2.id in (SELECT id FROM table1 tb1)) AND ((tb2.date) >=" & dt1 & "  tb2.date) <=" & dt2 & ""писао от руки, разумеется не проверял, может и не работать 
В любом случае ищи учебнгик по SQL и качай примеры... |
||
Страница: 1 |