Visual Basic e SQL

di
Emanuele2
il
3 risposte
E
Emanuele2
Pochi posts
Iscritto da
set, 2004
Messaggi:
3

Visual Basic e SQL

Salve sono un nuovo iscritto nel Forum,lo trovo molto ineterssante e molto tempestivo direi nella risposta ai problemi piu comuni....sono quì,per cercare di risolvere un problema che mi affligge da parecchio

Programmo in visual Basic 6,e come base di dati uso Microsoft Access.......Accesso DAO 3.6

possiedo un database avente i seguenti campi |NOME|COGNOME|DATA_DI_NASCITA|

Da un form di visual basic ho disegnato un command button,3 Textbox che conterrano i dati Nome,cognome,data di nascita,inserendo i corrispettivi dati come faccio a prelevare mediante l'SQl tutte le persone che compiono il compleanno in data odierna?

|NOME|COGNOME|DATA_DI_NASCITA "

MARIO ROSSI 04/09/2004


Supponendo che Mario Rossi sia nato il 04/09/1975<b></b><i></i>

3 Risposte

  • Y
    y2ksw
    Molto attivo
    Iscritto da
    lug, 2003
    Messaggi:
    741

    Re: Visual Basic e SQL

    SELECT * FROM TABELLA WHERE CLNG(DATA_NASCITA)=CLNG(NOW())

    La conversione in Long è necessaria per non filtrare anche l'ora.

    Giovanni
    ---
    http://www.y2ksw.com/vbulletin
  • E
    Emanuele2
    Pochi posts
    Iscritto da
    set, 2004
    Messaggi:
    3

    Re: Visual Basic e SQL

    Grazie pe rAvermi risposto,ho provato la stringa SQl,ma al momento che la richiamo mi restituisce l'errore

    Errore run-time 3075 errore di sintassi(operatore mancante)

    Riporto qui il codice della mia routine legata ad un command button

    Private Sub command_click()

    db.Close
    pazienti.MoveFirst
    Do Until pazienti.EOF
    Set pazienti = db.OpenRecordset("SELECT * FROM gestione WHERE CLNG[DATA_NASCITA]=CLNG(NOW())")
    Call frmpazienti.LEGGO
    frmpazienti.mnu_azzero.Enabled = False
    Unload Me
    Exit Do
    'End If
    pazienti.MoveNext
    Loop
    If pazienti.EOF Then
    MsgBox "ATTENZIONE PAZIENTE NON PRESENTE:OPPURE NOME DIGITATO INCORRETTAMENTE", vbCritical
    End If
    Exit Sub
    ERRORE:
    If Err.Number = 3021 Then
    MsgBox "IMPOSSIBILE PRELEVARE LE INFORMAZIONI POICHE NESSUNA VOCE E PRESENTE IN ARCHIVIO", vbCritical
    'txtnome.SetFocus
    End If
    end sub
    <b></b>
  • B
    bottomap
    Utente Attivo
    Iscritto da
    mar, 2004
    Messaggi:
    312

    Re: Visual Basic e SQL

    Ciao,
    Sembra tu abbia sbagliato le parentesi:

    CLNG[DATA_NASCITA] ==== CLNG(DATA_NASCITA)

    Ciaociao

    Venite a visitarci qui: http://spazioinwind.libero.it/bottomapsoftware
Devi accedere o registrarti per scrivere nel forum
3 risposte