VBScript(브이비스크립트) SQL(에스큐엘) Connect(연결)

08년 6월 기준.

 

option explicit

 

Dim rsQueue, sql, conn, rs

Dim strConn_Admin

Dim strPath_Admin

'Database

strConn_Admin = "Provider=MSDataShape; Data Provider=SQLOLEDB; Data Source=서버IP; User id=아이디; Password=패스워드; Initial Catalog=Inno"

'경로

strPath_Admin = "d:\Inno-Admin"

set conn = createObject("ADODB.connection")

conn.open strConn_Admin

set rs = createObject("ADODB.recordset")

dim hankooki, hankooki_Cols, hankooki_Rows, RowCount, rs_pictureID

dim PhototagStr

sql = "select PictureID from ArticlePicture where ArticleID='2008061315470501858' order by PictureID asc"

rs.open sql, strConn_Admin

if rs.eof or rs.bof then

rs.close

else

hankooki = rs.GetRows

rs.close

hankooki_Cols = ubound(hankooki,1)

hankooki_Rows = ubound(hankooki,2)

For RowCount = 0 to hankooki_Rows

rs_pictureID = hankooki(0,RowCount)

'이미지태그

PhototagStr = "<!--S" & rs_pictureID & "ME-->"

msgbox(PhototagStr)

Next

end if

 

DB 서버에 접속해서 그 줄의 정보를 읽어오는 소스. 기본형식은 이렇지만 쿼리문에 따라서 다양하게 변환.