Halllo zusammen,
ich hab die Suchfunktion aus dem Buchbeispiel das ihr zur Verfügung gestelt habt ausprobiert. Die Connection zur Datenbank hab ich mit dem Connect - Assistenten durchgeführt, sowie die Select - Befehle mit DataAdapterassistenen, die ich dann per Dataset im Form_Load an die Steuerelemente gebunden habe.
Was ich jetzt nicht hinbekomme bzw eure Hilfe brauche wie ich denn mit dem Dataview wenn ich im Formular eine Änderung des Datensatz vorgenommen habe diesen wieder in die Access - Datenbank schreibe..... Zur Zeit benutze ich eine Toolbar mit dem Button Aktualisieren für die neue Einträge und das Löschen der Datensätze zu aktualisieren.
Danke!
Arno
''Suchen
''Datensatz suchen
Me.dv.Sort = ""
Me.dv.RowFilter = ""
Dim suchText As String
suchText = Me.ToolStripTextBox1.Text
Dim objZeilen() As DataRowView
suchText = Me.ToolStripTextBox1.Text
Me.dv.Sort = "Nachname"
objZeilen = dv.FindRows(suchText)
If objZeilen.Length = 0 Then
MessageBox.Show("Sorry, kein " & suchText & " vorhanden.")
Me.ToolStripTextBox1.Text = ""
Me.ToolStripTextBox1.Select()
Else
'Dim intIndex As Integer
Me.BindingContext(dv).Position = 0
dv.RowFilter = "Nachname = '" & suchText & "'"
Me.BindingContext(dv).Position = 0
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Visible = True
Next
If objZeilen.Length > 1 Then
Me.ToolStripButton2.Visible = True
Else
Me.ToolStripButton2.Visible = False
End If
End If
'Bindung Steuerelemente
' Me.DataGridView2.DataSource = dv
With Me
.txtMaNr.DataBindings.Clear()
.txtMaNr.DataBindings.Add("Text", dv, "MaNr")
.cboAnrede.DataBindings.Clear()
.cboAnrede.DataBindings.Add("Text", dv, "Anrede")
.txtVorname.DataBindings.Clear()
.txtVorname.DataBindings.Add("Text", dv, "Vorname")
.txtStraße.DataBindings.Clear()
.txtStraße.DataBindings.Add("Text", dv, "Straße")
.txtPLZ.DataBindings.Clear()
.txtPLZ.DataBindings.Add("Text", dv, "PLZ")
.txtTel.DataBindings.Clear()
.txtTel.DataBindings.Add("Text", dv, "Tel")
.txtMail.DataBindings.Clear()
.txtMail.DataBindings.Add("Text", dv, "E-Mail")
.txtGebDatum.DataBindings.Clear()
.txtGebDatum.DataBindings.Add("Text", dv, "GebDatum")
.txtRufname.DataBindings.Clear()
.txtRufname.DataBindings.Add("Text", dv, "Rufname")
.txtName.DataBindings.Clear()
.txtName.DataBindings.Add("Text", dv, "Nachname")
.txtHausNr.DataBindings.Clear()
.txtHausNr.DataBindings.Add("Text", dv, "HausNr")
.txtOrt.DataBindings.Clear()
.txtOrt.DataBindings.Add("Text", dv, "Ort")
.txtMobil.DataBindings.Clear()
.txtMobil.DataBindings.Add("Text", dv, "Mobil")
.txtBank.DataBindings.Clear()
.txtBank.DataBindings.Add("Text", dv, "Bank")
.txtKTNR.DataBindings.Clear()
.txtKTNR.DataBindings.Add("Text", dv, "Kontonr")
.txtBLZ.DataBindings.Clear()
.txtBLZ.DataBindings.Add("Text", dv, "BLZ")
.txtBemerk.DataBindings.Clear()
.txtBemerk.DataBindings.Add("Text", dv, "Bemerkungen")
.chkAktiv.DataBindings.Clear()
.chkAktiv.DataBindings.Add("checked", dv, "MaAktiv")
.chkInaktiv.DataBindings.Clear()
.chkInaktiv.DataBindings.Add("checked", dv, "MaInaktiv")
.txtGehalt.DataBindings.Clear()
.txtGehalt.DataBindings.Add("Text", dv, "Gehalt")
.txtSollUmsatz.DataBindings.Clear()
.txtSollUmsatz.DataBindings.Add("Text", dv, "SollUmsatz")
.txtEintritt.DataBindings.Clear()
.txtEintritt.DataBindings.Add("Text", dv, "Eintrittsdatum")
.txtAustritt.DataBindings.Clear()
.txtAustritt.DataBindings.Add("Text", dv, "Austrittsdatum")
.txtKrankenkasse.DataBindings.Clear()
.txtKrankenkasse.DataBindings.Add("Text", dv, "Krankenkasse")
.cboSteuer.DataBindings.Clear()
.cboSteuer.DataBindings.Add("Text", dv, "Steuerklasse")
.cboReligion.DataBindings.Clear()
.cboReligion.DataBindings.Add("Text", dv, "Religion")
End With |
Forenübersicht Suchen Forumsregeln
Vol.6
Oktober 2025
Sie sind aktuell nicht angemeldet.
