БД

[Яяя1]

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

[Аватар]

Ошибка в строке 54 модуля Unit1 в процедуре Button1Click

[Яяя1]

Я не знаю что делать, помогите?

[Аватар]

Не, ну ошибка в строке 54 всегда и во всех программах бывает. Это из новой серии законов Мерфи, ну тех, которые о бутербродах Для начала вопросы правильно задавать не плохо было бы. Дальше показывайте как делали, можно или лучше нужно упакованный проект вместе с базой показать, exe не нужно

[Stilet]

Я не знаю что делать

Для начала код показать )

[Яяя1]

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;

[Аватар]

С колонками грида перебор явный. Это при проектировании формы делать нужно, а если программно, то не так. Ошибки в коде не вижу, проект с базой в файлообменник нормальный выкладывайте, во вложении пока не получится

[Яяя1]

спасибо. Но как можно сделать по другому вот этого не могу понять. можете дать другой код поиска?

[Stilet]

Ну можно в дизайне забить свойство SQL для ADOQuery1, открыть его в том же дизайне. В дизайнере создать поля с открытого набора.
Тогда не придется столько кода писать.

[Яяя1]

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