Newsgroup: it.comp.lang.visual-basic
Titolo: Con questa data..che disperazione!

Sono ancora alle prese con questa data benedetta:
Problema: Devoestrarre da una tabella PNOTA.DBF delle date dal campo LADATA
secondo il mese.
Il formato che visualizzo quando apro normalmente la tabella è 30/12/02
(gg,mm,yy)
....
portamese = Month(Date)
datPrimaNotaRS.RecordSource = "select * from PNOTA Where Month(LADATA) =" &
CStr(portamese)
....
Risultato? Errore 3011 : The Microsoft Jet database engine could not find
the object 'select * from PNOTA Where Month(LADATA) =10' Make sure the
object exist and that you spell its name and the path name correctly
Eppure esiste, eppure è corretto! Ancora sintassi ?
L' Help per questo errore dice:
--->L'oggetto specificato non esiste.
Eppure è ben presente se normalmente apro la tabella senza filtrare date
--->Il nome dell'oggetto è scritto in modo errato. Controllare se mancano
caratteri di sottolineatura ( _ ) o di punteggiatura ed assicurarsi che non
siano stati immessi degli spazi iniziali
Per prudenza (gli spazi possono anche sfuggire) ho addirittura rinominato il
campo DATA in LADATA
--->Se si sta cercato di aprire una tabella di Btrieve, è possibile che i
percorsi indicati nel file di definizione dei dati FILE.DDF non siano
corretti. Assicurarsi che i file di dati (DAT) siano nelle directory
corrette
E anche qui, ripeto se apro normalmente la tabella senza la query visualizzo
tutto, quindi il percorso è esatto.
Con questa riga invece:
datPrimaNota.RecordSource = "select * from PNOTA Where Month(LADATA) ='" &
CStr(portamese)& "'"
Mi da Errore di run time 424 Necessario oggetto
Dove si nasconderà mai l'errore?
Grazie.
--
Gulp ! Forse mi sono perso qualcosa !
Per rispondere via E-mail togli la x da 
xd...@cyberjunkie.com

 CStr(portamese)& "'"
i casi a mio avviso sono tre:
1) non c'è l'opion explicit e hai sbagliato a scrivere i nomi degli oggetti
2) c'è l'option explicit e questi sono due oggetti diversi
3) hai sbagliato a trascrivere il codice....
quindi, per proseguire (premetto che non conosco dbf, quindi forse non sono
comunque in grado di aiutarti io, però qualcun altro magari si)
1) chiarisci i punti elencati sopra
2) specifica esattamente dove si verifica l'errore
3) posta il codice completo dei dimensionamenti
salutoni
Sergio

 Eppure esiste, eppure è corretto! Ancora sintassi ?
Usi DAO o ADO, in ogni caso come apri il database (o com'è la stringa di
connessione nel controllo Data)?
Usando DAO, questa istruzione apre correttamente un .DBF:
Set oggetto_database = OpenDatabase(nomecartella, 0, 0, "dBASE III;")
Sinceramente non ho provato a fare la Where che indichi (comunque provata e
funzionante per un db access con campo LADATA di tipo Date). Non è escluso
che il formato dei campi data nei files DBF sia incompatibile con la
funzione Month. E' comunque importante sapere come gli dici che è un DBF
(vedi domande sopra).

 incompatibile con la funzione Month.
Interessante. Sarebbe un bel casino per me.
Intanto grazie per l'aiuto. Se non mi portano al neuro prima, spero di
potermi rifar vivo !
Vedo che Lupo ed Albe sono sempre qua e, anche se intuisco che sono
parecchio indaffarati, ne apprezzo la disponibilità e competenza.


Anche le mie dita sanno che son veneto.... pardon per quel "ano aiutato"
anzichč "anno aiutato"


Accidenti, mi farò vedere:    hanno  !!


 VB5 (DAO?)
Tanto per capirci: VB4/5/6... <> da Oggetti per il trattamento dei dati.
DAO/ADO sono cose indipendenti dall'ambiente di sviluppo.
Controlla nei riferimenti del progetto quale dei due stai usando.
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

 3) hai sbagliato a trascrivere il codice....
Nessuna delle tre.
Ciao.
P.S. E' anche vero che scrivendo "trascriviamo" l'alfabeto in ordine sparso
una lettera dietro l'altra !!


 Controlla nei riferimenti del progetto quale dei due stai usando.
DAO 3.51 Object Library
Grazie per l'osservazione.


[@gulp] scrisse...
Nessuna delle tre.
Ciao.
    (snip)
Carissimo sig @gulp,
mi perdoni se, in un momento di sconforto e noia, ho osato rispondere ad un
suo post mettendo in dubbio la veridicità di quanto da lei riportato, lo
spirito è forte, ma la carne debole, ed il desiderio di mettersi in mostra a
volte smisurato...
Le avevo sollevato alcune incongruenze (o perlomeno, nella mia ingenuità,
tali mi sembravano) che potevano rendere inefficace il suo pregiatissimo
codice, e mi chiedevo quale fosse l'origine di tali discrasie, chiedendo se
lei, nella sua smisurata generosità, potesse chiarire i miei risibili dubbi.
Mi accorgo di aver peccato di hubrys (perdoni se la grafia di questo termine
sarà errata, il mio lettore cd è in riparazione), e di aver sfidato l'ira
degli dei. Evidentemente gli individui del suo lignaggio non si abbassano ad
esaudire gli umili desideri di noi che qui sotto strisciamo nella melma.
Farò sicuramente tesoro dell'esperienza che nella sua magnanimità mi ha
permesso di fare, e mi asterrò in futuro da rivolgerle ancora richieste di
alcun genere.
Voglia gradire nel frattempo i miei più sentiti omaggi.
Sergio

Ma tu cos'hai capito ?
Non c'è nessun pregiatissimo codice.... come sei permaloso, cosa dovrei dire
io che il Basic non lo conosco !
Scusami se in una giornata un po' fosca (per me o per te?) ho urtato la tua
suscettibilità.
Un cordiale e sicero saluto.


 suscettibilità.
Non è questione di essere permalosi, è che ti avevo chiesto qualche
chiarimento, non se avevo indovinato con qualcuna delle mie ipotesi.
Se tu non avessi risposto tutto ok, ma rispondermi per dirmi che non avevo
centrato con nessuna delle ipotesi senza specificare quale fosse la verità
mi è sembrato poco simpatico.
Non sono un guru di VB e non ho mai lavorato con i .DBF, cercavo solo di
ottenere qualche informazione che mi permettesse di inquadrare il problema,
le stesse che poi hai dato negli altri post.
Saluti
Sergio

 Interessante. Sarebbe un bel casino per me.
No, niente di interessante, la mia è una pura supposizione: non lo so!


Ciao e ancora grazie


 fosse la verità mi è sembrato poco simpatico.
OK dai, a volte per la fretta si continua il thread con chi risponde più
direttamente... penso sia comprensibile.
Certo, una delle tue tre ipotesi poteva essere giusta.... in questo caso non
lo era e mi ero limitato a comunicartelo.... probabilmente in modo un po'
diretto.... . quando si scrive in rete sono cose che possono succedere, devo
imparare ad usare le emoticons.
Non mi sembra il caso che ci scontriamo l'un l'altro armati.
Sempre con simpatia
Ciao.
Egidio


[@gulp]
(snip)
Non mi sembra il caso che ci scontriamo l'un l'altro armati.
concordo
[@gulp]
Sempre con simpatia
Ricambio
Sergio