VB6: Søgning m. flere kriterier

Går du fra at du mener at der skal søges i en database?

Så er det bare at smide en forespørgsel (SQL) efter databasen, hvor SQL-udtrykket afhænger af de indstillinger du har valgt i dine checkboxe osv. Resultatet fra forespørgslen gemmes i et recordsæt, der kan skrives til en listbox.

Er ikke helt klar over præcis hvad du skal bruge hjælp til, men du kan da læse følgende gode tutorial om SQL http://www.w3schools.com/sql/default.asp

mostcrazy> You need to build your SQL Dynamically. This means that you look at each field to see if it contains data and if so append this to the WHERE part of the SQL. How are you getting the data from the dB and what dB are you using?

terry -->> well I am using a MS Access dB and I am using the standard component in VB6 to connect to the dB.

But I have some plans. It would be nice to use a MySql database, but that's future plans. Nothing to discuss at this moment.

Do you know what SQL is? if you do then do you know how to connect to the dB with an SQL statement?
You will need to build your SQL if you want to have a flexible search routine.

Well I have read a lot about SQL, but I doesn't know enough about to make advanced things. :o(

Here is an example of how to build an SQL statement dynamicaly from the fields on your search form.


Function fldIsEmpty(fld As Variant)

    fldIsEmpty = True
    If Len(Trim(fld)) > 0 Then fldIsEmpty = False
   
End Function

Function NewFilter()
Dim sFilter As String
Dim sSQL as string

    sSQL = "SELECT * FROM YourTable "
    sFilter = "WHERE 1 "
   
    If Not fldIsEmpty(Me.cboBy) Then
        sFilter = sFilter & " AND TownID = " & Me.cboBy
    End If
   
    If Not fldIsEmpty(Me.cboGade) Then
        sFilter = sFilter & " AND StreetID = " & Me.cboGade
    End If

    'This field is a text field in the dB
    If Not fldIsEmpty(Me.cboType) Then
        sFilter = sFilter & " AND TypeID = '" & Me.cboType & "'"
    End If

    If Not fldIsEmpty(Me.txtYear) Then
        sFilter = sFilter & " AND årstal = " & Me.txtYear
       
    End If

    sSQL = sSQL & sFilter


End Function

as you can see the function looks at the fields I use for my search criteria and if they are filled out I append it to the WHERE part of the SQL

thank you... I will study it further tomorrow.

mostcrazy: ta og læs den tutorial jeg linkede til - det tar 5 minutter, og er bestemt tiden værd :o)

martin_moth: jeg har siddet og kigget hele vejledningen igennem, og har fået opfrisket det jeg vidste om SQL + lidt mere på en god måde... nu begynder terry's kode at give lidt mere mening for mig :)

desværre har jeg også svært ved at se sammenhængen mellem SQL og VB, hvilket er lidt af et problem, når man skal lave sådan noget :)

SQL har egentligt ikke noget specifikt med VB at gøre.

Men du kan i VB skrive en connectionstring - en string, der forbinder en database (behøver ikke være Access) med et objekt du har erklæret.

Når du så har oprettet dit objekt og det "hænger sammen" med en fysisk database, kan du smide SQL-udtryk efter det, og dermed få læst udvalgt indhold fra din database ind i en variabel - typisk en variabel af typen recordset. Det er DER SQL bliver anvendeligt...

Der er vel 500 spørgsmål om emnet på eksperten, det seneste er under en time gammelt: http://www.eksperten.dk/spm/377350 - se første meget korte og præcise svar fra medion.

Bemærk, at SQL-udtryk også kan bruges i andre programmeringssprog og til andre databaser - det har på den måde ikke noget direkte med VB at gøre :o)

jeg takker for svarene, jeg har desværre lige fået lidt andet jeg skal lave inden jeg kommer videre med det her, derfor vil jeg gerne lukke spørgsmålet

Så accepter og luk - held og lykke :o)

jeg vil gerne give dig nogle point også martin_moth :o)

takker...

Jamen så tak for det da :o)

martin_moth: gider du oprette et svar ?

Oh - sorry :o)

Og tak for points (hvor mange jeg så end får ;o)