Аналогично,  например :

   . . .  UPDATE employees SET DateOfBirth = "2021-03-29" WHERE id=  . . .

Доброго всем дня !

     При редактировании таблицы в TableGrid1 в поле типа ДАТА
  (с помощью календаря или в ячейке) физически в базу SQLITE
  записывается формат yyyy-mm-dd 00:00:00.000. 
      Однако программно (Update Tab Set Da='2021-03-27')
  "время" + 00:00:00.000 не сохраняется.

  Зачем лишние 25 байт в поле ДАТА ?

Добрый день !

А какой класс нужно использовать для чтения любых (бинарных) файлов ?

Класс TStringList  не читает,  например,  коды  000 - 031.

Привет !      У вас же есть предупреждение  дублирования новой записью.

Тогда измените существующее количество вручную   ...  если я  правильно понял.


Или укажите имя процедуры в скрипте ,  где  это  нужно  сделать

Как  для  значений  0  и  Null  цифрового  поля  IN  фильтр


IN+IN=0  -  работает  правильно,  а фильтр  IN=0  - нет
 
( фильтруется только  0 )            Разница  в чем  ?   


  Спасибо  за  внимание.

Спасибо Derek !

Но мне нужен  Null  в цифровом поле таблицы SQLITE,

в котором уже  не   Null .

Доброго всем дня !

Как программно присвоить значение Null  цифровому полю в котором

уже есть не нулевое значение  ?

Ув.  К245  !   Что распутывать, если пустое поле   '' в фильтре не работает ?
                            1           2            3           4           5
Значе-               in<0     in<=0      in=0     in>=0     in>0           < -  фильтры
ния  in

-1                         -1         -1
0                                        0           0            0
1                                                                   1           1
'' - пустое

4                           1           2           1            2            1             < -  к-во записей 

                                          3           2            3                            < -  а должно быть

   Пустое поле и  0  -  однозначны  и  должны работать в для  фильтров  2 - 4.

    Спасибо за ответ.

Спасибо за помощь !
   
     Путем экспериментов работают фильтры (In - Integer поле)
     
      In is Null or In='0' <-> In=0  In>0 and In<>''  <-> In>0
 
       In>0 or In='0' or In is Null  <-> In>=0   ...
   
      Почему так запутанно работают фильтры в этих случаях ?
          Может Дмитрий обьяснит ?

Привет форуму !

   Не фильтруются пустые значения цифровых и текстовых полей.
   
  Например, kl=0,  Sm=0,  Txt='', Length(txt)=0 - не работают.
 
  Пустые даты работают так - Da Like '%1899%'

    Что делать ?

Привет форуму ! 

  Form1.Button1.Font.Color:=clRed;   -  программно не работает  ?

  В  построителе  MVD    указан    ...Color = clWindowText
 
  Его  изменение  тоже  не работает .

Спасибо.  Работает.

Всем  привет !

Какой символ переноса строки при вводе заголовка поля  в  конструкторе ?

Или как это сделать в скрипте  ... Header.Text:=  ?

Которое установлено в системе 

К/Панель/Разрешение экрана  ( 1280 х 800 )  ?

Всем  привет  !


Я пробовал  через  SendMail('smtp.gmail.com',   . . .  )   Выдает  " Connect time out "

//  IMAP включен Что еще нужно включить ?

16

(5 replies, posted in Russian)

Все работает  СПАСИБО  !

Доброго всем дня  !

Как  скриптом  узнать  местоположение  запускаемой  программы   MVD
и  где  находится  база  sqlite.db  (тоже скриптом)

Еще раз соединю 2 компьютера и проверю.

Спасибо за внимание.

Если есть ф-ция записи WriteLnToFile(File,Text) , то должны

быть и ф-ции чтения ReadFile()    SeekFile()  ... ?



Как считать текстовый файл ?

СПАСИБО  Dmitry  !   Работает с  1  раза.

А еще проблема.  Когда запускается  одно и тоже  приложение

2 и более раз  при Update  операции      Database is Locked .

И приходится часто через диспетчер задач  снимать  задачи.

Что  версия  6.2  не сетевая ?    6.1 проверял  в  сети  работает.

Да прокрутка работает, но только  со   2-го захода в таблицу


Procedure VsCn(x,xx:string);
begin 
   c:=Fcn.TG1.VertScrollBar.Position; //  с:=   Работает
   Fcn.TG1.VertScrollBar.Position:=50; // работает со 2-го захода в таблицу
   Fcn.Pa9.Caption:=IntToStr(c)+' <=Ok   VsPos=>50 ? 1  ');
   beep(300,150);
end; 

Откуда  надо ее вызывать чтобы  все  работало с 1-го  раза.

Совершенно верно  в таблице > 100 записей 
Хочу выйти  на  50 запись  -  не работает  ниже

Form1.TableGrid1.VertScrollBar.Position:=50;

Прокрутка

pos:=Form1.TableGrid1.VertScrollBar.Position;   -  запоминает  1  строку  TableGrid1

Form1.TableGrid1.VertScrollBar.Position:=pos2;  - прокрутка не работает  ( или когда она работает ) ?


Заранее  спасибо.

Procedure Send(xx,ss:string);Begin xx:='tima-sem@rambler.ru';ss:='abc50@rambler.ru';

  if SendMail('smtp.gmail.com','alexsem837','Valera78',465,xx,ss,'sub','Mess XXXX','') then
      ShowMessage('Message sent');   {Connect time out.}  end;  //  IMAP включен Что еще нужно включить ?

   Выдает  " Connect time out "

 
У кого работает  SendMail ()  пришлите мне сообщение .

25

(10 replies, posted in Russian)

А если 2 даты  изменяются в  Form1.TableGrid1.Cells [2 , r]  -  Form1.TableGrid1.Cells [1 , r]


как  найти  сколько дней разницы между ними  ?