Delphi - zapis zawartosci DBGrid

Witam,

Mam taki oto problem, mianowicie chciałbym zapisać zawartość DBGrida (wypełnionu jakims tam selectem) do pliku *.txt. Nie mam pojęcia jak to ugryźć.

Pracuje na delphi 7, Zapis z bazy MSSQL

Będę wdzięczny za wskazówki tudzież pomoc bezpośrednią.

Pozdrawiam
Lame

dataset.first;
while not dataset.eof do
begin
  for i := 0 to dataset.fields.count - 1 do
  begin
    write(plik, dataset.fields[i].Value + ';');
  end;
  writeln(plik);
  dataset.next;
end

pisane z palca, powinno działać

TDBGrid.Columns.SaveToFile()

takie cuś?

DBGrid nie ma pola Rows więc przypuszczam że to z Columns zapisze wszystko, ale posortowanie kolejnością kolumn )

Potwoor_ napisał(a)

TDBGrid.Columns.SaveToFile()

takie cuś?

DBGrid nie ma pola Rows więc przypuszczam że to z Columns zapisze wszystko, ale posortowanie kolejnością kolumn )

Z tego co mi się kojarzy to pozwala to na zapisanie ustawień kolumn z DBgrida a nie jego zawartości.

@Misiekd - sprawdze Twoje wywołanie w międzyczasie.

@Misiekd
powiedz mi prosze za co odpowiedzialne jest wywołanie

dataset.first

ponieważ przy próbie zapisu do pliku dostaje komunikat:
Cannot perform this operation on a closed dataset.

za przeskoczenie do pierwszego rekordu, a komunikat mówi Ci, że nie możesz poruszać się po zamkniętym (nie otwartym) zbiorze danych

hmm nie bardzo wiem co może być przyczyną takiego komunikatu... jeśli masz jakieś pomysły to będę wdzięczny za pomoc.

skoro nie masz otwartego to otwórz =D

coś jak

dataset.open

się chyba znajdzie ?

Hehe jak zwykle na najtrywialniejsze rozwiązanie najtrudniej wpaść ;-)
Pojawił się kolejny błąd ale może coś sam wymyślę. Jeśli nie to zgłoszę się do Was po pomoc :)

Poprawiłem kilka rzeczy ale znów na czymś utknąłem.

przy próbie zapisania pliku dostaje komunikat:
Could not convert variant of type (string) into type (double).
w linijce:

write(plik, dataset.fields[i].Value + ';');

nie wiem jak ten problem obejść.

Nicka masz adekwatnego : ) Proponuje poczytać trochę lektur...

Zamiast dataset.fields[i].Value użyj dataset.fields[i].AsString.

var
i:integer;
plik:string;
begin
plik:='c:\test.txt';

dataset.open;
dataset.first;
dataset.SQL.Text:='select * from blok';
while not dataset.eof do
begin
  for i := 0 to dataset.fields.count - 1 do
  begin
    write(plik, dataset.fields[i].asstring + ';');
  end;
  writeln(plik);
  dataset.next;
end;

tak mniej więcej wygląda funkcja, kilka rzeczy jest jeszcze poustawianych w komponentach.
Jednakże przy próbie zapisania dostaje error:
I/O 105 error

czego jeszcze nie zdefiniowałem??

Przepraszam nie jest to funkcja tylko procedura.

1. poczytaj o obsłudze plików (assign, reset, rewrite, closefile, itp)
2. najpierw się przypisuje treść zapytania a potem robi open

Dlaczego ten post nie jest jeszcze tam gdzie być powinien ?

Dzięki za pomoc...kurcze takie trywialne błędy robiłem...ehh [wstyd] . ale udało się i wymiana danych działa elegancko. Pozdrawiam LAME