База данных

@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 и куда написать чтобы все работало безупречно?

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@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

Опции темы