ADO, Access, SQL, Магазин

@Shura_deg · Регистрация: 01.02.2015

Студворк — интернет-сервис помощи студентам

Уважаемые форумчане помогите пожалуйста придумать красивое оформление для базы данных
И какие запросы SQL будут актуальны для данной базы
Может быть кто-то сталкивался с такой проблемой...
Сама база имеет 3 таблицы

@Shura_deg · 19.10.2015, 11:16 **[ТС]**

да сори что сразу не сказал...
база в Access
формат даты - кароткий формат поля 21.05.2015
работающий для моей базы SQL запрос 100%

SQL
1
2
3
SELECT *
FROM Zakazi
WHERE ДатаЗаказа=#22/02/2015#;

@qwertehok · 19.10.2015, 11:25

ну не знаю сделай так

Delphi
1
'select *from [] where date=#'+dayof()+'/'+monthof()+'/'+yearof()+'#;'

в скобках свою дату

@Алекcей · 19.10.2015, 11:39

чтобы не было проблем с датами и прочим - нужно использовать параметры.

Delphi
1
2
3
4
5
6
with Query1 do begin
  Close;
  SQL.Text:='SELECT * FROM имя таблицы(таблиц) WHERE DATA=:DATA;';
  Parameters[0].Value:=значение параметра(с типом дата);
  Open;
end;

@Shura_deg · 19.10.2015, 11:42 **[ТС]**

возможно будет работать ща проверю только вот нужно чтобы данные брались из какого-нибудь компонента
типа edit или DateTimePicker1 или ещё как-нибудь..!

Добавлено через 48 секунд
а в вашем случае придётся вручную вводит, метод конечно хороший но мне не совсем подходит

@Алекcей · 19.10.2015, 11:43

не понял чем не подходит мой способ, кто мешает значение параметра брать из переменной? или из edit1:

Delphi
1
Parameters[0].Value:=StrToDate(Edit1.Text);

@Shura_deg · 19.10.2015, 13:59 **[ТС]**

Сообщение от Алекcей

Parameters[0].Value:=StrToDate(Edit1.Text);

можно поподробнее об этом способе!
и разве можно Edit1.text преобразовывать в дату??? много где писали что нельзя
а что именно подразумеваеться под Parameters[0]
что вместо этого нужно писать?

@Алекcей · 19.10.2015, 14:11

можно посмотреть где написано что нельзя преобразовывать string в TDate? Конечно, правильнее использовать TDateTimePicker или на худой конец проверять можно ли преобразовать текст из TEdit в дату (TryStrToDate(Edit1.Text,dat)). насчет Parameters[0] не понял, что значит что писать?

@qwertehok · 19.10.2015, 14:30

Parameters это массив параметров которые вы передаете в запрос
[0] - это номер параметра, так как нумерация с нуля

@Shura_deg · 19.10.2015, 15:17 **[ТС]**

как именно задать этот запрос????
при вводе такого кода

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TfMain.Edit1Change(Sender: TObject);
begin
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
 fDM.ADOQuery1.Close; // закрыть файл-результат выполнения предыдущего запроса
 fDM.ADOQuery1.SQL.Clear; // удалить текст предыдущего запроса
 // записываем новый запрос в свойство SQL
 Parameters[0].Value:=StrToDate(Edit1.Text);
 fDM.ADOQuery1.SQL.Text:='select * from Zakazi where ДатаЗаказа  = '+Parameters[0];
 fDM.ADOQuery1.Open; // активизируем выполнение запроса
 DBGrid1.DataSource:=fDM.DSQuery1;
end else
 DBGrid1.DataSource:=fDM.DSZakaziData;
end;

выскакивает ошибка!
Undeclared identifier: 'Parameters'

@Алекcей · 19.10.2015, 15:37

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TfMain.Edit1Change(Sender: TObject);
var d: TDateTime;
begin
 if (Edit1.Text <> '') and (TryStrToDateTime(Edit1.Text, d)) // пользователь ввел инф
 then begin
  with fDM.ADOQuery1 do begin
    Close; // закрыть файл-результат выполнения предыдущего запроса
    SQL.Text:='select * from Zakazi where ДатаЗаказа  = :DATA'; // удалить текст предыдущего запроса
    Parameters[0].Value:=StrToDate(Edit1.Text);
    Open; // активизируем выполнение запроса
    DBGrid1.DataSource:=fDM.DSQuery1;
end else
 DBGrid1.DataSource:=fDM.DSZakaziData;
end;

@Shura_deg · 26.10.2015, 00:00 **[ТС]**

пытаюсь сделать поиск в зависимости от кнопки на radiobutton
вот код

Delphi
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
procedure TForm1.Edit1Change(Sender: TObject);
var
 strField:string;
begin
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
  DBGrid1.DataSource:=fDM.DSQuery1;
   // вывести таблицу
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;
  fDM.ADOQuery1.SQL.Add('Select * from TovarMain');
  fDM.ADOQuery1.Open;
  // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Модель';
  1: strField:='Бренд';
  2: strField:='Вид';
  3: strField:='Тип';
  4: strField:='Стоимость';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+'=' +Edit1.Text);
 fDM.ADOQuery1.Open;
 end;end;

Добавлено через 51 секунду
пишет параметр не имеет значения по умолчанию

@qwertehok · 26.10.2015, 09:15

Shura_deg,может так?

Delphi
1
fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+'='''' +Edit1.Text+''');

поиск лучше делать через LIKE

@Shura_deg · 26.10.2015, 11:22 **[ТС]**

да, через LIKE действительно лучше, вот код для like может быть кому то нужен будет

Delphi
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
procedure TForm1.Edit1Change(Sender: TObject);
var
 strField:string;
begin //start
 if not CheckBox1.Checked then Exit;
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Model';
  1: strField:='Brend';
  2: strField:='Vid';
  3: strField:='Tip';
  4: strField:='Ctoimost';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;                              // |
 fDM.ADOQuery1.SQL.Clear;                 //  ' LIKE "%'+Edit1.Text+'%"' - ищет фрагмент текста
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+' LIKE "'+Edit1.Text+'%"');
 fDM.ADOQuery1.Open;
 fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
 fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
 fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
 DBGrid1.DataSource:=fDM.DSQuery1;
 end else begin
   // вывести таблицу
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;
  fDM.ADOQuery1.SQL.Add('Select * from TovarMain');
  fDM.ADOQuery1.Open;
  fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
  fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
  fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
  DBGrid1.DataSource:=fDM.DSQuery1;
 end;
 
end; //end

@qwertehok · 26.10.2015, 11:28

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

fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+' LIKE "'+Edit1.Text+'%"');

второй % вижу, а где первый?

ЗЫ аццкая смесь DBGrid и SQL. Используйте уже Stringgrid. Он лучше. Честно.

@Shura_deg · 26.10.2015, 21:18 **[ТС]**

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

второй % вижу, а где первый?

всм зачем 2?

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

Используйте уже Stringgrid. Он лучше. Честно.

не сомневаюсь, но у меня задача через dbgrid.....

@qwertehok · 26.10.2015, 21:27

вы сами пишите два %

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

// *' LIKE "%'+Edit1.Text+'%"' - ищет фрагмент текста

процент это случайные символы, аналог *

@Shura_deg · 28.10.2015, 19:43 **[ТС]**

Связь ADOTabel, ADOConnection, DataSourse
сделал процедуру для ComboBox

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
DBGrid1.DataSource := fDM.DSTovarMainData;
if ComboBox1.ItemIndex = 1 then
DBGrid1.DataSource := fDM.DSPokupatelData;
if ComboBox1.ItemIndex = 2 then
DBGrid1.DataSource := fDM.DSotchetData;
if ComboBox1.ItemIndex = 3 then
DBGrid1.DataSource := fDM.DSckladData;
end;

Меняются данные для DBGRID1 (сверху таблица на картинке)

Когда при помощи процедуры procedure TForm1.ComboBox1Change я меняю данные для таблицы, в таблице почему то выводится только одна строчка хотя в базе данных в Access их несколько минимум по 3
ВОПРОС:
Как сделать что бы выводились все данные таблицы и была связь с таблицей DBGrid
(связь настраивал ADOTable MasterFaeld, MasterSourse)
вот примеры данного недуга!

ХОТЬ ПРИМЕРНО ПОДСКАЖИТЕ КУДА СМОТРЕТЬ!

@qwertehok · 28.10.2015, 22:34

рестарт ADOConnection помогает?

@Shura_deg · 28.10.2015, 23:02 **[ТС]**

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

рестарт ADOConnection помогает?

неа

Добавлено через 9 минут
решил проблему путём

Delphi
1
fDM.TPokupatelData.MasterFields:='';

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655

	ADO, Access, SQL, Магазин 18.10.2015, 00:46. Показов 2498. Ответов 38 Метки нет (Все метки) Уважаемые форумчане помогите пожалуйста придумать красивое оформление для базы данных И какие запросы SQL будут актуальны для данной базы Может быть кто-то сталкивался с такой проблемой... Сама база имеет 3 таблицы 0

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655
	19.10.2015, 11:42 [ТС]
	возможно будет работать ща проверю только вот нужно чтобы данные брались из какого-нибудь компонента типа edit или DateTimePicker1 или ещё как-нибудь..! Добавлено через 48 секунд а в вашем случае придётся вручную вводит, метод конечно хороший но мне не совсем подходит 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	19.10.2015, 14:11
	можно посмотреть где написано что нельзя преобразовывать string в TDate? Конечно, правильнее использовать TDateTimePicker или на худой конец проверять можно ли преобразовать текст из TEdit в дату (TryStrToDate(Edit1.Text,dat)). насчет Parameters[0] не понял, что значит что писать? 1

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,247 Записей в блоге: 3
	19.10.2015, 14:30
	Parameters это массив параметров которые вы передаете в запрос [0] - это номер параметра, так как нумерация с нуля 1

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,247 Записей в блоге: 3
	28.10.2015, 22:34
	рестарт ADOConnection помогает? 0