MySQLのデータベースを制御するクラスその2

ASP.NETな所

TOP > MySQL > MySQLのデータベースを制御するクラスその2

TOP

サイトマップ

前ページのクラスを呼び出すサンプルです。

■db.aspx.vb

Imports ThanksgivingSoft.Vb.Net

Partial Class db
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'SELECT
        Dim MySelect As New MySelect
        Dim flgSearch As Integer = 0  '検索結果 OK:-1 / NG:0
        Dim Sample1 As String = "ASP.NET"   '検索キーの文字列
        Dim Sample2 As String = ""          '引き出す値

        Try
            MySelect.T_Sample_Select(flgSearch, Sample1, Sample2)
        Catch ex As Exception
            Label1.Text = "SELECTエラー " & ex.Message
        End Try

        Label1.Text = Sample1
        Label2.Text = Sample2
        Label3.Text = flgSearch

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        'INSERT
        Dim MyInsert As New MyInsert
        Dim flgSearch As Integer = 0    '検索結果 OK:1 / NG:0
        Dim Sample1 As String = "ASP.NET"
        Dim Sample2 As String = "な所"

        Try
            MyInsert.T_Sample_Insert(flgSearch, Sample1, Sample2)
            Label1.Text = Sample1
        Catch ex As Exception
            Label1.Text = "INSERTエラー " & ex.Message
        End Try

        Label2.Text = Sample2
        Label3.Text = flgSearch

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        'UPDATE
        Dim MyUpdate As New MyUpdate
        Dim flgSearch As Integer = 0    '検索結果 OK:1 / NG:0
        Dim Sample1 As String = "ASP.NET"
        Dim Sample2 As String = "natokoro"

        Try
            MyUpdate.T_Sample_Update(flgSearch, Sample1, Sample2)
        Catch ex As Exception
            Label1.Text = "UPDATEエラー " & ex.Message
        End Try

        Label1.Text = Sample1
        Label2.Text = Sample2
        Label3.Text = flgSearch

    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        'DELETE
        Dim MyDelete As New MyDelete
        Dim flgSearch As Integer = 0    '検索結果 OK:1 / NG:0
        Dim Sample1 As String = "ASP.NET"

        Try
            MyDelete.T_Sample_Delete(flgSearch, Sample1)
        Catch ex As Exception
            Label1.Text = "DELETEエラー " & ex.Message
        End Try

        Label1.Text = Sample1
        Label2.Text = ""
        Label3.Text = flgSearch

    End Sub

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        'ラベルの文字のクリア
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""

    End Sub
End Class

■db.aspx

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

<!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>動作テスト</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Label ID="Label1" runat="server" Text="Label1" Width="450px"></asp:Label><br />
        <asp:Label ID="Label2" runat="server" Text="Label2" Width="450px"></asp:Label><br />
        <asp:Label ID="Label3" runat="server" Text="Label3" Width="450px"></asp:Label><br />
        <br />
        <asp:Button ID="Button1" runat="server" Text="SELECT" Width="80px" />
        <asp:Button ID="Button2" runat="server" Text="INSERT" Width="80px" />
        <asp:Button ID="Button3" runat="server" Text="UPDATE" Width="80px" />
        <asp:Button ID="Button4" runat="server" Text="DELETE" Width="80px" /><br />
        <br />
        <asp:Button ID="Button5" runat="server" Text="Clear" Width="50px" /></div>
    </form>
</body>
</html>

サンプルの動作テスト

▲UP

<< MySQLのデータベースを制御するクラス MySQLのデータベースを制御するクラス動作テスト >>

TOP > MySQL > MySQLのデータベースを制御するクラスその2

Web

サイト内