База данных

@Nikolai93 · Регистрация: 15.05.2013

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

Народ поскажите как сделать сортировку в базе жанных чтобы при нажатии сортировалась .И как чтобы данные можно было добовлять и удалять заранее спс.Помогите пожалуйста!!!.Я если что на всякий вложу файлы .

@Waddonator · 17.10.2013, 18:37

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

как сделать сортировку в базе жанных чтобы при нажатии сортировалась

Использовать свойство Sort компонента ADOQuery. Например сортировка при нажатии на заголовки столбцов:

Delphi
1
2
3
4
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  ADOQuery1.Sort:=Column.FieldName;
end;

@Nikolai93 · 17.10.2013, 19:37 **[ТС]**

спасибо

@Nikolai93 · 20.10.2013, 20:35 **[ТС]**

Народ еще одну вещь подскажите пожалуйста.Как сделать общий путь чтобы программа открывалась не только на моем компьютере но и на чужом?

@Waddonator · 21.10.2013, 10:12

Nikolai93, в Delphi 7 достаточно в свойстве ConnectionString вместо Data Source=C:\Users\Николай\Documents\RAD Studio\Projects\tab.mdb указать Data Source=tab.mdb и файл базы данных будет браться из текущей папки.

@Nikolai93 · 21.10.2013, 16:54 **[ТС]**

спасибо большое

Добавлено через 2 часа 18 минут
Народ извиняюсь уже надоел наверно . Мне нужно в БД добавить запись в столбцы (Тип, Описание , В наличии , цена) ввести данные в TEdit их всего 5..и при нажатии на TButton чтоб новые данные добавились в таблицу. И если можно тоже самую процедуру с удалением! Помогите пожалуйста!Я нашеле подобное но там у меня ошибку выдает(.Вот если че прикреплю.Посмотрите.

@Waddonator · 21.10.2013, 17:33

1) у Вас в таблице названия полей - английские буквы, а в запросе Вы почему-то пишите по русски.
2) количество параметров в запросе - 3, а добавление идет 4-х полей.
3) Нумерация должна идти 0,1,2,3 а не 0,2,3,4
4) Requery чего Вы делаете, если текст sql-запроса в ADOQuery1 Вы заменили?
5) Для удаления используйте инструкцию DELETE FROM, только для этого Вам необходимо как-то идентифицировать запись в таблице. Для этого обычно используют поле счетчик.

@Nikolai93 · 21.10.2013, 18:30 **[ТС]**

С добавлением почти разобрался почему при нажатии кнопки пропадают данные не отопржаются что добавлись?

@Waddonator · 21.10.2013, 18:40

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

почему при нажатии кнопки пропадают данные не отопржаются что добавлись?

Потому, что вы удалили sql-запрос (SELECT * FROM ...), который изначально отображал данные, и заменили его на запрос добавления (INSERT ...).

@Nikolai93 · 21.10.2013, 18:56 **[ТС]**

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

@Nikolai93 · 21.10.2013, 18:58 **[ТС]**

ща попробую

@Waddonator · 21.10.2013, 18:59

Nikolai93, я не смогу посмотреть - у меня только D7 стоит.

@Nikolai93 · 21.10.2013, 20:02 **[ТС]**

исправьте там пожалуйста не получается(.Аш башка разболелась( .Я меня на SELECT * FROM .. такая же хрень.

Добавлено через 32 секунды
и в удаление такая же фигня.

Добавлено через 1 минуту
Это добавление:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('INSERT INTO [tab] ([tip], [opis], [vnal],[cena] )');
   ADOQuery1.SQL.Add('VALUES ( :Param1, :Param2, :Param3, :Param4 )');
   ADOQuery1.Parameters.Refresh;
   ADOQuery1.Parameters[0].Value:=Edit1.Text;
   ADOQuery1.Parameters[1].Value:=Edit2.Text;
   ADOQuery1.Parameters[2].Value:=Edit3.Text;
   ADOQuery1.Parameters[3].Value:=Edit4.Text;
 
 
   ADOQuery1.ExecSQL;
   ADOQuery1.SQL;

Это удаление:

Delphi
1
2
3
4
5
6
 ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('DELETE FROM [tab] WHERE Id= :Param1');
         ADOQuery1.Parameters.Refresh;
         ADOQuery1.Parameters[0].Value:=Edit6.Text;
         ADOQuery1.ExecSQL;

Добавлено через 1 минуту
я тебе код скинул что тут еще поправить надо подскажи а то уже голова кругом идет(

Добавлено через 53 минуты
как Select и куда написать чтобы все работало безупречно?

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Nikolai93 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 77
	17.10.2013, 19:37 [ТС]
	спасибо 0

@Nikolai93 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 77
	20.10.2013, 20:35 [ТС]
	Народ еще одну вещь подскажите пожалуйста.Как сделать общий путь чтобы программа открывалась не только на моем компьютере но и на чужом? 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	21.10.2013, 10:12
	Nikolai93, в Delphi 7 достаточно в свойстве ConnectionString вместо Data Source=C:\Users\Николай\Documents\RAD Studio\Projects\tab.mdb указать Data Source=tab.mdb и файл базы данных будет браться из текущей папки. 1

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	21.10.2013, 17:33
	1) у Вас в таблице названия полей - английские буквы, а в запросе Вы почему-то пишите по русски. 2) количество параметров в запросе - 3, а добавление идет 4-х полей. 3) Нумерация должна идти 0,1,2,3 а не 0,2,3,4 4) Requery чего Вы делаете, если текст sql-запроса в ADOQuery1 Вы заменили? 5) Для удаления используйте инструкцию DELETE FROM, только для этого Вам необходимо как-то идентифицировать запись в таблице. Для этого обычно используют поле счетчик. 0

@Nikolai93 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 77
	21.10.2013, 18:30 [ТС]
	С добавлением почти разобрался почему при нажатии кнопки пропадают данные не отопржаются что добавлись? Миниатюры 0

@Nikolai93 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 77
	21.10.2013, 18:58 [ТС]
	ща попробую 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	21.10.2013, 18:59
	Nikolai93, я не смогу посмотреть - у меня только D7 стоит. 0