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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2014, 08:47   #1
Яяя1
Пользователь
 
Регистрация: 02.12.2014
Сообщений: 10
По умолчанию БД

Здравствуйте, я создала базу в Аксесе и соединила с дельфи с помощью ДатаМодуль. На новой форме я должна создать поиск, но у меня никак не получается. помогите
Ошибка:
Project Project1.exe raised exception class EOleException with message 'Параметр Student не имеет значение по умолчанию'. Process stopped. Use Step or Run to continue.
Яяя1 вне форума Ответить с цитированием
Старый 02.12.2014, 10:10   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Ошибка в строке 54 модуля Unit1 в процедуре Button1Click
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 02.12.2014, 10:12   #3
Яяя1
Пользователь
 
Регистрация: 02.12.2014
Сообщений: 10
По умолчанию

Я не знаю что делать, помогите?
Яяя1 вне форума Ответить с цитированием
Старый 02.12.2014, 10:25   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Не, ну ошибка в строке 54 всегда и во всех программах бывает. Это из новой серии законов Мерфи, ну тех, которые о бутербродах Для начала вопросы правильно задавать не плохо было бы. Дальше показывайте как делали, можно или лучше нужно упакованный проект вместе с базой показать, exe не нужно
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 02.12.2014, 10:33   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Я не знаю что делать
Для начала код показать )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 02.12.2014, 10:38   #6
Яяя1
Пользователь
 
Регистрация: 02.12.2014
Сообщений: 10
По умолчанию

Код:
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if Edit1.Text='' then begin
ShowMessage('Ââåäèòå íàèìåíîâàíèå');
Edit1.Clear;
end
else
begin
if Label1.Caption='Ïîèñê' then begin
DataModule4.ADOQuery1.Active:=false;
DataModule4.ADOQuery1.SQL.Text:='select Student, kod, naim, god, nappitset, makspottok, makspotmo, formavih, maksvih, vihisp, privpog, privpogiz, minemnag, chispit, vidrab from student where naim like'+'"'+Edit1.Text+'%"';
DataModule4.ADOQuery1.Active:=true;
DataModule4.ADOQuery1.Open;
//DBEdit2.Text:=Form3.DBGrid1.Columns.Items[1].FieldName:='naim';
DBGrid1.Columns.Items[0].FieldName := 'kod';
DBGrid1.Columns.Items[0].Title.Caption:='Êîä';
DBGrid1.Columns.Items[0].Visible:=True;
DBGrid1.Columns.Items[0].Width:=Form3.DBGrid1.Columns.Items[1].Width;
DBGrid1.Columns.Items[1].FieldName := 'naim';
DBGrid1.Columns.Items[1].Title.Caption:='Íàèìåíîâàíèå';
DBGrid1.Columns.Items[1].Visible:=True;
DBGrid1.Columns.Items[1].Width:=Form3.DBGrid1.Columns.Items[2].Width;
DBGrid1.Columns.Items[2].FieldName := 'god';
DBGrid1.Columns.Items[2].Title.Caption:='Ãîä ïðîèçâ/âà';
DBGrid1.Columns.Items[2].Visible:=True;
DBGrid1.Columns.Items[2].Width:=Form3.DBGrid1.Columns.Items[3].Width;
DBGrid1.Columns.Items[3].FieldName := 'nappitset';
DBGrid1.Columns.Items[3].Title.Caption:='Íàïð.ïèòàþùåé ñåòè';
DBGrid1.Columns.Items[3].Visible:=True;
DBGrid1.Columns.Items[3].Width:=Form3.DBGrid1.Columns.Items[4].Width;
DBGrid1.Columns.Items[4].FieldName := 'makspottok';
DBGrid1.Columns.Items[4].Title.Caption:='Ìàêñ.òîê';
DBGrid1.Columns.Items[4].Visible:=True;
DBGrid1.Columns.Items[4].Width:=Form3.DBGrid1.Columns.Items[5].Width;
DBGrid1.Columns.Items[5].FieldName := 'makspotmo';
DBGrid1.Columns.Items[5].Title.Caption:='Ìàêñ.ìîùíîñòü';
DBGrid1.Columns.Items[5].Visible:=True;
DBGrid1.Columns.Items[5].Width:=Form3.DBGrid1.Columns.Items[6].Width;
DBGrid1.Columns.Items[6].FieldName := 'formavih';
DBGrid1.Columns.Items[6].Title.Caption:='Ôîðìà.âûõ.íàïðàâëåíèè';
DBGrid1.Columns.Items[6].Visible:=True;
DBGrid1.Columns.Items[6].Width:=Form3.DBGrid1.Columns.Items[7].Width;
DBGrid1.Columns.Items[7].FieldName := 'maksvih';
DBGrid1.Columns.Items[7].Title.Caption:='Ìàêñ.âûõ.òîê';
DBGrid1.Columns.Items[7].Visible:=True;
DBGrid1.Columns.Items[7].Width:=Form3.DBGrid1.Columns.Items[8].Width;
DBGrid1.Columns.Items[8].FieldName := 'vihisp';
DBGrid1.Columns.Items[8].Title.Caption:='Âûõ.èñï.íàïðÿæåíèå';
DBGrid1.Columns.Items[8].Visible:=True;
DBGrid1.Columns.Items[8].Width:=Form3.DBGrid1.Columns.Items[9].Width;
DBGrid1.Columns.Items[9].FieldName := 'privpog';
DBGrid1.Columns.Items[9].Title.Caption:='Ïðèâ.ïîãð.èçì.âûñ.íàïð';
DBGrid1.Columns.Items[9].Visible:=True;
DBGrid1.Columns.Items[9].Width:=Form3.DBGrid1.Columns.Items[10].Width;
DBGrid1.Columns.Items[10].FieldName := 'privpogiz';
DBGrid1.Columns.Items[10].Title.Caption:='Ïðèâ.ïîãð.èçì.âûõ.òîêà';
DBGrid1.Columns.Items[10].Visible:=True;
DBGrid1.Columns.Items[10].Width:=Form3.DBGrid1.Columns.Items[11].Width;
DBGrid1.Columns.Items[11].FieldName := 'minemnag';
DBGrid1.Columns.Items[11].Title.Caption:='Ìèí.åìêîñòü íàãð';
DBGrid1.Columns.Items[11].Visible:=True;
DBGrid1.Columns.Items[11].Width:=Form3.DBGrid1.Columns.Items[12].Width;
DBGrid1.Columns.Items[12].FieldName := 'chispit';
DBGrid1.Columns.Items[12].Title.Caption:='×èñòîòà ïèò.ñåòè';
DBGrid1.Columns.Items[12].Visible:=True;
DBGrid1.Columns.Items[12].Width:=Form3.DBGrid1.Columns.Items[13].Width;
DBGrid1.Columns.Items[13].FieldName := 'vidrab';
DBGrid1.Columns.Items[13].Title.Caption:='Âèä ðàáîòû';
DBGrid1.Columns.Items[13].Visible:=True;
DBGrid1.Columns.Items[13].Width:=Form3.DBGrid1.Columns.Items[2].Width;
end;
if form3.DBGrid1.Columns.Items[0].Field.Text='' then begin
ShowMessage('Çàïèñü íå íàéäåíà');
Edit1.Clear;
end;
end;
end;

Последний раз редактировалось Stilet; 02.12.2014 в 11:46.
Яяя1 вне форума Ответить с цитированием
Старый 02.12.2014, 11:05   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

С колонками грида перебор явный. Это при проектировании формы делать нужно, а если программно, то не так. Ошибки в коде не вижу, проект с базой в файлообменник нормальный выкладывайте, во вложении пока не получится
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 02.12.2014, 11:35   #8
Яяя1
Пользователь
 
Регистрация: 02.12.2014
Сообщений: 10
По умолчанию

спасибо. Но как можно сделать по другому вот этого не могу понять. можете дать другой код поиска?
Яяя1 вне форума Ответить с цитированием
Старый 02.12.2014, 11:53   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну можно в дизайне забить свойство SQL для ADOQuery1, открыть его в том же дизайне. В дизайнере создать поля с открытого набора.
Тогда не придется столько кода писать.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 02.12.2014, 12:09   #10
Яяя1
Пользователь
 
Регистрация: 02.12.2014
Сообщений: 10
По умолчанию

В форме DataModule4 связала ADOQuery1 с DataSource2 теперь в форме Form3 в таблице ничего не отображается
Яяя1 вне форума Ответить с цитированием
Ответ


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

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

Расширенный поиск