Ik heb een klein programmaatje gemaakt waarin ik een link leg met een Sybase SQL DB. In het programma laat ik de gebruiker een bestandsnaam invullen (de bestandsnaam komt in een variabele te staan), daarna laat ik de gebruiker een Query uitvoeren op de DB. Het resultaat moet ik dan opslaan in de door de gebruiker gekozen bestandsnaam.
Ik heb het volgende al geprobeerd:
code (gedeeltelijke)
-----------------------------------------------------------------------------------------
procedure TCiaoIFC.Btn_UitvoerenClick(Sender: TObject);
begin
if CheckBox_REV.Checked OR CheckBox_MOP.Checked = False then
Application.MessageBox(
'Er is niets te exporteren.',
'Ciao Interface Bericht', MB_ICONEXCLAMATION or MB_OK) else
if CheckBox_MOP.Checked AND CheckBox_REV.Checked then
Application.MessageBox(
'Er kan maar 1 bestand tegelijk gegenereerd worden.',
'Ciao Interface Bericht', MB_ICONEXCLAMATION or MB_OK) else
with Query do
begin
Close;
SQL.Clear;
SQL.Add('select * from micros.emp_def');
Open;
SQL.SaveToFile(Bestand)
end;
end;
--------------------------------------------------------------------------------------
Deze slaat echter de query op en niet het resultaat. Hoe kan ik het resultaat van deze query, opslaan in het bestand, zonder een eventueel extra component (DBMemo, DBGrid etc) te gebruiken?
BVD
Micha van der Ende
Bookmarks