Apua

.NET kirjoitti:

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

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä