Ahhhh jetzt ja!

Danke, Aber das Brett musste noch vom Kopf geklopft werden ;)
Und es funzt ;)

Mit freundlichen Gr�ssen 

Mathias Becker
[EMAIL PROTECTED]

> -----Urspr�ngliche Nachricht-----
> Von: Azubi IFK LabTec [mailto:[EMAIL PROTECTED]] 
> Gesendet: Dienstag, 14. Mai 2002 11:38
> An: ASP Datenbankprogrammierung
> Betreff: [aspdedatabase] RE: AW: RE: Werum funktioniert mein 
> DB.close nich t?? (alt : RE: AW: Access DB mit Asp generieren?)
> 
> 
> Hier kommt ein kleines Beispiel.
> Hoffe, es kann deine Fragen beantworten...
> 
> Dim TestString
> 
> sub SetString (ByVal TestString)
>   'ByVal ist std... gleich wie einfach (TestString)
>   TestString = "ByVal Str"
>   response.write ("ByVal in Funktion:")
>   response.write (TestString)
>   response.write ("<br>")
> end sub
> 
> sub SetStringRef (ByRef TestString)
>   TestString = "ByRef Str"
>   response.write ("ByRef in Funktion:")
>   response.write (TestString)
>   response.write ("<br>")
> end sub
> 
> TestString = ""
> response.write ("Start: ")
> response.write (TestString)
> response.write ("<br>")
> 
> SetString (TestString)
> response.write ("Nach ByVal Funktion:")
> response.write (TestString)
> response.write ("<br>")
> 
> SetStringRef (TestString)
> response.write ("Nach ByRef Funktion:")
> response.write (TestString)
> response.write ("<br>")
> 
> Erwartetes Ergebnis:
> Start:
> ByVal in Funktion: ByVal Str
> Nach ByVal Funktion:
> ByRef in Funktion: ByRef Str
> Nach ByRef Funktion: ByRef Str
> 
> 
> > -----Original Message-----
> > From: Mathias Becker [mailto:[EMAIL PROTECTED]]
> > Sent: Dienstag, 14. Mai 2002 11:33
> > To: ASP Datenbankprogrammierung
> > Subject: [aspdedatabase] AW: RE: Werum funktioniert mein DB.close 
> > nicht?? (alt : RE: AW: Access DB mit Asp generieren?)
> > 
> > 
> > Hallo!
> > 
> > Danke so geht's [mit einigen kl. �nderungen ;))]
> > Aber nu begreif ich dieses ByRef nicht so ganz. Ist ja 
> sch�n wens nu 
> > geht, aber wenn ich nicht weiss, was ich da tue, macht mich das 
> > irgendwie nerv�s ;)
> > 
> > Also ich habs folgendermassen verstanden:
> > Das Byref erm�glicht der Function das ver�ndern der in 
> einer anderen 
> > Routine (script od. Funktion) erstellten Variablen [so hab ich die 
> > Doku verstanden ;)]. Soweit, so klar. Aber dann versteh ich nicht,
> > warum ich
> > beim dbopen schon das Byref einsetzen muss?? Diese Funktion erstellt
> > doch erst die Variable / das Object. Wieso muss ich da das 
> > Object schon
> > per ByRef �bergeben, obwohl es noch gar nicht existiert?
> > 
> > 
> > Mit freundlichen Gr�ssen
> > 
> > Mathias Becker
> > [EMAIL PROTECTED]
> > 
> > > -----Urspr�ngliche Nachricht-----
> > > Von: Azubi IFK LabTec [mailto:[EMAIL PROTECTED]]
> > > Gesendet: Dienstag, 14. Mai 2002 08:30
> > > An: ASP Datenbankprogrammierung
> > > Betreff: [aspdedatabase] RE: Werum funktioniert mein DB.close 
> > > nicht?? (alt : RE: AW: Access DB mit Asp generieren?)
> > > 
> > > 
> > > Hast n Mix zwischen Globalen und Lokalen Variablen...
> > > 
> > > So funktioniert's.
> > > 
> > > MfG
> > > 
> > > Christian
> > > 
> > > New Code:
> > > 
> > > Function openDB(ByRef DBPath, ByRef DB)
> > >   DBPath = getDBPath(DBPath)
> > >   Set DB = Server.CreateObject("ADODB.Connection")
> > >   DB.open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine
> > > Type=5;Data Source=" & DBPath End Function
> > > 
> > > Function openDB(ByRef DBPath, ByRef DB)
> > >   DBPath = getDBPath(DBPath)
> > >   Set DB = Server.CreateObject("ADODB.Connection")
> > >   DB.open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine
> > > Type=5;Data Source=" & DBPath End Function
> > > 
> > > Function closeDB(ByRef DB)
> > >   DB.close
> > >   set DB = nothing
> > > End Function
> > > 
> > > der include in der global.asa:
> > > <SCRIPT LANGUAGE="VBScript" RUNAT="Server"
> > > SRC="library/dbmaintaining.asa"></SCRIPT>
> > > 
> > > Dann der Aufruf:
> > >     Dim DB
> > >     Dim DBPath
> > >     DBPath = "db\test.mdb"
> > >     'on Session start
> > >     createDB(DBPath, DB)
> > >     openDB(DBPath, DB)
> > >     closeDB(DB, DB)
> > > 
> > > > -----Original Message-----
> > > > From: Mathias Becker [mailto:[EMAIL PROTECTED]]
> > > > Sent: Dienstag, 14. Mai 2002 08:26
> > > > To: ASP Datenbankprogrammierung
> > > > Subject: [aspdedatabase] Werum funktioniert mein 
> DB.close nicht?? 
> > > > (alt:
> > > > RE: AW: Access DB mit Asp generieren?)
> > > > 
> > > > 
> > > > Hallo!
> > > > 
> > > > Irgendwie funktioniert das beides nicht.
> > > > 
> > > > Also folgendes wird gemacht:
> > > > 
> > > > Die Funktionen:
> > > > 
> > > > Function openDB(DBPath)
> > > >   DBPath = getDBPath(DBPath)
> > > >   Set DB = Server.CreateObject("ADODB.Connection")
> > > >   DB.open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine 
> > > > Type=5;Data Source=" & DBPath
> > > > End Function
> > > > 
> > > > Function openDB(DBPath)
> > > >   DBPath = getDBPath(DBPath)
> > > >   Set DB = Server.CreateObject("ADODB.Connection")
> > > >   DB.open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine 
> > > > Type=5;Data Source=" & DBPath
> > > > End Function
> > > > 
> > > > Function closeDB(DB)
> > > >   DB.close
> > > >   set DB = nothing
> > > > End Function
> > > > 
> > > > der include in der global.asa:
> > > > <SCRIPT LANGUAGE="VBScript" RUNAT="Server"
> > > > SRC="library/dbmaintaining.asa"></SCRIPT>
> > > > 
> > > > Dann der Aufruf:
> > > >     Dim DB
> > > >     Dim DBPath
> > > >     DBPath = "db\test.mdb"
> > > >     'on Session start
> > > >     createDB(DBPath)
> > > >     openDB(DBPath)
> > > >     closeDB(DB)
> > > > 
> > > > Und der Fehler ;)
> > > > 
> > > > Microsoft VBScript runtime error '800a01a8'
> > > > 
> > > > Object required: 'DB'
> > > > 
> > > > //library/dbmaintaining.asa, line 28
> > > > 
> > > > Line 28 ist der DB.close Befehl in der Function closeDB
> > > > 
> > > > 
> > > > Mit freundlichen Gr�ssen
> > > > 
> > > > Mathias Becker
> > > > [EMAIL PROTECTED]
> > > > 
> > > > > -----Urspr�ngliche Nachricht-----
> > > > > Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]]
> > > > > Gesendet: Montag, 13. Mai 2002 21:56
> > > > > An: ASP Datenbankprogrammierung
> > > > > Betreff: [aspdedatabase] RE: AW: Access DB mit Asp generieren?
> > > > > 
> > > > > 
> > > > > Oder besser: immer die DB mit als Argument an die Funktion 
> > > > > �bergeben...
> > > > > 
> > > > > Claudius
> > > > > 
> > > > > > 
> > > > > > Hallo,
> > > > > > 
> > > > > > > Dbopen funktioniert soweit => DB wird ge�ffnet das Object
> > > > > > heist DB. Nun
> > > > > > > mein Problem:
> > > > > > > Das Object DB ist in keiner anderen Funktion bekannt
> > > > > > (Object required:
> > > > > > > 'DB' ). Da ich im Mom. ziemlich aufm Schlauch stehe hilft
> > > > > > mir vielleicht
> > > > > > > mal jemand meinen Gehirnknoten zu zerschlagen? ;) (Bitte
> > > > > > nicht w�rtlich
> > > > > > > nehmen ;)) )
> > > > > > 
> > > > > > Global definieren?
> > > > > > 
> > > > > > Au�erhalb der DBOpen-Prozedur:
> > > > > > 
> > > > > > <%
> > > > > >  Dim DB
> > > > > > %>
> > > > > > 
> > > > > > MfG,
> > > > > > Markus Oestreicher [QualityHosting Support]
> > > > > > -------------------------------------------
> > > > > >     jetzt mit ASP.NET Unterst�tzung
> > > > > > Informationen: http://www.qualityhosting.de
> > > > > > 
> > > > > > 
> > > > > > 
> > > > > > 
> > > > > > | [aspdedatabase] als [EMAIL PROTECTED] subscribed 
> > > > > > | http://www.aspgerman.com/archiv/aspdedatabase/ =
> > > > Listenarchiv Sie
> > > > > > | k�nnen sich unter folgender URL an- und abmelden:
> > > > > > | 
> > > > > http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedataba
> > > > se.asp
> > > > > 
> > > > 
> > > > 
> > > > | [aspdedatabase] als [EMAIL PROTECTED] subscribed 
> > > > | http://www.aspgerman.com/archiv/aspdedatabase/ =
> > Listenarchiv Sie
> > > > | k�nnen sich unter folgender URL an- und abmelden:
> > > > | 
> > > http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedataba
> > se.asp
> > > 
> > > 
> > > | [aspdedatabase] als [EMAIL PROTECTED] subscribed
> > > | http://www.aspgerman.com/archiv/aspdedatabase/ = 
> Listenarchiv Sie 
> > > | k�nnen sich unter folgender URL an- und abmelden: 
> > > | 
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
> > 
> 
> | [aspdedatabase] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv Sie 
> | k�nnen sich unter folgender URL an- und abmelden: 
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
> 
> 
> | [aspdedatabase] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
> 
> | [aspdedatabase] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
> 


| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp

Antwort per Email an