Was ich denke, ist die unwiderstehlichste Sache �ber sichtlichgrundlegendes ist es ist einfache Weise des �nderns und des Zug�nglich machens der Datenbanken. Dieses ist, was ich denke, da� du zun�chst erlernen solltest und du viele Anwendungen f�r dieses Wissen findest. Ohne eine Datenbank f�r Datenspeicher zu verwenden, bilde ich fast nie das Programm.

Es gibt viele Weisen, mit den Datenbanken in sichtlichgrundlegendem zu arbeiten, und ich w�rde denken, da� du mindestens auf die Speicherverwaltung fl�chtig geblickt hast und da zu verwenden so ist einfach und auch begrenzt, um f�r einen professionellen Entwickler interessant zu sein, er nicht sogar die Speicherverwaltung weiter in diesem Text erw�hnt. (Okay, gibt es etwas Ausnahmen zu diesem.)

Was ich dir beibringe, da� in diesem Text zu verwenden DAO (Daten zug�nglich machen Gegenst�nde) ist und du erh�ltst mit dem �ffnen einer Datenbank vertraut und das Hinzuf�gen/Zur�ckholen/das L�schen/aktualisierend notiert von den Tabellen. Ich benutze nur eine Zugang Datenbank (*.mdb) in meinen Beispielen und da dieses der verwendetste DBMS (Datenbank-Management-System) f�r die kleineren Antr�ge ist, die in sichtlichgrundlegendem gestellt werden. Wir Wille am Ende dieser Lektion haben ein einfaches und doch ein funktionell, Telefonbuchanwendung gebildet.

Datenbank-Gegenstand

Die erste Sache, die du in deiner Anwendung tun mu�t, ist, eine Datenbank zu �ffnen, in der deine Tabellen gespeichert werden und du eine Variable erkl�ren mu�t, um deine Datenbank zu halten, um dies zu tun. Dieses wird mit folgender Aussage getan:

Dim dbMyDB As Database

Dieses gibt dir einen Gegenstand/eine Variable, die einen Hinweis auf deiner Datenbank halten k�nnen. Eine einfache Zugang Datenbank �ffnen genannt �MyDatabase.mdb� und dies tun:

Set dbMyDB = OpenDatabase("MyDatabase.mdb")

Du solltest den kompletten Weg zum DB wirklich spezifizieren und wenn dein aktuelles Verzeichnis das Verzeichnis ist, in dem die Datenbank aufgestellt wird, arbeitet diese.

So jetzt hast du eine Datenbank ge�ffnet und diese gibt dir keine Daten. Was du tun mu�t, ist, eine Tabelle in der Datenbank selbst zu �ffnen. Du wirst nicht begrenzt, um eine einzelne Tabelle zu �ffnen und manchmal hast du zwei oder mehr Tabellen, die miteinander und die verbundenen zusammen W ith fremden Schl�ssel bezogen werden, und es gibt Weisen anzufassen

RecordSet Gegenstand

Um deine Tabelle zu halten, benannte grundlegender sichtlichgebrauch ein Gegenstand RecordSet. Um solch einen Gegenstand zu erkl�ren und die Tabelle zu �ffnen, die folgende Aussage schreiben:

Dim rsMyRS As RecordSet

Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)

Was geschah dort? Gut erkl�rte ich einen RecordSet Gegenstand und verwendete die des Datenbankmethode OpenRecordSet Gegenstandes, um eine Tabelle der Art Dynaset zu �ffnen und du kannst ein RecordSet in einigen Modi �ffnen. Erkl�rt on-line-Akte Hilfe f�r VBS die unterschiedlichen Modi und was sie ar e. Der Dynaset Modus ist der Modus, den ich meistens verwende und er gibt dir ein RecordSet, dem du Aufzeichnungen inch addieren, l�schen und �ndern kannst.

Accessing records

Zug�nglich machende Aufzeichnungen

Nun da wir eine Tabelle ge�ffnet haben (ab sofort gekennzeichnet als RecordSet), das wir die Aufzeichnungen in ihm zug�nglich machen m�chten und der RecordSet Gegenstand erlaubt uns, in ihn umzuziehen, indem er die Methoden MoveFirst, MoveNext, MovePrevious, MoveLast verwendet (unter anderen). Ich verwende einige von diesen, um einen Liste Kasten mit Aufzeichnungen von unserem RecordSet oben zu f�llen.

Dieses Beispiel erhalten lassen, um zu arbeiten, eine Datenbank (mit Zugang) benanntes �MyDatabase.mdb� mit der Tabelle �MyTable� in ihr und diese Tabelle sollte haben auff�ngt �Identifikation� der Art �Gegen� dieses du eingestellt, um der Prim�rschl�ssel, auffangene �Name� der Art Text und auffangene �P Schleifstein� zu sein der Art Text. Einige Aufzeichnungen ihr hinzuf�gen und einen Liste Kasten auf eine Form setzen und ihn nennen �lstRecords�.

Dim dbMyDB As Database
Dim rsMyRS As RecordSet

Private Sub Form_Load()

Set dbMyDB = OpenDatabase("MyDatabase.mdb")
Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)

If Not rsMyRS.EOF Then rsMyRS.MoveFirst
Do While Not rsMyRS.EOF
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS.MoveNext
Loop

End Sub

Suchen des RecordSet

Du konntest dich gewundert haben, warum ich den Wert auffangene �Identifikation� in die Eigenschaft ItemData des Liste Kastens einsetzte und ich dies tat, damit wir den Prim�rschl�ssel f�r alle Aufzeichnungen kennen w�rden, um nach einer Aufzeichnung zu suchen.

Einen Textkasten auf die Form irgendwo setzen und ihn nennen �txtPhone�. Den folgenden Code zum Projekt dann kopieren.

Private Sub lstRecords_Click()

rsMyRS.FindFirst "ID=" & Str(lstRecords.ItemData(lstRecords.ListIndex))
txtPhone.Text = rsMyRS!Phone

End Sub

Aktualisierung der Datenbank

Wenn Sie die programmierende Datenbank tun, w�nschst du vermutlich aktualisierst etwas Wert von einigem auff�ngst. Dieses wird mit redigieren und aktualisieren getan und wir versuchen, den Wert des �Telefons� zu �ndern auffangen, indem wir den Text im Textkasten redigieren und eine Taste anklicken.

Eine Befehl Taste auf die Form setzen und sie nennen �cmdUpdate�. Den folgenden Code zum Projekt dann kopieren

Private Sub cmdUpdate_Click()

rsMyRS.Edit
rsMyRS!Phone = txtPhone.Text
rsMyRS.Update

End Sub

Aufzeichnungen l�schen und addierend

L�schen

Der Aufzeichnungen zu l�schen k�nnte nicht einfacher sein und die gegenw�rtige Aufzeichnung l�schen, die du gerade die L�schungmethode des RecordSet Gegenstandes hervorrufst. Wir setzen diese Eigenschaft in unser kleines Projekt ein und eine weitere Befehl Taste zu bilden, die �cmdDelete� und den folgenden Code genannt wird, erledigt die Arbeit des L�schens unserer z.Z. vorgew�hlten Person.

Private Sub cmdDelete_Click()

rsMyRS.Delete
lstRecords.RemoveItem lstRecords.ListIndex

End Sub

Hinzuf�gen

Aufzeichnungen zu addieren ist ganz wie das Updateing, ausgenommen du AddNew anstelle von redigierst und lassen Sie uns eine weitere Befehl Taste unserer Anwendung hinzuf�gen verwendest. Es nennen� lassen Sie uns errh� lie� mich� yea sehen! �cmdNew� =). Ist hier der Code, der eine neue Aufzeichnung addiert.

Private Sub cmdNew_Click()

rsMyRS.AddNew
rsMyRS!Name = "A New Person"
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS!Phone = "Person's Phone Number"
rsMyRS.Update

End Sub

Keywords: Creating database applications in VB, visual basic applications, visual basic database, how to database, vb source code, visual basic vb, vb ms access, visual basic net applications, microsoft access database, ms access database, asp net database, sql server database, connect to database, vb asp net, vb array, database tutorial, text creating, xml database, asp database, php database, c# database

HTML Quizes

XML Quizes