先创建一个类 名stuDB
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Public Class stuDB
Dim strcon As String = ConfigurationManager.ConnectionStrings("studentConnectionString").ToString()
Dim conn As SqlConnection = New SqlConnection(strcon)
‘function一枚
Public Function get_dataset(ByVal strsql2 As String) As DataSet
Dim da As SqlDataAdapter = New SqlDataAdapter(strsql2, conn)
Dim ds As DataSet = New DataSet()
da.Fill(ds)
Return ds
End Function
end class
再创建default.aspx.vb
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Dim sdb As stuDB = New stuDB()
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
a = 3
GridView1.DataSource = sdb.get_dataset("......这里省略select语句..数据库都没建好的话,就别玩了..")
GridView1.DataBind()
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载