Ako extrahovať čísla v dotaze na prístup

Microsoft Office Access je relačný databázový systém sa bežne používa u menších a lokálnych databáz . Access je súčasťou balíka Microsoft Office , a poskytuje všetky potrebné nástroje pre správu relačnej databázy . Otázka sa používa na načítanie informácií z databázových tabuliek . Extrakcia čísel z dotazu programu Access je dosiahnuté rovnakým spôsobom , ako by ste extrahovať ďalšie dátové typy . Jeden spôsob , ako extrahovať dáta je pomocou jazyka Visual Basic for Applications . V niekoľkých krokoch môžete napísať kód jazyka VBA , extrahovať čísla z dotazu a zobrazí ich v okne výstupu . Veci , ktoré budete potrebovať v Microsoft Office Access
Northwind databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte databázu Northwind aplikácie Microsoft Office Access . Databáza Northwind je súčasťou balíka Microsoft Office .
2

Kliknite na " Databázové nástroje " , potom vyberte " Visual Basic " , otvorte okno Basic Visual Microsoft . Kliknite na menu " Vložiť " a vyberte " modul " .
3

Skopírujte a vložte nasledujúci kód do vášho nového modulu dotaz na " Produkty " tabuľku a extrahovať čísla v " zmeniť ich poradie pole Level " väčší ako 15 :

Private Sub extractNumbers ( )

Dim strSQL As String

Dim rst ako Recordset

Dim dbs ako databáza

Nastaviť DBS = CurrentDb

strSQL = " SELECT produkty . [ Názov produktu ] , produkty . [ Zmena poradia Level ] "

strSQL = strSQL & " FROM produkty "

strSQL = strSQL & " WHERE ( ( ( Products. [ Zmena poradia Level ] ) > 15 ) ) ; "

Set rst = dbs.OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Debug.Print " Zmena poradia Level > 15 : "

robiť , keď nie je rst.EOF

Debug.Print " Názov produktu : " . & rst.Fields ( 0 ) Hodnota

Debug.Print " "

Debug.Print " Počet objednávacie úroveň " . & rst.Fields ( 1 ) Hodnota

rst.MoveNext

Loop

End Sub

• Predchádzajúca strana: Ako sa učiť FoxPro prihlásený 
• Ďalšia strana: Ako používať VBA zmeniť umiestnenie databázy v programe Access 2007