ASP教程:自己寫的資料庫操作

來源:互聯網
上載者:User
資料庫操作類在網上一搜一大把,我這並不比那些好,只是是自己寫的,用著更習慣。所以我這個類沒有什麼特別的地方,只是自己用著習慣罷了,至於效率等方面,歡迎賜教!!

<%
Class dbClass
'-------------------------------------------------------------------------
    '變數說明
    'conn-----------connection對象
    'strsql---------執行查詢的語句
    'vTbName--------查詢分頁的表名
    'vPKey----------查詢分頁的表的主鍵
    'vPgFields------查詢分頁要顯示的欄位
    'vPgSize--------查詢分頁每頁顯示的記錄數
    'vCurrPg--------查詢分頁顯示的當前頁
    'vConditions----查詢分頁的條件
    'vOrderBy-------查詢分頁的排序
'-------------------------------------------------------------------------
    private conn,strsql,vTbName,vPKey,vPgFields,vPgSize,vCurrPg,vConditions,vOrderBy
    '類的初始化
    private Sub Class_Initialize()
        '當是MS Sql資料庫時設定以下兩個變數
        'dim dbServer            '資料庫伺服器的名稱或ip地址
        'dim dbname              '資料庫的名字
        dim dbPath              '若是Access資料庫,此處設定其路徑
        dim dbUser              '資料庫的登入使用者名稱
        dim dbPass              '資料庫的登入密碼
        dim connstr
        dbPath = "/testasp/data/data.mdb" '設定資料庫路徑
        dbUser = "admin"
        dbPass = "123456"
        '若是access,並且有密碼
        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPath) &_
         ";User ID=" & dbUser & ";Password=;Jet OLEDB:Database Password=" & dbPass
        '若是access,並且沒有密碼
        'connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dbPath)
        '若是ms-sql資料庫
        'connstr = "Provider = Sqloledb; User ID = " & dbUser & "; Password = " & dbPass &_
        ' "; Initial Catalog = " & dbname & "; Data Source = " & dbServer
        on error resume next
        set conn=server.CreateObject("adodb.connection")
        conn.open connstr
        errMsg "串連資料庫"
    End Sub
    '類結束
    Private Sub Class_terminate()
        conn.close
        set conn=nothing
    End Sub
'-------------------------------------------------------------------------
'給類的變數設定值
'-------------------------------------------------------------------------   
    '設定sql語句
    Public Property Let sqlStr(Byval Values)
    strsql=Values
    End Property
    '設定查詢分頁的表名
    public property let tbName(Byval Values)
    vTbName=Values
    end property
    '--------------------------------------------------------
    '設定查詢分頁的表的主鍵
    public property let pKey(ByVal Values)
    vPKey=Values
    end property
    '--------------------------------------------------------
    '設定顯示的欄位
    public property let pgFields(ByVal Values)
    vPgFields=Values
    end property
    '--------------------------------------------------------
    '設定每頁顯示的記錄數
    public property let pgSize(ByVal Values)
    vPgSize=Values
    end property
    '---------------------------------------------------------


相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。