title image


Smiley VB.Net 2005 --> Wie muss der Update Befehl aussehen
Hallo NG,



Auf einer Form befindet sich ein Grid und ein paar textboxen, in den ich den Inhalt einer Spalte im Grid ändern will.



ich habe folgenden Code, bekomme aber den Update-Befehl nicht hin.



Kann mir jemand sagen wie dieser Updatebefehl aussehen muss ??



--> Siehe ganz unten: 'Update, aber wie





Imports System.Data.OleDb



Public Class FrmUserDetail

Inherits System.Windows.Forms.Form

Dim cmd As OleDbCommand

Dim da As OleDb.OleDbDataAdapter

Dim ds As DataSet

Dim dt As DataTable

Dim dv As DataView

Private drv As DataRowView



Private Sub FrmUserDetail_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

DisplayRow()

End Sub





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

'Inizialisieren der Startwerte

Dim mobjMain As ClassMain

mobjMain = New ClassMain

mobjMain.OleDBConnectDB()

mobjMain = Nothing

Me.TextBox1.Text = mobjPubVar.cnnString

cmd = New OleDbCommand("SELECT * from tblSupportUser order by Nachname, Vorname", OleDbCon)

da = New OleDbDataAdapter(cmd)

ds = New DataSet()

da.Fill(ds, "SupportUser")

dt = ds.Tables.Item("SupportUser")

dv = ds.DefaultViewManager.CreateDataView(dt)

DataGrid1.DataSource = dv



End Sub





Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged

DisplayRow()

End Sub



Private Sub DisplayRow()

drv = dv(DataGrid1.CurrentRowIndex)

strNachName.Text = CType(drv.Item("Nachname"), String)

End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

drv.BeginEdit()

drv.Item("Nachname") = strNachName.Text

drv.EndEdit()



If ds.HasChanges Then



Try

'Update, aber wie

MessageBox.Show((m.ToString & " Kunde(n) geändert!"), _

"Änderungen erfolgreich übernommen!", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show(ex.Message, "Fehler beim Update!", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try





End If

End Sub

End Class
Viele Grüße vom Lechfeld -Der Lechfeldbiker_

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: