Hallo und Guten Tag!
Ich programmiere gerade in Visual Basic 2008 eine Kundendatenbank.
Die Objekte, die ich speichern möchte, sind:
- Kundennr.
- Vorname
- Nachname
- Titel
- Telefon
- Straße
- Nr.
- PLZ
- Ort
- E-Mail
Ich speichere über eine Microsoft-Access Datenbank.
Der Code, den ich zum speichern benutze, ist folgender:
Form2.KundenTabelle1TableAdapter.Insert(Me.IDTextBox.Text, _
Me.VornameTextBox.Text, Me.NachnameTextBox.Text, _
Me.TitelTextBox.Text, _
Me.TelefonTextBox.Text, _
Me.StraßeTextBox.Text, _
Me.NrTextBox.Text, _
Me.PLZTextBox.Text, _
Me.OrtTextBox.Text, _
Me.EMailTextBox.Text)
Form2.KundenTabelle1TableAdapter.Fill(Form2.KundenDataSet.KundenTabelle1)
MsgBox("Die Daten wurden erfolgreich geändert!", MsgBoxStyle.Information, _
"Kundenverwaltung | Kunden")
IDTextBox.Text = ""
VornameTextBox.Text = ""
NachnameTextBox.Text = ""
TitelTextBox.Text = ""
TelefonTextBox.Text = ""
StraßeTextBox.Text = ""
NrTextBox.Text = ""
PLZTextBox.Text = ""
OrtTextBox.Text = ""
EMailTextBox.Text = "" Jetzt unterstreicht er jedoch [...] Me.EMailTextBox.Text [...] blau und bringt mir den folgenden Fehler:
Fehler 2 Zu viele Argumente für "Public Overridable Overloads Function Insert(Vorname As String, Nachname As String, Titel As String, Telefon As String, Straße As String, Nr As String, PLZ As String, Ort As String, EMail As String) As Integer".
Die Microsoft - Hilfe ist wenig Hilfreich, sie sagt einfach, dass man das entsprechende Element (in dem Fall EMailTextBox) entfernen soll. Das will ich aber nicht!
Der Fehlercode von VB ist "BC30057".
Mit folgendem Code lade ich in die Form und spreche den Binding Navigator zwischen TextBox und Access-Datenbank an:
Private Sub KundenTabelle1BindingNavigatorSaveItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.KundenTabelle1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KundenDataSet)
End Sub
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle
' "KundenDataSet.KundenTabelle1". Sie können sie bei Bedarf verschieben
' oder entfernen.
Me.KundenTabelle1TableAdapter.Fill(Me.KundenDataSet.KundenTabelle1)
End Sub Es wäre sehr hilfreich, wenn jemand eine Lösung hat.
Falls ich diesen Thread in den falschen Bereich gepostet habe, bitte verschieben!
Danke schon mal im Voraus! ![](../images/smilies/smiley1.gif) |