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