Search options (Page 4 of 4)

1C сама на SQL работает ( в зависимости от версий )
по идее можно напрямую подключиться к базе . ( если они палок не понавставляли в виде шифрования и прочих прелестей)

Символ переноса строки это символ с номером 13 его можно вставить с помощью
функции преобразования номера символа в символ chr(13). ( если его надо вставить в скрипте )
...если я правильно понял что вам надо.

http://book.itep.ru/10/ascii.htm

http://www.mysql.ru/docs/man/String_syntax.html

не     /n     а      \n

SELECT DISTINCT
`vr_zakazi`.`НомерЗаказа`,
`vr_zakazi`.`ДатаЗаказа`,
`vr_klienti`.`Наименование`,
`vr_mediaplan`.`НомерПоздравления`,
`vr_mediaplan`.`ДатаЭфира`,
`vr_mediaplan`.`ВыборБлока0900`,
`vr_mediaplan`.`ВыборБлока1300`,
`vr_mediaplan`.`ВыборБлока2000`,
`vr_adresati`.`Наименование`,
`vr_mediaplan`.`СтатусАктивен`,
`vr_mediaplan`.`СтатусВыполнен`,
`vr_mediaplan`.`ПожеланиеНомер0900`,
`vr_mediaplan`.`ПожеланиеНомер1300`,
`vr_mediaplan`.`ПожеланиеНомер2000`,
`vr_mediaplan`.`Музыка0900`,
`vr_mediaplan`.`Музыка1300`,
`vr_mediaplan`.`Музыка2000`,
`vr_mediaplan`.id
FROM `vr_mediaplan`
LEFT OUTER JOIN `vr_adresati` ON `vr_mediaplan`.`id_vr_adresati`=`vr_adresati`.id
LEFT OUTER JOIN `vr_klienti` ON `vr_mediaplan`.`id_vr_klienti`=`vr_klienti`.id
LEFT OUTER JOIN `vr_zakazi` ON `vr_mediaplan`.`id_vr_zakazi`=`vr_zakazi`.id
WHERE `vr_zakazi`.`ДатаЗаказа` >= '2016-03-18 00:00:00.000'
  AND `vr_zakazi`.`ДатаЗаказа` <= '2016-03-18 23:59:59.999"     <---- Не из за кавычки вместо апострофа ?
  AND `vr_mediaplan`.`ДатаЭфира` >= '2015-12-19 00:00:00.000'
      ORDER BY `vr_mediaplan`.`ДатаЭфира` ASC
 
 
http://www.mysql.ru/docs/man/String_syntax.html

именно такое добавление записи и запрещено дабы не возникло коллизий
SQLExecute('insert into kash (id_azs,date,gotov,Z_A80) SELECT id_azs,date,gotov,Z_A80  FROM kash WHERE date ='+D1+' and id='+azstext+'')

procedure rep_button1_OnClick (Sender: string; var Cancel: boolean);
var
D1, D2: string; //даты 1 и 2    ***где какая ... DataNaUdalenie , DataDlyaZameni ...
azs: integer;//количество записей в справочнике АЗС
idkash,azsx: integer;//переменная - УН записи АЗС
idkash1, azstext: string;
begin
D1 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000',  (rep.DateTimePicker1.DateTime)) + '"';
D2 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000',  (rep.DateTimePicker2.DateTime)) + '"';

SQLExecute('delete from kash where date = '+D2+'') ; // ***Удалить из таблицы КЭШ записи с датами D2 ?  зачем ?

azs:= SQLExecute('SELECT max(id) FROM azs ;') ;//определяем максимальную УН запись в справочнике АЗС для составления цикла

idkash:= SQLExecute('SELECT max(id) FROM kash ;') ;//определяем максимальную УН запись в данных

for azsx:=1 to azs do // цикл создания записей начиная с 1-й записи в справочнике АЗС и заканчивая последней
    begin
        azstext:=VarToStr (azsx);
        if SQLExecute('SELECT count(id) FROM azs WHERE id='+azstext+'') = 1 then  // ***Если количество найденных записей с индексом azsx будет   = 1 ???***
                                                                                  // ***со временем цикл будет расти пропуская удаленные ID
           begin
            SQLExecute('insert into kash (id_azs,date,gotov,Z_A80) SELECT id_azs,date,gotov,Z_A80  FROM kash WHERE date ='+D1+' and id='+azstext+'');  //  ***  Тут полный ахтунг  выборка из КЭШ по ID из AZS ??? возможно id_azs ?

            UpdateDatabase('kash');
           end
        else  ShowMessage ('В справочнике АЗС нет такого УН');
    end;
idkash1:=VarToStr (idkash);
SQLExecute('update kash SET date = '+D2+' where id>'+idkash1+'');
UpdateDatabase('kash');
end;

id_azs это наименование запрвки ?

Суть задачи понятна хотя вы нераскрыли полностью сути проблемы.
...но остались вопросы
1. Какова временнАя актуальность таблицы кэш ? ( день , месяц , год  ? и нужно ли ее хранить или она меняется каждый день ? )
2. Каким способом происходит сбор данных такого объема ?
3. Зачем вам хранить числа как числа ? Они будут еще где-то использоваться ?
4. Почему бы не сделать редактирование прямо в таблгриде ? ( можно поизвращаться немного но это думаю реализуемо )

..да только или через временную таблицу через CREATE TEMPORARY TABLE
или как я топорным вариантом ))
поставьте программу посвежее
мой первый вариант откройте .
если хотите для простоты все лишнее уберу совсем

INSERT INTO sobitiya ( data , sobitie )
VALUES
(
{Ust},
( SELECT sobitie FROM sobitiya WHERE data BETWEEN {dtfrom} AND {dtto} )

)

Переводится так :
ВСТАВИТЬ В ТАБЛИЦУ sobitiya ( data , sobitie )
ЗНАЧЕНИЯ
(
{Ust},
( ВЫБРАТЬ sobitie ИЗ ТАБЛИЦЫ sobitiya С УСЛОВИЕМ ЧТО data НАХОДИТСЯ МЕЖДУ {dtfrom} И {dtto} )

)

Стоит пояснить что я использовал вложенный SQL запрос , и по количеству выданных данных будет произведено соответствующее количество новых записей оператором INSERT

)) и что то он не работает так как надо в отличие от первого варианта

...это топорный вариант но если смотреть ничего не надо то можно и одним SQL запросом обойтись )))

Запрос по кнопке будет так :

SELECT DISTINCT 
users.Besday,
users.id
FROM users 
WHERE 
users.Besday > '2016-03-01 00:00:00.000' AND users.Besday < '2016-03-01 23:59:59.999' 
ORDER BY users.Besday ASC 

можно так : ( если дата статична )

SELECT DISTINCT 
users.Besday,
users.id
FROM users 
WHERE 
users.Besday > '2016-03-01 00:00:00.000' AND users.Besday < '2016-03-02 00:00:00.000' 
ORDER BY users.Besday ASC 

можно так:

SELECT DISTINCT 
users.Besday,
users.id
FROM users 
WHERE 
users.Besday Between '2016-03-01 00:00:00.000' AND  '2016-03-02 00:00:00.000' 
ORDER BY users.Besday ASC

Дмитрий как мне вставить в запрос , которым заполняется combobox , опцию   DISTINCT ? ,   для заполнения  уникальными полями.
И второй вопрос как отключить возможность пустого выбора ? ( пустая строка при открытии  combobox c возвратом  -1 )

Для sql запроса их надо сводить в скрипте
http://rghost.ru/6g7Szx2zV
но и после того как в datatimepicker точно находится то что надо выборка через SQL запрос происходит только по дате но не по времени .
... но прогнав .sqldatetime через поле Edit.text происходит чудо и все сразу ищется и выводится .
...мистика
так же мне непонятно поведение SQLExecute
.Text := SQLExecute( 'SELECT data FROM sd WHERE id=10' );    Работает
.Text := SQLExecute( 'SELECT data FROM sd WHERE id>10' );    Не работает
.Text := SQLExecute( 'SELECT data FROM sd WHERE ORDER BY id' );   Не работает
по всей видимости запрос может передать только одно поле из базы данных