ASP.Netのお勉強

Oracleに接続＠ASP.Net

Oracleに接続します。
oo4oを利用します。

以下では、実行ボタンをクリックした際に、
Oracleに接続を行い、SQL文を発行して、取得したレコード件数をラベルに表示しています。

●aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="test.aspx.vb"
Inherits="test" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Oracle接続</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Button ID="execBtn" runat="server" Text="　実行　" /><br />
        <asp:Label ID="resultLBL" runat="server" Text=""></asp:Label>
    </div>
    </form>
</body>
</html>


●vb

Imports OracleInProcServer

Partial Class test
    Inherits System.Web.UI.Page

    Protected Sub execBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles execBtn.Click

        Dim oraSes As OraSession
        Dim oraDB As OraDatabase
        Dim oraSet As OraDynaset

        Dim strSQL As String
        Dim count As Integer

        count = 0

        'OraSession生成
        oraSes = Server.CreateObject("OracleInProcServer.XOraSession")

        'Oracleに接続
        oraDB = oraSes.OpenDatabase("DB", "ID/PASS", 0)

        'SQL文
        strSQL = "select * from TABLE"

        'SQL文発行
        oraSet = oraDB.CreateDynaset(strSQL, 0)

        'レコード数取得
        count = oraSet.RecordCount

        'レコード数を表示
        resultLBL.Text = count

        '閉じる
        oraSet = Nothing
        oraDB = Nothing
        oraSes = Nothing

    End Sub
End Class

Copyright (C) ASP.Netのお勉強. All Rights Reserved.