标题: 如果数据不存在则执行 [打印本页] 作者: 爱人好难a 时间: 2009-11-28 02:56 标题: 如果数据不存在则执行 Dim coz,rsz,ckk
set coz=server.createobject("ADODB.connection")
coz.open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=;DATABASE=feedback"
Set rsz=coz.execute("select zt,hf,fdate ,resp ,Sorderno,* from zyb_feed where userid= '" & opId & "' ")
'If Isnull(rsz) Or IsEmpty(rsz) Then
if rsz.eof or rsz.bof then‘如果数据不存在则执行