• 
  

  hur man skriva ut flera värden från en Access-frågan

  
  

Att lära sig att skriva ut flera värden från en fråga kan göra din dator ansökan mer dynamisk . Ett program du kan använda för att fråga en databastabell är Microsoft Office Access . Access är en relationsdatabas management system används ofta för små lokala databaser . Visual Basic for Applications är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access och andra Microsoft Office-program . En fråga används för att hämta information från en databas tabell
1 .
Starta Microsoft Office Access 2010 och välj " tom databas "och sedan klicka på "Skapa ". Klicka på " Databas Verktyg "och välj " Visual Basic . " Klicka på " Infoga " och välj " Module ".
2 .
Tryck på " Ctrl " och " A " och tryck på " Delete " för att radera alla befintliga koden .

3 .
Kopiera och klistra in koden nedanför på din modul . Subrutinen kommer att skapa en ny tabell , lägga till poster i den och sedan fråga flera fält . Frågan kommer att skriva ut flera värden för dessa områden och visa dem via en meddelanderuta.



Private Sub accessMultipleQueryValues ( )



Dim DBS som databas

Dim RST Som Recordset

Dim strSQL As String

Dim x As Integer



Set DBS=CurrentDb

strSQL=" CREATE TABLE multipleValues ( Fält1 TEXT , Fält2 TEXT , Field3 TEXT ), "

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO multipleValues ( fält1, fält2 , Field3 ) "

strSQL=strSQL " VALUES ( ' field1Data rad 1 " , " field2Data rad 1 " , " field3Data rad 1 " ), "

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO multipleValues ( fält1, fält2 , Field3 ) "

strSQL=strSQL " VALUES ( ' field1Data rad 2 " , " field2Data rad 2 " , " field3Data rad 2 ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO multipleValues ( fält1, fält2 , Field3 ) "

strSQL=strSQL , " VALUES ( ' field1Data rad 3 " , " field2Data rad 3 " , " field3Data rad 3 ');"

DoCmd. SetWarnings Falska

DoCmd . RunSQL ( strSQL )



strSQL=" Select multipleValues . * från multipleValues "

strSQL=strSQL " WHERE multipleValues. Field1=' field1Data rad 2 " , "



Set rst=dbs. OpenRecordset ( strSQL )

rst. MoveLast

rst. MoveFirst

för x=0 Till rst. RecordCount-1



MsgBox " Fält1 Data : " rst. Fields ( 0 . ) Värdet " , Fält2 Uppgifter: " _

rst. Fields (1) Värdet . " Field3 Data : " rst. Fields (2) . Värde



rst. MoveNext

Nästa X



rst. Close

dbs. Close



End Sub
4 .
Tryck på " F5 " för att köra din subrutin .

Previous：nothing Next：hur man använder flikar i Visual Basic

Relaterade artiklar