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