Results 1 to 3 of 3

Thread: Writing to an Access DB

  1. #1

    Thread Starter
    Hyperactive Member
    Join Date
    Jan 2000
    Posts
    323
    I have a simple form setup that I need to write to a database. Once written I need it to redirect the person to a 2nd page which shows a list of what's in the Database. I am new to databases and could use any help.

    Thanks

    Please reply even if it's only to help me write to the database when hitting submit. thanks.
    If you think education is expensive, try ignorance.

  2. #2

    Thread Starter
    Hyperactive Member
    Join Date
    Jan 2000
    Posts
    323
    I got that fixed with a little help, but I'm still having a small problem. How would I say to list everything in Fields 1,3, and 6 in a table.

    Thanks for any help.

    Here is what I have so far, it just shows every field, which is too much.

    Code:
    <%
    Dim cnn
    Dim rst
    Dim connectString
    
    set cnn = Server.CreateObject ("ADODB.Connection")
    set rst = Server.CreateObject ("ADODB.Recordset")
    
    ConnectString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\shared webs\art\new1\mdb\speed.mdb"
    
    cnn.open connectString
    
    rst.open "speed", cnn, 2, 2
    %>
    <Table Border="1" width="100%">
    <tr bgcolor="#C0C0C0">
    <%
    if rst.EOF AND rst.BOF then
    		Response.Write ( "No Records found")
    	else
    		'output field names
    For intFieldCounter = 0 To (rst.Fields.Count) - 1
          Response.Write( "<TH>" &  rst.Fields.Item(intFieldCounter).Name )
    Next
    
    Response.Write ( "</TR>" )
    
    'output records
    Do Until rst.EOF
        Response.Write( "<TR>" )
    
        for intFieldCounter = 0 to (rst.Fields.Count) - 1
    	
    		if rst.Fields.Item(intFieldCounter).Name = "DonorID" then
    			Response.Write( "<TD> <A HREF=http://" & strServerName & "/dacm/content/donorTests.asp?DonorID=" & rst(intFieldCounter) & ">" & rst(intFieldCounter) & " </a> </TD>" )
    		else
    			Response.Write( "<TD>" & rst(intFieldCounter) & "</TD>" )
    		end if
    		
        Next
    
        rst.MoveNext
    
        Response.Write( "</TR>" )
    
    Loop
    
    Response.Write( "</Table>" )
    
    rst.Close
    cnn.Close
    set cnn = Nothing
    
    End if
    
    %>
    If you think education is expensive, try ignorance.

  3. #3
    Fanatic Member Psyrus's Avatar
    Join Date
    Jul 2000
    Location
    NJ
    Posts
    602
    You could pass in an SQL statement to do that.

    Something like:

    SQL = "SELECT Field1,Field3,Field6 FROM MyDB"

    rst.open SQL, cnn, 2, 2

    This would create a recordset with those particular fields where 'Field1 etc.' is your column names and and 'MyDB' is the name of your DB.


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width