Förord

I del två skall vi ta oss en titt på hur man både skapar och öppnar en databas. Jag går även in på hur man kan öppna filer i delat läge samt hur man kan göra för att bygga rutiner kring postlåsning av enstaka poster.

Innehåll

  » Skapa ny databas
  » Öppna databasen
  » Nätverksberoende
  » Rutin för att skapa databaserna

Skapa ny databas

Nu är det dags att börja skriva den första logiken, vi börjar med att hantera vissa funktioner som behövs för att kontrollera eller hantera olika saker. Därför väljer vi att skriva subrutiner som vi kan anropa från andra delar i koden. Den fösta funktionen som vi skall skriva är själva skapandet av katalogen \data\ samt databasfilerna. Nedan ser du ett exempel på hur du skriver en sådan funktion.


Public Function CreateNewDatabase(databasename As String) As Integer

'// deklarerar lokala variabler
Dim dbNr As Long
Dim dbPath As String
Dim dbLength As Long

'// Denna rutin kallas när programmet startas. Finns
' inga databaser, skall de skapas. Finns de sen
' tidigare, skall de bara öppnas.

'// Vi måste nu se till att skapa underkatalogen
' som vi sa med variabeln DataLager, om den
' inte redan finns.
dbPath = App.Path & DataLager
If Len(Dir(dbPath, vbDirectory)) = 0 Then
MkDir dbPath
End If

'// Bygger om strängen med katalog, datakatalogen
' samt databasnamnet med ett prefix
dbPath = App.Path & DataLager & databasename & ".db"


'// Kontrollerar om filen finns tidigare. Genom att
' ange detta kommer DIR$ kommandot att fyllas med
' sökväg och filnamn om filen finns, annars kommer
' DIR$ vara tom. Detta kan man kontrollera med
' Len-kommandot (som säger antal tecken x innehåller)
If Len(Dir$(dbPath)) > 0 Then

'// Databasen finns, vi återvänder..
CreateNewDatabase = -2

' Här tilldelar vi CreateNewDatabase siffran -2 för
' att berätta för användaren att något gått snett.
' I detta fall finns inte denna filen. Sedan avslutar
' vi rutinen och återvänder.
Exit Function
End If


'// Vi har kontrollerat att filen inte finns,
' då kan vi skapa dessa två databaser.

'// Först ber vi om ett ledigt filnummer till
' vår nya fil
dbNr = FreeFile

'// Nu skapar vi filen, men vi måste hålla reda
' på om det är Person eller Artikel, därför
' att i slutet säger vi Len = len(databas)

' När filen öppnas eller skapas, måste vi berätta
' hur stor postlängden är, det gör vi genom att
' kontrollera längden på Person eller artikel,
' (som innehåller de deklarerade fälten).
'
If databasename = "Person" Then
dbLength = Len(Person)
Else
dbLength = Len(Artikel)
End If

'// Vi skall även kontrollera om denna skall köras
' lokalt eller i ett nätverk.
If PlatformNet = False Then
Open dbPath For Binary As dbNr Len = dbLength
Else
Open dbPath For Binary Shared As dbNr Len = dbLength
End If

'// Nu stänger vi databasen igen, för vi skulle
' bara skapa den.
Close dbNr

'// Sätter status på funktionen, och vi sätter
' att 0 betyder Okej!
CreateNewDatabase = 0

End Function


Öppna databasen

I denna rutin som hanterar öppningen av databasen, ser vi till att öppna önskad databas och hanterar eventuella fel som kan uppstå. Lägg märket till en liten udda lösning för att inte öppna samma databaser om och om igen. Håll även ett öga på hur jag tilldelar den global variabeln för filnamnet på den fil som öppnas.


Public Function OpenTheDatabase(databasename As String) As Integer

'//Deklarerar lokala variabler
Dim dbNr As Long
Dim dbPath As String
Dim dbLength As Long

'// Nu bör vi använda oss av en fel-hanterare. Det kan ju
' vara så att filerna inte finns, eller att de inte
' går att öppna exklusivt osv.
On Local Error GoTo OpendbError

' Samma sak igen, postlängden måste sättas för
' att få kontroll på längden av alla fält i ett
' record (post).
'
If databasename = "Person" Then
dbLength = Len(Person)
Else
dbLength = Len(Artikel)
End If

'// Vi ber om ett ledigt filnummer
dbNr = FreeFile

'// Eftersom vi vet att vi bara använder 2 databaser,
' kan vi med en Q&D kontroll, se om användaren försöker
' att öppna dessa igen!
' Om vi hade hårdkodat filnumret så hade ett ERROR
' uppstått och du hade kunnat fånga det där.
If dbNr > 2 Then
OpenTheDatabase = -2
Exit Function
End If

'// Bygger upp strängen med katalog, datakatalogen
' samt databasnamnet med ett prefix
dbPath = App.Path & DataLager & databasename & ".db"

'// Vi kontrollerar om programmet skall köras
' lokalt eller i ett nätverk.
If PlatformNet = False Then
Open dbPath For Binary As dbNr Len = dbLength
Else
Open dbPath For Binary Shared As dbNr Len = dbLength
End If

' Nu skall vi ge våran globala variabel
' dbArtikel, det filnummer som vi fick, för
' det skall vi använda senare.
If databasename = "Person" Then
dbPerson = dbNr
Else
dbArtikel = dbNr
End If


'// Nu stänger vi inte databasen, för de
' skall vi ju arbeta med nu.


'// Vi returnerar 0 för att allting har gått bra
OpenTheDatabase = 0
Exit Function

OpendbError:

'// Vi returnerar felkoden, så får vi ta om hand om
' detta därifrån rutinen kallades.
OpenTheDatabase = Err

End Function


Nu har vi kommit så långt, att vi kan börja bygga några rutiner i formen som skall kalla på CreateNewDatabase och OpenTheDatabase. Vi börjar med att titta på Form_Load händelsen som är den subrutinen som startas först av allt i programmet, om inget annat anges i Project Properties.
Vi sa tidigare att vi skulle koncentrera oss på att arbeta med dessa datafiler lokalt, så därför sätter vi vår variabel PlatFormNet till värdet False, d.v.s. att vi inte skall köra detta i ett nätverk.


Private Sub Form_Load()
'// Vi vill inte köra i nätverk
PlatformNet = False
End Sub


Nätverksberoende

Jag skulle dock vilja beröra detta område med att skriva lite hur en teknik för detta skulle kunna gå till.

Öppna filen i delat läge
Det finns här två saker att tänka på. Dels att man inte öppnar filerna exklusivt och dels att man hanterar något som kallas postlåsning. Vi börjar med att titta på hur man öppnar en fil i låst respektive delat läge:


If PlatformNet = False Then
Open dbPath For Binary As dbNr Len = dbLength
Else
Open dbPath For Binary Shared As dbNr Len = dbLength
End If


Ovan ser du att vi öppnar med "For Binary" - detta innebär att vi öppnar filen, får vi exklusiv rätt att öppna den så är det inga problem men om nästa person kommer att försöka öppna filen exklusivt så får vi problem. Genom att skriva "For Binary Shared" kommer vi att tillåta alla användare, program och dyligt att få tillgång till filen och därmed är den i delat läge.

Postlåsning
Som användare när man tittar på denna fil så är det inget som skiljer om du öppnar med VB såväl med en texteditor. Att göra en postlåsning skulle kunna vara att öppna textfilen exklusivt men det kommer ju inte fungera. Då får ju inte någon annan användare tillgång till filen medan ditt program arbetar. Att vara först till kvarn är inget man strävar efter i ett databasprogram.

Men genom att använda sig av någon annan markering så skulle man kunna göra postlåsningar. Som du såg i del 1 så definierades det i de båda tabellverken ett fält som hette Raderad as String.

Det är här vi kan bygga in en teknik för att påvisa för användaren att den aktuella posten är låst och därmed kunna kommunicera med varnadra. Tänk dig att när du öppnar den aktuella posten för redigering så skriver du bokstaven L i det fältet - L som i Locked. När du sedan tryckt uppdatera så sätts fältet till blankt igen.

Med den tekniken kan du enkelt använda programmet och se om en post är låst eller inte genom att titta i det fältet då posten läses upp och samtidigt ta den hänsyn du behöver till detta.

En post som är raderad får en * i det fältet eller kanske bokstaven D som i Delete och det spelar ingen roll vad du använder - det går lika bra. En post som är raderad skall ju inte visas - så risken att du skriver över en * till L är obefintlig.

Detta exempel är precis det sätt som en databas vid namn dBase, Foxpro och Clipper använder sig av för att berätta för användaren vilken status som en post har. Det har fungerat väl i många år, så varför inte använda sig av samma metod.

Rutin för att skapa databaserna

Nu kan vi definiera upp rutinerna, skapa och öppna databas. Jag har i detta enkla exempel gjort så att det bara är command-knappar som du trycker på för att utföra dessa startfunktioner.


Private Sub cmdCreate_Click()

'// Skapar en databas för Person och Artikel

Stat1 = CreateNewDatabase("Person")
If Stat1 = -2 Then
MsgBox "Databasen Person finns redan.", vbCritical
End If

Stat2 = CreateNewDatabase("Artikel")
If Stat2 = -2 Then
MsgBox "Databasen Artikel finns redan.", vbCritical
End If

'// Om allt gick bra
If Stat1 And Stat2 = 0 Then
MsgBox "Databaserna Person & Artikel har skapats.", vbInformation
End If

End Sub


Private Sub cmdOpen_Click()

'// Öppnar databasen Person och Artikel
Stat1 = OpenTheDatabase("Person")
If Stat1 = -2 Then
MsgBox "Felmeddelande: " & Stat1, vbCritical
End If

Stat2 = OpenTheDatabase("Artikel")
If Stat2 = -2 Then
MsgBox "Felmeddelande: " & Stat2, vbCritical
End If

'// Om allt gick bra
If Stat1 = 0 And Stat2 = 0 Then
MsgBox "Databaserna Person & Artikel är nu öppna.", vbInformation
End If

End Sub


Ovan ser du nu hur vi utnyttjar den funktion som vi först skapade, nämligen CreateNewDatabase och OpenTheDatbase. Den enda inparameter som behövs är namnet på tabellen som vi skall skapa eller öppna.

Tänk här på att om du avser att skapa ytterligare tabeller så måste du lägga in dessa i Type-deklarationen så att systemet vet hur den aktuella tabellen är uppbyggd, dess postlängd och vilka fälttyper som används.

I nästa artikel går vi vidare med att bygga lite mer grafisk presentation för både addering och uppdatering av poster.

0 Kommentarer

Skriv en kommentar på artikeln

Ditt betyg på artikeln

UtmärktLäsvärdIntressantMindre braDålig

Kommentar: