home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / FL_ADOVB_aspx________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2002-03-29  |  4.2 KB  |  201 lines
  1. <%@ Import Namespace="ADODB"%>
  2. <%@ Assembly Name = "ADODB"%>
  3. <%@ Page Language="VB"%>
  4.  
  5.  
  6. <html>
  7. <head>
  8.     <TITLE>ADO Access from ASPPlus page using VB</TITLE>
  9. <body BGCOLOR="aquamarine" topmargin="10" leftmargin="10"> 
  10. <font size="4" face="Arial, Helvetica">
  11. This page imports the unmanaged msado15.dll    
  12.  
  13.  
  14. <%
  15.  
  16.     dim cn as ADODB.Connection
  17.         dim rs as ADODB.Recordset
  18.     dim strConn as String
  19.     dim i 
  20.     dim dummy 
  21.  
  22.     try
  23.             
  24.         'Change your SQL server name,user Id and password if SQL server is not on the same machine,
  25.         'you have an SQL password or userID
  26.         'strConn = "Provider=SQLOLEDB;SERVER=Your ServerName;UID=your User Id;PWD=Your password;DATABASE=pubs;"
  27.         strConn="Provider=SQLOLEDB.1;Data Source=(local);Integrated Security=SSPI;Initial Catalog=pubs;"
  28.             
  29.         cn = new ADODB.Connection
  30.         cn.Open (strConn)
  31.     catch connErr as Exception         
  32.             response.Write("Opening Connection Failed")
  33.     end try
  34.  
  35.     rs=new ADODB.Recordset
  36.  
  37.     rs.CursorType=ADODB.CursorTypeEnum.adOpenKeyset
  38.     rs.LockType= ADODB.LockTypeEnum.adLockOptimistic
  39.     rs.Open ("titles",cn,,, ADODB.CommandTypeEnum.adCmdTable)
  40.  
  41.     If (rs.BOF OR rs.EOF) Then 
  42.         Response.Write("No records found") 
  43.     End If
  44.  
  45.  
  46. Page.DataBind()
  47. %>    
  48. <br>
  49.     
  50. <BR>
  51.  
  52.     <% dim fld as ADODB.Field
  53.     
  54.     Response.Write("Enumerate through the fields collection of the SQL database table")%><br><%
  55.     
  56.     %><font size="2" face="Arial, Helvetica"><%
  57.     
  58.     If (rs.EOF)
  59.         rs.MoveFirst
  60.     End    If%>
  61.         <font size="4" face="Arial, Helvetica">
  62.         
  63.         <table border=1 cols=<%=rs.Fields.Count%>
  64.         <tr>
  65.         <%    For i=0 to rs.Fields.Count - 1 %>
  66.             <TH><% = rs.Fields(i).Name %></TH>
  67.         <% Next %>
  68.         </tr>        
  69.               
  70.         
  71.     <%  Do While Not rs.EOF %>
  72.  
  73.     <tr>
  74.     <%    For i=0 to rs.Fields.Count - 1 %>
  75.         <TD ALIGN=right>
  76.         <% 
  77.         If rs.Fields(i).Value.ToString().Equals(String.Empty) Then
  78.             Response.Write (" ")
  79.         Else 
  80.             Response.Write(rs.Fields(i).Value.ToString())
  81.         End IF %>
  82.         </TD>
  83.     <%    Next
  84.             
  85.      rs.MoveNext %>
  86.     </TR><%
  87.     Loop %>
  88.  
  89.     </table>
  90.     
  91.     <%  
  92.     
  93.             rs.MoveFirst
  94.             rs.Update("Title", "Inside DirectX")
  95.             rs.Update("Type", "Business")
  96.             rs.Update("ytd_sales", 1705)
  97.             rs.UpdateBatch(ADODB.AffectEnum.adAffectCurrent)
  98. ' adding a new record checking types int, string, money, date
  99.             
  100.             rs.MoveLast
  101.             dim objOne(5) As Object
  102.             dim objTwo(5) As Object
  103.             objOne(0)="title_id"
  104.             objOne(1)="title"
  105.             objOne(2)="type"
  106.             objOne(3) = "price"
  107.             objOne(4)="ytd_sales"
  108.             objOne(5)="pubdate"
  109.             
  110.             objTwo(0)="TZ9999"
  111.             objTwo(1)="Programming Outlook and Exchange"   '("TZ9999","Programming Outlook and Exchange","")  
  112.             objTwo(2)="beginners"
  113.             objTwo(3)=19.25
  114.             objTwo(4)=9999
  115.             
  116.             dim dt as Object
  117.             dt=Now
  118.             objTwo(5)=dt
  119.                     
  120.         rs.AddNew (objOne,objTwo)
  121.         
  122.     
  123.     rs.MoveFirst        
  124.     %>
  125.  
  126.     Records in the table after updating a record (shown in dark green) & adding a new record (shown in gold) 
  127.    <table border=1 cols=<%=rs.Fields.Count%>
  128.         <tr>
  129.         <% For i=0 to rs.Fields.Count - 1 %>
  130.             
  131.             <TH><% = rs.Fields(i).Name %></TH> 
  132.             
  133.         <% Next %>
  134.         </tr>        
  135.               
  136.         
  137.     <%  Do While Not rs.EOF %>
  138.         <tr>
  139.     
  140.         <% For i=0 to rs.Fields.Count - 1 %>
  141.         
  142.             <%If  ((rs.Fields(1).Value.ToString()).Equals("Programming Outlook and Exchange")) %> 
  143.                  
  144.  
  145.                 <td bgcolor="Gold">
  146.         
  147.             <%Else
  148.                 If ((rs.Fields(1).Value.ToString()).Equals("Inside DirectX")) %>
  149.                         <td BGCOLOR="LightSeaGreen">
  150.                      <%Else%>
  151.                         <td BGCOLOR="paleGreen">
  152.                 <%End IF
  153.             End IF%>
  154.              
  155.         
  156.         <%    
  157.         
  158.         If ((rs.Fields(i).Value.ToString()).Equals(String.Empty)) Then
  159.             Response.Write (" ")
  160.         Else 
  161.             Response.Write(rs.Fields(i).Value.ToString())
  162.         
  163.         End IF %>
  164.         
  165.         </TD>
  166.         
  167.     <%    Next
  168.             
  169.      rs.MoveNext %>
  170.     </TR><%
  171.     Loop %>
  172.     
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.     </table>
  180. <%
  181.     ' Change back the records back to initial status
  182.     ' Update the records back to their values.     
  183.     rs.MoveFirst
  184.  
  185.     rs.Update("title","But is It User Friendly?")
  186.     rs.Update("Type","popular_comp")
  187.     rs.Update("ytd_sales","8790")
  188.     rs.UpdateBatch(ADODB.AffectEnum.adAffectCurrent)
  189.     rs.MoveFirst
  190.     
  191.     cn.Execute(" delete from titles where title like 'Programming Outlook and Exchange'") ',ref dummy, -1)
  192.     rs.Close
  193.     cn.Close
  194.      %>
  195.  
  196.     </BODY>
  197.  
  198.   
  199. </html>
  200.  
  201.