---
title: "Databaser"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/27681-databaser"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "LilleSkutt"
published: "2001-10-19T10:28:00.000Z"
updated: "2001-11-03T09:17:00.000Z"
replies: 4
views: 215
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/27681-databaser"
---

# Databaser

## #1 — LilleSkutt, 2001-10-19T10:28Z

Varför funkar inte nedanstående kod? Min component står bara och tuggar... Händer liksom ingenting.

```
Public Sub OpenMDB(ByVal strDB As String, ByVal strPwd As String)
    If Not (conn Is Nothing) Then
        conn.Close
        Set conn = Nothing
    End If
    
    conn.ConnectionString = "Provider=Microsoft.JET.OLEDB.3.51;Data Source=" & strDB
    conn.CursorLocation = adUseClient
    conn.Open
End Sub
```

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

## #2 — fredrik, 2001-10-22T06:49Z

Vad händer om du stegar genom koden med F8?

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

## #3 — LilleSkutt, 2001-10-22T12:22Z

Hmm, jag kan inte stega koden... Eftersom att jag inte gör något program. (?)
Jag sitter och arbetar med klasser, och då går det inte. Däremot har det hänt nånting nytt, scriptet laddas klart :)

Men jag kan inte öppna några databaser. Kolla om jag gör rätt:
\- Dimar kopplingen som ADODB.Connection
\- Sätter variabeln till New ADODB.Connetion.
\- Sätter connectionstring och cursorlocation som i koden som jag bifogade i första inlägget.

Något skumt??

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

## #4 — LilleSkutt, 2001-11-02T23:42Z

Hjälp!

Det funkar fortfarande inte. Nu öppnar jag databasen på exakt samma sätt som jag gör med ASP.

asp-sidan:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
set o = server.createobject("minkomp.klass")
o.opendb server.mappath("mindb.mdb")

vb-klassen:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
public sub opendb(byval db as string)

set so = server.createobject("adodb.connection")
so.open "driver={Microsoft Access Driver (\*.mdb)}; dbq=" & db

Funkar jue inte. Vilka referensobjekt är det man ska inkludera?

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

## #5 — Beatbox, 2001-11-03T09:17Z

Då du kommer in i functionen så kollar du om conn är "Nothing". Om den inte är det anropar du .close och sedan sätter conn till Nothing. Efter det börjar du använda conn som du satt till "Nothing". Borde inte det bli väldigt fel ? :-)

// BeatBox

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

---

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