[연습] 디비에 연결하여 Spread 컴퍼넌트에 출력하기

2007.11.19 10:02 개발언어/VB

[CODE]
Private Sub TestSQL()
' 디비연결 테스트
Dim i As Integer
Dim SQL As String
Dim rs_tmp As New ADODB.Recordset
   
    SQL = "select * from t_imp_tt  where gubun ='01'"  
   
    Set rs_tmp = Nothing: Call SetRST(rs_tmp, SQL)
   
    Call SpreadClear(ss1)
    If rs_tmp.EOF Then
        MsgBox "검색된 데이터가 없습니다", , ""
        rs_tmp.Close: Set rs_tmp = Nothing
        Exit Sub
    Else
        rs_tmp.MoveLast
        rs_tmp.MoveFirst
        ss1.MaxRows = rs_tmp.RecordCount
    End If
   
    For i = 1 To rs_tmp.RecordCount
        ss1.Row = i
        ' 디비에 있는 필드명을 (  gubun / ttno / condate / code / mancode / period ) 적으면 된다
        ss1.Col = 1: ss1.Text = Format(checkNull(rs_tmp!ttno), "######-####")
        ss1.Col = 2: ss1.Text = Format(checkNull(rs_tmp!condate), "####-##-##")
        ss1.Col = 3: ss1.Text = checkNull(rs_tmp!Gubun)
        ss1.Col = 4: ss1.Text = checkNull(rs_tmp!CODE)
        ss1.Col = 5: ss1.Text = checkNull(rs_tmp!ManCode)
       
        rs_tmp.MoveNext
    Next
    rs_tmp.Close: Set rs_tmp = Nothing
   
    ss1.Row = 1: ss1.Col = 1: ss1.Action = 0: ss1.SetFocus
End Sub
[/CODE]



Spread Designer 6.0

Spread Designer의 속성중에 ShadowColor 색깔을 지정하여 헤더의 색깔을 지정할 수있다
또는
Spread Designer에서 General -> Spread Sheet Color 에서 모든 색을 지정 할  수 있다

신고
Tags