Android Question Error in compilation

Discussion in 'Android Questions' started by Oldmanenzo, Mar 1, 2015.

  1. Oldmanenzo

    Oldmanenzo Member Licensed User

    I have an error at compile time that I can not understand, indeed I understand but I do not understand why, even in other activity because I do the same thing.
    This error at compile

    B4A version 4.30
    Parsing code.                           
    Compiling code.                         Error
    Error compiling program.
    Error description: Cannot assign void value.
    Occurred on line: 
    Dim cur As Cursor=Main.SQLUser.ExecNonQuery (Query)
    Word: )
    and this is the code in activity

    Sub Globals
    'These global variables will be redeclared each time the activity is created.
        'These variables can only be accessed from this module.

    Private BtnClear As Button
    Private BtnExit As Button
    Private BtnUpdate As Button
    Private ImgClear As ImageView
    Private ImgExit As ImageView
    Private ImgUpdate As ImageView
    Private LblBand As Label
    Private LblCall As Label
    Private LblChange As Label
    Private LblDate As Label
    Private LblId As Label
    Private LblMode As Label
    Private LblRstr As Label
    Private LblRsts As Label
    Private LblTime As Label
    Private PnlEdit As Panel
    Private TxtBand As EditText
    Private TxtCall As EditText
    Private TxtChange As EditText
    Private TxtData As EditText
    Private TxtMode As EditText
    Private TxtRstr As EditText
    Private TxtRsts As EditText
    Private TxtTime As EditText
    End Sub

    Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
        Activity.LoadLayout ("EditRecord")
    Dim Query As String ="SELECT * FROM " & Main.ContestName &" WHERE (Id_" & Main.ContestName &" = " & Main.RowSelected &")"
    Dim cur As Cursor=Main.SQLUser.ExecNonQuery (Query)
        TxtCall.InputType = 
    Bit.OR(TxtCall.INPUT_TYPE_TEXT, 4096)
        TxtChange.InputType = 
    Bit.OR(TxtChange.INPUT_TYPE_TEXT, 4096)
        TxtMode.InputType = 
    Bit.OR(TxtMode.INPUT_TYPE_TEXT, 4096)
        PnlEdit.Top = 
    20dip : PnlEdit.Left =(Activity.Width /2) - (PnlEdit.Width /2)
        TxtTime.Color =
    Colors.White : TxtBand.Color =Colors.White : TxtBand.Color =Colors.White
        TxtCall.Color =
    Colors.White : TxtChange.Color =Colors.White : TxtData.Color =Colors.White
        TxtMode.Color =
    Colors.White : TxtRstr.Color =Colors.White : TxtRsts.Color =Colors.White
        BtnUpdate.Color =
    Colors.DarkGray : BtnClear.Color =Colors.DarkGray : BtnExit.Color =Colors.DarkGray
        LblId.Text =
    "Edit Qso Number:  " & Main.RowSelected
        cur.Position =
        TxtCall.Text = cur.GetString (
    "Call") : TxtTime.Text = cur.GetString ("Time")
        TxtBand.Text = cur.GetString (
    "Band") : TxtChange.Text = cur.GetString ("Change")
        TxtData.Text = cur.GetString (
    "Date") : TxtMode.Text = cur.GetString ("Mode")
        TxtRstr.Text = cur.GetString (
    "Rstr") : TxtRsts.Text = cur.GetString ("Rsts")
    End Sub
  2. klaus

    klaus Expert Licensed User

    This code id wrong:
    Dim cur AsCursor=Main.SQLUser.ExecNonQuery (Query)
    It must be:
    Dim cur AsCursor=Main.SQLUser.ExecQuery (Query)
  3. Oldmanenzo

    Oldmanenzo Member Licensed User

    are worse than a mule
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice