Access와 Cimon을 이용한 DB연동하기-2

//////////////////////////////////////
Sub 리스트업2()

CSqlOpen("SelectQ2")
cnt# = CSqlGetRecordNo("SelectQ2")

wcGridCommand "grid03", 7, 0, 0

for i=1 to cnt

CSqlGetRecord "SelectQ2", i

data1$ = GetTagVal("날짜")
wcGridSetData "grid03",1,i,  data1$

data2$ = GetTagVal("온도")
wcGridSetData "grid03",2,i, data2$

data3$ = GetTagVal("압력")
wcGridSetData "grid03",3,i, data3$

data4$ = GetTagVal("유량")
wcGridSetData "grid03",4,i, data4$

wcGridSetData "grid03",0,i, i '번호입력

blank$ = " "
wcGridSetData "grid03",0,i+1, blank$ '번호삭제
wcGridSetData "grid03",0,i+2, blank$
wcGridSetData "grid03",0,i+3, blank$
wcGridSetData "grid03",0,i+4, blank$

next i

CSqlClose("SelectQ2")

End Sub