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