Kövessünk embereket fénnyel és hanggal!
-
#18
Hát ehhez biz' programozni kell:
1. Létrehozod az ürlapon a Parancsgombot (Tervező nézetben)
1,5. Parancsgomb varázsló - Mégse
2. Jobb klikk a gombon Eseményszerkesztés/Kódszerkesztő
3. A Gombra kattintás eljárása (Private Sub Parancsgomb1_Click()) elé beírod a következőt:
Dim dbMyDB As Database.
Ez fogja definiálni az adatbázist.
4. Magába az eljárásba (a Private Sub Parancsgomb1_Click() és a End Sub) közé:
Set dbMyDB = OpenDatabase("db2.mdb")
ahol a "db2.mdb" a megnyitandó adatbázis neve.
5. Utána meg tudod nyitni az adatbázisban lévő táblázatot.
Az eljárás elé írd be a következő sort:
Dim rsMyRS As Recordset
Ez definiálja a táblázatot.
Az eljárásban a Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset) tudod a táblázatot megnyitni, ahol a "MyTable" a táblázat neve.
6 Utána a rsMyRS-ra hivatkozva tudod a táblázat rekordjait kiolvasni.