|
Вопрос # 4 418/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
подскажите пожалуйста как можно добавить данные в таблицу. Данные такие как дата(DateTimePicker) ,имя(editbox) и вид(combobox).
 |
Вопрос задала: Lefleur (статус: Посетитель)
Вопрос отправлен: 13 июля 2010, 01:15
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 13; последнее сообщение — 16 июля 2010, 15:57; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 13 июля 2010, 08:08 [#1]:
А что в данном случае подразумевается под словом "таблица"?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Lefleur (статус: Посетитель), 13 июля 2010, 08:48 [#2]:
таблица сделанная на Paradox
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2010, 09:27 [#3]:
Цитата (Lefleur):
таблица сделанная на Paradox
У неё должны быть поля. У каждого поля свой тип. Какие поля у твоей таблицы?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Lefleur (статус: Посетитель), 13 июля 2010, 09:36 [#4]:
тока два поля, альфа
|
|
|
min@y™ (статус: Доктор наук), 13 июля 2010, 09:48 [#5]:
А должны быть поля типа DATE, STRING и INTEGER (могу ошибаться, у меня нет BDE). Чой-то не видать других экспертов (видать, всё на море уехали), а то я базами не занимаюсь.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
13 июля 2010, 11:33: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Программирование баз данных (БД) модератором Ерёмин А.А.
|
Vic (статус: 1-ый класс), 13 июля 2010, 12:11 [#6]:
Парадокс - это крайне неудобно используйте другую платформу
ну например MSACCESS для локальной БД
|
|
Мережников Андрей (статус: Абитуриент), 13 июля 2010, 21:34 [#7]:
засунуть три значения в два поля, при большом желании, можно, но надо ли? Какие компоненты используются для доступа к БД?
|
|
|
Lefleur (статус: Посетитель), 14 июля 2010, 10:09 [#8]:
data source db gird
|
|
|
Lefleur (статус: Посетитель), 14 июля 2010, 21:19 [#10]:
уважаемые эксперты .. я создала базу на MSaccess.теперь не знаю как отобразить таблицу на дельфи ?
|
|
|
Lefleur (статус: Посетитель), 14 июля 2010, 22:51 [#11]:
у меня отобразилась таблица. теперь надо создать рядом "добавить праздник". для этого есть DateTimePicker(дата), DBEdit(название праздника),DBComboBox(вид праздника(всего 2 вида)). помогите, хотела бы знать как это делается .
|
|
|
Lefleur (статус: Посетитель), 14 июля 2010, 22:53 [#12]:
и еще button
|
|
|
Vic (статус: 1-ый класс), 16 июля 2010, 15:57 [#13]:
Вам нужно 2 таблицы
1- таблица справочник -для видов праздников
2- Ваша таблица
в первой таблице 2 поля
1-ID - ключевое (индекс)
2 - prazdnic - вид праздника (текстовое)
вторая таблица
1 - индекс (ключ)(назовем например ID)
2 - дата праздника(дата)(назовем dat)
3 - вид праздника (целое число поле ID из 1- ой таблицы )назовем его vid
теперь приложение
на форму кидаем TADODBConnection, 2 TADODBQuery, TADODBcommand,
TDBGRid,Tdatasource, TComboBox и DateTimePicker и кнопку
ADODBConnection соединяем с базой данных
подключаем оба ADODBQuery к ADODBConnection
вкачестве DataSet Datasource берем 2-й Query
в SQL первого Qery пишем
SELECT * FROM таблица1
второго : SELECT * FROM таблица2
Grid подключаем к DataSource
текст для ADODBCommand:
Insert INTO таблица2 (vid,dat) VALUES (:dat,:vid)
в процедуру FormShow пишем
ADOQuery1.close;
ADOQuery1.Open;
ComboBox1.Clear;
while not ADOQuery1.eof do
begin
ComboBox1.Items.Add(ADOQuery1.Fields[1].AsString;
ADOQuery1.Next;
end;
на выбор значения из ComboBox пишем
ADOQuery1.First;
ADOQuery1.MoveBy(ComboBox1.ItemIndex);
для кнопки записи пишем
ADOCommand1.Parameters.ParamByName('vid').value := ADOQuery1.Fields[0].AsInteger;
ADOCommand1.Parameters.ParamByName('dat').value := DateTimePicker1.Date;
ADOCommand1.Execute;
открываем ADOQuery2
ADOQuery2.Close;
ADOQuery2.Open;
Все.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
