|
|
|
DAO и запрос SQL
|
|||
|---|---|---|---|
|
#18+
Dim dbs As Database, cpn As DAO.Recordset Set dbs = CurrentDb Dim q As QueryDef, p As Parameter ' Set q = CurrentDb.QueryDefs("Coupon_Z") '(так все работает!!!) Set q = CurrentDb.QueryDefs("Select * From Coupon_Z") '(а так не хочет !!!) For Each p In q.Parameters p.Value = Eval(p.Name) Next Set cpn = q.OpenRecordset(dbOpenDynaset) Пишет что элемент не обнаружен в данном семействе ??? Помогите разобраться !!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.01.2005, 17:12:54 |
|
||
|
DAO и запрос SQL
|
|||
|---|---|---|---|
|
#18+
В базе есть запрос с именем "Coupon_Z", но нет запроса "Select * From Coupon_Z". Вот и всё. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.01.2005, 17:26:03 |
|
||
|
DAO и запрос SQL
|
|||
|---|---|---|---|
|
#18+
Я понял, но запихнуть переменную в структуру SQL запроса все же хочется пробую так : (Coupon.ID текстовое поле) Dim Per As String Per = "tttt111" Set cpn = dbs.OpenRecordset("Select * From Coupon Where Coupon.ID > 0, dbOpenDynaset) ' так все работает !!! Set cpn = dbs.OpenRecordset("Select * From Coupon Where Coupon.ID = " & Per, dbOpenDynaset) ' а так пишет что слишком мало параметров , требуется 1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.01.2005, 17:38:34 |
|
||
|
DAO и запрос SQL
|
|||
|---|---|---|---|
|
#18+
А кавычки на строку ? Set cpn = dbs.OpenRecordset("Select * From Coupon Where Coupon.ID = '" & Per & "'", dbOpenDynaset) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.01.2005, 17:40:03 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32861841&tid=1669350]: |
0ms |
get settings: |
10ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
43ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
| others: | 271ms |
| total: | 400ms |
| 0 / 0 |
