Tak jsem to zatím vyřešil takto, ale chci se zeptat jestli to nejde udělat nějak líp protože kdyby náhodou došlo k zápisu mezi jednotlivými commandy tak by mi to vrátilo špatný ID.
Dim lastID as integer
Dim cmd As OleDbCommand = New OleDbCommand("INSERT INTO zaznamy (vetev, datum, aktualizovano, zapsal, zprava, rtf) VALUES (" & frmMain.lstStrom.SelectedNode.Name & ", '" & CasUlozeni & "', '" & CasUlozeni & "', " & Zapsal & ", @text, @rtf)", conn)
cmd.Parameters.AddWithValue("@text", rtb.Text)
cmd.Parameters.AddWithValue("@rtf", rtb.Rtf)
cmd.ExecuteNonQuery()
Dim cmd2 As OleDbCommand = New OleDbCommand("SELECT @@IDENTITY", conn)
lastID = cmd2.ExecuteScalar
Zkoušel jsem i ty jednotlivé příkazy tedy INSERT a SELECT napsat za sebe oddělené ; a i dokonce jsem tam zkusil přidat vbcrlf ale pokaždé mi to vrátilo že na příkazem jsou nějaké další znaky :c(
|