I use your latest Components & VS2008 The following Code I try without any result:
Code: Select all
Dim myCommand As New Devart.Data.MySql.MySqlCommand
Dim LID As Long
MySqlConnection1.Open()
myTr = MySqlConnection1.BeginTransaction
myCommand.Connection = MySqlConnection1
myCommand.CommandText = "Select @NID :=Max(Identifikation)+1 from Anrede; " & _
"Insert Into Anrede (Identifikation, Beschreibung) Values(@NID, 'TIPP');" & _
"Select Identifikation from Anrede Where Identifikation= @NID;"
LID = myCommand.ExecuteScalar
myTr.Commit()
MsgBox(LID)
Any kinds of tipps?
THX