|
28.10.2007, 15:11
#34899885
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Version 10.5 Build 4523
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
1 .Поле даты ‘date_1’
в object DataWindow во вкладке Format содержит
dd-mm-yyyy
В таблице тип поля ‘date’ ,
edit Style – None, Default - 'today()'
второе поле ‘Tn’ тип поля ‘integer’
String ls_msg // error message
String ls_sql // the new SELECT statement
String ls_where // WHERE clause
Boolean lb_new
lb_new = True
wf_Retrieve(lb_new) // datawindow will be почищен и добавлена одна пустая строка
Заданы 2 аргумента, по которым надо выбрать записи из таблицы.
2 .Так как были ошибки с датой, пытаюсь упростить
- выбрать только по одному полю ‘Tn’ , тип которого integer
dw_master.SetSqlSelect(ls_sql )
ls_msg =dw_master.Modify("DataWindow.Table.Select=~"" + ls_sql + "~"")
IF ls_msg <> "" THEN
MessageBox("dw.Modify Error", ls_msg, StopSign!)
RETURN
END IF
dw_master.retrieve()
//dw_master.retrieve( ls_sql) // Column lists do not match
dw_master.SetFocus()
return
Однако 13 нижеприведенных вариантов некорректны:
//++- 1 ls_sql = "SELECT assign_5.Tn FROM assign_5 "
//++- 2 ls_sql = "SELECT Tn FROM assign_5 " // fropm PB5. 0 , pg. 245
//+- ls_sql = "SELECT Tn FROM assign_5 " // Column lists do not match ( я поставил один пробел в конце строки )
//+- ls_sql = "SELECT Tn FROM assign_5" // Column lists do not match ( без пробела в конце строки )
//+- 3 ls_sql = 'SELECT * FROM "DBA"."assign_5" where tn=101' // Line 1 Column 44 : incorrect syntax.
//+- 4 ls_sql = "SELECT * FROM where tn=101" // Unable to Retrieve Rows
//+- 5 ls_sql = "SELECT * FROM 'DBA'.'assign_5' where tn=101" // Line 1 Column 44 : incorrect syntax.
//+- 6 ls_sql = "SELECT * FROM assign_5 where assign_5.tn=101" // Column lists do not match
//+- 7 ls_sql = "SELECT * FROM assign_5 where assign_5.tn=101" // Column lists do not match
//+- 8 ls_sql = "SELECT * FROM assign_5 " // Column lists do not match ( я поставил один пробел в конце строки )
//+- 9 ls_sql = "SELECT * FROM assign_5" // Column lists do not match ( без пробела в конце строки )
//+- 10 ls_sql = "SELECT Tn,Date_1 FROM assign_5" // Column lists do not match ( без пробела в конце строки )
// Column lists do not match - после вставки всех полей, из которых состоит таблица
//+- 11 ls_sql = "SELECT tn,date_1,Codedepart, department, position, salary, argument FROM assign_5"
//+- 12 Column lists do not match - ставлю пробел перед Select
//+- ls_sql = " SELECT tn,date_1,Codedepart, department, position, salary, argument FROM assign_5"
//+- 13 ls_sql = "SELECT * FROM assign_5 WHERE assign_5.Tn = 109"
ls_sql = "SELECT * FROM assign_5 WHERE Tn=109"
3 . последняя версия:
// ls_sql = '"SELECT "assign_5"."tn", ' + &
// ' "assign_5"."date_1" ' + &
//' FROM "assign_5"'
ls_sql = '"SELECT "assign_5"."tn", "assign_5"."date_1" FROM "assign_5"'
dw_master.SetSqlSelect(ls_sql )
ls_msg =dw_master.Modify("DataWindow.Table.Select=~"" + ls_sql + "~"")
IF ls_msg <> "" THEN
MessageBox("dw.Modify Error", ls_msg, StopSign!)
RETURN
END IF
dw_master.retrieve()
//dw_master.retrieve( ls_sql)
dw_master.SetFocus()
return
|
|
|
