vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Zellenwerte im Datagridview abspeichern Pfeiltasten 
Autor: Güldner1
Datum: 12.03.18 19:37

Hallo

ich möchte in einem Datagridview Zellenwerte abspeichern. Dabei möchte ich nachdem ich den Wert eingebeben habe, die Zelle entweder mit Pfeil nach oben, unten, recht oder links verlassen. In dem Moment soll dann die Speicherung in die DB erolgen. Komischerweise klappt es wunderbar in dem Moment wenn ich die Pfeil nach oben bzw. unten Taste drücke, nicht aber wenn ich die Pfeil Rechts/Links taste drücke. Woran liegt es.


Private Sub datagridview1_down(ByVal sender As Object, ByVal e As Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp

Dim x As Integer, y As Integer, Feldname As String = ""

x = Me.DataGridView1.CurrentCell.ColumnIndex
y = Me.DataGridView1.CurrentCell.RowIndex

If e.KeyCode = Keys.Right Then
x = x - 1
Else
x = x
End If

Feldname = Me.DataGridView1.Columns.Item(x).HeaderText.ToString
Me.DataGridView1("Feldindex", y).Value = Str(x)

Dim cmd As New SqlCommand("Update Gelände Set " + Feldname + " = @p1, Feldindex =@p2 where gelldfnr = @pIndex", con)

cmd.Parameters.Add("@p1", SqlDbType.NChar, 10, Feldname)
cmd.Parameters.Add("@p2", SqlDbType.NChar, 10, "Feldindex")
Dim prm As SqlParameter = cmd.Parameters.Add("@pindex", SqlDbType.BigInt)
prm.SourceColumn = "gelldfnr"
prm.SourceVersion = DataRowVersion.Original

dagel.UpdateCommand = cmd
dagel.Update(dtgel)

End Sub[ Private Sub datagridview1_down(ByVal sender As Object, ByVal e As Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
Dim x As Integer, y As Integer, Feldname As String = ""

x = Me.DataGridView1.CurrentCell.ColumnIndex
y = Me.DataGridView1.CurrentCell.RowIndex

If e.KeyCode = Keys.Right Then
x = x - 1
Else
x = x
End If

Feldname = Me.DataGridView1.Columns.Item(x).HeaderText.ToString
Me.DataGridView1("Feldindex", y).Value = Str(x)

Dim cmd As New SqlCommand("Update Gelände Set " + Feldname + " = @p1, Feldindex =@p2 where gelldfnr = @pIndex", con)

cmd.Parameters.Add("@p1", SqlDbType.NChar, 10, Feldname)
cmd.Parameters.Add("@p2", SqlDbType.NChar, 10, "Feldindex")
Dim prm As SqlParameter = cmd.Parameters.Add("@pindex", SqlDbType.BigInt)
prm.SourceColumn = "gelldfnr"
prm.SourceVersion = DataRowVersion.Original

dagel.UpdateCommand = cmd
dagel.Update(dtgel)

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zellenwerte im Datagridview abspeichern Pfeiltasten374Güldner112.03.18 19:37
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten176Franki13.03.18 02:28
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten171Güldner113.03.18 08:18
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten162Franki14.03.18 03:18
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten156Güldner114.03.18 20:32
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten150Franki15.03.18 03:41
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten152Güldner115.03.18 08:21
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten92Franki21.03.18 02:16
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten167Güldner113.03.18 08:22
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten167Manfred X13.03.18 09:17
Re: Zellenwerte im Datagridview abspeichern Pfeiltasten161Franki14.03.18 03:22

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel