Minulla on kaksi toimintoa ja miten vertaan niitä. Eli auttakaa If lauseen kanssa. Eli:
Kun Form1:ssä valintana Luokka = Comboluokat.Text on käyttäjä valinnut 470 taphtuu seuraavaa ---->
objConn = New ADODB.Connection()
objRs = New ADODB.Recordset()
objConn.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq=trimmit.mdb")
Dim SqlStr = "SELECT * FROM 470 WHERE Tuuli='" & TuuliLuokka & "' AND Aallokko='" & AallokkoLuokka & "' AND Paino='" & PainoLuokka & "' AND Mittari='" & MittariLuokka & "' AND Masto='" & MastoLuokka & "'"
MsgBox(SqlStr)
objRs.Open(SqlStr, objConn, 1, 3)
If Not objRs.EOF Then
ListBox1.Items.Add("Rake:" & objRs("Rake").Value & "mm")
ListBox1.Items.Add("Bend:" & objRs("Bend").Value & "mm")
ListBox1.Items.Add("Keulavaijerin jännitys:" & objRs("Keula").Value)
ListBox1.Items.Add("Spriidarinkulma:" & objRs("Spriidarinkulma").Value & "mm")
ListBox1.Items.Add("Spriidarinpituus:" & objRs("Spriidarinpituus").Value & "mm")
End If
objRs.Close()
objConn.Close()
Kun Form1:ssä valintana Luokka = Comboluokat.Text on käyttäjä valinnut 49er taphtuu seuraavaa ---->
objConn = New ADODB.Connection()
objRs = New ADODB.Recordset()
objConn.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq=trimmit.mdb")
Dim SqlStr = "SELECT * FROM 49er WHERE Tuuli='" & TuuliLuokka & "' AND Aallokko='" & AallokkoLuokka & "' AND Paino='" & PainoLuokka & "'"
MsgBox(SqlStr)
objRs.Open(SqlStr, objConn, 1, 3)
If Not objRs.EOF Then
ListBox1.Items.Add("Bend:" & objRs("Bend").Value)
ListBox1.Items.Add("Toppi vantin jännitys:" & objRs("Top").Value)
ListBox1.Items.Add("Päävantin jännitys:" & objRs("Paa").Value)
ListBox1.Items.Add("Keulavantin jännitys:" & objRs("Keula").Value)
End If
objRs.Close()
objConn.Close()
End Sub
Apua
.NET
0
167
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 813464
Hakkarainen: persut Venäjän ja Pohjois-Korean tiellä
Hakkarainen entisenä persujen kärkipoliitikkona tietää, mitä puhuu. https://www.is.fi/politiikka/art-2000010422614.html2002012Ilouutinen! Anniina Valtonen heitti jymy-yllätyksen - Tämä ei jätä kylmäksi!
Ohhoh, tämäpä ylläri! Anniina Valtonen sai puolisonsa kanssa lapsen viime vuoden lopulla. Lue lisää: https://www.suomi2261948Fuengirola.fi: Kohuissa rypenyt Jari Sillanpää, 58, harvinaisessa haastattelussa: "Minä haluan..."
Ex-tangokuningas on kertonut kuulumisiaan Espanjan Aurinkorannikolta. Että ei muuta kuin elämässä etiäpäin, Jari Sillanp271578Ootko muuten vieläkään hiffannut
Että en kuulu sinun maailmaasi? On meissä samaa, ja samaa aaltopituutta oli, mutta tunsin oloni usein hyvin vaivautuneek1661415Miten nyt sanoisin
tämän sinulle. Oletko mielessäni päivittäin, kysyin itseltäni ja vastaus oli, kyllä olet. Yllätyin, päädyin oudoille tei881415- 521119
- 971058
- 55864
- 59850