数据库的Query Analyzer

数据库的Query Analyzer

2001年7月6日 10:45:33·徐长友· http://yousoft.home.chinaren.com

---

    很多人一定用过Query Analyzer，这个工具的功能如何如何，就不用我说了，这次给大家介绍下Web下的Query Analyzer,界面如图1，使用ASP写的。

(图1)

源程序如下：

<% dim conn dim connstr on error resume next if request("selectdb")="mdb" then if request("dbname")<>"" then connstr="DBQ="+server.mappath(request("dbname"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") if err.number<>0 then err.clear set conn=nothing response.write "错误：数据库连接出错！" else if request("dbpass")<>"" then conn.open connstr else Conn.Open connstr,"admin",request("dbpass") end if if err then set conn=nothing response.write "错误：数据库连接出错！！！ " + err.description err.clear end if end if end if elseif request("selectdb")="mssql" then if request("dbname")<>"" then connstr = "Provider=SQLOLEDB.1" connstr = connstr & ";Data Source=" & request("sqlip") 'sql_server数据库 connstr = connstr & ";User ID=" & request("sqladmin") '数据库服务器用户 connstr = connstr & ";Password=" & request("sqlpass") '登录口令 connstr = connstr & ";Initial Catalog=" & request("sqldb") '数据库名 set conn=server.createobject("ADODB.CONNECTION") if err.number<>0 then err.clear set conn=nothing response.write "错误：数据库连接出错！" else conn.open connstr if err then set conn=nothing response.write "错误：数据库连接出错！！！ " + err.description err.clear end if end if end if end if sub endConnection() conn.close set conn=nothing end sub %> " method=post name=main> > MDB数据库 数据库： "> (例如：db.mdb,或dir/db.mdb) 密  码： "> > MS_SQLServer 服务器： "> (SQLSERVER 的IP地址) 数据库： "> 登录名： "> 密  码： "> width="83%" align="center"> valign=center>SQL向导 valign=center> name=sqlsyntax size=5>Choose SQLSelectInsertUpdateDeleteCreate TableDrop TableSimple Join valign=center> SQL Query : <% dim sql,rs ifrs=request("whichbutton") sql=request("sql") if sql<>"" then select case ifrs case "NORS" conn.execute sql if err then response.write "这句sql语句有错误，没有完全执行。 "&err.description&" "&sql else response.write "执行成功！" end if case "GetRS" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if err then response.write "这句查询sql语句有错误，没有完全执行。 "&err.description&" "&sql else response.write "找到了"&cstr(rs.recordcount)&"个结果" %> <% colnum=rs.fields.count for i=0 to rs.fields.count-1 %> <%next%> <%do while not rs.eof k=0 %> <%for k=0 to colnum-1%> <%next %> <% rs.movenext loop %> <%=rs(i).name%> <%=rs(rs(k).name)%> <% rs.close set rs=Nothing end if end select end if endconnection %>

Query Analyzer就这么简单，当然还需要改进，这就看你的了，呵呵...：）