在指定的数据库上运行SQL语句的类

新客网 XKER.COM 2004-03-18 来源：收藏本文

<%
'在指定的数据库上运行SQL语句的类
'使用方法：
'dim runs
'set runs=new runsql
'runs.setdbn=数据库名
'if runs.ifok then
' response.write runs.errs
' response.end
'end if
'runs.setsql=sql
'runs.run
'if runs.ifok then
' response.write runs.errs
' response.end
'else
' response.write "执行成功"
'end if

on error resume next
class runsql

private dbname '数据库名

private sql '要执行的SQL语句
private ifsure '用来保存是否成功的标志，如果成功值为false，失败为true,初值为true
private errstr '保存说明错误的文字

'获取ifsure值
property get ifok()
ifok=ifsure
end property

'获取errstr值
property get errs()
errs=errstr
end property

'
private sub class_initialize()
'设置ifsure,errstr的初值
ifsure=true
errstr="对指点数据库执行SQL语句"
end sub

'给dbname赋值
property let setdbn(dbn)
dbname=dbn
ifexistdb dbn
end property

'给SQL赋值
property let setsql(s)
sql=s
end property

'执行操作
public sub run()
'还原类状态
class_initialize

'检查参数是否已经填写完整
if isnull(dbname) or isempty(dbname) or cstr(dbname)="" then
errstr="dbname不能为空"
exit sub
end if

if isnull(sql) or isempty(sql) or cstr(sql)="" then
errstr="sql不能为空"
exit sub
end if

dim conn '连接数据库对象
set conn=Server.CreateObject("adodb.connection")
if err.number<>0 then
errstr="建立adodb.connection对像失败."
set objcreate=nothing
exit sub
end if

errstr="不能连接数据库"

'连接数据库
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="+server.mappath(dbname)
conn.open

errstr="执行SQL语句失败"
'执行SQL语句

conn.execute(sql)

'如果没出错设置成功标志
if err.number=0 then
ifsure=false
end if

end sub

private sub ifexistdb(byval dbn)
'还原类状态
class_initialize
'如果数据库存在，就设为true，因为如果不存在的话就不能继续执行这个类
'检查数据库是否已经存在

errstr="数据库不存在"

dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="+server.mappath(dbn)
conn.open

if err.number=0 then
ifsure=false
end if

end sub
end class
%>

【收藏】【评论】【推荐】【投稿】【打印】【关闭】