.NET+SQL SERVER 2000图书管理系统流程图+功能图+ER+全套设计论文 第19页

Imports System.Data.SqlClient

Public Class Lend

    Inherits System.Web.UI.Page

    Dim myConn As SqlConnection

    Dim ds As DataSet

    Private myAdapter As SqlDataAdapter

    Private connectingstring As String

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '在此处放置初始化页的用户代码

        connectingstring = "data source=(local);Database=library;uid=sa;pwd=123456;"

        myConn = New SqlConnection(connectingstring)

        BindDBGrid()

    End Sub

    Public Sub Fill(ByVal sqlstr As String)

        myAdapter = New SqlDataAdapter(sqlstr, myConn)

        ds = New DataSet

        myAdapter.Fill(ds)

    End Sub

    Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid)

        If myConn.State = ConnectionState.Closed Then

            myConn.Open()

        End If

        Fill(sqlstr)

        myDBGrd.DataSource = ds.Tables(0).DefaultView

        myDBGrd.DataBind()

    End Sub

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>