Help With Oracle Select Into Statement 3

[chilly442]

I need to grab three values from a table and store them into variables. I have tried a few variation of the following but am not getting what I need.

 Try
            Con.Open()
            Dim sql As New StringBuilder(1024)
            Dim objcmd As New OdbcCommand(sql.ToString, Con)
            sql.Append("SELECT EFOR, EAF, PEA INTO MyEFOR, MyEAF, MyPEA FROM History WHERE Unit = ('" & UnitText & "')")
            objcmd = New OdbcCommand(sql.ToString, Con)
            Value = objcmd.ExecuteScalar()
            Con.Close()
        Catch ex As Exception
            MsgResult = MsgBox("Unable to connect. " & ex.Message)
End Try

Any suggestions?
Is what I am trying to do the correct way of doing this?

Thanks,
Chilly442

 

[smbrown]

Did the catch display an error?
If so what was the error?

Thanks,
SMBrown

 

[chilly442]

I am getting an error.
ORA-00905: missing keyword.

I think that the syntax is off, but am not sure what it is supposed to look like.

Thanks,
Chilly442

 

[chilly442]

Anyone out there?

Still no luck. I know that the line:
Value = objcmd.ExecuteScalar()
is not correct. I am not looking for only one value. I need to pull and store three values.

Any help is worth a star, even if it is not the solution!

Thanks,
Chilly442

 

[Andrzejek]

Are you set on "Select ... INTO..." approach only?

Could you just do Select and populate a table and read the values this way?

Just an idea.....

Have fun.

---- Andy

 

[DaveInIowa]

How about using a DataReader?

        Using cn As New OdbcConnection(My.Settings.[red]YourConnectionString[/red]), cm As New OdbcCommand(String.Empty, cn)
            cn.Open()

            cm.CommandText = "SELECT EFOR, EAF, PEA FROM History WHERE Unit = '" & UnitText & "'"

            Dim rd As OdbcDataReader = cm.ExecuteReader(CommandBehavior.SingleRow)
            If (rd.Read) Then
                MyEFOR = rd.GetString(0)
                MyEAF = rd.GetString(1)
                MyPEA = rd.GetString(2)
            End If
            rd.Close()

        End Using

 

[chilly442]

That is what I was looking for.

Thanks again to both of you. I always end up with what I need one way or another.

Thanks,
Chilly442