forbindelse til DB

Option Explicit

Private dbWorkSpace as Workspace
Private dbDatabase As Database
Private dbTAble As Recordset
Private dbName as Field
Private dbNumber As Field

Private Sub cmdNext_Click()
\'Virk kun hvis der er intastet data
If txtName.text <> \" \" And txtNumber.Text <> \" \" Then
  \'Save data
  UpdateRecord
  \'Næste
  dbTable.MoveNext
  \'Hvis til slut i database, lav ny plads
  If dbTable.EOF then NewRecord
  \'Display data
  DisplayFields
End if
\'Fokus på text
txtWHATEWER1.SetFocus
End Sub

Private Sub cmdPrevious_Click()
\'Gem alle ændringer
UpdateRecord
\'En tilbage
dbTable.MovePrevious
\'Gå ikke forbi første record
If dbTable.BOF Then dbTable.MoveNext
\'Display data
DisplayFields
\'Fokus på tekst
txtWHATEWER1.SetFocus
End Sub

Private bSub Form_Load()
\'Lav data access objekt
Set dbWorkspace = DBEngine.Workspaces(0)
\'Ændre datastien hvis det er nødvendigt
Set dbDatabase = dbWorkSpace.OpenDatabase(\"C:\\DIN_DATABASE.mdb\")
\'Hvis databasen er helt ny
If dbTable.BOF And dbTable.EOF then NewRecord
*Start på første plads
dbTable.MoveFirst
\'Display data fra record
DisplyFields
End Sub

Private Sub Newrecord()
\'Ny record
dbTable.AddNew
\'Put en space i begge felter
dbTable!WHATEWER1 = \" \"
dbTable!WHATEWER2 = \" \"
\'Updatering
dbTable.Update
\'Bevæg til ny record
dbTable.MoveLast
End Sub

Private Sub UpdateRecord()
\'Forbered tabel for ænding
dbTable.Edit
\'Kopier text box ind i record fields
dbTable!WHATEWER1 = txtWHATEWER1.Text
dbTable!WHATEWER2 = txtWHATEWER2.Text
\'Update databasen
dbTable.Update
End Sub

Private Sub DisplayFields()
\'Displau Fields i text boxene
txtWHATEWER1.Text = dbTable!WHATEWER1
txtWHATEWER2.Text = dbTable!WHATEWER2
End Sub

Jeg har lagt lidt blandet ind i koden, og den  burde tale for sig selv...

Note:
Skrive/tastefejl i Private Sub FormLoad ()- Der er kommet et \'d\' med i første sætning
WHATEWER1 og WHATEWER2 er navne på dine tabeller.
DIN_DATABASE.mdb - Er naturligvis stien til din database.

Nu sidder jeg og kæmper med den variabel type du kalder workspace. Hvordan får jeg det til at virke???

Har du oprettet en database? Hvilken version VB, kører du med?

Workspace oversat til gemmen dansk er det areal du ønsker at arbejde på.

1.DBEngine - 2. Workspace(s) - 3. Database(s), User(s) og Goups(s)

Under 3. Databases kommer TableDef(s)
Under TableDef(s) kommer Field(s) og Index(s)

Kik under DAO strukturering af databasen!

Workspace: Et workspace-object definerer en opgave for en bruger. Et Workspace-objekt kan indeholde en eller flere åbne databaser, og den bruges til at håndtere den aktuelle opgave eller til at starte andre opgaver. I en opgave kan man åbne flere databaser, håndtere transaktioner og etablere sikkerhed baseret på navne og adgangskoder.

Et WorkSpace er et område i maskinens hukommelse, hvor der kan udføres DAO-operationer. Der kan åbnes flere workspaces(max 255), men kun en Workspace kan være aktiv ad gangen. I de fleste aplikationer har man kun brug for ét workspace, og det er da lettest at bruge standart-Workspace-objektet Workspaces(0).