---
title: "Databaser"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/42599-databaser"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "FIgg3"
published: "2002-04-27T14:25:08.000Z"
updated: "2002-05-07T12:17:14.000Z"
replies: 5
views: 269
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/42599-databaser"
---

# Databaser

## #1 — FIgg3, 2002-04-27T14:25Z

hejsan jag är helt grön på Vb men  kan man koppla en databas så här i Vb allså som i ASp?

```
Private Sub Form_Load() 
file = server.mappath("C:\Inetpub\wwwroot\default.mdb") 
Set Connect = server.CreateObject("ADODB.connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file 

Set RecSet = server.CreateObject("ADODB.RecordSet") 
SQL = "SELECT * FROM site order by id asc" 
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 
Do Until RecSet.EOF 
i = i + 1 
adress = RecSet("adress") 
namn = RecSet("namn") 

If i < 10 Then 
Response.write "  " & i & ")" 
Else 
Response.write "" & i & ")" 
End If 

Response.write "" & namn & "<br>" 

RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
End Sub
```

Permalänk: https://www.webforum.nu/p/42599

## #2 — Jon, 2002-04-29T07:50Z

Nästan!

```
Dim Recset As ADODB.Recordset
Dim Connect As ADODB.Connection

file = "c:\databasmapp\databas.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file 

SQL = "SELECT * FROM site order by id asc" 
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 
Do Until RecSet.EOF 
i = i + 1 
adress = RecSet("adress") 
namn = RecSet("namn") 

If i < 10 Then 
Response.write "  " & i & ")" 
Else 
Response.write "" & i & ")" 
End If 

Response.write "" & namn & "<br>" 

RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
End Sub
```

Du måste även klicka i en referens till ado under references

Permalänk: https://www.webforum.nu/p/662540

## #3 — FIgg3, 2002-04-30T15:12Z

Tack för svaret men när ja kör koden får ja fel meddelande på denna raden:
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & file

Felet lyder:  Run tim error 91
Object variable or block variable not set...

hela koden: 

```
Private Sub Form_Load()
Dim Recset As ADODB.Recordset
Dim Connect As ADODB.Connection

file = "C:\Inetpub\wwwroot\default.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file

SQL = "SELECT * FROM site order by id asc"
Recset.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until Recset.EOF
i = i + 1
adress = Recset("adress")
namn = Recset("namn")

If i < 10 Then
Response.write "  " & i & ")"
Else
Response.write "" & i & ")"
End If

Response.write "" & namn & "<br>"

Recset.MoveNext
Loop
Recset.Close
Set Recset = Nothing
End Sub
```

Mvh

Permalänk: https://www.webforum.nu/p/663368

## #4 — FIgg3, 2002-04-30T15:33Z

Fixade det själv men tack ändå...

Permalänk: https://www.webforum.nu/p/663374

## #5 — Jon, 2002-05-02T07:33Z

Fint!

Och för er andra som kanske undrar skall det vara

Dim Recset As New ADODB.Recordset
Dim Connect As New ADODB.Connection

Detta kallas early binding. SNabbare, kräver lite mer minne för det mesta.

Man kan säven göra så här:

Dim Recset As ADODB.Recordset
Dim Connect As ADODB.Connection

set Recset = New ADODB.Recordset
set Connect = New ADODB.Connection

Detta kallas late binding. Långsammare, mindre minneskrävande om det används rätt.

:)

Permalänk: https://www.webforum.nu/p/664046

## #6 — CyriQ, 2002-05-07T12:17Z

Hur fixade du felet på : Run tim error 91 ?? får samma fel

Permalänk: https://www.webforum.nu/p/670147

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/42599-databaser