Getting stats into a .net grid view - Posted (1885 Views)
thermal_seeker
Junior Member
thermal_seeker
Posts: 430
430
If this is the wrong place to post this... I apologise smile
I am trying to get the Member count, Forum count, Topic count and post count into a .NET datagrid on a webpage outside of the forum. It seems that I cannot draw the info directly from the database tables, so would I have to create a page that writes the stats into a new database table and draw from that or is there a simple way to do this??
No good at coding, but I can plough a field !!
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
HuwR
Forum Admin
HuwR
Posts: 20611
20611
I can't see why you would want to display this information in a gridview it is not data that would lend itself to being tabulated, you are basically just trying to display 3 distinct values, so why put it in a grid ?
If you really must display it in a grid, create yourelf an object with three properties, fill the properties by interrogating the db and then assign your object to the grids data source ( even though you don't want one you will need to create a list of your object even though there is only one since you can't assign a singleton object as a datasource)

MVC .net dev/test site | Snitz .NET Core running on Raspberry Pi

Posted
thermal_seeker
Junior Member
thermal_seeker
Posts: 430
430
I suppose I was thinking that a grid would look ok at the bottom of my page!! However, just a single line at the bottom of my page would be ok displaying those 4 results.
so if I re-phrase this: How easy is it to put those details on a page (VB .NET) outside of the forum.
Please bear in mind I'm a ploughman and not a coder smile
No good at coding, but I can plough a field !!
Posted
HuwR
Forum Admin
HuwR
Posts: 20611
20611
fairly simple, I have a usercontrol and some queries you can probably use, I'll dig them out

MVC .net dev/test site | Snitz .NET Core running on Raspberry Pi

Posted
thermal_seeker
Junior Member
thermal_seeker
Posts: 430
430
Thanks HuwR
No good at coding, but I can plough a field !!
Posted
HuwR
Forum Admin
HuwR
Posts: 20611
20611
I will make it into a control that you can just plonk on a page and configure via the webconfig, that should make it easier for you. What exactly do you want to be able to show, the control I have currently basically replicates the stats section at the bottom of default.asp

MVC .net dev/test site | Snitz .NET Core running on Raspberry Pi

Posted
HuwR
Forum Admin
HuwR
Posts: 20611
20611
I may not be able to show all that info as some of that relies on it using .net membership providers (members online for example)

also what version of .net is your site using?

MVC .net dev/test site | Snitz .NET Core running on Raspberry Pi

Posted
Carefree
Advanced Member
Carefree
Posts: 4224
4224
Here you go. You will have to change the connection string to point to your database (& the table prefixes if you modified them). Other than that, it will give you a table with your data.
Code:

<%
'###############################################################################
'##
'##			Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'##			Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'##			Free Software Foundation, Inc.
'##			59 Temple Place, Suite 330
'##			Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##			http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##			manderson@snitz.com
'##
'###############################################################################

'## Make sure to uncomment one of the strConnString lines and edit it so that it points to where your database is!

'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/snitz_forums_2000.mdb")         '## MS Access 2000 using virtual path
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/USERNAME/db/snitz_forums_2000.mdb")  '## MS Access 2000 on Brinkster
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\dbase\snitz_forums_2000.mdb"                   '## MS Access 2000 using physical path
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbase/snitz_forums_2000.mdb")        '## MS Access 97 using virtual path
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/USERNAME/db/snitz_forums_2000.mdb") '## MS Access 97 on Brinkster
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\dbase\snitz_forums_2000.mdb"                  '## MS Access 97 using physical path
'strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("dbase/snitz_forums_2000.accdb")      '## MS Access 2007 using virtual path
'strConnString = "Provider=SQLOLEDB;Data Source=SERVER_NAME;database=DB_NAME;uid=UID;pwd=PWD;"                           '## MS SQL Server 6.x/7.x/2000 (OLEDB connection)
'strConnString = "driver={SQL Server};server=SERVER_NAME;uid=UID;pwd=PWD;database=DB_NAME"                               '## MS SQL Server 6.x/7.x/2000 (ODBC connection)
'strConnString = "Provider=SQLNCLI;server=SERVER_NAME;database=DB_NAME;uid=UID;pwd=PWD;"                                 '## MS SQL Server 2005 w/ SQL Native Client
'strConnString = "driver={MySQL ODBC 3.51 Driver};option=16387;server=SERVER_IP;user=UID;password=PWD;DATABASE=DB_NAME;" '## MySQL w/ MyODBC v3.51
'strConnString = "driver=MySQL;server=SERVER_IP;uid=UID;pwd=PWD;database=DB_NAME"                                        '## MySQL w/ MyODBC v2.50
'strConnString = "DSN_NAME"                                                                                              '## DSN

'###############################################################################
'## SELECT YOUR TABLE PREFIXES
'###############################################################################

strTablePrefix = "FORUM_"
strMemberTablePrefix = "FORUM_"

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql = "SELECT COUNT(TOPIC_ID) AS CNT FROM " & strTablePrefix & "TOPICS WHERE T_STATUS = 1 "
set rsTopic=my_Conn.Execute(strSql)
if not rsTopic.EOF then
	intTopicCount=rsTopic("CNT")
end if
rsTopic.Close
set rsTopic = Nothing
strSql = "SELECT COUNT(REPLY_ID) AS CNT FROM " & strTablePrefix & "REPLY WHERE R_STATUS = 1 "
set rsReply=my_Conn.Execute(strSql)
if not rsReply.EOF then
	intReplyCount=rsReply("CNT")
end if
rsReply.Close
set rsReply = Nothing
strSql = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS = 1 "
set rsMembers=my_Conn.Execute(strSql)
if not rsMembers.EOF then
	intMemberCount=rsMembers("CNT")
end if
rsMembers.Close
set rsMembers = Nothing
strSql = "SELECT COUNT(FORUM_ID) AS CNT FROM " & strTablePrefix & "FORUM WHERE F_STATUS = 1 "
set rsForum=my_Conn.Execute(strSql)
if not rsForum.EOF then
	intForumCount=rsForum("CNT")
end if
rsForum.Close
set rsForum = Nothing
Response.write	"<table width=""60%"" align=""center"" border=""1"" bgcolor=""black"">" & vbNewLine & _
	"	<tr valign=""middle"">" & vbNewLine & _
	"		<td align=""center"" colspan=""4"" bgcolor=""ltcyan"">" & vbNewLine & _
	"			<font face=""arial"" size=""4"" color=""black"">Forum Statistics" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"	<tr valign=""middle"">" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
	"			<font face=""arial"" size=""3"" color=""black""><b>Forums</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
	"			<font face=""arial"" size=""3"" color=""black""><b>Members</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
	"			<font face=""arial"" size=""3"" color=""black""><b>Posts</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
	"			<font face=""arial"" size=""3"" color=""black""><b>Topics</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"	<tr valign=""middle"">" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
	"			<font face=""arial"" size=""2"" color=""black""><b>"& intForumCount &"</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
	"			<font face=""arial"" size=""2"" color=""black""><b>"& intMemberCount &"</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
	"			<font face=""arial"" size=""2"" color=""black""><b>"& intTopicCount+intReplyCount &"</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"		<td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
	"			<font face=""arial"" size=""2"" color=""black""><b>"& intTopicCount &"</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine
%>
Posted
HuwR
Forum Admin
HuwR
Posts: 20611
20611
that is classic asp not .net smile

MVC .net dev/test site | Snitz .NET Core running on Raspberry Pi

Posted
Carefree
Advanced Member
Carefree
Posts: 4224
4224
Whoops - read the request and ignored the parameters lol.
Posted
thermal_seeker
Junior Member
thermal_seeker
Posts: 430
430
Originally posted by HuwR
I may not be able to show all that info as some of that relies on it using .net membership providers (members online for example)

also what version of .net is your site using?

.NET 2.0 (with 3.0 and 3.5 extensions installed)

I'm not worried about members online.. the 2 main ones would be the member count and forum count. The topic count would be a bonus.
ie. we currently have xxx members
there are xxx forums with xxx topics

That would do it nicely... I'm a plain and simple man smile
Thanks Huw

Dave
No good at coding, but I can plough a field !!
You Must enter a message