Linki Redakcja Kontakt Współpraca Prezent

  Podobnie można używać baz danych napisanych w Access'ie, jeśli napiszemy bazę danych w tym programie można ją bez większych kłopotów modyfikować i konfigurować w Visual Basic'u.

Do tego celu służy kontrolka Data, a do wyświetlania przydają się pola tekstowe, czyli kontrolka TextBox i oczywiście parę przycisków Command Button.

Kontrolce Data przypisujemy określoną bazę danych, a kontrolkom TextBox przypisujemy tą właśnie kontrolkę we właściwości DataSource, a we właściwości DataFiled określone źródło, dziedzinę/dział bazy danych, którą to właśnie ma wyświetlać.

Jeśli chcemy przeprowadzać jakieś operacje na rekordach bazy danych podam parę opcji, jakie można wykonywać:

Find(szukanie)

prompt$ = "Enter the full (complete) book title."
'get the string to be used in the Title field search
SearchStr$ = InputBox(prompt$, "Book Search")
datBiblio.Recordset.Index = "Title" 'use Title table
datBiblio.Recordset.Seek "=", SearchStr$ 'and search
If datBiblio.Recordset.NoMatch Then 'if no match
MsgBox ("Sorry, I couldn't find your book.")
datBiblio.Recordset.MoveFirst 'go to first record
End If


Delete(usuwanie)

prompt$ = "Do you really want to delete this record?"
reply = MsgBox(prompt$, vbOKCancel, "Delete Record")
If reply = vbOK Then 'if the user clicks OK
datBiblio.Recordset.Delete 'delete current record
datBiblio.Recordset.MoveFirst 'move to first record
End If


Add(dodwanie rekordów)

prompt$ = "Enter the new record, and then click the left arrow button."
reply = MsgBox(prompt$, vbOKCancel, "Add Record")
If reply = vbOK Then 'if the user clicks OK
txtTitle.SetFocus 'move cursor to Title box
datBiblio.Recordset.AddNew 'and get new record
'set PubID field to 14 (this field is required
datBiblio.Recordset.PubID = 14 'by biblio.mdb)
End If


I to są już wszystkie operacje na bazach danych.

Tutaj jest przyklad napisany przez Renaissance Computing.

Napisanie samego programu jest proste, ale bazy danych o wiele trudniejsze. Dlatego w przykładzie znajduje się również przykładowa baza danych.

Pozdrawiam!  











Nasz Sponsor Medialny

VBGo.prv.pl

VBGoplus magazyn

Filip Cynarski FCComputers & VBGo©Service 2002 All Rights Reserved