КомбоБокс в БД

← →
Сергей (2003-01-02 16:47) [0]

Люди, подскажите плиз как сделать на Делфи следующе:
1. Модальное окно с двумя выпадающими КомбоБоксами и текстовое полем для ввода числа. (ЕСТЬ)
2. Запись выбранных значений в этих КомбоБоксах и содержимого текстового поля в SQL базу данных. (НУЖНО)
Примерно так. Извините за неточность, я впервые пытаюсь чтото сделать с базами данных.

← →
Сергей (2003-01-02 16:52) [1]

Если не сожно, напишите поподробнее.

← →
Prooksius (2003-01-02 16:54) [2]

Всего не расскажешь.
Возьми книжку нормальную по базам данных в Дельфи.

← →
Сергей (2003-01-02 17:01) [3]

Не подскажеш где скачать?
И неужели это такой сложный вопрос?

← →
Prooksius (2003-01-02 20:44) [4]

> И неужели это такой сложный вопрос?
Да не, не сложный, просто ответ на него сюда не поместится. :)
Ответ записан в книжке, которую тебе желательно купить в бумажном варианте... Если ты действительно хочешь научиться делать базы данных на дельфи...

← →
myor (2003-01-03 12:21) [5]

> И неужели это такой сложный вопрос?

ну, если очень просто, то бери свои данные из
modalform1.combobox1.text
modalform1.combobox2.text
modalform1.edit1.text

и вставляй в таблицу(ы) например по modalform1.button1.click
только ж добавь кнопку

← →
myor (2003-01-03 12:24) [6]

modalform1.button1click конечно

← →
Сергей (2003-01-08 09:25) [7]

Короче говоря, где ошибка?

rocedure TForm1.Button4Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("Insert into My (project,drawing,detal,vid,kolvo) Values (ComboBox1.Text,""test_dr"",""test_det"",""test_vid"",123)");
Query1.ExecSQL;
end;

← →
Наталия (2003-01-08 09:36) [8]

Какая ошибка?
Скорее всего неправильно написана эта строка
( ComboBox1.Text,""test_dr"",""test_det"",""test_vid"",123)"

← →
ЮЮ (2003-01-08 09:45) [9]

Не скорее всего, а именно. Текст запроса получится:
Insert into My (project,drawing,detal,vid,kolvo) Values (ComboBox1.Text,""test_dr"",""test_det"",""test_vid"",123)
а хотелось ведь :-)
Insert into My (project,drawing,detal,vid,kolvo) Values (<содержимое ComboBox1.Text> ,""test_dr"",""test_det"",""test_vid"",123)

← →
Вованчик (2003-01-08 09:54) [10]

если значение Combobox1 нужно вставить как число, то:
Insert into My (project,drawing,detal,vid,kolvo) Values ("+ComboBox1.Text+",""test_dr"",""test_det"",""test_vid"",123)
а если как текст, то:
Insert into My (project,drawing,detal,vid,kolvo) Values ("""+ComboBox1.Text+""",""test_dr"",""test_det"",""test_vid"",123)

← →
Сергей (2003-01-10 10:33) [11]

Спасибо!!! Заработало!
Теперь вопрос наоборот. Как брать значения Комбобокс.Текста из БД?

← →
Лелик (2003-01-10 15:39) [12]

Честное слово, будет прощу всю прогу тебе написать... :)
Попробуй для работы с БД пользовать DB-компоненты. например DBComboBox.

Если же очень хочется пользовать простой, то что-то типа

Query1.SQL.Clear;
Query1.SQL.Add([запрос, который вернет все, что надо влить в комбо]);
Query1.ExecSQL;
Query1.First;
Combo1.Items.Clear;
while not Query1.Eof do
begin
Combo1.Items.Add(Query1.FieldByName([тебе виднее какое поле]).AsString);
Query1.Next;
end;

если что не так - извини, на вскидку писал прямо сдесь.
если я не понял вопрос, совсем извини :))))

← →
Сергей (2003-01-14 14:11) [13]

Спасибо! ты правильно понял :).
Пользоватся мне все равно чем, лишь бы работало.

КомбоБокс в БД Найти похожие ветки