Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.10.2013, 11:06
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Перенос данных из Dbedit БД Paradox7

собственно есть форма с накиданными на нее dbedit, database, table1, datasourse, dbgrid1 и кнопка button. Вроде все связано. таблицы созданы. хотелось бы что бы при нажатии кнопки данные переносились в таблицу и отображались в dbgrid1. но вот незадача при нажатии кнопки выдает ошибку как на картинке. дополнительно поставил dbnavigator, с его помощью все работает.
вот код на кнопку.

Код:
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.DBGrid1.DataSource.DataSet.Append; 
Form2.DBGrid1.DataSource.DataSet.FieldByName('Shortname').AsString:=DBEdit1.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Longname').AsString:=DBEdit2.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Izmer').AsString:=DBEdit3.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Price').AsString:=DBEdit4.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').AsString:=DBEdit5.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('GOST').AsString:=DBEdit6.Text;
Form2.DBGrid1.DataSource.DataSet.Post;


end;
Изображения
Тип файла: jpg error.jpg (69.2 Кбайт, 8 просмотров)
Ответить с цитированием
  #2  
Старый 09.10.2013, 11:11
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Попробуй сделать так:
Код:
...
Form2.DBGrid1.DataSource.DataSet.FieldByName('Shortname').Value:=DBEdit1.Text;
...
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #3  
Старый 09.10.2013, 11:30
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

теперь вот такая ошибка. но остановилась прога на строке

Код:
Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=DBEdit5.Text;
Изображения
Тип файла: jpg error1.jpg (71.0 Кбайт, 9 просмотров)
Ответить с цитированием
  #4  
Старый 09.10.2013, 11:47
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

И что непонятно из этого сообщения?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #5  
Старый 09.10.2013, 12:33
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

смысл сообщения понятен, а вот чо делать дальше ...
Ответить с цитированием
  #6  
Старый 09.10.2013, 12:53
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

Код:
try
  Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=StrToFloat(DBEdit5.Text);
except
  showmessage('Возможно, поле содержит данные не вещественного типа');
end;
))
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")

Последний раз редактировалось Mrak, 09.10.2013 в 14:05.
Ответить с цитированием
  #7  
Старый 09.10.2013, 13:39
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

наверное я уже достал своими вопросами, но после того как я заменил строку
Код:
Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=DBEdit5.Text;

на строку написанную вами

Код:
Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').Value:=StrToFloatF(DBEdit5.Text, ffFixed, 6, 2);

при компиляции выдает ошибку
[Error] Unit2.pas(62): Undeclared identifier: 'StrToFloatF'
Ответить с цитированием
  #8  
Старый 09.10.2013, 14:06
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

извините, перепутал с обратной операцией)
просто strtofloat без параметров
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
  #9  
Старый 09.10.2013, 14:19
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

заменил и опять ошибка как в 3-ем моем посте.
кстати я просто делаю изменения в строке, а не вставляю код который вы мне писали в посте 6
Ответить с цитированием
  #10  
Старый 09.10.2013, 14:44
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

а зачем из DBEdit руками заносить данные в поля?
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #11  
Старый 09.10.2013, 14:48
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

а есть другие варианты?
Ответить с цитированием
  #12  
Старый 09.10.2013, 16:28
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

так ведь данные сами из TDBEdit в набор данных засылаются. собственно этим и отличается TDBEdit от TEdit.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #13  
Старый 09.10.2013, 16:38
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

вот просвятил человек, то то думаю , ввел данные в едит а он сразу гриде оказался. т.е. если все таки мне нужен вариант ввода ручками, то можно пробовать просто edit использовать
Ответить с цитированием
  #14  
Старый 09.10.2013, 16:57
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

не обязательно. можно и с DBEdit вызывать Post для фиксации изменений или Cancel для отмены изменений в Dataset.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #15  
Старый 09.10.2013, 17:01
Scorpuha Scorpuha вне форума
Новичок
 
Регистрация: 13.06.2013
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

а че же тогда у меня не получается?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:04.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter