Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Sub DataGrid1_EditCommand(ByVal source As Object, _
ByVal e As DataGridCommandEventArgs _
) Handles DataGrid1.EditCommand
DataGrid1.EditItemIndex = e.Item.ItemIndex
BindDatas()
End Sub
Private Sub DataGrid1_CancelCommand(ByVal source As Object, _
ByVal e As DataGridCommandEventArgs _
) Handles DataGrid1.CancelCommand
DataGrid1.EditItemIndex = -1
BindDatas()
End Sub
Private Sub DataGrid1_UpdateCommand(ByVal source As Object, _
ByVal e As DataGridCommandEventArgs _
) Handles DataGrid1.UpdateCommand
Dim id As String = CType(DataGrid1.DataKeys(e.Item.ItemIndex), String)
Dim txt As TextBox = CType(e.Item.Controls(1).Controls(0), TextBox)
Dim update As String = _
"UPDATE Customers SET CompanyName='" & txt.Text & "' WHERE CustomerID='" & id & "'"
Dim conn As New SqlConnection( _
"server=localhost;database=northwind;integrated security=sspi")
conn.Open()
Dim cmd As New SqlCommand(update, conn)
cmd.ExecuteNonQuery()
conn.Close()
Response.Write(update)
DataGrid1.EditItemIndex = -1
BindDatas()
End Sub