잡다한 일상사 WebJoy.kr :: ADO/ASP를 이용하여 데이터를 FlexGrid에 나타내는 방법

ADO/ASP를 이용하여 데이터를 FlexGrid에 나타내는 방법

WEB/ASP / DotNet 2007/06/07 18:01 by 아쿠아바다

http://support.microsoft.com/default.aspx?scid=kb;ko;601059

위의 자료를 보세요.

client-side VBscript로 구현하실 수 있습니다.
다만, data를 server-side VBscript로 뿌려 주시기만 하시면 됩니다.

거의 모든 MS의 OS에 Flexgrid component가 기본으로 내장이 되어 있을겁니다.
registry를 잘 보시면 왠만한 걸 불러서 사용도...

<%@ LANGUAGE="VBSCRIPT" %>

   <HTML>
   <HEAD>
   <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
   <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
   <TITLE>Document Title</TITLE>

   
   <%
   Set MagisterPubs = Server.CreateObject("ADODB.Connection")
   MagisterPubs.ConnectionTimeout = Session("MagisterPubs_ConnectionTimeout")
   MagisterPubs.CommandTimeout = Session("MagisterPubs_CommandTimeout")
   MagisterPubs.Open Session("MagisterPubs_ConnectionString"), _
   Session("MagisterPubs_RuntimeUserName"), _
   Session("MagisterPubs_RuntimePassword")
   Set cmdTemp = Server.CreateObject("ADODB.Command")
   Set objRst = Server.CreateObject("ADODB.Recordset")
   cmdTemp.CommandText = "SELECT authors.* FROM authors"
   cmdTemp.CommandType = 1
   Set cmdTemp.ActiveConnection = MagisterPubs
   objRst.Open cmdTemp, , 3, 1
   %>
   
   <%
Sub FillCells
   Dim ctRow, ctCol, vbCrLF
   vbCrLf= Chr(13) & Chr(10)
   ctCol=0
   ' Note: added 1 to rows so that we can print field headings
   Response.Write "MSFlexGrid1.Rows=" & objRst.RecordCount+1 & vbCrLf
   Response.Write "MSFlexGrid1.Cols=" & objRst.Fields.Count & vbCrLf
' Print field headings
   Response.Write "MSFlexGrid1.Row=0" & vbCrLf
   For Each fld in objRst.Fields
Response.Write "MSFlexGrid1.Col=" & ctCol & vbCrLf
Response.Write "MSFlexGrid1.Text=" & Chr(34) & Trim(fld.Name) & _
Chr(34) & vbCrLf
ctCol=ctCol+1
   Next

   ' Print data
   ctRow=1
   Do Until objRst.eof
Response.Write "MSFlexGrid1.Row=" & ctRow & vbCrLf
ctCol=0
For Each fld in objRst.Fields
   Response.Write "MSFlexGrid1.Col=" & ctCol & vbCrLf
   Response.Write "MSFlexGrid1.Text=" & Chr(34) & Trim(fld) & _
Chr(34) & vbCrLf
   ctCol=ctCol+1
Next

objRst.MoveNext
ctRow=ctRow+1
   Loop
End Sub
   %>

<SCRIPT LANGUAGE="VBScript">

</SCRIPT>

   </HEAD>
   <BODY>

   <OBJECT ID="MSFlexGrid1" WIDTH=668 HEIGHT=156
CLASSID="CLSID:6262D3A0-531B-11CF-91F6-C2863C385E30">
<PARAM NAME="_ExtentX" VALUE="17674">
<PARAM NAME="_ExtentY" VALUE="4128">
<PARAM NAME="_Version" VALUE="65541">
<PARAM NAME="Rows" VALUE="2">
<PARAM NAME="Cols" VALUE="1">
<PARAM NAME="FixedRows" VALUE="1">
<PARAM NAME="FixedCols" VALUE="0">
<PARAM NAME="AllowUserResizing" VALUE="1">
   </OBJECT>

   </BODY>
   </HTML>

출처 : MS ASP뉴스그룹

'WEB > ASP / DotNet' 카테고리의 다른 글

asp로 도스명령어를 실행시켜주는 컴포넌트 (0)	2007/06/07
맥 어드레스 얻기 (0)	2007/06/07
ADO/ASP를 이용하여 데이터를 FlexGrid에 나타내는 방법 (0)	2007/06/07
MSSQL-2000 전체 텍스트 검색을 사용하여 웹을 검색 (0)	2007/06/07
이미지 넓이, 높이 알아내기 (0)	2007/06/07
ServerVariables 컬렉션은 (0)	2007/06/07