| |
254Programowanie w Access! M Agenci: TabelajNazwa polaTyp danych | Opis |_*JIdAgentaTekst...
Pomodliłem się do każdego boga jaki istniał bym był w wstanie wkurzyć tę kobietę do granic możliwości. |
...
±
DataUrodzenia
Data/Godzina
—
W³aœciwoœci pola
Ogólne ] odnoœnik |
Format
rrrr-dd-mm
J
Maska wprowadzania
Tytu³
Data urodzenia
Wartoœæ domyœlna
Regu³a poprawnoœci
Komunikat o b³êdzie
Wymagane
Tak
'
Indeksowane
Nie
; 'â– ' :.."\'â– â– â– '-'â– ::.:â– :' â– :'â– :â– â– :â– ' ":
Rysunek 2.9. W³aœciwoœæ Format pola w tabeli mo¿na ustawiæ rêcznie w trybie Projektuj I tabeli albo programowo z kodu procedury VBA (zob. przyk³ad 2.5.D)
Przyk³ad 2.5.E. Pobieranie nazw w³aœciwoœci tabeli
Private Sub cmdTabelaPrp_Click() Dim prp As DAO.Property Dim tdf As DAO.TableDef Dim db As DAO.Database
Set db = CurrentDb
Set tdf = db.TableDefs("Agenci")
For Each prp In tdf.Properties On Error Resume Next
Debug.Print prp.Name & ": " & prp.Value Next MsgBox "Obejrzyj nazwy waœciwoœci w oknie
Instrukcje bezpoœrednie." End Sub
Manipulowanie bazami danych przy u¿yciu DAO
255
Przy³¹czanie tabel do bazy danych
Przy³¹czanie tabel pozwala na u¿ycie danych z innej bazy danych Access bez potrzeby kopiowania danych z drugiej bazy danych. Mo¿na równie¿ przy³¹czaæ tabele mieszcz¹ce siê w innych programach lub formatach plików, na przyk³ad Microsoft Excel, Microsoft FoxPro, dBase, albo Paradox. Aby przy³¹czyæ tabelê do bazy danych, skorzystaj z metody createTableDef, która tworzy now¹ tabelê:
Set
mojaTabela = db.CreateTableDef("TableDBASE")
Nastêpnie ustaw w³aœciwoœæ connect obiektu TableDef. Dla przyk³adu, nastêpuj¹ce polecenie podaje ci¹g po³¹czenia:
lOJaTabela. Connect = "dBase 5 . 0 ;Database=C : \ Program Files\" &_ "MicrosoftOffice\Office\1033 "
Nastêpnie ustaw w³aœciwoœæ sourceTableName obiektu TableDef, podaj¹c nazwê tabeli w Ÿród³owej bazie danych:
KJaTabela. SourceTableName = "Customer .dbf"
Wreszcie skorzystaj z metody Append, aby do³¹czyæ obiekt TableDef do zbioru
lableDefs:
jb.TableDefs. Append mojaTabela
Procedura w przyk³adzie 2.5.F demonstruje, w jaki sposób nale¿y przy³¹czyæ do lie¿¹cej bazy danych tabelê pochodz¹c¹ z bazy danych aplikacji dBase. Przed uru-doinieniem tej procedury odnajdŸ plik Customer.dbf na swoim komputerze zmodyfikuj œcie¿kê dostêpu do danych u¿yt¹ w tej procedurze w ci¹gu po³¹czenia.
•rzykiad 2.5.F. Przy³¹czanie tabeli do bazy danych
rivate Sub cmdLinkTblDbase_Click () Dim db As DAO.Database Dim mojaTabela As DAO.TableDef On Error GoTo err_LinkDbaseTable
256
Programowanie w Aa
Set db = CurrentDb
Set mojaTabela = db.CreateTableDef("TableDBASE")
mojaTabela.Connect = "dBase 5 . 0 ;Database=C : \Program Files\'
"Microsoft Office\Office\1033" mojaTabela.SourceTableName = "Customer.dbf" db.TableDefs.Append mojaTabela
db.TableDefs.Refresh MsgBox "Tabela bazy danych dBase zosta³a pomyœlnie przy³¹czij
Exit Sub err_LinkDbaseTable:
MsgBox Err.Number & ": " & Err.Description End Sub
Sporz¹dzanie wykazu tabel i pól
Nastêpuj¹ca procedura drukuje nazwê ka¿dej tabeli w bie¿¹cej bazie ( i podaje nazwy wszystkich pól w tych tabelach.
Przyk³ad 2.5.G. Sporz¹dzanie wykazu tabel i pól
Private Sub cmdWykazTabelOrazPól_Click() Dim db As DAO.Database Dim x As Integer Dim y As Integer
Set db = CurrentDb
For x = 0 To db.TableDefs.count - 1
Debug.Print "Tabela: " & db.TableDefs(x).Name For y = 0 To db.TableDefs(x).Fields.count - 1
Debug.Print Chr(9) & db.TableDefs(x) .Fields(y) .Name Next y Next x End Sub
Manipulowanie bazami danych przy u¿yciu DAO
Tworzenie indeksów oraz relacji miedzy tabelami przy u¿yciu DAO
spor2¹dŸ indeksy dla pó1 oraz
l>mDA0_Przyk3: Formularz
xl
Utwórz relacje miêdzy tabelami
INDEKSY
oraz RELACJE
j Sporz¹dŸ kluczi podstawowy ij ustawjegoI .w³aœciwoœci
B
Sporz¹dŸ indeks kombinowany
Sporz¹dŸ wykaz indeksów zdefiniowanych w tabeli
Rysunek 2.10. Programowanie relacji miêdzy tabelami oraz indeksów
Tworzenie klucza podstawowego oraz ustawianie jego w³aœciwoœci
Jak wiesz ka¿da tabela w twojej bazie danych powinna zawieraæ pole (lub kombinacjê poi), które jednoznacznie identyfikuje ka¿dy rekord w tabeli. Takie pole (lub kombinacja) okreœlane jest terminem Klucz podstawowy (Primary Key). Przyk³ad 2.10.A przedstaw, w jaki sposób programowo tworzy siê klucz podstawowy wTabeli oraz ustawia wybrane w³aœciwoœci klucza. Klucz podstawowy jest rodzajem indeksu indeksy okreœlaj¹ porz¹dek, w którym rekordy pobiera siê z bazy danych Ideterminuj¹ czy powtarzaj¹ce siê dane bêd¹ zaakceptowane. Chocia¿ indeksy przyczaj¹ dostêp do wyszukiwanych rekordów w du¿ych tabelach, zdefiniowanie zZ tej hczby indeksów mo¿e spowodowaæ zwolnienie szybkoœci, w jakiej przeprawi tae s¹ operacje aktualizacji danych. W DAO indeksy tworzy siê za pomoc¹ metody
T»
258
Programowanie w Access; Mai
createindex obiektu TabieDef. Nastêpuj¹ce polecanie utworzy indeks o nazwieB
maryKey:
|
|
