DB는 잘 붙구요.. 텍스트화일땜에 질문드리는데요
DB로 루프로 돌리면서 텍스트화일에 순차적으로 값을 쓰고 싶은데.
가가가가가가가각
가가가가가가가각
이런식으로요. 근데 돌리면 줄넘기기가 안되고 맨마지막 데이터만 적네요.
이럴때는 줄넘기기를 어떻게 하나요?
Close# 때문인거 같은데....
답글 부탁드립니다.
RS.MoveFirst
Do While Not RS.EOF
SL_DT = RS.Fields("AA").Value
RGST_NO = RS.Fields("BB").Value
BP_NM = RS.Fields("CC").Value
TEL_NO = RS.Fields("DD").Value
REPE_NM = RS.Fields("EE").Value
ADDR = RS.Fields("FF").Value
SL_QTY = RS.Fields("GG").Value
Open App.Path & "\OutPut\" & T_date & ".txt" For Output As #1
Print #1, "P1" + "|" + SL_DT + "|" + RGST_NO <-요걸 줄넘기기 하면서 화일에 적어야 되는데요..
RS.MoveNext
Close #1
Loop
Comment 1
-
버즈베잇
2015.06.19 15:47
Open App.Path & "\OutPut\" & T_date & ".txt" For Output As #1
이부분이 Do While 밖에서 선언 되어야 하는거 아닌가요,....
While 문 안에 있으면 계속 동일한 파일명으로 생성되고
마지막 레코드 내용만 남아 있을거 같은데요....
Close 도 While 문 밖으로...
(아니면 vba 소스 인지 몰라도 파일을 OverWrite 타입으로 Open 해도 될거 같은데요)