• <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>
    • 軟件測試技術
    • 軟件測試博客
    • 軟件測試視頻
    • 開源軟件測試技術
    • 軟件測試論壇
    • 軟件測試沙龍
    • 軟件測試資料下載
    • 軟件測試雜志
    • 軟件測試人才招聘
      暫時沒有公告

    字號: | 推薦給好友 上一篇 | 下一篇

    ASP訪問SQL Server內置對象

    發布: 2007-7-14 19:37 | 作者: 佚名    | 來源: 網絡轉載     | 查看: 8次 | 進入軟件測試論壇討論

    領測軟件測試網

      平常我們只聽說過ADO等一類ASP對象,但在ASP中還有個鮮為人知的專門SQL Server的ASP訪問對象,它就是SQLOLE.SQLServer對象。SQLOLE.SQLServer可以直接訪問SQL Server的系統屬性。以Set oSQLServer = CreateObject ("SQLOLE.SQLServer")語句將產生一個SQL Server服務器對象。
    ---- 若要查看此服務器中數據庫的集合,可用語句:

    For Each SQLDB In oSQLServer.Databases
    Response.Write SQLDB.Name ‘將列出所有的數據庫,如Pubs等
    Next

    ---- 若要查看某數據庫中(如PUBS數據庫)數據表的集合,可用語句:

    pubDatabase=oSQLServer.Databases(“pubs”)
    ’oSQLServer是前面創建的SQL Server服務器對象
    For Each DBTable In pubDatabase.Tables
    Response.Write DBTable.Name
    Next

    ---- 下面的語句將列出數據庫中(PUBS數據庫)數據視圖

     

    pubDatabase =oSQLServer.Databases(“pubs”)
    ’oSQLServer是前面創建的SQL Server服務器對象
    For Each DBView In pubDatabase.Views
    Response.Write DBView.Text
    Next

    ---- 以下語句將列出數據庫中(PUBS數據庫)存貯過程

    pubDatabase =oSQLServer.Databases(“pubs”)
    ’oSQLServer是前面創建的SQL Server服務器對象
    For Each DBSP In pubDatabase.StoredProcedures
    Response.Write DBSP.Text
    Next

    ---- 程序運行的結果(取數據表名):

    ---- 取存貯過程的結果:

    ---- 一個完整的小例子源碼附后(其它功能讀者可加入)。

    < %@ LANGUAGE = VBScript % >

    < HTML >
    < HEAD >
    < META NAME="GENERATOR" Content=
    "Microsoft Developer Studio" >
    < META HTTP-EQUIV="Content-Type"
    content="text/html; charset=gb2312" >

    < TITLE >< /TITLE >
    < /HEAD >

    < %
    On Error Resume Next
    Dim oSQLServer
    Set oSQLServer = CreateObject ("SQLOLE.SQLServer")


    strServer = "dep"
    strLogin = "sa"
    strPwd = ""


    oSQLServer.Connect strServer,strLogin,strPwd

     

    % >


    < BODY BGCOLOR=#ffffff >
    數據庫列表
    < SELECT NAME="Database" >
    < %
    For Each SQLDB In oSQLServer.Databases
    If Not SQLDB.SystemObject Then
    Response.Write "< OPTION VALUE=
    """ & SQLDB.Name & """ >" & SQLDB.Name

    & "  "
    End If
    Next
    Set oSQLServer = Nothing
    % >
    < /SELECT >
    < /BODY >
    < /HTML >

     


    延伸閱讀

    文章來源于領測軟件測試網 http://www.kjueaiud.com/


    關于領測軟件測試網 | 領測軟件測試網合作伙伴 | 廣告服務 | 投稿指南 | 聯系我們 | 網站地圖 | 友情鏈接
    版權所有(C) 2003-2010 TestAge(領測軟件測試網)|領測國際科技(北京)有限公司|軟件測試工程師培訓網 All Rights Reserved
    北京市海淀區中關村南大街9號北京理工科技大廈1402室 京ICP備2023014753號-2
    技術支持和業務聯系:info@testage.com.cn 電話:010-51297073

    軟件測試 | 領測國際ISTQBISTQB官網TMMiTMMi認證國際軟件測試工程師認證領測軟件測試網

    老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月

  • <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>