74 messaggi dal 25 luglio 2001
Salve a tutti,

ho un db access cosi' composto:
Tabella1:

nome
cognome
data_inizio
data_fine

alcuni campi "data_inizio" e "data_fine" potrebbero restare vuoti.
All'apertura del report, una procedura dovrebbe cercarmi i record con valori null e sostituirli con un determinato valore,

Compe posso fare?
Qualcuno puo' aiutarmi?

725 messaggi dal 31 agosto 2001
Fammi capire bene! Quando stampi la lista dei record a video, vuoi che quelli con campo data VUOTO restituiscano un valore personalizzato? Se la mia affermazione è correttaquesto valore deve essere inserito anche nel DB o solo interpretato dalla pagina?

Luca Web developer
<b>Community Manager</b> di www.aspitalia.com
74 messaggi dal 25 luglio 2001
hai capito benissimo.
Questo valore deve solo esser interpretato e trattato sulla pagina ma non deve entrare nel db!

74 messaggi dal 25 luglio 2001
praticamente ci puo' essere una data di inizio di marzo ed una data fine di aprile.
quando richiamo il report io devo avere il calcolo dei giorni al 31 del mese in cui eseguo il report fregandomene di quale sia la vera data inizio o data fine
:-)

grazie

725 messaggi dal 31 agosto 2001
Quando cicli tutti i record metti una condizione:

While Not objRs.EOF

if objRs("data1") = "" then
Response.Write "Quello che vuoi"
else
Response.Write objRs("data1") & "&lt;br&gt;"
end if

...

objRs.MoveNext
Wend

Luca Web developer
<b>Community Manager</b> di www.aspitalia.com
74 messaggi dal 25 luglio 2001
ma come la stabilisco la connessione ai record?

74 messaggi dal 25 luglio 2001
come ciclo tutti i record? :-)


74 messaggi dal 25 luglio 2001
io ho fatto una cosa del genere che pero' alla condizione mi restituisce tutti "bene" anche se in qualche record il valore è nullo..

[vb]

Dim cmd1 As New ADODB.Command
Dim rds1 As ADODB.Recordset
Dim str1 As String
Dim fld1 As ADODB.Field


With cmd1
.ActiveConnection = CurrentProject.Connection
.CommandText = "SELECT pro_nome FROM tabellaprova"
.CommandType = adCmdText
End With
Set rds1 = cmd1.Execute
Do Until rds1.EOF
If rds1("pro_nome") = "" Then
str1 = "hjk"
End If
If rds1("pro_nome") = "ciro" Then
str1 = "bene"
End If
MsgBox str1
rds1.MoveNext
Loop

rds1.Close
Set fld1 = Nothing
Set rds1 = Nothing
Set cmd1 = Nothing

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.