Visualizzazione dei risultati da 1 a 6 su 6

Discussione: Interrogare DB Access

  1. #1

    Interrogare DB Access

    Chiedo scusa in anticipo perchè so che si trovano decine di lezioni che spiegano come interrogare un DB ma malgrado questo mi sono arenato e credo che per Voi sia veramente facile darmi una mano.
    Spiego, ho trovato in rete un semplice pacchetto per creare un altrettanto semplice blog. Il pacchetto si compone di 4 file asp ed un db in access.
    Prima di postare il codice spiego cosa volevo fare, volevo mettere la data ai commenti aggiunti, per far questo ho aggiunto una colonna "com_data" alla tabella "commenti" del db che è composto da 2 tabelle "messaggi" e "commenti".

    Riporto il codice della pagina config.asp (semplice riesco a capirlo anch'io):

    <%
    Option Explicit
    On Error Resume Next
    Response.Buffer = True
    Response.Expires = 0
    Dim cn, rs, sc
    sc = ""
    sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath("blog.mdb")
    Function CnOpen()
    Set cn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    cn.Open sc
    End Function
    Function CnClose()
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    End Function
    %>

    Riporto la parte di codice della pagina blog.asp che visualizza i commenti (qui capisco poco):

    <%
    If com <> "" And CInt(com) = rs("mes_id") Then
    SQL = "SELECT * FROM commenti WHERE "
    SQL = SQL & "com_mes = " & com & " ORDER BY com_id ASC"
    Set commenti = cn.Execute(SQL)
    %>
    <blockquote>
    <h3>Commenti</h3>
    <%
    While commenti.EOF = False
    %>


    <%=commenti("com_commento")%></p>
    <%
    commenti.MoveNext
    Wend
    %>

    Come faccio a far apparire la data scritta nella colonna "com_data" ?

    Giuro che ci ho provato , mi aiutate?

    Grazie

  2. #2
    con lo stesso metodo usato per com_commento

  3. #3
    Originariamente inviato da optime
    con lo stesso metodo usato per com_commento
    Grazie per la risposta ma come dicevo non capisco il codice e quindi non riesco a replicarlo per la data.

    Credo Tu intenda che devo replicare:

    Set commenti = cn.Execute(SQL)

    in questo modo:

    Set data = cn.Execute(SQL)

    quindi più in basso:




    Scritto in data: <%=data("com_data")%></p>


    prima di:


    <%=commenti("com_commento")%></p>

    E' corretto?

    Scusa se insisto ma credo di aver provato così e non mi fungeva, puoi confermarmelo.

    Grazie

  4. #4
    com_data non fa già parte dell'oggetto commenti? perché hai usato data? per simpatia?

  5. #5
    Originariamente inviato da optime
    com_data non fa già parte dell'oggetto commenti? perché hai usato data? per simpatia?
    Ti ringrazio molto non avevo intuito che commenti rappresentasse l'intero record. Purtroppo io mi muovo un po' a caso e non sempre funge.

    Grazie ancora


    p.s. però non dovresti prendermi in giro.

  6. #6
    Originariamente inviato da numb3rs666
    p.s. però non dovresti prendermi in giro.
    sennò non mi diverto

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.