ADOQuery without Grid

[rdama]

2 ТС Согласен с Serge_Bliznykov Не стоит использовать такое решение

'insert into client_info (Date) values("'+DateToStr(DateTimePicker1.DateTime)+'")';

Грабли будут в самом неожиданном месте(на сервере). Если на сервере изменится формат даты ваша программа этого не переживет.
Так что либо параметры либо приведение к типу на стороне сервера(в запросе). У мускуля функция зовется STR_TO_DATE(). Вот пример

STR_TO_DATE('01.11.2010 23:59:59','%d.%m.%Y %H:%i:%s')

[Phantosmagor]

Уважаемые форумчане, и снова - здравствуйте.

Программа работает, сделал также программу отчётов(выборка между двух заданных дат), и вот тут возник один вопрос... который никак не могу понять как решить.

1) Есть Mysql таблица, одна из колонок которой носит название Organization.
В нёй хранятся названия организаций, которые внесены через программу.
2) В программе отчёте, существует Combobox, который бы я хотел заполнить значениями полей из данной колонки. (чтобы не вбивать названия организаций, а выбирать из списка).
*специально пока что пытаюсь сделать загрузку списка посредством элемента RadioButton.

...
procedure TForm1.RadioButton1Click(Sender: TObject);
var
K:String;
begin
K:='SELECT Organization FROM client_info';
AdoQuery1.SQL.Text:=K;
AdoQuery1.ExecSQL;
!! И вот тут возникает вопрос, как значения полей внести в Combobox1...!!
ComboBox1.Items:=????
end;

С функциями GetFieldData покопался, ну не получается, хоть тресни.

Буду благодарен, за любые комментарии.

[Serge_Bliznykov]

AdoQuery1.ExecSQL;

Запомните, когда Вы изменяете данные (это команды INSERT, DELETE, UPDATE, ALTER и т.п.) - используйте метод .ExecSQL

если же Вы хотите получить набор данных (команда SELECT SQL ) - тогда .Open

это раз.


второе. ну просто переберите все записи, добавляя их в цикле в комбобокс
примерно так:

  AdoQuery1.Close;
  AdoQuery1.SQL.Text:='SELECT Organization FROM client_info';
  AdoQuery1.Open;
  ComboBox1.Items.Clear;
  while Not AdoQuery1.EOF do begin
     ComboBox1.Items.Append( AdoQuery1.FieldByName('Organization').AsString ); 
     AdoQuery1.Next;
  end;
  AdoQuery1.Close; {раз нам набор данных больше не нужен - закроем его!}

[Phantosmagor]

Всё понял. Спасибо большое.

[=master=]

Сообщение от vovk

Спокойно используйте DBGrid, для отображения данных, а для добавления и редактирования создайте отдельную форму.

Околесицу нести ненадо.

[Phantosmagor]

Дорогие форумчане, снова день добрый.


Всё работает, и вертится как нужно, много чего доделал поверх того, что требовалось вначале. Хотел сделать одно маленькое улучшение, и вот бьюсь уже несколько часов, на просторах интернета- похожие решения, вот только не выходит каменный цветок у данилы-мастера. К сути:


Есть DateTimePicker , с выпадающим календарём. Всё, что хочу - чтобы при запуске программы автоматически дата стояла сегодняшняя, а она стоит той- которая задана в поле Date в свойствах. При этом в самом календаре сегодняшнее число обведено красным.

Есть какие то мысли? пробовал при помощи SystemTime. Не решило мою беду. Подскажите уж, в растерянности я =).

P.S.

DateTimePicker1.DateTime:=now();

Стоит в коде, для автоматического определения времени...

[mansuetudo]

DateTimePicker1.DateTime:=Date;

[Phantosmagor]

Сообщение от mansuetudo

DateTimePicker1.DateTime:=Date;

Пробовал . так - не выходит.

[Yurk@]

тогда вопрос следующего плана: в какой момент (по какому событию) пытаемся установить текущую дату?

[Phantosmagor]

Сообщение от Yurk@

тогда вопрос следующего плана: в какой момент (по какому событию) пытаемся установить текущую дату?

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