• 
  

  hur man kan få en listruta i en fråga

  
  

Att veta hur man kan få en listruta och använda sina värderingar i en fråga kan du spara tid vid utveckling av applikationer . Du kan skapa ett grafiskt användargränssnitt eller GUI , i Microsoft Office Access , lägga till en kontroll listruta och använda det i en fråga. Access är en relationsdatabas management system som vanligen används för mindre databaser . En fråga används för att hämta data från databastabeller . En listruta kontroll ger dig flexibilitet att välja kriterier för ytterligare data mining
1 .
Starta Microsoft Office Access 2007 och välj " tom databas " klicka på " Skapa ".

Välj " Skapa "-fliken och välj " Form Design "för att skapa en ny form . Klicka på " Lista Box " på " Controls " rutan , klickar sedan ditt formulär och dra för att skapa en ny kontroll listruta . Klicka på " knappen " på " Controls " rutan och lägga till en ny knapp i formuläret .
2 .
Högerklicka på " Command0 " och välj "Egenskaper ". Klicka på " Event "fliken och välj " [Händelseprocedur] " bredvid " On Click. " Klicka på tre punkter ( . . . ) top öppna " Microsoft Visual Basic "-fönstret.
3 .
Kopiera och klistra in följande kod under " Private Sub Command0_Click (). "



Dim strSQL As String

strSQL=" CREATE TABLE listBoxTable ( Indx , beskrivning TEXT ) , "

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO listBoxTable ( Indx , beskrivning) "

strSQL=strSQL " VALUES (1 , "dator " ) ; "

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO listBoxTable ( Indx , beskrivning) "

strSQL=strSQL " VALUES (2 , " skrivbord ');"

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO listBoxTable ( Indx , beskrivning) "

strSQL=strSQL " VALUES (3 , ' stol ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" Select listBoxTable. Indx från listBoxTable . "

Me. List0. RowSource=strSQL
4
Växla tillbaka till Microsoft Access -fönstret och högerklicka " List0 " och välj sedan "Egenskaper ". Klicka på " Event "fliken och välj " [Händelseprocedur] " bredvid " efter uppdatering . " Klicka på ellips (. . . ) för att öppna " Microsoft Visual Basic "-fönstret.
5 .
Kopiera och klistra in följande kod under " Private Sub List0_Click (). "



Dim DBS som databas

Dim rst Som Recordset

Dim comboString As Integer

Dim SQLstr As String

Dim I As Integer



Set DBS=CurrentDb



För jag=0 till mig! List0. ListCount

Om Mig ! List0. Selected (I ) Sen

SQLstr=" SELECT listBoxTable. Description FRÅN listBoxTable "

SQLstr=SQLstr " WHERE listBoxTable . Indx=" ( Me! List0. ItemData (I) ) " ; "

Set rst=dbs. OpenRecordset ( SQLstr )

rst. MoveLast

rst. MoveFirst

MsgBox " Beskrivning för detta index är: " . rst. Fields (0 ) Värde

rst. Close



End If

Nästa jag

dbs. Close
6 .
Stäng " Microsoft Visual Basic " Fönster och högerklicka " Form1 "och välj sedan " Formulär . "Click " Command0 " för att fylla listboxen med data .

Välj ett värde från listrutan , och du kommer att se en beskrivning för det valda indexet .

Previous：nothing Next：hur du infogar metadata i flash video

Relaterade artiklar