Hallo Forum,
als Neuling in der VB.net und SQL programmiereung hänge ich mal wieder an einem für mich unlösbaren Problem.
In meinem Programm werden Werkzeuge verwaltet, die für den Einsatz auf unterschiedlichen Maschinen gedacht sind. Dabei kann ein Werkzeug mehreren Maschinen zugeordnet sein und eine Maschine mehrere Werkzeuge haben. Im diese n:m Beziehung abzubilden wurde die Hilfstabelle tblTisch_Masch_Hilf erstellt. Bei den in diesem Programmteil vrwendeten Werkzeugen handelt es sich im Aufnahmetische für Schleifmascghinen. Diese sind in der Tabelle tblTische abgelegt. Das Anlegen und nachträgliche Bearbeiten funktioniert mittlerweile, nur beim löschen eines Tisches incl. aller Maschinenzuordnungen komme ich nicht weiter.
Aus dem Buch "Datenbank-Programmierung mit Visual Basic 2008" habe ich mir folgenden Code zusammengebastelt. Der aber nicht funktioniert!
In der Zeile dim Tisch = test.....
Kommt es zu folgender Fehlermeldung
Fehler beim Anfügen einer automatisch benannten Datenbank für die Datei C:\Projektarbeit\Betriebsmittelverwaltung\Betriebsmittel\Betriebsmittel\bin\Debug\bin\Debug\Betriebsmittel.mdf. Eine Datenbank mit diesem Namen ist bereits vorhanden, die angegebene Datei kann nicht geöffnet werden, oder sie befindet sich in der UNC-Freigabe.
Irgendwie verstehe ich das mit dem DataContext nicht!!!!!!
Hier der Code der SUB zum löschen eines Datensatzes.
Wer kann mir hier weiterhelfen??????
Gruß
Fuige
als Neuling in der VB.net und SQL programmiereung hänge ich mal wieder an einem für mich unlösbaren Problem.
In meinem Programm werden Werkzeuge verwaltet, die für den Einsatz auf unterschiedlichen Maschinen gedacht sind. Dabei kann ein Werkzeug mehreren Maschinen zugeordnet sein und eine Maschine mehrere Werkzeuge haben. Im diese n:m Beziehung abzubilden wurde die Hilfstabelle tblTisch_Masch_Hilf erstellt. Bei den in diesem Programmteil vrwendeten Werkzeugen handelt es sich im Aufnahmetische für Schleifmascghinen. Diese sind in der Tabelle tblTische abgelegt. Das Anlegen und nachträgliche Bearbeiten funktioniert mittlerweile, nur beim löschen eines Tisches incl. aller Maschinenzuordnungen komme ich nicht weiter.
Aus dem Buch "Datenbank-Programmierung mit Visual Basic 2008" habe ich mir folgenden Code zusammengebastelt. Der aber nicht funktioniert!
In der Zeile dim Tisch = test.....
Kommt es zu folgender Fehlermeldung
Fehler beim Anfügen einer automatisch benannten Datenbank für die Datei C:\Projektarbeit\Betriebsmittelverwaltung\Betriebsmittel\Betriebsmittel\bin\Debug\bin\Debug\Betriebsmittel.mdf. Eine Datenbank mit diesem Namen ist bereits vorhanden, die angegebene Datei kann nicht geöffnet werden, oder sie befindet sich in der UNC-Freigabe.
Irgendwie verstehe ich das mit dem DataContext nicht!!!!!!
Hier der Code der SUB zum löschen eines Datensatzes.
Wer kann mir hier weiterhelfen??????
Gruß
Fuige
VB.NET-Quellcode
- Private Sub btnLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoeschen.Click
- If TblTischeBindingSource2.Count > 0 Then
- Dim msg As String = "Den Tisch " & TblTischeBindingSource2(DataGridView1.CurrentRow.Index)("WerkzeugNr").ToString & "wirklich löschen?"
- Dim cpt As String = "Tisch löschen"
- If (MessageBox.Show(msg, cpt, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
- Dim test As New TischeDataContext()
- For Each row As DataGridViewRow In DataGridView1.SelectedRows
- 'Variable um die selektierte WerkzeugNr zu übergeben
- Dim var As String
- var = CInt(Fix(row.Cells(0).Value))
- Dim Tisch = test.tblTische.Where(Function(t) t.WerkzeugNr = var).First()
- test.tblTisch_Masch_Hilf.DeleteAllOnSubmit(Tisch.tblTisch_Masch_Hilf)
- test.tblTische.DeleteOnSubmit(Tisch)
- Next
- ' 'Datensatz aus dem DataGridView löschen
- ' TblTisch_Masch_HilfBindingSource1(TblTisch_Masch_HilfDataGridView.CurrentRow.Index).delete()
- ' Me.TblTisch_Masch_HilfDataGridView.EndEdit()
- ' Me.TblTisch_Masch_HilfBindingSource1.EndEdit()
- ' Me.TblTisch_Masch_HilfTableAdapter.Update(Me.DataSet1.tblTisch_Masch_Hilf)
- ' TblTischeBindingSource2(DataGridView1.CurrentRow.Index).delete()
- ' 'gelöschten Datensatz wirklich aus der DB entfernen
- ' Me.DataGridView1.EndEdit() ' schreibt Änderung in Cell
- ' Me.TblTischeBindingSource2.EndEdit() ' schreibt Cell in DataRow
- ' Me.TblTischeTableAdapter.Update(Me.DataSet1.tblTische) ' schreibt DataRow in Datenbank
- 'Else
- ' MessageBox.Show("Tisch wurde NICHT gelöscht!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End If
- End If
- End Sub