Ich erstelle gerade ein kleines Projekt. In der DB befinden sich 4 Tabellen, die ich füllen möchte.
Bei einer Tabelle kommt es zu folgender Fehlermeldung: siehe Error_V100.jpg
Bei anderen Tabellen funktioniert der Insert problemfrei.
Quellcode:
Datenstruktur:
Meine Suche im Internet war bisher erfolglos. Hat jemand einen Tipp? Würde mich freuen - danke
CodeTags gesetzt ~VaporiZed
Bei einer Tabelle kommt es zu folgender Fehlermeldung: siehe Error_V100.jpg
Bei anderen Tabellen funktioniert der Insert problemfrei.
Quellcode:
Datenstruktur:
VB.NET-Quellcode
- ' Verordnung
- str_DBV04s = "("
- str_DBV04s += "V04_ID, "
- str_DBV04s += "V04_MID, "
- str_DBV04s += "V04_LFD, "
- str_DBV04s += "V04_Von, "
- str_DBV04s += "V04_Bis)
- Datenfüllung:
- Public Shared Sub VO_Insert_A()
- str_Daten = " values (" + int_Max_ID.ToString + "', "
- str_Daten += "'" + SID.ToString + "', "
- str_Daten += "'" + int_Max_LFD.ToString + ", "
- str_Daten += "'" + TVon(i_T1) + "', "
- str_Daten += "'" + TBis(i_T1) + "')"
- mySelect.CommandText = "insert into V04_Ver " & str_DBV04s & str_Daten
- Call DB_Execute()
- End Sub
- DB-Order:
- Public Shared Sub DB_Execute()
- Try
- DB_Anz = mySelect.ExecuteNonQuery
- Catch ex As Exception
- MsgBox(ex.Message & mySelect.CommandText)
- End Try
- End Sub
Meine Suche im Internet war bisher erfolglos. Hat jemand einen Tipp? Würde mich freuen - danke
CodeTags gesetzt ~VaporiZed
