[Resolvido] Contagem de registro retornado por uma SQL

[xanburzum 169]

A função Regs retorna um longo representando a contagem de registro retornado por uma

SQL statement. Existem dois argumentos necessários: ConnString e SQL.

 

ConnString deve ser definida para um banco de dados válidos e conexão string SQL deve ser

definido para um SQL. Recs retorna nulo se tratar de erro é statement

e se ocorrer algum problema durante a contagem de registro .

 

sintaxe:

long = Regs (connstring, sql)

 

exemplo:

 

Utilize Regs para determinar a contagem de registro retornado por um comando SQL.

 

<%
Dim a
a = Regs ("DSN=mydsn", _
	"SELECT ID FROM table WHERE date_field BETWEEN '3/2/00' AND '4/7/00';")
response.write a & " Registros encontrados!"
%>

code:

 

<%
Private Function Regs (byVal connstring, byVal sql)
	Const adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001
	Dim objCn, bErr1, bErr2, strErrDesc, objRs
	On Error Resume Next
	Set objCn = Server.CreateObject("ADODB.Connection")
	objCn.Open ConnString
	If Err Then 
		bErr1 = True
	Else
		Set objRs = Server.CreateObject("ADODB.Recordset")
		objRs.Open sql, objCn, _
			adOpenStatic, adLockReadOnly, adCmdText
		If objRs.BOF then
			Regs = 0
		Else
			Regs = CLng( objRs.RecordCount )
		End If
		objRs.Close
		Set objRs = Nothing
		If Err Then 
			bErr2 = True
			strErrDesc = Err.Description
		End If
	End If
	objCn.Close
	Set objCn = Nothing
	On Error GoTo 0
	If bErr1 then
		Err.Raise 5109, "Recs Function", "Bad connection " & _
				"string. Base de dados não podem ser acessados."
		Recs = Null
	ElseIf bErr2 then
		Err.Raise 5109, "Regs Function", strErrDesc
		Recs = Null
	End If
End Function
%>