Freelance Project Requests info@CodeDocu.de Software Development in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Telerik Datengrid laden




Folgende Events sind automatisch schon verfügbar in der Headerleiste des Grids:
  • Add new record
  • Save changes
  • Cancel changes
  • Refresh



Dast Datengrid wird wie hier im Code geladen, indem man einen SQL erstellt, dann Daten in ein Dataset oder Datentable lädt und diese dann anbindet mit
->Grid.Datasource=Datentable

Private Sub fl_Load_Grid_Files()

'--------------------< fl_Load_Grid_Files() >--------------------

'< Daten >

Dim sSQL As String = "SELECT IDFile,Filename,Text0,OrderNr FROM tblWEB_Files WHERE IDDetail=" & _IDDetail & " ORDER BY IDFile"

'------< Grid laden >------

'< Daten laden >

Dim dt As DataTable = clsDB.getDataTable(sSQL)

'</ Daten laden >

'< Kontrolle >

If dt Is Nothing Then

Exit Sub

ElseIf dt.Rows.Count = 0 Then

Exit Sub

End If

'</ Kontrolle >

'</ Daten >

Dim intTeiler As Integer = _IDDetail / 1000

'----< loop : rows >----'*hier umschreiben, falls das zur Laufzeit notwendig ist

'For Each row As DataRow In dt.Rows

'< init >

'Dim intSubNr As Long = row("OrderNr")

'row("FileURL") = "~/Daten/Files/" & intTeiler & "/Thumbnail_" & _IDDetail & "_" & intSubNr & ".jpg"

'Next

'----</ loop : rows >----

'< Grid_Files laden >

ctlGrid_Files.DataSource = dt

If Page.IsPostBack Then

ctlGrid_Files.Rebind()

End If

'</ Grid_Files laden >

'------</ Grid laden >------

'--------------------</ fl_Load_Grid_Files() >--------------------

End Sub





Das drücken eines Buttons im Grid führt dann zu eigenen Commands
Wie hier der BatchEditCommand Edit Command
Welcher Löschen, Ändern oder auch anfügen soll

Protected Sub ctlGrid_Files_BatchEditCommand(sender As Object, e As GridBatchEditingEventArgs) Handles ctlGrid_Files.BatchEditCommand

'--------------------< ctlGrid_Files_BatchEditCommand() >--------------------

'*beim Druecken des Save-Changes befehls im Grid-Header

Dim sPfad As String

sPfad = Server.MapPath("~/Daten/Files/")

Dim intTeiler As Integer = _IDDetail / 1000

For Each cmd As Telerik.Web.UI.GridBatchEditingCommand In e.Commands

If cmd.Type = GridBatchEditingCommandType.Delete Then

'----< Zeile loeschen >----

Try

'--< Files loeschen >--

Dim intSubNr As Integer = clsDB.dbLong(cmd.OldValues("OrderNr"))

Dim sFilename As String = sPfad & intTeiler & "\File_" & _IDDetail & "_" & intSubNr & ".jpg"

If File.Exists(sFilename) Then

File.Delete(sFilename)

End If

sFilename = Replace(sFilename, "File_", "Thumbnail_", 1, 1, CompareMethod.Text)

If File.Exists(sFilename) Then

File.Delete(sFilename)

End If

'--</ Files loeschen >--

'--< Datensatz loeschen >--

Dim intIDFile As Long = clsDB.dbLong(cmd.OldValues("IDFile"))

Dim sqlDelete As String = "DELETE FROM tblWeb_Files WHERE IDFile=" & intIDFile

clsDB.executeSQL(sqlDelete)

'--</ Datensatz loeschen >--

Catch ex As Exception

fp_Message_anzeigen("Fehler beim File Loeschen<br>" & ex.Message, "ctlGrid_Files_BatchEditCommand()")

End Try

'----</ Zeile loeschen >----

ElseIf cmd.Type = GridBatchEditingCommandType.Update Then

'----< Zeile aendern >----

Try

'--< Bild Info_aendern >--

Dim intIDFile As Long = clsDB.dbLong(cmd.OldValues("IDFile"))

Dim AdapterFile As SqlClient.SqlDataAdapter = clsDB.getTableAdapter("SELECT TOP 1 * FROM tblWeb_Files WHERE IDFile=" & intIDFile)

Dim cmdInit As New SqlClient.SqlCommandBuilder(AdapterFile)

Dim dsFile As New DataSet()

AdapterFile.Fill(dsFile) 'lade ds

If Not dsFile Is Nothing Then

Dim rowFile As DataRow = dsFile.Tables(0).Rows(0)

rowFile.BeginEdit()

rowFile("Title") = cmd.NewValues("Title")

rowFile("Description") = cmd.NewValues("Description")

rowFile("dtEdit") = Now

rowFile.EndEdit()

AdapterFile.Update(dsFile)

End If

'--< Bild Info_aendern >--

'--</ Datensatz loeschen >-

Catch ex As Exception

fp_Message_anzeigen("Fehler beim File aendern<br>" & ex.Message, "ctlGrid_Files_BatchEditCommand()")

End Try

'----</ Zeile aendern >----

End If

Next

'< Grid anzeigen >

fl_Load_Grid_Files()

'</ Grid anzeigen >

'--------------------</ ctlGrid_Files_BatchEditCommand() >--------------------

End Sub


Mobile
»
ASP.Net Mediaplayer: Video is not loading
»
ASP.Net: Upload Files with Ajax Controls from Telerik
»
ASP.Net Parserfehler: Fehler beim Verarbeiten einer Resource
»
Downloaden von Files mit Web Extensions
»
Datengrid mit einer Resize Größe anpassbaren Eingabe-Spalte
»
Telerik Datengrid: Spalte allowEdit->ReadOnly setzen
»
Datengrid laden, Datensätze ändern
»
gelöst: RadAsyncUpload Fileupload alle Extensions erlauben
»
Die Datei oder Assembly oder eine Abhängigkeit davon wurde nicht gefunden
»
Ajax Controls in Webform vewenden

.

Contact for Jobs, Project Requests: raimund.popp@microsoft-programmierer.de