Help neede in using VBScript to display table content neatly in a HTML page

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Help neede in using VBScript to display table content neatly in a HTML page

Logged in as: Guest

arrSession:exec spGetSession 2,2,63931

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Help neede in using VBScript to display table content neatly in a HTML page
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Help neede in using VBScript to display table content n... - 8/29/2008 6:25:06 PM

frozensmilz

Posts: 3
Score: 0
Joined: 8/29/2008
Status: offline

Original message moved by dm_4ever
Reason :
hello,

I am working on a system whose backend is db2 inside linux server. while the client part is working in windows.
Currently i use telnet to connect to server and get the table details by using sql queries in $db2....
I require a vb script to display the desired database table content in a HTML page
I use the db2 odbc driver for connectivity
kindly help ...

_____________________________

BASIL B.C.

Post #: 1

RE: Help neede in using VBScript to display table conte... - 9/3/2008 4:11:31 AM

ehvbs

Posts: 2201
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

please show some code/give some more details (what exactly should the script do?)

(in reply to frozensmilz)

Post #: 2

RE: Help neede in using VBScript to display table conte... - 9/3/2008 12:16:55 PM

frozensmilz

Posts: 3
Score: 0
Joined: 8/29/2008
Status: offline

Thanks for the response, here are the details
-----------------------------------------
TABLE DETAILS

Database Name: Members
Table Name: Contacts

Name    Contact Number
------     --------------------
abc      123
def      321
xyz      213

-----------------------------------------
Currently i use ODBC driver for DB2 to connect to this database using the following parameters
Under System DSN:
Data Source Name: bas
Database: Members
Hostname: 188.9.0.17
Port Number: 3319
Protocol: TCP/IP
------------------------------------------
The application is written in C and is an old software system,so the database access is not that dynamic.
The front end of the application is running on windows while the server side + database is running in Linux.
I would like to know, using this ODBC connection how can i display the content of the table Contacts in a HTML table using vbscript.
And i should be able to update the table with latest value when i click the refresh button.....
------------------------------------------
Is it possible to display the database table content using vbscript ??
Can you give me a start. I have used Visual studio express, to create it using datagrid but its a heavy application.

Kindly help in giving me a start.
A small piece of code for database connectivity using vbscript via ODBC will do, if this request is difficult to accomplish .

_____________________________

BASIL B.C.

(in reply to ehvbs)

Post #: 3

RE: Help neede in using VBScript to display table conte... - 9/3/2008 8:07:00 PM

ehvbs

Posts: 2201
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi frozensmilz,

while it's fairly easy to connect to an ODBC DSN, get a recordset, and display it as an
HTML table -

'---- StringFormatEnum Values ----
 Const adStringXML  =          0 ' 00000000
 Const adStringHTML =          1 ' 00000001
 Const adClipString =          2 ' 00000002

Dim sDSN    : sDSN    = <your dsn>
 Dim sSQL    : sSQL    = <your select>
 Dim sFSpec  : sFSpec  = ".\RS2HDR"   <-- your output file

Dim oCN, oRS, oFld, sRowStart1, sRowStart2, sRowEnd, sColStart, sColEnd, sColDlm, sRowDlm, sNExpr, sColHead, sGetString

Set oCN = CreateObject( "ADODB.Connection" )
 oCN.Open "DSN=" + sDSN
 Set oRS = oCN.Execute( sSQL )

sColHead = "    <tr>"
 For Each oFld In oRS.Fields
     sColHead = sColHead + vbCrLf + "     <th>" + oFld.Name + "</th>"
 Next
 sColHead = sColHead + vbCrLf + "    </tr>"

sRowStart1  = "    <tr>"
  sRowEnd     = "</tr>"
  sColStart   = "<td>"
  sColEnd     = "</td>"
  sRowStart2  = vbCrLf + sRowStart1 + sColStart

sColDlm     = sColEnd + sColStart
 sRowDlm     = sColEnd + sRowEnd + sRowStart2
 sNExpr      = "&nbsp;"
 sGetString  = oRS.GetString( adClipString, , sColDlm, sRowDlm, sNExpr )
 sGetString  =   sRowStart1 + sColStart                                    _
               + Left( sGetString, Len( sGetString ) - Len( sRowStart2 ) ) _
               + ""

Dim sTable  : sTable  = Join( Array( _
        "  <table border = '1' summary = 'layouttable'>" _
      , "   <thead>"                                     _
      ,      sColHead                                    _
      , "   </thead>"                                    _
      , "   <tbody>"                                     _
      ,      sGetString                                  _
      , "   </tbody>"                                    _
      , "  </table>"                                     _
           ), vbCrLf )

Dim sOutput : sOutput = Join( Array(                                                     _
        "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" "               _
      , "                      ""http://www.w3.org/TR/html4/loose.dtd"">"                 _
      , "<html>"                                                                          _
      , " <head>"                                                                         _
      , "  <meta http-equiv = 'Content-Type' content = 'text/html; charset=iso-8859-1'>"  _
      , "  <title>DBView</title>"                                                         _
      , " </head>"                                                                        _
      , " <body>"                                                                         _
      , "  <h2>" + sSQL + "</h2>"                                                         _
      , "  <hr>"                                                                          _
      ,    sTable                                                                         _
      , " </body>"                                                                        _
      , "</html>"                                                                         _
      , "" ), vbCrLf )

WScript.Echo sOutput
 CreateObject( "Scripting.FileSystemObject" ).CreateTextFile( sFSpec + ".html" ).Write sOutput

and not impossible to integrate such code into an .HTA, the "update the table with latest value
when i click the refresh button" part of your specs will be much more difficult to implement in
VBScript (not worth the trouble, in my opinion). So I'd stick to VS.

Regards

ehvbs

(in reply to frozensmilz)

Post #: 4

RE: Help neede in using VBScript to display table conte... - 9/6/2008 12:01:04 PM

frozensmilz

Posts: 3
Score: 0
Joined: 8/29/2008
Status: offline

thnks a lot... i was trying to implement a customized monitoring tool for my database and this is a good start.....

_____________________________

BASIL B.C.

(in reply to ehvbs)

Post #: 5

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Help neede in using VBScript to display table content neatly in a HTML page

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts