Questionmark
Grünschnabel
Hallo ich habe mal wieder ein Problem:
Also es sollen 3 Werte in eine Tabelle geschrieben werden, die vorher eingegeben werden.
Dabei wird ein Wert mit der Tabelle verglichen und falls er schon vorhanden ist, soll eine Fehlermeldung kommen (die auch kommt) und die Werte sollen nicht eingetragen werden (funktioniert auch, aber es werden auch die werte nicht eingetragen, falls sie noch nicht vorhanden sind)
Hier der Code:
Vieln Dank im Voraus!
Also es sollen 3 Werte in eine Tabelle geschrieben werden, die vorher eingegeben werden.
Dabei wird ein Wert mit der Tabelle verglichen und falls er schon vorhanden ist, soll eine Fehlermeldung kommen (die auch kommt) und die Werte sollen nicht eingetragen werden (funktioniert auch, aber es werden auch die werte nicht eingetragen, falls sie noch nicht vorhanden sind)
Hier der Code:
Visual Basic:
Try
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\temp\Kst_Bud.accdb"
cmd.Connection = con
cmd.CommandText = " Select Kostenstellen_Name from Kostenstelle where Kostenstellen_Name = " & txtkname.Text & ""
con.Open()
reader = cmd.ExecuteReader()
txtprüfung.Clear()
Do While reader.Read()
txtprüfung.Text = (reader("Kostenstellen_Name"))
Loop
reader.Close()
con.Close()
If txtkname.Text = txtprüfung.Text Then
txtkname.Clear()
Else
dset.Tables(0).Rows.Add(kst_Nr, kst_name, kst_verantn, kst_verantvorn)
End If
Catch ex As Exception
MsgBox("Kostenstelle bereits vorhanden.")
End Try
End Sub
Vieln Dank im Voraus!
Zuletzt bearbeitet: