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

/////////////////////////////////////////
Sub 검색()

CSqlOpen("SelectQ")
CSqlClose("SelectQ")

End Sub



/////////////////////////////////////////
Sub 삽입()

CSqlRun "InsertQ"

RunScript("리스트업") 'DB리스트 갱신

End Sub


/////////////////////////////////////////
Sub 갱신()

CSqlRun "UpdateQ"

RunScript("리스트업") 'DB리스트 갱신

End Sub

/////////////////////////////////////////

Sub 삭제()

CSqlRun "DeleteQ"

RunScript("리스트업") 'DB리스트 갱신

End Sub

/////////////////////////////////////////

Sub 리스트업()

CSqlOpen("SelectAll")

cnt# = CSqlGetRecordNo("SelectAll")

wcGridCommand "grid02", 7, 0, 0

for i=1 to cnt

CSqlGetRecord "SelectAll", i

data1$ = GetTagVal("날짜")

wcGridSetData "grid02",1,i,  data1$

data2$ = GetTagVal("온도")

wcGridSetData "grid02",2,i, data2$

data3$ = GetTagVal("압력")

wcGridSetData "grid02",3,i, data3$

data4$ = GetTagVal("유량")

wcGridSetData "grid02",4,i, data4$

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

blank$ = " "

wcGridSetData "grid02",0,i+1, blank$ '번호삭제

next i

CSqlClose("SelectAll")

End Sub