Skapa databasprogram

Nu ska vi skapa ett databasprogram i Visual Basic.

För att kunna köra denna applikation mot Visual Basic måste du skapa en Access databas först. Databasen ska innehålla de fält och poster som du behöver i denna applikation. Så innan du börjar rekommenderar jag att du läser igenom den här övningen först och sedan skapar du en Access databas för att sedan gå vidare med Visual Basic programmeringen.

Vi ska arbeta med flera tabeller i en databas och vi ska söka efter data som kopplar andra kontroller till datakontrollen. Vi kommer att skriva en del programkod också. Först ska vi titta på ett par användbara kommandon för databaser.

Datakontrollens egenskaper RecordSet hanterar posterna från tabellen. AddNew använder du för att skapa en ny post i databasen med hjälp av programkod.

Syntaxen för AddNew är följande:
<Datakontroll>.RecordSet.AddNew

När du kör programmet placerar  sig datakontrollen på en ny tom post. Posterna måste sparas. Använd Update. Du kan till exempel skriva programkod för att spara i händelsen Click för en knapp.

Syntax:
<Datakontroll>. RecordSet.Update

Exempel:
private Sub
If Edit Then
Data1.RecordSet.Update
End If
Edi t= False
End Sub

I det här exemplet sparas din post i databasen om användaren klickar på knappen btnUpdatera och variabeln Edit har värdet True. Variabeln Edit är av datatypen Boolean och används för  hålla reda på om någon har ändrat på en post.

Om du vill ändra poster i programmet anropar du metoden Edit som ändrar värdet i din post som då ska vara aktiv i din datakontroll. Spara sedan uppdateringen genom Update.

Syntax:
<Datakontroll>.RecordSet.Edit

Delete använder du för att ta bort hela poster. Posten försvinner då helt från databasen.

Syntax:
<Datakontroll>.RecordSet.Delete

Skapa formuläret

1. Öppna ett projekt i Standard.Exe och skapa formuläret enligt följande
   
   
2. Lägg in fyra textrutor (TextBox) i formuläret
   
   
3. Skapa fyra etiketter (Labels) till textrutorna och ändra egenskaperna för Caption till " Förnamn" ,"Andranamn", "Efternamn", och " Födelsedatum"
   
   
4. Dra ut en avbockningsruta (CheckBox) på formuläret och ändra egenskapen Caption till " Gift" och egenskapen Alignment till 1-Right Justify
   
   
5. Högerklicka på verktygslådan och välj Componente i snabbmenyn
   
   
6. Bocka för Microsoft Data Bound List Controls.5.0
   
   
7. Klicka OK
   
   
8. Dra ut en DBCombo-kontroll på formuläret och ändra egenskapen Style till "2-dbcDropDownList"
   
   
9. Lägg till en etikett bredvid och ändra egenskapen till "yrke"
   
   
10. Lägg ut fem stycken Command Buttons. Fyra stycken i rad och den femte där du tycker den passar bäst för att stänga ett program med en knapp
    
    
11. Ändra knapparnas egenskaper Caption till "Ny Post", "Ändra Post", "Spara Post", "Ta Bort Post" och den femte till "Stäng"
    
    
12. Ändra egenskapen Name för knapparna till "btnNypost", "btnSpara", "btnTaBort" btnStäng"
    
    
13. Ändra formuläregenskapen från Name till "frmMain"
    
    
14. Infoga två datakontroller (Data)
    
    
15. Spara projektet med namnet Databasapp

Nu har du skapat ett formulär.

Koppla ihop kontrollerna i formuläret med databas

Gör så här:

1. Klicka på den ena datakontrollen (Data) i formuläret och öppna eegenskaper
   
   
2. Klicka på värdeknappen i DatabaseName och välj Register.mdb
   
   
3. Gör nu likadant med den andra datakontrollen
   
   
4. Ändra egenskapen RecordSource för Data1 kontrollen till "Person"
   
   
5. Ändra egenskapen RecordSource för Data2 kontrollen till "Jobb"
   
   
6. Ändra egenskapen DataSource för DBCombo1 till "Data 1"
   
   
7. Ändra egenskapen DataField för DBCombo1 till "Jobbtid"
   
   
8. Ändra egenskapen RowSource för DBCombo1 till" Data2"
   
   
9. Ändra egenskapen ListField för DBCombo1 till " Befattning"
   
   
10. Ändra egenskapen BoundColumn för DBCombo1 till " ID"
    
    
11. Koppla textrutorna till avbockningsrutan till datakontrollen Data1 genom att ändra egenskapen DataSource till "Data1"
    
    
12. Ändra egenskapen DataField till respektive fält för textrutorna och avbockningsrutan
    
    

    Rubrik	Fält
    Förnamn	ForNamn
    Andranamn	AndraNamn
    Efternamn	EfterNamn

    
    
13. Spara och provkör nu ditt projekt och se om du har kopplat ihop rätt
    saker med varandra

Nu ska vi lägga till lite programkoden för att du ska kunna lägga till och ändra i ditt program. Du ska nu använda Update men utan att anropa Edit eller AddNew kommer det inte att fungera.

1. Öppna kodfönstret och välj General i objektslistan och skriv in koden: Dim Edit As Boolean
   
   
2. Dubbelklicka på knappen Ny Post i formuläretoch skriv in följande programkod:
   Private Sub btnNyPost_Click()
   Data1.Recordset.AddNew
   Edit=True
   EndSub
   
   
3. Dubbelklicka på Ändra Post i formuläret och skriv in programkoden:
   Private Sub btnÄndr_Click()
   Data1.RecordSet.Edit
   Edit=True
   End Sub
   
   
4. Dubbelklicka på Spara Post i formuläret och skriv programkoden:
   Private Sub btnSpara_Click()
   If Edit Then
   Data1.RecordSet.Update
   End If
   End Sub
   
   
5. Dubbelklicka på Ta Bort Post i formuläret och skriv in programkoden:
   Private Sub btnTaBort_Click()
   Data1.RecordSet.Delete
   Data1.Recordset.MoveFirst
   End Sub
   
   
6. Dubbelklicka på Stäng i formuläret och skriv in programkoden:
   Private Sub btnStäng_Click()
   Unload frmMain
   End Sub
   
   
7. Spara ditt arbete och provkör nu programmet