|
|
|
SQL B VB (ликбез)
|
|||
|---|---|---|---|
|
#18+
Привет еще раз! Переведите, пожалуйста, на VB 1) DELETE FROM tab WHERE условие1 2) UPDATE tab1, tab2 SET a.tab1=... WHERE условие2(tab1,tab2) 3) INSERT INTO tab1 SELECT * FROM tab2 WHERE условие3 Пытался с AddNew нихрена не выходит! Заранее благодарен В. Скопин! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2004, 12:46 |
|
||
|
SQL B VB (ликбез)
|
|||
|---|---|---|---|
|
#18+
много раз видел, как рекордсеты на SQL-запросы переделывали. но шоб наоборот... 1. DELETE FROM tab WHERE условие1 rst.MoveFirst Do While NOT rst.EOF if условие1 then rst.Delete rst.MoveNext LooP Ну и остальное аналогично... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2004, 12:51 |
|
||
|
SQL B VB (ликбез)
|
|||
|---|---|---|---|
|
#18+
currentdb.execute"DELETE FROM tab WHERE условие1" currentdb.execute"UPDATE tab1, tab2 SET a.tab1=... WHERE условие2(tab1,tab2)" currentdb.execute"INSERT INTO tab1 SELECT * FROM tab2 WHERE условие3" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2004, 13:02 |
|
||
|
SQL B VB (ликбез)
|
|||
|---|---|---|---|
|
#18+
2ВС: А в VB есть CurrentDb? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2004, 13:34 |
|
||
|
SQL B VB (ликбез)
|
|||
|---|---|---|---|
|
#18+
Я думал, что надо перевести на VBA для Аксесса. Если нет, то это не в этот форум. :^) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2004, 13:35 |
|
||
|
SQL B VB (ликбез)
|
|||
|---|---|---|---|
|
#18+
tab1, tab2 не из CurrentDb !!! ( db_ora.Open ("Provider=OraOLEDB.Oracle;User ID=vskopin;Password=v;Data Source=TDB") ) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2004, 14:00 |
|
||
|
|

start [/forum/topic.php?fid=45&gotonew=1&tid=1674555]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
142ms |
get topic data: |
13ms |
get first new msg: |
7ms |
get forum data: |
3ms |
get page messages: |
63ms |
get tp. blocked users: |
2ms |
| others: | 217ms |
| total: | 478ms |

| 0 / 0 |
