Ako Výstupný viac hodnôt z Access otázku

Učiť sa, ako výkon viac hodnôt z dotazu môže váš počítač aplikácie dynamickejšie . Program môžete použiť k dotazu tabuľku databázy je Microsoft Office Access . Access je relačný databázový systém často používaný pre malé lokálne databázy . Visual Basic for Applications je počítačový programovací jazyk použiť na automatizáciu rutinných úloh v programe Access a ďalších aplikácií balíka Microsoft Office . Otázka sa používa na načítanie informácií z databázovej tabuľky . Pokyny dovolená 1

spustení programu Microsoft Office Access 2010 a zvoľte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " . Kliknite na " Vložiť " poľa a zvoľte " modul " .
2

Stlačte tlačidlo " Ctrl " a " A " a stlačte tlačidlo " Delete " odstrániť všetky existujúce kód .
3

skopírujte a vložte nižšie uvedený kód do vášho modulu . Podprogram vytvorí novú tabuľku , pridať záznamy do neho a potom dotaz viac polí . Dotaz vypíše viac hodnôt týchto polí a ich zobrazenie pomocou okna so správou .

Private Sub accessMultipleQueryValues ​​( )

Dim dbs ako databáza

Dim rst Ako Recordset

Dim strSQL As String

Dim X As Integer

Set dbs = CurrentDb

strSQL = " CREATE TABLE multipleValues ​​( pole1 TEXT , Field2 TEXT , field3 TEXT ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( pole1 , pole2 , field3 ) "

strSQL = strSQL & " VALUES ( ' field1Data riadok 1 ' , ' field2Data riadok 1 ' , ' field3Data riadok 1 ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( pole1 , pole2 , field3 ) "

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

DoCmd . NastavitVarování False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( pole1 , pole2 , field3 ) "

strSQL = strSQL & " VALUES ( ' field1Data riadkov 3 ' , ' field2Data riadok 3 ' , ' field3Data riadok 3 ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " Vyberte multipleValues . * z multipleValues ​​"

strSQL = strSQL & " where multipleValues.Field1 = ' field1Data riadok 2 " ; "

Set rst = dbs.OpenRecordset ( strSQL )

rst . MoveLast

rst.MoveFirst

X = 0 rst.RecordCount - 1

MsgBox " pole1 údaje : " . & rst.Fields ( 0 ) Value & " , pole2 údaje : " . _

& rst.Fields ( 1 ) Hodnota & " , field3 dát : . " a rst.Fields ( 2 ) Hodnota

rst.MoveNext

Ďalšie X

rst.Close

dbs.Close

End Sub
4

Stlačte " F5 " pre spustenie vášho podprogram .

• Predchádzajúca strana: Ako nainštalovať Ajax v aplikácii Microsoft Visual Studio 2005 
• Ďalšia strana: Ako používať záložky v jazyku Visual Basic