Problem pri vybere z databazy – Visual Basic – Fórum – Programujte.com

Zdravim, mam problem pri vybere ceny z tabulky okien. Nazvy stlpcov tvoria vysky a "nazvy" riadkov zase sirky.
Problem je v tom, ze ja neviem ako sa bude volat nazov stlpca, z ktoreho to chcem vytiahnut a vypocitam si ho v priebehu programu (vyska2). Lenze ked zadam rdoRS!vyska2, tak mi zacne hladat stlpec s nazvom vyska2, ktory neexistuje. Proste by som tam potreboval dat hodnotu premennej vyska2, ale netusim vobec ako... Prosim poradte.

Private Sub cmdVypocet_Click()

Dim cnMySql As New rdoConnection

Dim rdoQry As New rdoQuery

Dim rdoRS As rdoResultset



cnMySql.CursorDriver = rdUseOdbc

' cnMySql.Connect = "uid=smokie;pwd=d72d79d72d79;server=192.168.1.2;" &

 cnMySql.Connect = "uid=root;pwd=;server=localhost;" & _

    "driver={MySQL ODBC 3.51 Driver};database=kalkul_okna;dsn='';"

cnMySql.EstablishConnection



sirka = CInt(txtVyska.Text)

vyska = CInt(txtSirka.Text)



rad = Len(vyska)



startSirka = 500

startVyska = 500

koniecSirka = 2300

koniecVyska = 1800



If rad = 4 Then

    vyska3 = CInt(vyska / 100)

    zvysok = (vyska / 100) - vyska3

    If zvysok = 0 Then vyska2 = ((vyska3) * 100) - 99

    ElseIf zvysok <> 0 Then vyska2 = ((vyska3) * 100) + 1

    If ((vyska2 - 1) = startVyska) Then vyska2 = vyska2 - 1

ElseIf rad <> 4 Then

    vyska3 = CInt(vyska / 100)

    zvysok = (vyska / 100) - vyska3

    If zvysok = 0 Then vyska2 = ((vyska3) * 100) - 99

    ElseIf zvysok <> 0 Then vyska2 = ((vyska3) * 100) + 1

    If ((vyska2 - 1) = startVyska) Then vyska2 = vyska2 - 1

End If



With rdoQry

    .Name = "selectUsers"

    .SQL = "SELECT * FROM tabulka_1kr_fix WHERE MinSirka <=" & sirka & " ORDER BY ID DESC LIMIT 0,1;"

    .RowsetSize = 1

    Set .ActiveConnection = cnMySql

    Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)

End With

    

Do Until rdoRS.EOF

    With rdoRS



        If ((sirka > startSirka) And (sirka < koniecSirka)) And ((vyska > startVyska) And (vyska < koniecVyska)) Then

            Label1.Caption = rdoRS!vyska2

        End If

            

        rdoRS.MoveNext

    End With

Loop



rdoRS.Close

cnMySql.Close



End Sub

Riesenie:

Dim Stlpec As String

...

Stlpec = vyska2

Label1.Caption = rdoRS.rdoColumns(Stlpec).Value