Controllo campo Vuoto VB

Article View: free.it.visual-basic

Article #411

Back to free.it.visual-basic Previous Next

#411

From: Qwerty
Date: Thu, 08 Jun 2006 20:01

28 lines
2159 bytes

Ciao a tutti, il mio progetto prevede di contare quanti dispositivi vengono usati in una certa data, ho creato 
il seguente codice, ma non riesco a capire come fare x calcolare il valore nullo di una select... potete 
aiutarmi ??
Grazie a tutti coloro che mi risponderanno !!

 Sub numero_pc(Giorno)
  On Error GoTo errore
strconn = "provider=microsoft.jet.oledb.4.0;Data Source = " & App.Path & "\clienti.mdb"
 Set conn = CreateObject("adodb.connection")
 Set rs = CreateObject("adodb.recordset")
 conn.open strconn

 For i = 0 To Giorno - 1
 sql = "SELECT sum(numero_pc) as pc From corso , Data WHERE corso.id_corso =data.id_corso and data.data=#" & 
Giorni.List(i) & " # "
  rs.open sql, conn
conn.Execute sql

 conn.Close
 Next i

errore:
 If Err.Number = 3021 Then
  MsgBox "vuoto"
 End If

Il seguente codice "dovrebbe" ricevere da una sub i Giorni interessati, poi un ciclo controlla per ogni voce 
in tabella se ci sono dispositivi liberi per una certa data e quanti c'� ne sono, ma non succede nulla !!

Technical Details

Message-ID: <Mm%hg.29442$cX1.466798@twister2.libero.it>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx01.iad01.newshosting.com!newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!213.132.189.2.MISMATCH!multikabel.net!feed20.multikabel.net!tudelft.nl!txtfeed2.tudelft.nl!news.mailgate.org!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: f94ee,c00b29c4ce91c602,start
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx01.iad01.newshosting.com!newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!213.132.189.2.MISMATCH!multikabel.net!feed20.multikabel.net!tudelft.nl!txtfeed2.tudelft.nl!news.mailgate.org!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail
From: "Qwerty" <abc@cde.uh>
Newsgroups: free.it.visual-basic
Subject: Controllo campo Vuoto VB
Lines: 30
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
Message-ID: <Mm%hg.29442$cX1.466798@twister2.libero.it>
Date: Thu, 08 Jun 2006 20:01:48 GMT
NNTP-Posting-Host: 151.25.145.147
X-Complaints-To: abuse@libero.it
X-Trace: twister2.libero.it 1149796908 151.25.145.147 (Thu, 08 Jun 2006 22:01:48 MET DST)
NNTP-Posting-Date: Thu, 08 Jun 2006 22:01:48 MET DST
Organization: [Infostrada]