Excel és adatbázis - kiválóság csapat
Röviden a szerkezetet az adatbázisban. Az alap táblákból áll. Táblázat - A sorok. Line - a földekről. A mezők tárolhatja az adatokat különböző formátumokban. Formátumok határozza idején táblalétrehozáshoz. Hozzon létre egy adatbázist, és táblázatból lehet Access, és ez lehetséges, és segítségével a makró közvetlenül az Excel.
Most ezt:
„Állapítsa változók
Dim DBS DAO.Database „Database
Dim rs Ahogy DAO.Recordset „lekérdezése az adatbázisból
„Nyissa meg az adatbázist
Állítsa DBS = DAO.OpenDatabase ( "c: \ database.mdb")
Lekérdezések az adatbázis
Set rs = dbs.OpenRecordset ( "SELECT * FROM WHERE tbl_tov ID_tov> 2")
Aztán megmagyarázzák. Lekérdezések az adatbázis segítségével végezzük SQL. Amíg úgy véljük csak egy parancsot a nyelv - SELECT. Ez a parancs kiválasztja a táblázat sor kielégíti egy előre meghatározott feltételt. Ahol van egy csillag, megadhatja a mezőneveknek jelen lesz a válasz. Ebben az esetben az egész szöveget vissza teljes egészében. Miután a szót a tábla nevét, ahonnan van egy választás sor. Táblák az adatbázisban lehet sok. A mi esetünkben ez tbl_tov - táblázat termékeket. Miután a WHERE meghatározza azokat a feltételeket, amelyek sorok vannak kiválasztva. Van egy ilyen feltétel: ha a mező ID_tov> 2, a vonal benne van a válasz. A válasz a változó rs, ami típusú Recordset. Recordset - ideiglenes tábla kialakított sorok, amelyek megfelelnek a lekérdezés.
„Ha semmi sem talált - megjelenít egy üzenetet és kilép
Ha rs.RecordCount = 0, akkor
MsgBox ( „Az Ön keresése nem egyeznek”)
Exit Sub
End If
Csinálni, miközben nem rs.EOF „hurok lefusson, amíg az utolsó sor nem születik válasz táblázat
„Rendelt sejt táblázatban szereplő értékek az adatbázisból
A sejteket (i, 2) .value = rs.Fields ( "nazv_tov")
A sejteket (i, 1) .value = rs.Fields ( "ID_tov")
i = i + 1
„Lépés a következő sorban az idő válasz táblázat
rs.MoveNext
hurok
„Zárja be az ideiglenes tábla
rs.Close
„Törölje a memóriát. Ha ez nem történik meg, akkor a táblázat a memóriában marad a záró a munkafüzetet.
Set rs = Semmi
„Zárja be az adatbázisba
dbs.Close
„Törölje a memóriát
Set DBS = Semmi