Gambas2 Message

索引サイト

返り値は 1,2,3 となる。（0,1,2 ではない）





DIM w_answer AS Integer

w_answer = Message.Delete("データを含めてすべて削除されます", "OK", "中止")

IF w_answer = 1 THEN

    $query = "delete from tb_datadd"

    $query &= " where course = '" & TextBox_course.Text & "'"

    $query &= " and   tantou = '" & TextBox_tantou.Text & "'"

    $result = $db.$connection.Exec($query)

    $query = "delete from tb_datamm"

    $query &= " where course = '" & TextBox_course.Text & "'"

    $query &= " and   tantou = '" & TextBox_tantou.Text & "'"

    $result = $db.$connection.Exec($query)

    Message("削除されました")

ENDIF




AX