Dim Cnn '定义一个数据库连接串
Set Cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Cnn.ConnectionString ="DSN=oral;UID=DDDDWD=ZXUIJK78;DBQ=66 ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"
Cnn.Open '打开数据库连接
If Cnn.State = 0 Then '判断数据库连接是否成功
Reporter.ReportEvent micFail, "testing", "连接数据库失败"
ExitAction(1)
else
Reporter.ReportEvent micPass, "testing", "连接数据库成功"
End If
If Cnn.State <> 0Then
strsql="select * from LOTTERY_TRADE11101 where (trade_issuenum=20004)"
(rs.open strsql,Cnn,1,3)---程序执行完这句话就退出了,找了好久也没有发现问题所在,请大家帮帮忙,看看是哪里有问题,谢谢了
If (not rs.eof) and (not rs.bof) then
if rs.recordcount=0 then
' 返回结果记录集为0时执行的操作
Response.Write "2"
else
Response.Write ""
end if
msgbox 1
str = rs("trade_selectednum")
msgbox str
end if
dim a
a="1188" '该a的数据库可以从外部获取,可以是某个页面的某个值,拿来跟数据库中的值做比较
for i=1 to Rs.Recordcount '开始遍历数据库中所有的行数,Rs.Recordcount表示统计数据库表的总记录数
if Rs("USER_ID")=a then '将数据库中USER_ID字段的值与变量a进行挨个比较,
msgbox "a在数据库中存在"
exit for '如果找到记录a,则推出for循环
else
Rs.MoveNext '如果数据库中的值与a不相等的话,那么在数据库中将游标移到下一行
end if