Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.08.2010, 11:20   #1
D.O.G
Форумчанин
 
Регистрация: 06.08.2010
Сообщений: 101
По умолчанию Вопрос по sqldataset

Как реализовать запись данных в таблицу mysql через SQLDataSet. Данные берутся из DBLookupComboBoxeh
то что пробывал сделать.
Цитата:
procedure TForm2.Button1Click(Sender: TObject);
var
number_cab, model_print, neispravno, model_cartr:string;
begin
Form2.SQLDataSet5.Close;
Form2.SQLDataSet5.Open;
Form2.ClientDataSet5.close;
Form2.ClientDataSet5.open;
DBLookupComboboxEh1.Text:=number_ca b;
DBLookupComboboxEh2.Text:=model_pri nt;
DBLookupComboboxEh3.Text:=neispravn o;
DBLookupComboboxEh4.Text:=model_car tr;
SQLDataSet6.insert;
SQLDataSet6.FieldValues['kab']:=number_cab;
SQLDataSet6.FieldValues['model_print']:=model_print;
SQLDataSet6.FieldValues['model_cartr']:=model_cartr;
SQLDataSet6.FieldValues['tip_neisprav']:=neispravno;
SQLDataSet6.Post;
end;

Последний раз редактировалось D.O.G; 10.08.2010 в 11:23.
D.O.G вне форума Ответить с цитированием
Старый 10.08.2010, 13:29   #2
D.O.G
Форумчанин
 
Регистрация: 06.08.2010
Сообщений: 101
По умолчанию

Код запроса.
Код:
procedure TForm2.Button1Click(Sender: TObject);
var
 number_cab, model_print, neispravno, model_cartr:string;
begin
 Form2.SQLDataSet5.Close;
 Form2.SQLDataSet5.Open;
 Form2.ClientDataSet5.close;
 Form2.ClientDataSet5.open;
 number_cab:=DBLookupComboboxEh1.KeyValue;
 model_print:=DBLookupComboboxEh2.KeyValue;
 neispravno:=DBLookupComboboxEh3.KeyValue;
 model_cartr:=DBLookupComboboxEh4.KeyValue;
 ClientDataSet5.Edit;
 ClientDataSet5.Insert;
 ClientDataset5.FieldValues['number_cab']:=number_cab;
 ClientDataset5.FieldValues['printer']:=model_print;
 ClientDataset5.FieldValues['kartridg']:=model_cartr;
 ClientDataset5.FieldValues['tip_neisprav']:=neispravno;
 ClientDataSet5.Post;
 ClientDataset5.ApplyUpdates(0);
 ClientDataSet5.Refresh;
end;
теперь ссылает на неверное значение number_cab
D.O.G вне форума Ответить с цитированием
Старый 10.08.2010, 13:32   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Проверь типы поля и значения, что ты туда пихаешь совместимы?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.08.2010, 06:36   #4
D.O.G
Форумчанин
 
Регистрация: 06.08.2010
Сообщений: 101
По умолчанию

Все сделал все работает. Возможно ли осуществить подсчет моделей картриджа опираясь на данные из таблицы?
D.O.G вне форума Ответить с цитированием
Старый 11.08.2010, 08:01   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Возможно ли осуществить подсчет моделей картриджа опираясь на данные из таблицы?
На этот вопрос кроме тебя никто не ответит, ты же проектировщик базы.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.08.2010, 12:19   #6
D.O.G
Форумчанин
 
Регистрация: 06.08.2010
Сообщений: 101
По умолчанию

Будем пробывать.

как можно реализовать изменение данных в одной ячейке которые записываются из dbedit. Таблица находится mysql.

я в этом деле новичек. как можно связать DBlookupComboBox и DBGrid чтобы DBlookupComboBox был как фильтр, т.е. при выборе заначения в DBlookupComboBox он показывает на это заначение в DBGrid.

Последний раз редактировалось Stilet; 12.08.2010 в 12:56.
D.O.G вне форума Ответить с цитированием
Старый 12.08.2010, 12:57   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну ты же DBlookupComboBox связал с какой-то таблицей?
Если я не ошибаюсь при выборе в нем он сам перескакивает на нужную запись. Тебе просто остается в DBEdit прописать то что нужно в поле этой записи ввести.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по VB 6 JackRND Помощь студентам 0 17.02.2010 20:33
Вопрос Innocence Помощь студентам 7 05.01.2010 15:00
Вопрос по mySQL + Вопрос по RichEdit HTL Общие вопросы Delphi 4 01.01.2010 20:22
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6) Albert2008 Общие вопросы Delphi 4 21.08.2008 15:33
вопрос по сокетам и общение как в ICQ.Сложный вопрос... Руслантус Общие вопросы C/C++ 2 12.08.2008 21:10