Модификация записей в Access с помощью Delphi

← →
12 © (2010-09-17 13:06) [40]

> Поля именовать нормально надо.

База - переходная, все мало значимое свалено в одно поле. Comment.
order - динамический
не делать же выборку по всем возможным хотелкам юзера..

← →
Ega23 © (2010-09-17 13:30) [41]

> не делать же выборку по всем возможным хотелкам юзера..

Параметр в ХП.
Ну и потом, я хоть убей не понимаю, кто тебе мешает
ADOQuery.Text := ADOQuery.Text + " Order By ....";
сделать, если уж на от пошло.

← →
12 © (2010-09-17 13:40) [42]

> Параметр в ХП.

> База - переходная,

и нафига?

> Ну и потом, я хоть убей не понимаю, кто тебе мешает
> ADOQuery.Text := ADOQuery.Text + " Order By ....";

да никто :)
и так тоже делаю, бывает.
но думаю лучше смотрится add("Order By ....");
т.к. меньше в длину строка занимает, и не вылазит за экран

ps.
" dfsgdgsdg "+
"sdgsdgsgsdg" ;
тоже пишу, бывает :)

бывает, и так
" select B.FN, B.FI, count(*) as CR from "+#13#10+ " ( "+#13#10+ " select A.ring_id_cisco, A.FN, A.FI from "+#13#10+ " ( "+#13#10+ " select "+#13#10+ " ring_id_cisco, "+#13#10+ " upper(s.FILIAL_NAME) as FN, "+#13#10+ " s.filial_id as FI, "+#13#10+ " count(*) as CountAnswert, "+#13#10+ " SUBSTRING(comment, CHARINDEX("+QuotedStr("#")+",comment)+1, DATALENGTH(comment)) as NameS "+#13#10+ " FROM "+#13#10+ " [ccc].[dbo].[request] r "+#13#10+ " JOIN (select * from openquery(MIS2, "+#13#10+ QuotedStr(" SELECT S.ID_SUBSCRIBER, F.FILIAL_NAME, F.FILIAL_ID " + " FROM SUBSCRIBER S JOIN SPRAVKA.FILIALS F ON F.FILIAL_ID = S.FILIAL_ID") + " )) s ON SUBSTRING(r.comment, 1, CHARINDEX("+QuotedStr("#")+",r.comment)-1) = s.ID_SUBSCRIBER "+#13#10+ " where "+#13#10+ " [id_object] = 1228 "+#13#10+ " and R.id_sct not in (29, 4 ) "+#13#10+ " and start_time between :FDT and :SDT "+#13#10+ " and isNull(SubString(comment,1,DATALENGTH(comment)), "+QuotedStr("")+") <> "+QuotedStr("")+" "+#13#10+ " group by "+#13#10+ " ring_id_cisco, "+#13#10+ " s.filial_id, "+#13#10+ " SUBSTRING(comment, CHARINDEX("+QuotedStr("#")+",comment)+1, DATALENGTH(comment)), "+#13#10+ " upper(s.FILIAL_NAME) "+#13#10+ " ) A "+#13#10+ " group by A.ring_id_cisco, A.FN, A.FI "+#13#10+ " ) B "+#13#10+ " group by B.FN, B.FI ";

pps.
да, а SPRAVKA - знаю, что так англоязычные страны не говорят, это наследство такое.

← →
Anatoly Podgoretsky © (2010-09-17 13:41) [43]

> Ega23 (17.09.2010 13:30:41) [41]

" Order By %S";

← →
Anatoly Podgoretsky © (2010-09-17 13:48) [44]

> 12 (17.09.2010 13:40:42) [42]

но думаю лучше смотрится add("Order By ....");
т.к. меньше в длину строка занимает, и не вылазит за экран

Смотрится ужасно и по второму пункту тоже не выделживает критики

AdoDataset.CommandText := " select"+ " field1,"+ ... " field1,"+ " Order by" + OrderPart;
Вот это коротко и смотрится не ужасно

← →
Ega23 © (2010-09-17 13:49) [45]

> бывает, и так

Вот ТАКОЕ я точно в ХП или View выношу.

← →
Anatoly Podgoretsky © (2010-09-17 13:49) [46]

> AdoDataset.CommandText := " select"+
> " field1,"+

и даже так
AdoDataset.CommandText := " select"+ " field1,"+

← →
Palladin © (2010-09-17 14:05) [47]

> Вот ТАКОЕ я точно в ХП или View выношу.

+1

Всем спасибо =) Не повесилась :D А методичку писал препод нашего универа :(

> > Вот ТАКОЕ я точно в ХП или View выношу.

уболтали, это, конечно, слишком уже :)

просто боюсь получится, как sniknik предупреждал, - вместо того что б программу править, приходится и программу править и в БД лезть.
а так наглядно все видно, pageup нажать только

> А методичку писал препод нашего универа

кто бы сомневался. Научен.
Если сдавать - то по медодичке.
А если "parametrs" да "sql.text := "
скажет, "че, самый умный? Умнее меня, типа? "

зы
а реальные вещи пишем так, как надо.
parametrs да sql.text :=

Модификация записей в Access с помощью Delphi Найти похожие ветки