Keskustelu: Ohjelmointikysymykset: VB6: tietokantakommunikointia (VB) - FIND

Eli kyseessä olisi tällainen pätkä koodia:

Private Sub txtEquip_KeyPress(Index As Integer, KeyAscii As Integer)


If Index <> 1 Then Exit Sub

If KeyAscii = 13 Then
    subEtsiTietoa txtEquip(Index)

End If

End Sub

ja

Private Sub subEtsiTietoa(strHaku As String)

'//suljetaan recordset
Tietokanta.Close

Tietokanta.Open "Select * from laite_tiedot where tyyppi like '%" & strHaku & "%';", myYhteys, adOpenKeyset, adLockOptimistic

If Tietokanta.RecordCount > 0 Then '//Ei suoriteta jos ei tietoa
    fillfields

End If

End Sub

Laite_tiedot on taulu (table) ja "tyyppi" on yksi kenttä taulussa. Taulussa on yhteensä yhdeksän kenttää (0-9) ja "tyyppi" niistä numerossa 1 (huomaa, että vb-ohjelmassa on myös 9 txtboxia nimeltään txtEquip.

Tuo hakutoiminto(na) pelittää vain tuossa Tyyppi-kohdassa, mutta jos haluan etsiä toisesta txtEquip kentästä vaikkapa kohtaa Merkki tai vaikkapa Sarjanumero niin miten pitää menetellä?

Auttakee!

Tack. Glottis

Lisää uusi parametri subEtsiTietoa ohjelmalle.
esim: subEtsiTietoa(strHaku As String, strTaulu as string)

ja sitten muotoilet sql-lauseen tämän uuden parametrin avulla. Uusi muuttuja luonnollisesti korvaisi sql-lauseen 'tyyppi' -sanan.

Voi olla, että joudut sitten tarkastelemaan missä txtEquip -kentässä ollaan ja sen mukaan sijoitat arvon subEtsiTietoa subiin, siis kun kutsut sitä.