Używanie tymczasowych danych w programie ASP.NET GridView

Zbuduj stronę testową za pomocą programu GridView, używając tymczasowych danych w programie ASP.NET

Autor

Być może natknęliście się na potrzebę korzystania z DataGrid, ale nie chcieliśmy stale aktualizować bazy danych przy każdej zmianie.

Na szczęście można zapisać wszystkie te dane w wierszach Dodaj / usuń sesję i przekazywać je między klientem a serwerem, nie dotykając bazy danych.

Nie będę badał dużo w nauce, są artykuły na temat MSDN dla takich rzeczy.

Przede wszystkim załaduj nową formę internetową i musisz dodać DropDownList, GridView i dwa przyciski, jeden jako udawszy przesyłanie do bazy danych i drugi, aby dodać użytkownika do naszego GridView.

Uruchomiłem to wszystko w moim systemie, więc kod powinien skopiować i wkleić prosto, spróbuj dodać każdą sekcję, aby zobaczyć, jak ją budujesz.

HTML

Autor

Najpierw deklarujemy tabelę, wywołamy to na stronie

VB

Private Function CreateTable() As DataTable
'Add a user column
Dim dt As DataTable = New DataTable
Dim column As DataColumn
column = New DataColumn()
column.DataType = System.Type.GetType("System.Int32")
column.ColumnName = "UserID"
column.ReadOnly = False
column.Unique = True
dt.Columns.Add(column)
'add a user name column
column = New DataColumn()
column.DataType = System.Type.GetType("System.String")
column.ColumnName = "UserName"
column.ReadOnly = False
column.Unique = False
dt.Columns.Add(column)
'Add a unique column with its own unique id (for delete function)
column = New DataColumn()
column.DataType = System.Type.GetType("System.Int32")
column.ColumnName = "ID"
column.ReadOnly = False
column.Unique = True
column.AutoIncrement = True
column.AutoIncrementSeed = 1
dt.Columns.Add(column)
'add primary key (first key) on column ID
Dim PrimaryKeyColumns(0) As DataColumn
PrimaryKeyColumns(0) = dt.Columns("ID")
dt.PrimaryKey = PrimaryKeyColumns
Return dt
End Function

Autor

Teraz dodamy funkcję, aby dodać nowe wartości do naszej tabeli tymczasowej i zwrócić ją do nas

VB

Private Function AddDataToTable(ByVal UserID As Int32, ByVal UserName As String, ByVal myTable As DataTable) As DataTable
Try
Dim row As DataRow
row = myTable.NewRow()
row("UserID") = UserID
row("UserName") = UserName
myTable.Rows.Add(row)
Return myTable
Catch
Return myTable
End Try
End Function

Autor

Dalej mamy podrzędny dostęp do kliknięcia AddUser, który wywoła powyższą funkcję i zwróci tabelę tymczasową do sesji i bing danych do naszego stołu ponownie.

VB

Protected Sub Add_Click(sender As Object, e As System.EventArgs) Handles AddUser.Click
AddDataToTable(UserAvailable.Items.FindByValue(UserAvailable.SelectedValue).Value, UserAvailable.Items.FindByValue(UserAvailable.SelectedValue).Text.ToString, CType(Session("myDatatable"),DataTable))
UserTable.DataSource = (CType(Session("myDatatable"), DataTable)).DefaultView
UserTable.DataBind()
End

Autor

Dodaliśmy możliwość usuwania wierszy przez użytkowników, dlatego musimy dodać tę funkcję, która usunie wymagany wiersz i zwróci tabelę.

VB

Private Function DelDataFromTable(ByVal RowID As Int32, ByVal myTable As DataTable) As DataTable
Dim r As DataRow = myTable.Rows.Find(RowID)
myTable.Rows.Remove(r)
Return myTable
End Function

Autor

Teraz potrzebujemy podrzędnych powiązań z poleceniem RowDeleting w UserTable, która wywołuje funkcję Delete i ponownie powiąza nasze dane.

VB

Protected Sub UsersForSignOffList_RowDeleting(sender As Object, e AsSystem.Web.UI.WebControls.GridViewDeleteEventArgs) Handles UserTable.RowDeleting
Dim Id As Integer = e.Keys(0).ToString
DelDataFromTable(Id, CType(Session("myDatatable"), DataTable))
UserTable.DataSource = (CType(Session("myDatatable"), DataTable)).DefaultView
UserTable.DataBind()
End Sub

Autor

Wprowadziliśmy więc funkcje i procesy, aby aktualizować tabelę z poziomu wprowadzanego przez użytkownika i zwrócić je, więc teraz musimy obsłużyć końcowe dane wejściowe i wyjściowe z naszego stołu. W tym celu zamierzamy powiązać sub z zdarzeniem Pre-Render na stronie i wywołać niektóre z powyższych funkcji, a drugą, która przetwarza użytkowników w tym przypadku na manekina tabeli.

VB

'Dim UserID As String 'If adding a default user
'Dim UserName As String 'If adding a default user
'Dim con As New SqlConnection({yourconnection}) 'Handle our SQL Connection here
Private Sub Page_Load() Handles Me.PreRender
If Not IsPostBack Then
GetUsers()
Dim mydt = New DataTable()
mydt = CreateTable()
Session("myDatatable") = mydt
'AddDataToTable(UserID, UserName, CType(Session("myDatatable"), DataTable)) ' If adding a default user
UsersForSignOffList.DataSource = (CType(Session("myDatatable"), DataTable)).DefaultView
UsersForSignOffList.DataBind()
End If
End Sub

Private Sub AddUsersToTable() Handles UploadTable.Click
Dim AddUser As New SqlCommand
'AddUser.Connection = con 'You will also need to open and close your connection in here
Dim dt As DataTable = CType(Session("myDatatable"), DataTable)
Dim dr As DataRow
For i = 0 To dt.Rows.Count - 1
dr = dt.Rows(i)
AddUser.CommandText = "INSERT INTO LinkedUsers(UserID) " & _
"SELECT " & dr.Item(0).ToString() & ""
AddUser.ExecuteNonQuery()
Next
End Sub

Autor

Jedyna część, której brakuje z góry, jest związana z listą rozwijaną UsersAvailable do bazy danych (zrobiliśmy to ręcznie), używając do tego przykładowego polecenia SQL, ale na tej stronie skomentowałem.

VB

Private Sub GetUsers()
'Dim com As New SqlCommand("SELECT * FROM Users", con)
'Dim tr = com.ExecuteReader
'UserAvailable.DataSource = tr
'UserAvailable.DataTextField = "UserName"
'UserAvailable.DataValueField = "UserID"
'UserAvailable.DataBind()
'tr.Close()
End Sub

Autor

Zawsze uważałem, że najłatwiej się nauczyć, po prostu grając, więc spróbuj na swoich maszynach i zobaczyć, jak daleko możesz to wziąć. Jedyną rzeczą, o której warto pamiętać, jest to, że jeśli będzie mnóstwo danych, łatwiej po prostu wiążą się z bazą danych, ponieważ powinno to zachować wielkość strony i zmniejszyć ilość pamięci na serwerze.