28,391
社区成员
发帖
与我相关
我的任务
分享
strSQL = "Select * From bas_dept"
'Connect to Sybase via ADODB
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Sybase ASE OLE DB Provider; Data source=Sybase"
Conn.Open ConnStr
'Execute Query
Set rs = Server.CreateObject("ADODB.recordset")
rs.Open strSQL, Conn, 1,1
do while not rs.eof
response.Write rs(1)
rs.movenext
loop