Pe scurt despre structura bazei de date. Baza de date constă din tabele. Tabelul este din rânduri. Șirul este din câmpuri. Câmpurile pot stoca date de diferite formate. Formatele sunt definite când se creează tabelul. Puteți crea o bază de date și tabele în Access în Access sau puteți utiliza instrumentele de macro direct din Excel.
Acum facem acest lucru:
"Declarați variabilele
Dim dbs Ca baza de date DAO.Database
Dim rs Ca DAO.Recordset 'Interogarea bazei de date
Deschideți baza de date
Setați dbs = DAO.OpenDatabase ("c: \ database.mdb")
"Interogăm baza de date
Setați rs = dbs.OpenRecordset ("SELECT * FROM tbl_tms WHERE ID_tags> 2")
Aici voi explica în detaliu. Solicitările către baza de date sunt executate în limba SQL. Până acum vom lua în considerare doar o comandă a acestei limbi - SELECT. Această comandă selectează rânduri din tabel care satisfac condițiile specificate. În cazul în care avem un asterisc, puteți specifica numele câmpurilor care vor fi prezente în răspuns. În cazul nostru, întreaga linie se va întoarce complet. După cuvântul FROM, este afișat numele tabelului din care sunt selectate rândurile. Pot exista mai multe mese în baza de date. În cazul nostru, este un tabel de mărfuri. După cuvântul WHERE, este specificată starea cu care sunt selectate liniile. La noi o condiție cum ar fi: dacă câmpul ID_tov> 2 linia este inclusă în răspuns. Răspunsul este obținut în variabila rs, care are tipul Recordset. Un set de înregistrări este o tabelă temporară formată din rânduri care satisfac condiția de interogare.
"Dacă nu se găsește nimic, trimiteți un mesaj și ieșiți
Dacă rs.RecordCount = 0 Apoi
MsgBox ("Nimic găsit la cererea dvs.")
Ieșire Sub
Sfârșit Dacă
Se execută buclă în timp ce nu este executată rs.EOF până când se ajunge la ultima linie din tabela de răspuns
'Atribuirea valorilor celulelor tabelului din baza de date
Celulele (i, 2) .value = rs.Fields ("names")
Celulele (i, 1) .value = rs.Fields ("ID_ts")
i = i + 1
"mergeți la linia următoare din tabelul de răspuns
rs.MoveNext
buclă
"Închideți masa temporară
rs.Close
"Îndepărtăm memoria. Dacă nu faceți acest lucru, masa va rămâne în memorie până când se va închide registrul de lucru.
Setați rs = Nimic
Închideți baza
dbs.Close
Curățați memoria
Setați dbs = Nimic
Articole similare
Trimiteți-le prietenilor: