왕초보 wrote:

> db한 퀴리값을 텍스트로 저장 한는 법좀 갈켜주세요





안녕하세요..

저도 전에 이런 문제를 몰라서 고민하던 차에 허준님이 답변을 해줘서 풀었던 생각이 나서.....



procedure TForm1.ButtonClick(Sender: TObject);

var

mmTextFile : TMemo;

begin

mmTextFile := TMemo.Create(self); //메모생성

mmTextFile.Parent := Self; //현재폼에 속하도록 함

mmTextFile.Width := 1000; //DATA의 길이설정

mmTextFile.Height := 1000;

mmTextFile.Visible := false; //속성을 보이지 않게함

mmTextFile.Lines.Clear(); //메모 Clear





//sql 디비 검색

with Query do

begin

Active := False;

Sql.Clear();

sql.Add('select *');

sql.Add('from yaila_message'); //Sql 검색

//sql.Add('where Num = 3');

Active := True;





//메모장에 뿌려줌

if (RecordCount > 0) then

begin

First();

repeat

mmTextFile.Lines.Add(FieldByName('Num').AsString+' '+FieldByName('subject').AsString); //Sql 검색한것을 Text에 뿌리는것

Next();

until Eof;

end;

//Active := False; //DBGrid 화면에 내용을 출력한것을 보이지 않게...

end;





//메모장을 저장

mmTextFile.Lines.SaveToFile('C:test.txt'); //Text로 저장

mmTextFile.Free();



end;





고수님들이 보시고 잘못된게 있으시면 갈켜주세요...

도움이 되셨으면 하네요...

전 이만 약초를 캐기 위해서 한라산으로 가야 할것 같네요(눈이 내리면 안되는데....^^)

........ ^^; 퀴리값을 바러 텍스트로 하는법이 잇으면

그건 저두 잘 모르겠구요 ^^;



var

I : TFileStream;

Data : string;

begin

i := TFileStream.Create('Q.Txt',fmCreate);

try

while Q.Eof do begin

data ;= q.fieldbyname('머라머라').asstring;

i.Write(pointer(data)^,length(data));

Q.Next;

end;

filanny

i.free;

end;

end;



ㅡㅡ^ 지금 바러 적은거라 ㅡㅡ^ 컴파일은 해보지 않았습니다..



왕초보 wrote:

> db한 퀴리값을 텍스트로 저장 한는 법좀 갈켜주세요