简单三层模式

最新推荐文章于 2024-03-23 13:15:00 发布

logenliqiang

最新推荐文章于 2024-03-23 13:15:00 发布

阅读量157

点赞数

分类专栏： ASP.NET 文章标签： exception dataset server xhtml 数据库 asp

本文链接：https://blog.csdn.net/logenliqiang/article/details/5697305

版权

ASP.NET 专栏收录该内容

38 篇文章 0 订阅

订阅专栏

==================数据访问层，类文件==============================

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data

Public Class mydata
Private con As SqlConnection

    ' <summary>
    ' 打开数据库连接.
    ' </summary>
    Private Sub Open()
        ' 打开数据库连接
        If con Is Nothing Then
            con = New SqlConnection(Web.Configuration.WebConfigurationManager.ConnectionStrings("OFFICEAUTODBConnectionString").ToString())
        End If
        If con.State = ConnectionState.Closed Then
            Try

con.Open()
Catch ex As Exception

            Finally
            End Try
        End If
    End Sub

    Public Sub Close()
        '判断连接是否已经创建
        If con IsNot Nothing Then '判断连接的状态是否打开
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
        End If
    End Sub
    Public Function selecvalue() As DataSet
        Try

Open()

            Dim rs As New SqlClient.SqlDataAdapter("select top 100 * from company", con)
            Dim ds As New DataSet
            rs.Fill(ds)
            Close()
            Return ds
        Catch ex As Exception
            Throw New Exception(ex.ToString)
        End Try
    End Function
End Class

==========================================业务层============================

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim ds As New mydata

If Not Page.IsPostBack Then

GridView1.DataSource = ds.selecvalue()

GridView1.DataBind()

End If
End Sub

========================================表现层==================================

<%@ Page Language="VB" AutoEventWireup="false" Debug="true" CodeFile="Default.aspx.vb" Inherits="_Default" %>

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

logenliqiang

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
简单三层模式

<br />==================数据访问层，类文件==============================<br />Imports Microsoft.VisualBasic<br />Imports System.Data.SqlClient<br />Imports System.Data<br />Public Class mydata<br /> Private con As SqlConnection<br /> ' <summary><br /> ' 打开
复制链接

扫一扫

专栏目录