代码问题！！给分！！

sugui 2003-04-15 04:17:46

下面的代码提示“do while not rst.EOF”出错！！
set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
do while not rst.EOF
RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
rst.Close

...全文

20 4 打赏收藏举报

写回复

4 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

pengdali 2003-04-15

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.NonnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
while not rst.EOF
RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
rst.next
rst.Close

打赏
举报

回复赞

SophiaWang 2003-04-15

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
do while not rst.EOF and not rst.BOF
RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
Loop
rst.Close

打赏
举报

回复赞

sugui 2003-04-15

i will try it

打赏
举报

回复赞

CrazyFor 2003-04-15

TRY:

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1

do while not (rst.EOF and rst.bof)

RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
rst.Close