Kein Problem Geht jedem immer wieder mal so... ;-)
In der Welt der Programmiersprachen (z�hle VB nicht dazu;-)) nennt man das "Call by Value" und "Call by Reference" Viel spass noch. Christian Thuer > -----Original Message----- > From: Mathias Becker [mailto:[EMAIL PROTECTED]] > Sent: Dienstag, 14. Mai 2002 11:58 > To: ASP Datenbankprogrammierung > Subject: [aspdedatabase] AW: RE: AW: RE: Werum funktioniert mein > DB.close nich t?? (alt : RE: AW: Access DB mit Asp generieren?) > > > 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 | [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
