Free Newsletters:
DatabaseDaily  
 		Database Journal
Search Database Journal:
 
MS SQL Oracle DB2 Access MySQL PostgreSQL Sybase PHP SQL Etc SQL Scripts & Samples Links Database Forum

» Database Journal Home
» Database Articles
» Database Tutorials
MS SQL
Oracle
DB2
MS Access
MySQL
» RESOURCES
Database Tools
SQL Scripts & Samples
Links
» Database Forum
» DBA Jobs
» Sitemap

News Via RSS Feed


follow us on Twitter





New Security Features Planned for Firefox 4

Another Laptop Theft Exposes 21K Patients' Data

Oracle Hits to Road to Pitch Data Center Plans
Database Journal |DBA Support |SQLCourse |SQLCourse2









Systems Programmer / Software Engineer - C, Unix-Linux, Multi-threading, IPC
WSI Nationwide, Inc.
US-NY-New York

Justtechjobs.com Post A Job | Post A Resume

Featured Database Articles

MS SQL

Dec 11, 2000

Another VB-ADO Tool to View Data from a SQL Database - Page 2

By Danny Lesandrini


Another VB-ADO SQL Tool to View Data from a SQL Database

Back to Article

Sample ASP Code Using ADO to Get Pubs Data

<%

    Dim sSQL
    Dim dbPubs
    Dim rsPubs

 
    '  Create an ADO database connection
    Set dbPubs = server.createobject("adodb.connection")

 
    '  Create a record set
    Set rsPubs = server.CreateObject("adodb.recordset")
	
' ////////////////////////////////////////////////////////////////
'
' This is the connection string section 
' It must be edited to reflect your login params:
'    Data Source=Server
'    Initial Catalog=Database
'    User ID=UID
'    Password=PWD

' 
    '  Open the connection using our ODBC file DSN
    sConn = "Provider=SQLOLEDB.1;Initial Catalog=Pubs;" 
    sConn = sConn & "Data Source=dan;User ID=sa;Password=;" 
    dbPubs.open(sConn)
'	
' ////////////////////////////////////////////////////////////////

 
    sSQL = sSQL & "SELECT       au_fName + ' ' + au_lName AS FullName , " 
    sSQL = sSQL & "             Titles.Title AS Publication " 
    sSQL = sSQL & "FROM         Authors " 
    sSQL = sSQL & "INNER JOIN   TitleAuthor " 
    sSQL = sSQL & "ON           Authors.au_id = TitleAuthor.au_id " 
    sSQL = sSQL & "INNER JOIN   Titles " 
    sSQL = sSQL & "ON           Titles.title_id = TitleAuthor.title_id " 
    sSQL = sSQL & "WHERE        Authors.State='CA' " 

 
    '  Execute the sSQL statement 
    Set rsPubs = dbPubs.Execute(sSQL) 

 
'  Now, create the ASP Table 
%>

 
<BODY bgColor=lightyellow>

 
<TABLE width="100%" border=1 align=center>
<TR>
  <TH width="25%">Full Name</TH>
  <TH width="75%">Title</TH>
</TR>

 
<%
'   Loop through recordset, inserting rows intp ASP table
    Do Until rsPubs.EOF
        Response.Write("<TR>") 
        Response.Write("<TD>" & rsPubs("FullName") & "</TD>") 
        Response.Write("<TD>" & rsPubs("Publication") & "</TD>") 
        Response.Write("</TR>") 

 
        rsPubs.MoveNext
    Loop
	
    rsPubs.Close
    Set rsPubs = Nothing

 
    dbPubs.Close
    Set dbPubs = Nothing
%>

 
</TABLE>
Back to Article


See All Articles by Columnist Danny Lesandrini


Tools:
Add databasejournal.com to your favorites
Add databasejournal.com to your browser search box
IE 7 | Firefox 2.0 | Firefox 1.5.x
Receive news via our XML/RSS feed

MS SQL Archives
Comment and Contribute

 


(Maximum characters: 1200). You have characters left.

 

 



Latest Forum Threads
MS SQL Forum
Topic By Replies Updated
SQL 2005: SSIS: Error using SQL Server credentials poverty 3 August 17th, 07:43 AM
Need help changing table contents nkawtg 1 August 17th, 03:02 AM
SQL Server Memory confifuration bhosalenarayan 2 August 14th, 05:33 AM
SQL Server – Primary Key and a Unique Key katty.jonh 2 July 25th, 10:36 AM