---
title: "SQL-fråga fungerar inte när jag sätter den i en Public function"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75529-sql-fråga-fungerar-inte-när-jag-sätter-den-i-en-public-function"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2003-04-30T15:44:58.000Z"
updated: "2003-05-01T18:20:00.000Z"
replies: 1
views: 158
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/75529-sql-fråga-fungerar-inte-när-jag-sätter-den-i-en-public-function"
---

# SQL-fråga fungerar inte när jag sätter den i en Public function

## #1 — Addeladde, 2003-04-30T15:44Z

Hej och trevlig valborg på er allihop.

Den här SQL-frågan fungerar men så fort jag sätter den inom en public function så blir det fel. Varför?

**Funktionen**

```
	Public Function GetList(ByRef objListRS)

		'On Error Resume Next

		Dim sqlString

		sqlString = "SELECT O1.O_ID, O_CreateDate, O_Username, O_Foretag, O_Name, Z_title " &_ 
		"FROM Operators O1, Zones Z, ZoneAssignments AZ " &_ 
		"WHERE AZ.O_ID = O1.O_ID " &_
		"AND  Z.Z_ID = AZ.Z_ID " &_
		"ORDER BY Z_title DESC, O_Username ASC "
		objDB.OpenRS objListRS, sqlString

		If Err.Number = 0 Then
			GetList = True
		Else
			GetList = False
		End If

	End Function
```

**Koden som använder funktionen**
Den rödmarkerade raden får jag felmeddelandet på

```
Private Sub ListOps()

	Set objOps = New RealAdmin_Operators

	blnList = objOps.GetList(objListOpsRS)

	objListOpsRS.PageSize = intRecsPerPage
	[b][red]intLastPage = objListOpsRS.PageCount[/red][/b]

	If IsValidID(intCurrPage) = True AND intCurrPage > 0 AND objListOpsRS.EOF = False Then
		objListOpsRS.AbsolutePage = intCurrPage
	End If

	Set objOps = Nothing

	If objListOpsRS.EOF Then
%>
  <tr>
    <td colspan="4"><%=lngNoOps%></td>
  </tr>
  <tr>
    <td colspan="4" class="TDSep"><img src="../images/pixel.gif" width="1" height="1"/></td>
  </tr>
<%
	End If

	intRecordCount = 0

	Do While Not objListOpsRS.EOF AND intRecordCount < objListOpsRS.PageSize

		intID = objListOpsRS("O_ID")
		strCreateDate = objListOpsRS("O_CreateDate")
		strUsername = objListOpsRS("O_Username")
		strName = objListOpsRS("O_Name")
		'strForetag = objListOpsRS("Z_title")

%>
  <tr>
     <td align="center"><%=strForetag%></td>
	<td><a href="viewop.asp?OID=<%=intID%>&Recs=<%=intRecsPerPage%>&Page=<%=intCurrPage%>"><%=strUsername%></a></td>
	<td align="center"><%=strName%></td>
    <td align="center"><%=strCreateDate%></td>
    <td align="center"><a href="viewop.asp?OID=<%=intID%>&Recs=<%=intRecsPerPage%>&Page=<%=intCurrPage%>"><%=lngView%></a> | <a href="operators.asp?Action=DeleteOp&OID=<%=intID%>&Recs=<%=intRecsPerPage%>&Page=<%=intCurrPage%>"><%=lngDelete%></a></td>
  </tr>
  <tr>
    <td colspan="4" class="TDSep"><img src="../images/pixel.gif" width="1" height="1"/></td>
  </tr>
<%

		intRecordCount = intRecordCount + 1
		objListOpsRS.MoveNext

	Loop	

	objDB.CloseRS objListOpsRS
	objDB.Close

End Sub
```

**Felmeddelande**

> ADODB.Recordset (0x800A0E78)
> Åtgärden är inte tillåten när objektet är stängt.

Permalänk: https://www.webforum.nu/p/75529

## #2 — LarsG, 2003-05-01T18:20Z

Vad är objdb som du använder i funktionen?

Permalänk: https://www.webforum.nu/p/1032378

---

Tråden på webben: https://www.webforum.nu/amne/asp/75529-sql-fråga-fungerar-inte-när-jag-sätter-den-i-en-public-function