4 svar · 215 visningar · startad av LilleSkutt
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
Vad händer om du stegar genom koden med F8?
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??
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?
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