webForumDet fria alternativet

Räknare via komponent & SP

ASP

33 svar · 639 visningar · startad av ironhead · sida 2 av 2

Frågan, av ironhead

Halloj! Nu ere stillestånd i övre regionerna igen...hoppas på hjälp ;) Jag anropar en VB komponent med 1 parameter: test="hej" Set CCol = Server.CreateObject("testa.testaCol") CCol.test=cstr(test) CCol.mCountFM application("ConnectionStr"), application("provider") Komponenten i sin tur anropar en SP med: iDate = CStr(Format(Now, "yyyymmdd")) ' DagensDatum lSQLStr = "sCountFM @iD

Läs frågan i sin helhet →
Medlem sedan mars 20011 346 inlägg
#21

Får det inte att funka, och hittar inget fel...VB bara stänger ner sig, utan felmeddelande...jag måste nog sova på saken ;)

Medlem sedan juni 200032 967 inlägg
#22

Har du tagit bort errorhandlern?

Sov gott. ;)

Mvh

Medlem sedan mars 20011 346 inlägg
#23

Har du tagit bort errorhandlern?

Nej! Den finns kvar, men VB bara stänger sig på en hundradel när jag kör koden :(

Medlem sedan juni 200032 967 inlägg
#24

Om du tar bort errorhandlern så borde du få upp en felruta och den felande koden markerad.

Medlem sedan mars 20011 346 inlägg
#25

Näe, VB bara stängde ner sig

Medlem sedan juni 200032 967 inlägg
#26

Du tog bort "on error goto errorhandler" också?

Exakt hur ser din VB-funktion ut nu?

Medlem sedan mars 20011 346 inlägg
#27
Public Function mCountFM(pConnectionStr As String, pProviderStr As String)
  
  ConnectMe pConnectionStr, pProviderStr
  If mConnection.State = adStateClosed Then Exit Function

  iPublishDate = CStr(Format(Now, "yyyymmdd"))       
  lSQLStr = "sCountFM @iPublishDate='" & iPublishDate & "',@sFM='" & CStr(sFaktamangd) & "'"
       
  Set lrec = mConnection.Execute(lSQLStr)
  mCountFM = lrec(0)
  
  Exit Function

Det konstiga är att andra funktioner i denna komponent fungerar utan problem.....bara denna som trilskas!

Medlem sedan mars 20011 346 inlägg
#28

Provade att installera hela skiten på en annan dator, och tog bort count...bara för att lista ut posterna istället...med samma resultat...VB stänger ner sig utan felmeddelande..... :q

Jag sliter mitt hår i frustration...(har snart inget kvar)
Testade andra Funktioner i komponenten, och de funkar klockrent. Vad kan det vara? plz hilfe!

Medlem sedan juni 200032 967 inlägg
#29

Du har provat att hårdkoda värdena i anropet till proceduren? Hur ser SQL-frågan ut när den körs?

Medlem sedan mars 20011 346 inlägg
#30

Ja, jag kör bara med hårdkodat just nu.

SQL-frågan:

				SELECT DISTINCT tRecipe.iRecipeID
			        FROM tRecipe LEFT OUTER JOIN
    				FaktaRecipe ON tRecipe.iRecipeID = FaktaRecipe.iRecipe LEFT OUTER JOIN
    				Faktamangd ON FaktaRecipe.iRecipeFakta = Faktamangd.iFaktaID LEFT OUTER JOIN
				tMainIngredientGroup ON tRecipe.iRecipeID = tMainIngredientGroup.iRecipeID LEFT OUTER JOIN
				tIngredientGroup ON tMainIngredientGroup.iIngredientGroupID = tIngredientGroup.iIngredientGroupID LEFT OUTER JOIN
				tMealRecipe ON tRecipe.iRecipeID = tMealRecipe.iRecipeID LEFT OUTER JOIN
				tMeal ON tMealRecipe.iMealID = tMeal.iMealID LEFT OUTER JOIN
				tRecipeOccation ON tRecipe.iRecipeID = tRecipeOccation.iRecipeID LEFT OUTER JOIN
				tOccasion ON tRecipeOccation.iOccasionID = tOccasion.iOccasionID LEFT OUTER
				JOIN tRecipeType ON tRecipe.iRecipeID = tRecipeType.iRecipeID LEFT OUTER JOIN
				tType ON tRecipeType.iTypeID = tType.iTypeID LEFT OUTER JOIN
				tThemeIndex ON tRecipe.iRecipeID = tThemeIndex.iRecipeID LEFT OUTER JOIN
				tTheme ON tThemeIndex.iThemeID = tTheme.iThemeID LEFT OUTER JOIN
				tEditionIndex ON tTheme.iThemeID = tEditionIndex.iThemeID LEFT OUTER JOIN
				tEdition ON tEditionIndex.iEditionID = tEdition.iEditionID LEFT OUTER JOIN
				tRecipeProduct ON tRecipe.iRecipeID = tRecipeProduct.iRecipeID LEFT OUTER JOIN
				tProduct ON tRecipeProduct.iProductID = tProduct.iProductID
				WHERE tEdition.iPublishDate <=20031117 and (Faktamangd.sFaktamangd = 'test1' 
				or Faktamangd.sFaktamangd =  'test2')

Det enda jag kan hitta som skillnad är att jag skickar in id´n till de andra funktionerna & i denna själva namnet (test1,test2)

Medlem sedan juni 200032 967 inlägg
#31

SQL-frågan fungerar för sig själv alltså, men funktionen som ställer SQL-frågan med hårdkodade värden fungerar inte?

Har du provat att skapa connectionobjekt direkt i denna funktion istället för att anropa ConnectMe?

Har du provat att göra exakt samma sak på en ren ASP-sida utan att gå 'omvägen' via VB?

Medlem sedan mars 20011 346 inlägg
#32

Har du provat att skapa connectionobjekt direkt i denna funktion istället för att anropa ConnectMe?

Borde inte alla andra funktioner som anropar "ConnectMe" inte funka heller då?

Får testa att göra en "ren" sida då.

Medlem sedan juni 200032 967 inlägg
#33

Jo, men det är svårt för mig att veta exakt hur din komponent är uppbyggd, exakt hur du kallar på metoder/subrutiner från andra funktioner etc.

Medlem sedan mars 20011 346 inlägg
#34

Om du har lust att kolla på den kan du bara säga till, så lägger jag upp den....eller så tragglar vi på :)

Jag tar en paus ett tag iaf.. ;)

269 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
132 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
118 ms — ändringar (db)