Witam,
Potrzebuję utworzyć aplikację, która będzie łączyła się z bazą danych MySQL, wysyłała do serwera jakieś zapytania i zapisywała wynik w pliku tekstowym, lub z pliku pobierała dane i wrzucała na serwer. Chcę skorzystać z komponentów dbExpress. Połączenie z bazą już udało mi się zrobić natomiast nie wiem jak odczytać wynik takiego zapytania a potem zapisać go w formie kolumn i wierszy do jakiegoś pliku. :/ Najlepszą pomocą byłby jakiś przykład zapisania tego wyniku w pliku ;)
Z góry dziękuję za pomoc, pozdro</delphi>
0
0
var
f:TextFile;
i:integer;
begin
SQLDataSet1.CommandText:='SELECT pole1, pole2 FROM tabela';
SQLDataSet1.Open;
assignfile(f,'plik.txt');
rewrite(f);
for i:=1 to SQLDataSet1.RecordCount do
begin
writeln(f,SQLDataSet1.FieldValues['pole1']);
writeln(f,SQLDataSet1.FieldValues['pole2']);//i tak można wpisywać każdy atrybyt który występuje w zapytaniu SELECT
SQLDataSet1.Next;
end;
SQLDataSet1.Close;
closefile(f);
end;
0
Dzięki Arturze działa bezbłędnie. A co w przypadku gdybym chciał zrobić to w drugą stronę, a mianowicie z pliku tekstowego gdzie mam tekst w formie kolumn, wrzucic do jakiejś tabeli w tej samej bazie. Czy mam skorzystać również z TSqlDataSet czy z jakiegoś innego komponentu i jak to zrobić? :>