Vraag : SQL MS-Access van de Unie, die combodoos invullen…

Ik denk dit gemakkelijk zou moeten zijn - het schijnt ik het voordien heb gedaan, maar ik ben niet zeker wat ik verkeerd… doe  Ik heb de volgende SQL Verklaring:

" Uitgezochte CategoryID, CategoryName van Categorie waar CategoryID = 27 Unie Uitgezochte CategoryID, CategoryName van Categorie waar CategoryActive = 1 en CategoryID <> 27 "

I de resultaten met de resultaten van de eerste vraag wil eerst terugkeren, en de remaning categorieën na dat die (in asc possibling. orde)

When stel ik deze vraag op het Gegevensbestand van de Toegang in werking, keert het enkel alle categorieën terug.  Ik zorgde ervoor dat er categorie 27 bestaat, en het verschijnt in list.

I am proberend om deze vraag te gebruiken om een combodoos in vb.net in te vullen, zodat is krijgen van de geselecteerde categorie op bovenkant belangrijk.  De combodoos vult hieronder het gebruiken van de code in - het enige ding, ik ben niet zeker hoe te die het eerste punt te plaatsen als geselecteerde hulp item.

Any met dit is teruggekeerd worden gewaardeerd!  Dank!
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

Private SubFillCbo (ByVal theSQL als Koord)
        Schemerig Dr. als DataRow
        Schemerige dt als DataTable
        Schemerige cmd als Nieuwe OleDbCommand
        Schemerige ds als Nieuwe Dataset
        Schemerig DA als Nieuwe OleDb.OleDbDataAdapter

        pCat.Items.Clear ()
        sql = theSQL
        'sql = „Uitgezochte CategoryID, CategoryName van de Orde van de Categorie door CategoryName ASC“
        Probeer
            Met DA
                .TableMappings.Add („Lijst“, „Categorie“)
                cmd = Nieuwe System.Data.OleDb.OleDbCommand (sql, bedriegt)
                .SelectCommand = cmd
                . Vul (ds)
                . Schik ()
            Eind met

            ds.AcceptChanges ()
            dt = ds. Tables.Item (0)
            ds. Schik ()

            pCat.Text = ""
            pCat.Items.Clear ()
            pCat.BeginUpdate ()
            Voor Elk Dr. in dt. Rijen
                pCat.Items.Add (Dr. („CategoryName“) .ToString)
            Daarna
            pCat.EndUpdate ()
        Vangst ex als Uitzondering
            MsgBox („Er was een fout die tot Categorieën toegang hebben: “ & vbCrLf & ex. Bericht, MsgBoxStyle.OkOnly, „Fout! “)
        Het eind probeert

    Sub van het eind

Antwoord : SQL MS-Access van de Unie, die combodoos invullen…

probeer dit

Selecteer CategoryID, CategoryName, 1 zoals [Soort] van Categorie waar CategoryID = 27
Unie Uitgezochte CategoryID, CategoryName, 2 zoals [Soort] van Categorie waar CategoryActive = -1 en CategoryID <> 27
orde langs [soort], CategoryName
Andere oplossingen  
 
programming4us programming4us