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
183
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ensitreffit Jenni laukoo viinilasin ääressä suorat sanat Jyrkin aikeista: "Mä sanoin, että älä"
Voi ei… Mitä luulet: kestääkö Jennin ja Jyrkin avioliitto vai päättyykö eroon? Lue lisää: https://www.suomi24.fi/viihde272870Ymmärrän paremmin kuin koskaan
Roikut kädessäni ja vedät puoleesi. Näen kuitenkin tämän kaiken lävitse ja kaikkien takia minun on tehtävä tämä. Päästän332525- 1482274
Hullu liikenteessä?
Mikä hullu pyörii kylillä jos jahti päällä? Näitä tosin kyllä riittää tällä kylällä.542239Niina Lahtinen uudessa elämäntilanteessa - Kotiolot ovat muuttuneet merkittävästi: "Nyt on...!"
Niina, tanssejasi on riemukasta seurata, iso kiitos! Lue Niinan haastattelu: https://www.suomi24.fi/viihde/niina-lahti241860Kun Venäjä on tasannut tilit Ukrainan kanssa, onko Suomi seuraava?
Mitä mieltä olette, onko Suomi seuraava, jonka kanssa Venäjä tasaa tilit? Ja voisiko sitä mitenkään estää? Esimerkiks3901696Ano Turtiainen saa syytteet kansankiihoituksesta
Syytteitä on kolme ja niissä on kyse kirjoituksista, jotka hän on kansanedustaja-aikanaan julkaissut Twitter-tilillään1041642- 3091548
- 1351459
Varokaa! Lunta voi sataa kohta!
Vakava säävaroitus Lumisadevaroitus Satakunta, Uusimaa, Etelä-Karjala, Keski-Suomi, Etelä-Savo, Etelä-Pohjanmaa, Pohjanm131446