Ich finde es immer Erschreckend, wenn man eine Datenbankverbindung aufl�sst.
Wenn m�glich sollte man es vielelicht so machen:
Function Creaters(strSQL as String) as Object
Dim adoRS As New ADODB.Recordset
With adoRS
.CursorType = 3
.CursorLocation = 3
.LockType = 3
.Open strSQL, dbc
End With
Creaters = adoRS.Clone
adoRS.Close
End Function
Just my 2 cents
Christoph
> -----Original Message-----
> From: Andreas Roth [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, November 27, 2001 9:59 AM
> To: AspGerman Kaffeehaus
> Subject: [aspdecoffeehouse] AW: VB-Komponente
>
>
> Probier mal statt
> Function creaters(sql)
> Set creaters = CreateObject("adodb.recordset")
> creaters.cursortype = 3
> creaters.cursorlocation = 3
> creaters.locktype = 3
> creaters.open sql, dbc
> End Function
>
> Klasse:
> Sub creatingCreaters(sql as String, creaters As Variant)
> Set creaters = CreateObject("adodb.recordset")
> creaters.cursortype = 3
> creaters.cursorlocation = 3
> creaters.locktype = 3
> creaters.open sql, dbc
> End Sub
>
> VBScript:
> Dim myRS
> creatingCreater("Select * FROM Irgendwas,myRS)
>
> in der �bergebenen Variable findest du dann den Recordset
>
> Andreas Roth
> --------------------------------------
> [EMAIL PROTECTED] *jetzt mit Chat*
> http://www.EuphoriasChild.DarkTech.org
> --------------------------------------
>
> > -----Urspr�ngliche Nachricht-----
> > Von: Verweyen, Dirk [mailto:[EMAIL PROTECTED]]
> > Gesendet: Dienstag, 27. November 2001 08:54
> > An: AspGerman Kaffeehaus
> > Betreff: [aspdecoffeehouse] VB-Komponente
> >
> >
> > Hallo!
> >
> > Ich habe mir ne Komponente in VB geschrieben
> > und das klappt eingentlich super. Nur ein
> > Problemchen. Ich will aus der Komponente
> > ein Recordset zur�ck geben und das scheint
> > irgendwie nicht zu klappen.
> >
> > Wie muss ich den die Methode deklarieren damit
> > das klappen k�nnte?
> >
> > Gruss, Dirk
> >
> > PS: Hier zwei von den Methoden wo ich es versuche:
> >
> > Function creaters(sql)
> > Set creaters = CreateObject("adodb.recordset")
> > creaters.cursortype = 3
> > creaters.cursorlocation = 3
> > creaters.locktype = 3
> > creaters.open sql, dbc
> > End Function
> >
> >
> > Function selectanzeige(anzeigennr)
> >
> > Dim sqlanzeigennr
> > sqlanzeigennr = "select * from b_anzeigen where
> > [anzeigennr] = " &
> > anzeigennr
> > Set selectanzeige = CreateObject("adodb.recordset")
> > selectanzeige.cursortype = 3
> > selectanzeige.cursorlocation = 3
> > selectanzeige.locktype = 3
> > selectanzeige.open sqlanzeigennr, dbc
> > End Function
> >
> > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> > | Sie k�nnen sich unter folgender URL an- und abmelden:
> > |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee
house.asp
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
