Hallo,
hat jemand einen kleinen Tipp für mich.
Es soll Überprüft werden ob die txt Box leer ist wenn ja dann ,mach nichts sonst mache einen Eintrag.
MIt meinen Code wird nur der erste Zeile mit Werten in die DB geschrieben.
Es soll aber pro If Abftage eine Zeile in die DB eingetragen werden.
hat jemand einen kleinen Tipp für mich.
Es soll Überprüft werden ob die txt Box leer ist wenn ja dann ,mach nichts sonst mache einen Eintrag.
MIt meinen Code wird nur der erste Zeile mit Werten in die DB geschrieben.
Es soll aber pro If Abftage eine Zeile in die DB eingetragen werden.
VB.NET-Quellcode
- Private Sub cmd_atabelle_schreiben_Click(sender As Object, e As EventArgs) Handles cmd_atabelle_schreiben.Click
- Dim sorte1 As Single
- Dim sorte2 As Single
- Dim karte1 As Single
- sorte1 = 1
- sorte2 = 2
- karte1 = 1
- txt_m_1 = CStr(txt_master_1.Text)
- txt_m_2 = CStr(txt_master_2.Text)
- Dim provider As String
- Dim dataFile As String
- Dim connString As String
- Dim str As String
- Dim myConnection As OleDbConnection = New OleDbConnection
- provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
- dataFile = DB & "dbminasatabellen.accdb"
- connString = provider & dataFile
- myConnection.ConnectionString = connString
- myConnection.Open()
- str = "INSERT INTO tabatabellen([tsnr], [sorte], [kreditart], [prozent], [berechnungsart]) values (?,?,?,?,?)"
- Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
- Try
- If txt_master_1.Text = "" Then
- Else
- cmd.Parameters.Add(New OleDbParameter("tsnr", CType(txt_tsnr.Text, Integer)))
- cmd.Parameters.Add(New OleDbParameter("sorte", CType(sorte1, Integer)))
- cmd.Parameters.Add(New OleDbParameter("kreditart", CType(karte1, Integer)))
- cmd.Parameters.Add(New OleDbParameter("prozent", CType(txt_master_1.Text, Single)))
- cmd.Parameters.Add(New OleDbParameter("berechungsart", CType(cb_prov1.SelectedIndex, Integer)))
- cmd.ExecuteNonQuery()
- End If
- If txt_master_2.Text = "" Then
- Else
- cmd.Parameters.Add(New OleDbParameter("tsnr", CType(txt_tsnr.Text, Integer)))
- cmd.Parameters.Add(New OleDbParameter("sorte", CType(sorte2, Integer)))
- cmd.Parameters.Add(New OleDbParameter("kreditart", CType(karte1, Integer)))
- cmd.Parameters.Add(New OleDbParameter("prozent", CType(txt_master_2.Text, Single)))
- cmd.Parameters.Add(New OleDbParameter("berechungsart", CType(cb_prov1.SelectedIndex, Integer)))
- cmd.ExecuteNonQuery()
- End If
- ' cmd.ExecuteNonQuery()
- cmd.Dispose()
- myConnection.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub