Korisnik treba da iz comba izabere tabelku,zatim polje,pa u edit napise kriterijum za pretragu tabele.
Na formu imam 2 combo boxa,edit polje i baton.
Kod koji sam povezao za baton,kojim bi trebalo da se izvrsi upit je:
Code:
with SimpleDataSet1 do
begin
try
Close;
DataSet.Close;
dataset.CommandText:='';
DataSet.CommandType:=ctQuery;
DataSet.CommandText:=('select * from'+QuotedStr(TablesComboBox.Text)+
'where'+QuotedStr(FieldsComboBox.Text)+'='+QuotedStr(Edit1.Text));
finally
DataSet.Open;
Open;
end;
end;
with SimpleDataSet1 do
begin
try
Close;
DataSet.Close;
dataset.CommandText:='';
DataSet.CommandType:=ctQuery;
DataSet.CommandText:=('select * from'+QuotedStr(TablesComboBox.Text)+
'where'+QuotedStr(FieldsComboBox.Text)+'='+QuotedStr(Edit1.Text));
finally
DataSet.Open;
Open;
end;
end;
a prilikom pokusaja javlja se greska:
Project1.exe raised exceptoin class EDatabaseError with message'Tokon unknown-line 1,column 14''Department'
Inace da napomenem da sam projekat povezao sa bazom Employee.jdb koja se dobija uz Firebird!!!
Svaka pomoc je dobro dosla,HVALA NA POMOCI!!!!
Don't worry be happy

Problem sa Firebird bazom u Delphiju 7