Databaser

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

------------------
---
/* LilleSkutt */

[Redigerat av LilleSkutt den 19 okt 2001]

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

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

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??

------------------
---
/* LilleSkutt */

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?

------------------
---
/* LilleSkutt */

[Redigerat av LilleSkutt den 03 nov 2001]

[Redigerat av LilleSkutt den 03 nov 2001]

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

------------------
"Mörkrets gärningar, förekommer även på dagen"

Sixten Landby