ActiveX - component til brug i ASP

Prøv:

Public Function Fubar(rs As Variant) As Long
  Fubar = 1
End Function

OG

DIM lVar as Variant

Set rs = Server.CreateObject(\"ADOR.Recordset\")

lVar = obj.Fubar(rs)

Hvad sker der så ??

Hmm..
Funktionen kører...
Nu er problemet så at i fubar vil jeg gerne arbejde på det recordset som jeg får ind...

Koden skal se således ud....
rs.ActiveConnection = sCon
rs.UpdateBatch
     
  Set rsPlannerEntry.ActiveConnection = Nothing
 
  SavePlannerEntry = 1

Ups...
Lidt for hurtig på udfør-knappen
Jeg forsøger igen:

Funktionen kører fint..
Men jeg vil gerne gemme det recordset i min database, derfor skal min kode se således ud...:
  rs.ActiveConnection = sCon
  rs.UpdateBatch
     
  Set rs.ActiveConnection = Nothing
 
  fubar = 1

Problemet er at der sker intet....

Det gør du så bare !!

Det skulle der jo ikke være nogen problemer i !!
Dit problem er vel løst idet du kører mindre restriktivt med dine variabel-definitioner.

Jeg kender ikke ret meget til ASP enviromentet, så jeg kan ikke hjælpe dig videre, men du fik da løst dit problem med din returværdi.

TIP:

Har du prøvet at køre det direkte fra VB eller VBA?
Sker der så heller ikke noget ?

Hedder det virkeligt ADOR.Recordset ? Eller ADO.Recordset ?

Formålet er at man skal kunne sende et recordset ind i funktionen Fubar, Fubar skal så gemme recordsettet i min DB, herefter skal fubar returnere en værdi....

Problemet er at det virker fint i en VB-app. men jeg får type mismatch i asp.
Hvis jeg siger at fubar skal modtage en variant så sker der intet i min DB.

ADOR.Recordset

Der er mere kode imellem linierne end det, du har vist mig - ik\'.

Ellers er der noget jeg ikke forstår !!!

DIM lVar as Long
Set rs = Server.CreateObject(\"ADOR.Recordset\")

(Fyld noget data i recordsettet)

lVar = obj.Fubar(rs)

.................................

Public Function Fubar(rs As ADOR.Recordset) As Long

  rs.ActiveConnection = sCon \' Hvad sker der her ?
  rs.UpdateBatch            \' Opdater det hele !!
     
  Set rs.ActiveConnection = Nothing

  Fubar = 1
End Function

Her er koden:
Public Function Fubar(rs As ADOR.Recordset) As Long
  rs.ActiveConnection = sCon  \'skaber en forbindelse til DB, sCon er min connectionstring
  rs.UpdateBatch            \'Opdater det hele !!
     
  Fubar = 1
End Function

Denne funktion virker fint hvis jeg vælger ikke at sætte en returværdi på funktionen.

Min asp-kode:
set rs = obj.GetEmptyRS()
rs.addnew
  rs(\"id\") = 1
  rs(\"name\") = \"Test\"
rs.update   
i = obj.fubar(rs)

............

Funktionen GetEmptyRs:
Public Function GetEmptyRs() As ADOR.Recordset
  Dim rs As ADOR.Recordset
  Dim sSql As String
                       
  sSql = \"SELECT * FROM user WHERE 1=2\" \'Henter et tomt recordset
  Set rs = CreateObject(\"ADOR.Recordset\")
  rs.CursorLocation = adUseClient
  rs.Open sSql, sCon, adOpenKeyset, adLockBatchOptimistic
  Set rs.ActiveConnection = Nothing 
  Set GetEmptyRs = rs 
End Function

Er det måaske fordi du faktisk får en fejl i linien:

i = obj.fubar(rs)

så den slet ikke bliver udført ?!?

Du kan dimmensionere variablen \"i\" til Long.
Eller bedre endnu - både \"i\" og funktionen til Integer.

Jeg er igen lidt på bar bund...
Skal der stå

obj.fubar(rs) ???
---

\"i\" er ikke et objekt !!
Det er funktionen fubar vel heller ikke !!?

ASP - siger at fejlen er i linien med i = obj.fubar(rs)

Den bliver derfor ikke udført!
Det underlige er så at hvis jeg skriver:
obj.fubar(rs)
så kommer det i databasen, men jeg får jo ikke fat i min returværdi...

Jeg har forsøgt at typecaste variablen i til long men det hjælper intet !!!

Der er ligesom med en Walkie Talkie:

Har du nu læst mine to sidste linier eller var du da ved at skrive din sidste kommentar??

SKIFTER !

i er en variant, det er jo meningen at den skal få værdien fra fubar ....(altså 1)

obj er et object :
  set obj = server.createobject(\"komponentnavn.klassenavn\")
fubar er en funktion i \"komponentnavn\"
........

\"i\" er Variant og fubar returnerer en LONG.
Kan det være det ??
Jeg ved ikke, hvor nøjeregnende ASP er.

Har du prøvet at Skrive ByRef foran din rs parameter?

ByRef rs As ADO...

Moses-> ASP kører kun med varianter..
Jeg har da også prøvet at typecaste i til at være en long - men det hjalp ikke.

lbs-> Det hjælper ikke at skrive byref foran rs...

Godt jeg ikke arbejder med ASP  ;o)

Det lyder, som en sag for ASP/VB producenten. Det er meget ulogisk.

Nemlig.....

Jeg fatter det ikke .....

Så må jeg jo lige ringe til Bill G.

Men tak for forsøget med at hjælpe....

har du prøvet at konvertere i slutningen?
hvor du sætter fubar lig resultatet?

fubar = CLng(ditResultat)

Det er formentlig det, jeg har tit selv oplevet lignende typefejl...
VB er nemlig ikke type frit som asp...

Lbs-> Har forsøgt men det hjælper ikke en ....

Jeg tror problemet ligger inde i selve funktionen..
det kan ligge hvor som helst inde i den...
er der basis for at du kan skrive alt koden her, så vi kan se hvad der sker?

Måske skulle du også prøve at kalde argumentet for object bare..

jeg har selv rodet med de samme problemer her for nyligt, kan kun sige at vb virkelig sutter ars =)

c++ til folket

Den man elsker ... tugter man !!

VB/VBA har aldrig svigtet mig.

Jeg har postet koden en gang...
men lad os prøve igen:

Public Function Fubar(rs As ADOR.Recordset) As Long
  rs.ActiveConnection = sCon  \'skaber en forbindelse til DB, sCon er min connectionstring
  rs.UpdateBatch            \'Opdater det hele !!
     
  Fubar = 1
End Function

Denne funktion virker fint hvis jeg vælger ikke at sætte en returværdi på funktionen.

Min asp-kode:
set rs = obj.GetEmptyRS()
rs.addnew
  rs(\"id\") = 1
  rs(\"name\") = \"Test\"
rs.update   
i = obj.fubar(rs)

............

Funktionen GetEmptyRs:
Public Function GetEmptyRs() As ADOR.Recordset
  Dim rs As ADOR.Recordset
  Dim sSql As String
                       
  sSql = \"SELECT * FROM user WHERE 1=2\" \'Henter et tomt recordset
  Set rs = CreateObject(\"ADOR.Recordset\")
  rs.CursorLocation = adUseClient
  rs.Open sSql, sCon, adOpenKeyset, adLockBatchOptimistic
  Set rs.ActiveConnection = Nothing 
  Set GetEmptyRs = rs 
End Function

jeg er blank...
kan kun sige at jeg tror fejlen ligger et sted hvor du ikke forventer det...
er hvad jeg har oplevet 1000 gange

held & lykke

Så er sagen opklaret ....

Det er ikke muligt !!

Problemet opstår når man sender fra asp til vb
Asp kører kun med varianter.

Læs mere på:
http://support.microsoft.com/support/kb/articles/Q244/0/12.ASP