mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ciclo e mail mapi

Ciao a tutti...
 
eseguendo questo codice:
 
    For Each obj In myfolder.Items
      MsgBox obj.Subject
      obj.Move myDestFolder
    Next
 
mi cicla una sola volta... quando in realtà ci sono 2 mail nella
folder.
 
potete chiarirmi il mistero ed eventualmente suggerirmi una soluzione?
lo stesso accade se ciclo con
 
 For j = 1 To myfolder.Items.Count
 
non riesco a capire.
 
grazie in anticipo!
EG

 wrote in news:577c89aa-00f0-425e-8d64-
948b13...@l1g2000vbc.googlegroups.com
:

se fai un ciclo che ha come riferimento la lista degli oggetti e la lista 
cambia a causa delle operazioni svolte all'interno del ciclo, il ciclo 
stesso non puo' funzionare correttamente...
 
 
- inizio programma
- j = 1
- count = 2
- operazione all'interno del ciclo (move)
- count = 1
- j = 2
- termina ciclo
 
 
-- 
Paolo opg
 
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--

 - Mostra testo citato -
 
Chiaramente sospettavo tale comportamento per un ciclo a contatori, ma
non me lo aspettavo con il costrutto
 For Each obj In myfolder.Items
 
come posso risolvere il problema? vorrei utilizzare un ciclo che
verifica le mail, le processa e le sposta.
fatemi sapere.
HELP ME PLEASE !

 verifica le mail, le processa e le sposta.
 
in .net avresti una exception se tenti di fare quello che stai facendo 
proprio perché l'enumeratore ti impedisce di modificare la collection 
su cui stai enumerando.
 
La soluzione più semplice è un ciclo "for" al contrario, partendo dal 
fondo.
 
.m
 
-- 
blog @ //
milestone.topics.it
 
 
 

 HELP ME PLEASE !
 
Fai un Do While con un contatore che viene incrementato all'interno del ciclo e, nel caso le email vengano spostate, non si incrementa.
 
Una roba del tipo
 
Do While j < myfolder.Items.Count -1
  If bla bla bla Then
     obj.Move myDestFolder
  Else
     j += 1	
  End if
Loop
 
Ovviamente, parto dal presupposto che obj.Move elimini l'oggetto da myfolder.Items
 
Nicola

 HELP ME PLEASE !
 
una possibilita', se con mapi e' possibile farlo, e' quella di fare una 
lista degli id delle email e fare il ciclo sulla lista.
 
qualcosa del tipo:
 
dim listaID() as string
listaid = getListaID()
for each EmailID as string in listaID
    	dim email as [oggetto mapi opportuno]
    	email = getemailfromid(EmailID)
    	email.move destfolder
next
 
dove getlistaid e getemailfromid sono funzioni che devi trovare/sviluppare 
tu, rispettivamente per recuperare la lista degli id e per recuperare un 
riferimento all'email da gestire a partire dall'id.


 wrote:

Grazie a tutti per i post!
credo che la soluzione del ciclo for "inverso" è quello più semplice e
di minor impatto sul codice scritto.
 
grazie ancora!
Newsgroup: it.comp.lang.visual-basic
Titolo: Help errore 3170

 
L\'errore 3170 puo\' essere superato con il Resume Next pero\' ad ogni avvio di un Form contenente un controllo Data viene segnalato ISAM installabile non trovato.
Comunque ho risolto il problema mezz\'ora prima dell\'appuntamento con il cliente per la consegna del programma:
e\' bastato settare la proprieta\' \"Connect\" dei Data Control con il valore \"Access\", mentre per default era settato con \"Access 2000\".
Grazie per la collaborazione. Ciao.


Newsgroup: it.comp.lang.visual-basic
Titolo: file dbf

Siccome da dove sono adesso non ho la possibilità di accedere al sito comune
ma solo all'ng, avrei la necessità che qulcuno mi spiegasse o mi scrivesse
le istruzioni per :
- poter accedere a un file dbf
- eseguire un ciclo che legga il file e contemporaneamente scriva su un file
testo tutti i record del file che appartengono a una specifica condizione
ossia fino a che un campo del file non cambia di valore.
Ringrazio anticipatamente chiunque sarà così gentile da rispondermi!!

 ossia fino a che un campo del file non cambia di valore.
Dal momento che (come al solito) non specifichi il tipo di file dbf
(clipper, dbase, foxpro...), ti mando qualcosa per dBase3(A) e qualcosa per
Foxpro(B), che è l'unico ancora supportato in lettura-scrittura da Ms:
dim con as new ADODB.Connection
( MYARC = mionomedelladirectorydovesitrovanoidbf )
A):
con.Open "CollatingSequence=ASCII;DBQ=" & MYARC & ";DefaultDir=" & MYARC &
";Deleted=1;Driver={Microsoft dBase Driver (*.dbf)};DriverId=21;FIL=dBase
III;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;SafeTransactions=0;Stat
istics=0;Threads=3;UID=admin;UserCommitSync=Yes;SingleUser=FALSE"
B):
con.Open "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended
Properties=" & """" & "DSN=Visual FoxPro Tables;UID=;SourceDB=" & MYARC &
";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;D
eleted=No;" & """"
Questo per la connection.
Per il ciclo, apri un recordset, filtra quello che ti occorre e scrivi il
loop relativo di scritura su file.
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Access 97, che DAO usa?

Ciao a tutti,
E' che mi č venuto un dubby...
Access 97 usa DAO 2.5,  o  DAO 3.51  ?
Ettore Maronese
il Mes

 Access 97 usa DAO 2.5,  o  DAO 3.51  ?
mi butto...
secondo me il dao 3.51, non fosse altro perchč access 97 č la terza versione
di access :-)

 ha scritto

si', 3.5x.
ma vuoi dire che prima di a95, access2 e' stata la prima versione ?
maro'...

 maro'...
Ora che mi ci fai pensare... č proprio cosě.
Access1 era un giocattolo, e VB3 lo implementava in modo nativo (sempre se
la RAM non mi inganna).
Ciao
Ettore Maronese,
il Mes che ringrazia CSSoft & PAL

 ma vuoi dire che prima di a95, access2 e' stata la prima versione ?
dalle mie parti access 95 non ha mai fatto capolino, ne ignoravo
completamente l'esistenza.
credevo che da access 2 si fosse passati direttamente al 97.
bah.. con questo viene a cadere il mio splendido ragionamento. gioisco
comunque del fatto che la conclusione era tuttavia corretta ;-) ;-)
--
Salutoni
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: Pagina delle proprieta'

Ciao ragazzi mi sono da poco avvicinato alla costruzione di controlli
Active X, e ho visto che nella loro costruzione, molti inseriscono una
pagina delle proprieta'. Qual'e' l'utilità di quest'ultima, visto che
esso comunque possiede la classica finestra delle proprieta'? Scusate
la banalita' della domanda.

la pagina delle proprietą č un componente particolare che ti permette di
aprire una finestra (non quella dell'F4) per compilare le proprietą avanzate
dell'ocx.....
hai presente la listview? se clicchi con il destro e poi su Proprietą, vedi
una finestra specifica della listview, per creare colonne, indicare il
carattere e i colori, elenchi di immagini, etc.....
come vedi, non č la classica finestra proprietą, ma č un'altra specifica del
tuo controllo....
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere e scrivere su di un file

Scusate c'è qualcuno che può spiegarmi come leggere e scrivere su un file?
Cioè la differenza che c'è tra il binary, il random (magari il random non
proprio visto che la differenza la spiega la parola stessa), ma il for
output e il for input.
Poi leggere da un file che può essere di x dimensioni e il cui testo può
essere anche tutto consecutivo, immagazzinare il contenuto del file in una
textbox e poi dalla textbox risalvarlo sul file.
Grazie Andrea

BINARY è un file che può essere aperto sia per lettura che per scrittura in
modalità binaria (a me è comodo specialmente in lettura), RANDOM come hai
detto te si spiega da solo, essendo un file ad accesso casuale, INPUT serve
per aprire un file in sola settura (Ascii), OUTPUT per aprire un file in
scrittura. Inoltre c'è anche APPEND che è come OUTPUT ma aggiunge ad un file
che già esiste.
'caricare - puoi aprirlo anche per input...ma te lo devi leggere riga per
riga
open nomefile$ for binary as 1
          text1.text=input(lof(1),1)
close 1
'salvare
open nomefile$ for output as 1
         print #1,text1.text
close 1
Gianni Moretti

Grazie ... ma ancora mi sfuggono un paio di cose
devo per forza aprirlo e leggerlo riga per riga??
Poi la differenza di per se tra input e binary quale č?
cioč a livello fisico sul file il binary cosa fa? e l'input?
Leggendo l'msdn ho trovato anche l'istruzione get che stando alla
spiegazione serve per recuperare i dati da un file su disco precedentemente
aperto?
Ho provato ad utilizzarlo, ma con scarsi risultati.
Ciao Andrea

 textbox e poi dalla textbox risalvarlo sul file.
Per leggere:
dim Linea as string
text1.text=""
Open "tuo file" for input as 1
while not eof(1)
input #1, Linea
text1.text=text1.text+vbCRLF+Linea
wend
close 1
Per salvare:
Dim Linea as string
Linea=text1.text
Open "tuo file" for output as 1
  print #1, Linea
close 1

 wrote:
io non vorrei rispondere, anzi, vorrei sapere come si fa a portare il
punto di stampa alla fine del file, per non cancellare tutto
riscrivendo
scusate se non c'entraniente..
Newsgroup: it.comp.lang.visual-basic
Titolo: Un'altra riflessione (per Moreno)

Ho notato che molti siti "famosi" sul VB utilizzano oltre alle categorie
Sorgenti, OCX, ecc. anche delle sotto categorie all'interno delle prime
citate (Multimedia, controlli, DB, ecc.) per raggruppare la mole di dati
presenti in questi siti. L'altro giorno cercavo nel Sito comune e mi sono
accorto che ci sono 5 paginate o giu di li di progetti e controlli vari. Non
sarebbe meglio raggrupparli? Sarebbe piu facile fare anche le ricerche
anziche smazzasi tutte le pagine per poi scoprire che quello che cerchi non
c'è!!
Un abbraccio
DD

 ha scritto nel messaggio
news:%yd96.70850$eB2.5...@news.infostrada.it...




Eh eh eh... ;-)))))
E' in fase di sviluppo (o ultimazione?) una nuova versione dinamica del sito comune che è molto di
più (esagero...) di quello che hai detto... infatti oltre ad esser suddivisa in categorie, ha anche
un nuovo motore di ricerca all'interno del sito, la visualizzazione è molto più intuitiva e di
conseguenza la sua consultazione molto più potente....
Quando arà attivo? Al più presto: stiamo ricatalogando tutti i progetti (e capite che, vista la
mole, non è un lavoro da 10 min); il motore è già pronto, quindi spero di presentarvi la nuova
versione entro la fine di Febbraio... (mi auguro prima...)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

molto lungo...
Io sono contrario, perche' e' troppo difficile stabilire:
1. quali categorie creare
2. dove mettere i progetti.
Ad esempio: un progetto che utilizza API per trovare l'IP della
macchina dove lo metti?
Altro esempio: un progetto che spiega come utilizzare un .rc per
metterci alcune icone come lo classifichi?
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

macchina dove lo metti?
Che ne dici di Networking? O se la vuoi chiamare "Reti"
La nuova versione del SC è stata studiata in modo che un progetto possa appartenere a più categorie
e, nel caso in cui ci siano dei dubbi, il motore di ricerca permette di trovare tutto quel che si
vuole in base a delle precise, mirate parole chiave...
comunque presto avrete modo di verificarlo con mano... ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema

Dopo l'istallazione di alcuni programmi, il VB6 non mi riconosce la
definizione di una variabile come database.
se imposto l'istruzione:
Dim dbase As Database
quando provo ad eseguire il programma, mi riporta:
Errore di compilazione
Tipo definito dall'utente non definito.
Cosa posso fare per risolvere il problema ?
Grazie in anticipo.
    Filippo

 ha scritto nel messaggio
news:ahj7fo$sa5$1...@serv1.iunet.it...

Prova ad aggiungere dal menu
Progetto
    Riferimenti
Qualcosa del tipo
    Microsoft Activex Data Objects
oppure
    Microsoft Data binding
...

Ho provato, ma continua a darmi lo stesso errore, mi sa che provero a
effettuare una nuova istallazione del VB6.
Grazie comunque.
	Filippo


 Grazie in anticipo.
di niente :-))
--
bye BlackMagic
ICQ: 85485468
Aiuta la ricerca sul cancro 
http://members.ud.com
Join
at:
http://members.ud.com/services/teams/team.htm?id=2E71C62A-8E67-48DB-B472-
BCA129B35412


Hai controllato che i riferimenti a Microsoft DAO 3.6 [o 3.51 o 2.5/3.51
compatibility library] siano attivati?

 oppure DAO 3.6
DAO 3.6.
Ciao
	Filippo



Si, ho attivo il 3.6 .
Ciao
	Filippo

 Cosa posso fare per risolvere il problema ?
Letti gli altri post, verifica di non avere sia DAO che ADO fra i
riferimenti.
Volendo mantenerli entrambi, dovresti dichiarare:
Dim dbase as DAO.Database oppure Dim dbase as ADODB.Connection (in ADO
l'oggetto Database non esiste). In caso di coesistenza di DAO e ADO, a
paritą di nome proprietą, vale quella del riferimento primo in elenco.

Newsgroup: it.comp.lang.visual-basic
Titolo: Codice per invio email da VB

Esistono dei sorgenti che possa implementare all'interno di una mia 
applicazione per inviare una email testuale da Vb?
Grazie

 applicazione per inviare una email testuale da Vb?
qui dovrebbe esserci qualcosa in smtp_vb
http://www.ostrosoft.com/smtp_component.asp
alternativi :
http://freshmeat.net/projects/sendemail/?branch_id=9400&release_id=188519
http://caspian.dotconf.net/menu/Software/SendEmail/
http://gnuwin.epfl.ch/apps/sendemail/it/index.html
--
Fosco

Fosco ha scritto:

Non intendevo un SMTP. POsso tranquillamente utilizzare un server FTP 
che mi fornisce anche la connettività, il mio problema è conoscere il 
codice sorgente per effettuare l'invio da VB6 con un SMTP già esistente.
Saluti e grazie

 codice sorgente per effettuare l'invio da VB6 con un SMTP già esistente.
Sito Comune, cerca SMTP.
Bye, G.

codice sorgente per effettuare l'invio da VB6 con un SMTP già esistente.
EH?????????
-- 
web: 
http://www.ponchio.it
Replay to: *[[banjo]]spamdim..@**
ponchio.it
**
"E' un vero peccato che tutte le persone che sanno come far
funzionare il paese siano troppo occupate a guidare taxi o
a tagliare capelli" - George Burns

 EH?????????
Penso, ma non ci giurerei, che lui abbia visto solo i link, ed abbia creduto
che si riferissero al codice per creare un *server* SMTP, e/o ci sia stata
un po' di confusione fra server e client :-).
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore 5 con oggetto listbox

Salve a tutti.
Mi dareste una mano per favore?
Creando un elenco usando una listbox, con una variabile chiamata Nome :
Dim X as Long
Dim Nome as String
For X = 1 to 1000000
    Nome = "Pinco Pallino " & Str(X)
    list1.AddItem Nome
Next
Quando faccio girare l'applicazione con VB e X arriva a 32768 mi dà: "Errore
5: Chiamata di routine o argomento non valido".
Credevo fosse un problema dell'oggetto listbox che accettasse valori fino a
Integer  ma, facendo una prova su un'altro PC (con 64 Mb di RAM, mentre il
mio ne ha 32) questo errore non lo dà più, e non lo dà neanche quando supera
66000 (perchè?!...).
- Qualcuno sà da cosa può dipendere? C'entra forse qualcosa la versione di
Windows 95? (Sul mio PC c'è ancora la vers. A).
Per cercare di aggirare il problema, ho anche provato a sostituire la list
con la textbox col comando:
Textbox1.Text = Textbox1.Text & chr(13) & chr(10)
o usare la RichTextBox col comando:
RichTextBox1.Text= RichTextBox1.Text & chr(13) & chr(10)
ma entrambi rallentano talmente tanto l'esecuzione da rendere inutilizzabile
l'applicazione.
- Come potrei fare un elenco del genere senza avere questo problema?
Grazie a tutti.
Ciao. Max.

non penso che una listbox possa contenere 1M di righe.
Stesso problema c'è con la textbox che può contenere all'incirca 60K. Nel
caso di utilizzo della textbox hai un limite di circa 60K e comunque, come
ti avevo anticipato io e qualcun'altro sul NG, usa una variabile stringa nel
ciclo e poi trasferisci i dati nell'oggetto.
Ma sei proprio sicuro di dover fare un elenco di questo genere? se il nome
"Pinco Pallino " è sempre lo stesso e varia il solo numero addizionato,
considera e gestisci il numero e successivamente abbini il nome.
Hai parlato di RichTextBox, come si fa a generare questo oggetto? Dov'è? In
passato mi è stato consigliato l'uso ma non ho trovato il modo di generarlo.
Saluti, Vittorio

...


l'ocx MICROSOFT RICH TEXTBOX CONTROL 5.0
Ti ringrazio, tu OK, adesso procedo ...
Saluti, Vittorio

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB + ACCESS97] Report con sottoreport

Ho fatto un programmino per la gestione di offerte, principalmente composto
dalla tabella di testata e dalla tabella delle righe, il tutto con VB6 +
access97.
Con access mi sono creato i report di stampa che via codice VB eseguo.
Fatta la seguente premessa vorrei richiedere il vs. aiuto sul seguente
problema. La stampa di un report che contiene un sottoreport nonfunziona più
precisamnete il report viene stampato mentre il sottoreport non contiene
dati.
Per la stampa uso il comando DoCmd.OpenReport
Dov'è l'inghippo ??
Ciao Beppe


Newsgroup: it.comp.lang.visual-basic
Titolo: Icone nei menu

Ho usato le api per inserire un'icona a fianco della voce di menu stampa e
funziona, ma ci sono delle imperfezioni nel risultato, ad esempio l'immagine
non compare totalmente ma sembra "tagliata" in basso pur avendo usato una
"small".
Qualcuno può postarmi le api o il codice necessari ad avere un risultato
piu' "brillante" ?
C'e' qualche trucchetto "commerciale" o e' solo una questione di codice ?
( che so, fare un'icona piu' piccola con uno sfondo monotematico etc..)


Prova a guardare qui:
http://www.marcominerva.com/vbcorner/download/controls2.htm
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Newsgroup: it.comp.lang.visual-basic
Titolo: Muovere mouse e tastiera da VB

Salve,
volevo sapere se conoscete un modo da VB...o qualche api usare per fare le
seguenti cose:
-muovere fisicamente il puntatore del mouse
-simulare la pressione dei tasti del mouse
-simulare la pressione della tastiera
Dal momento che ogni giorno ne voglio creare una nuova: oggi voglio fare un
clone di Pc AnyWhere
Gianni Moretti

 -simulare la pressione della tastiera
VB: Sendkeys

 ha scritto nel messaggio
news:97o201$pov54$1...@ID-77941.news.dfncis.de...


"quadratini" - mandare solo i pixel che cambiano di volta in volta)
Innanzi tutto butterei via il jpg.
E' il formato più schifoso che potessero inventare.
potrebbe andare bene per alcune fotografie, ma non per una schermata.
Poi, la soluzione migliore credo sia quella della sola porzione modificata.
Ciao

 wrote in message
90Sn6.2790$zH1....@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: cerca e-mail in una stringa

Esiste un algoritmo che permette di leggere in una stringa uno o più
indirizzi di posta elettronica?
Grazie ciao.

 indirizzi di posta elettronica?
Certo! Devi utilizzare le regular expression.
Qui trovi un sacco di regular expression per la ricerca di email:
http://regexlib.com/Search.aspx?k=email
E qui trovi un articolo che spiega come utilizzare le regular expression 
in VB 6.0:
http://support.microsoft.com/default.aspx?scid=kb;en-us;818802
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Path Documenti

Scusate la evidente stupidità della domanda (oggi proprio non
ingrano), ma come si chiama la variabile di sistema che restituisce il
percorso di default della cartella documenti (quella che nel 99.9% dei
casi è C:\Documenti)?
Grazie,
-- 
Letizia

 ha scritto nel messaggio
news:39c19c53....@news.tin.it...


 casi č C:\Documenti)?
Puoi recuperarlo dal registry. La chiave č:
HKEY_CURRENT_USER/Software/Microsoft/Windows/
Explorer/ShellFolders/Personal
oppure, a seconda del motivo per cui cerchi l'informazione:
HKEY_CURRENT_USER/Software/Microsoft/Windows/
Explorer/UserShellFolders/Personal
La chiave puņ essere anche HKEY_USER
Non cambia niente.

Mo' che mi viene in mente, c'č anche una funzione della shell
che fa sembrare il tutto piů elegante.
Public Declare Function SHGetSpecialFolderLocation Lib "shell32" _
        (ByVal hwndOwner As Long, _
        ByVal nFolder As SpecialFolderIDs, _
        ByRef pIdl As Long) As Long
Dove:
 -  hwndOwner: č l'handle della finestra proprietaria.
    Dovrebbe essere specificato solo se viene usato un dialogbox.
    Basta indicare l'handle del form.
-  nFolder:  č l'indice dello "special folder" di cui si richiede la posizione.
    Puň essere:
    Public Const CSIDL_DESKTOP = &H0
    Public Const CSIDL_PROGRAMS = &H2
    Public Const CSIDL_CONTROLS = &H3
    Public Const CSIDL_PRINTERS = &H4
    Public Const CSIDL_PERSONAL = &H5   ' (Documenti)
    Public Const CSIDL_FAVORITES = &H6
    Public Const CSIDL_STARTUP = &H7
    Public Const CSIDL_RECENT = &H8   ' (File recenti)
    Public Const CSIDL_SENDTO = &H9
    Public Const CSIDL_BITBUCKET = &HA
    Public Const CSIDL_STARTMENU = &HB
    Public Const CSIDL_DESKTOPDIRECTORY = &H10
    Public Const CSIDL_DRIVES = &H11
    Public Const CSIDL_NETWORK = &H12
    Public Const CSIDL_NETHOOD = &H13
    Public Const CSIDL_FONTS = &H14
    Public Const CSIDL_TEMPLATES = &H15   ' (ShellNew)
 -  pIdl:  č il puntatore all'"Item Identifier", l'indice univoco
    assegnato ad ogni file/directory
Quello che serve č appunto pIdl. Per tradurlo in qualche cosa
di leggibile, si usa la funzione:
Public Declare Function SHGetPathFromIDList Lib "shell32" _
    Alias "SHGetPathFromIDListA" _
    (ByVal pIdl As Long, _
    ByVal pszPath As String) As Long
dove:
 -  pIdl č quello che si č detto.
 -  pszPath č un buffer che riceve la stringa che riporta il nome
    "umano" del folder in questione.
    Il buffer pszPath puň essere grande al massimo MAX_PATH byte
    (MAX_PATH = 256)
Cosě č molto piů bello.
Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE]: Cambio Webmaster di turno

Informo il Newsgroup che oggi e' avvenuto il cambio di Webmaster di turno alla gestione del Sito Comune.
L'attuale WebMaster e' il buon Federico Galli.
Vi ricordo che il WebMaster cambia, ma la casella postare del Webmaster NO.
L'attuale WebMaster e' SEMPRE reperibile all'indirizzo:   
it_la...@usa.net
Evitate di inviare mail con contributi per il Sito Comune alle caselle postali private dei Webmasters.
Per andare sul sicuro potete sempre far riferimento ai links al WebMaster presenti sul Sito Comune stesso.
Ricordo inoltre che chiunque puo' dare la sua disponibilita' a fare il WebMaster per un periodo di 2/4 mesi.
Auguro a Federico un Buon Lavoro.
Di-sco-rso; Di-sco-rso; Di-sco-rso; Di-sco-rso; ......   :-)))
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

L'attuale WebMaster e' il buon Federico Galli.
Auguri a Federico!
Quando ci paghi da bere?  :-)
Ciao
P.S. Ettore, nun ce lassà... :-(
--
-
MIX (VB5SP3)
post...@yahoo.com
80 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

Newsgroup: it.comp.lang.visual-basic
Titolo: Da DLL a VB. Possibile?

Ciao.
Ho bisogno di un grosso aiuto... non so se sia possibile perchč non me ne
sono mai interessato, ma provo a chiedervelo lo stesso...
La scorsa settimana per sbaglio un collega ha cancellato una cartella che
conteneva i sorgenti di una parte di un applicativo sviluppato i vb.
Abbiamo cercato di recuperare qualcosa ma la versione piů recente che
abbiamo sotto mano risale a 3 settimane fŕ... lo so che bisognava fare piů
backup, ma ormai il casino č fatto...
Noi perň abbiamo una DLL ricavata da quel progetto creata solo giovedě...
Riusciamo a recuperare qualcosa da questa dll o possiamo buttarla e
ricominciare dal vecchio backup?
Il progetto č stato sviluppato con VB6 SP5. Se vi servono altre info
chiedete pure
Grazie
Andrea

 ricominciare dal vecchio backup?
la seconda che hai detto.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ricominciare dal vecchio backup?
Nope.
Bye, G.

Flea wrote:
<snip>
Ormai il danno è fatto, però perché non mantenete una copia della DLL in
P-Code per uso
interno? Dal P-Code è possibile ricavare molte info...
Ciao,
Andrea

 interno? Dal P-Code è possibile ricavare molte info...
P-Code? Cioè?

 P-Code? Cioč?
P-Code č il formato "eseguibile" delle applicazioni VB nativo fino alla 4,
mi pare.
Poi sono passati agli EXE, ma hanno mantenuto la possibilita' di generare
P-Code.
Ciao,
Andrea

P-Code.
Spesso conviene generare gli eseguibili in P-code perche' rimangono
piu' piccoli.
Nella maggior parte delle applicazioni fatte con vb, per esempio
quelle che accedono a database, non si notano differenze di
prestazioni rispetto agli eseguibili in formato nativo.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] - Tenere su la connessione

Ho scritto un prg per un amico che a scadenze prefissate (5/60
secondi) apre una pagina web...
Si piazza nella tray-icon e si attiva/disattiva.
Se interessa a qualcuno lo inserisco nel mio sito per il download.
Č poca roba, circa 30k, con i sorgenti VB5.
Hola
---
GbC
http://gbc.homeip.net
---

Me lo puoi mandare via e-mail semmai?
Grazie!
SebaMix
"GbC" <-...@O-O.OOO> ha scritto nel messaggio
news:AwD76.31011$eB2.3...@news.infostrada.it...


domani mattina č on line da me, afrea files...
--


ok, è on line
non chiedetemi aiuto sui sorgenti perché non ne do...
:)


secondi) apre una pagina web...
scusa, ma non è più facile e meno dispendioso pingare un server?
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

si, ma alle volte non funziona
alcuni providers controllano il traffico e ti stroncano se pinghi
solamente...


Ehmmmm... in che sezione esattamente?
Grazie!
"GbC" <-...@O-O.OOO> ha scritto nel messaggio
news:3xG76.32284$eB2.3...@news.infostrada.it...


solamente...
I see...
Io comunque avevo risolto il problema controllando le mail ogni tot: cosě, oltre a tener su la line,
sapevo se avevo nuova posta... :-PP


non č un sito cosě grande...
area files...
--


 wrote in message
news:8giu5tooq97fdqnrt...@4ax.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Verificare esistenza Directory

Come verificare in maniera semplice la presenza o meni di una directory???
Grazie...

> Come verificare in maniera semplice la presenza o meni di una directory???
If Dir("c:\window\desktop\gatti", vbDirectory) = "" Then
    'La directory non esiste
Else
    'La directory esiste
End If
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: riposto il codice

Riguardo al mio post del 14 marzo, posto il codice:
Ok posto il codice:
Dim res
 res = Shell("rundll32.exe rnaui.dll,RnaDial " + A, 1)
 If res <> 0 Then
   AppActivate res
   SendKeys vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbCrLf, True
 End If
End If
End
E' un codice per aprire automaticamente la finestra di connessione e preme
pure invio sul tasto connetti. Ho messo il software in esecuzione automatica
(la prima cosa che fa è far partire questo codice), all'avvio di windows si
apre la finestra di connessione (che si chiama A in questo esempio) però non
preme invio e genera un errore: run-time error (5). Quindi presumo che
l'errore viene generato quando arriva alla riga if res <>0 ecc....
Se eseguo il software normalmente il tutto funziona benissimo.
spero possiate aiutarmi

 Ok posto il codice:
Ancora??? :)
Basta adesso!
Già risposto sotto.
Ciao

 ha scritto nel messaggio
news:1v%k8.75087$Ns4.3...@news2.tin.it...


 ha scritto nel messaggio
news:zd%k8.75040$Ns4.3...@news2.tin.it...


automatico una connessione...
Però sarebbe buona educazione QUOTARE IL TESTO CORRETTAMENTE quando si
risponde! :-(
Se non sai cos'è il quoting guarda qui:
http://www.hardwaretips.com/modules.php?name=News&file=article&sid=9
Un Lord Rayden che non ne può più! :(
Visit: 
http://www.hardwaretips.com

 ha scritto nel messaggio
news:xO2l8.32444$%g7.10...@twister2.libero.it...


rasdial.....potresti insegnarmelo tu.
Info su rasdial le trovi sul sito comune del NG (link in firma), c'č
un articolo di  Moreno (cerca rasapi).
Perň sarebbe buona educazione QUOTARE IL TESTO CORRETTAMENTE quando si
risponde! :-(
Se non sai cos'č il quoting guarda qui:
http://www.hardwaretips.com/modules.php?name=News&file=article&sid=9
Un Lord Rayden che non ne puň piů! :(
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com

 newsgroup.
</MANIFESTO>
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

netiquette per non intasare il newsgroup.
Regola che evidentemente nemmeno il webmaster rispetta dato che il
messaggio a me l'hai mandato via NG e non via e-mail... o sbaglio
forse! :-)
Inoltre ti faccio notare che oltre a redarguirlo gli ho pure dato
risposta al quesito che poneva (due piccioni con una fava come si suol
dire) non ricadendo a mio parere nell'articolo 3. ;-)
Ti faccio notare che su tutti i messagi che potevi scegliere per
redarguirmi hai beccato proprio quello sbagliato! :-)
Un Lord Rayden che è meglio che continuiamo la discussione via e-mail
per davvero perchè adesso si che intasiamo il NG.
-- 

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con creazione pacchetti di installazione

Salve a tutti!
Dopo aver creato il pacchetto di installazione su macchine con 2000
Pro mi chiede di aggiornare alcuni file di sistema e poi di riavviare.
Lascio aggiornare il tutto e al secondo lancio del setup mi chiede
ancora di aggiornare i file e di riavviare nuovamente e cosě
all'infinito.
Da cosa dipende tutto ciň?
Come si puň risolvere?
Grazie mille a tutti!

 Grazie mille a tutti!

 all'infinito.
http://support.microsoft.com/default.aspx?scid=kb;IT;q191096
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto combobox....

Salve,
come da subject, questo controllino molto carino, non mi riesce di
farlo funzionare :)) Ho un form con dentro una dirlistbox e un
filelistbox (in realtà ci sono anche altre cose) inserendo questa
combobox malefica, io vorrei riuscrire a vedere solo alcuni tipi di
file. Mi spiego: se nella combo metto .jpg, .doc e .gif, io voglio, ad
esempio, che cliccando su .jpg (nella combobox) veda, nella
filelistbox, solo i file .jpg e così dicasi per .doc e .gif. Per fare
questo io credevo che questo che ho scritto io:
Private Sub Form_Load()
    CmbTipoDoc.AddItem ".jpg"
    CmbTipoDoc.AddItem ".gif"
    CmbTipoDoc.AddItem ".doc"
End Sub
_____________________________________
Private Sub CmbTipoDoc_Click()
    Select Case File1.ListIndex
    Case 0
        File1.Pattern = "*.jpg*"
    Case 1
        File1.Pattern = "*.gif"
    Case 2
        File1.Pattern = "*.doc"
    End Select
End Sub
funzionasse, invece non succede assolutamente nulla!! Io vede sempre e
comunque tutti i file, su qualunque voce della combobox io clicco...ma
perchè non va??

...


 wrote in message
news:394dac39...@news.libero.it...


approfondisco
La soluzione è come ha postato dopo Giorgio, come ho scritto io in
effetti funziona solo se seleziono prima il file nella listbox e poi
dalla combo...praticamente al contrario :)) Ho provato con e senza la
numerazione delle voci aggiunte alla combo, (0, 1, 2 aggiunti a fine
stringa) ma non è determinate ai fini del funzionamento. In effetti
era anche logico, i file deve visualizzarli in base a quello che
seleziono nella combobox quindi il listindex doveva essere riferito
alla combobox e non al filelist...giusto giusto, ho imparato qualcosa
di nuovo :))

filelistbox (precisamente uno dei primi 3). Provare per credere!
Grazie per la spiegazione!! Ho capito la cazzata che ho scritto :))
Oh ma questo NG è da paura...in meno di niente hai già la risoluzione
al tuo problema con tanto di spiegazione :)) 

Molto vero, ho visto un sacco di gente molto capace bazzicare da queste
parti... Pekkato che nessuno sia riuscito a risolvere il mio piccolo
(ahem...) problema :))
Io lo riposto che non si sa mai:
Devo convertire un testo ANSI-Telnet in un qualcosa di umanamente leggibile,
il che significa che devo gestire i 16 colori standard, i colori di sfondo e
i LamPeGgIaNtI... Sui codici me la cavo, faccio un paio di test con dei
reader e capisco quali sono i colori che mi servono, ma dove lo metto il
testo, punto di domanda?
Le RTF non supportano il lampeggio, il web browser preferirei non usarlo
(anche per problemi sugli sfondi colorati per la singola linea) e tolti
quelli non saprei che controllo utilizzare...
Qualcuno ha idee folgoranti? Aspetto con fiducia, e grazie :)
Ciaotutti,
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Selezione Directory

Ciao a tutti, ho un problema: devo selezionare in modo interattivo la
directory di salvataggio di una serie di files cosi' mi piacerebbe
aprire una CommonDialog e far si che mi ritorni il percorso di un
folder. Come posso fare?
Grazie mille.
manuel 'fmf' ferrero

 wrote in message
3817fe8f...@diesel.cu.mi.it...


 wrote


folder. Come posso fare?


Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e Excel

Buonasera a tutti.
Ho bisogno di un vs aituo, con un programmino apro un file .xls ci scrivo
delle inofrmazioni poi lo chiudo...
Ovviamente il programma mi chiede se voglio salvare il file.xls....
Vorrei in qualche modo che il msg di salvataggio non sia visualizzato
inquanto il programma funziona in automatico di notte senza l'omino che puo
digitare il tasto "yes".
Come posso fare?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Come posso fare?
Con google si trova in 5 minuti comunque:
'Dichiaro worksheet e excel application
Set exclApp = CreateObject("Excel.Application")
Set WKS = exclApp.ActiveWorkbook.Worksheets.Add
    exclApp.DisplayAlerts = False    'rimuove messaggi
    WKS.SaveAs "C:\file.xls"
    exclApp.DisplayAlerts = True     'ripristina messaggi
 
Allo stesso modo puoi fare il quit

Il 28 Gen 2009, 16:55, "Andrea [Work]" <andrea.isw...@gmail.invalid>
ha scritto:

Grazie 1000 Andrea
Mi occorre ancora un tuo prezioso consiglio, dopo aver lanciato il codice:
Dim objexcel As Object
Set objexcel = CreateObject("excel.application")
objexcel.Workbooks.Open "c:\prova.xls"
rigo = 9
objexcel.Range("A" & rigo).Value = "Ciao"
'Set WKS = objexcel.ActiveWorkbook.Worksheets.Add
 objexcel.DisplayAlerts = False 'rimuove messaggi
 WKS.SaveAs "c:\prova.xls"
 objexcel.DisplayAlerts = True 'ripristina messaggi
objexcel.Workbooks.Close
il programma mi salva il programma ma mi crea un nuovo sheet dove va
scrivere "Ciao"
Come posso fare per vincolare l'edit nel solo sheet1 ??
Grazie Ancora


 Grazie Ancora
Prima di scrivere ciao controlla che sia attivo il foglio che tu desideri
  If Not ActiveSheet.Name = "Partite" Then
    Sheets("Partite").Activate
  End If
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: dal 13/01/01 non funziona piu'

la ricerca di record per data in un recordset con VB5
tutto il 99 , il 2000 e fino al 12/01/01 e' stato ok usando il formato
mm/dd/yy,
ma dal 13 non trova i record, fa casino con l'anno.
Qualcuno mi aiuta per favore ?
Grazie.
Massimo

 wrote in message
news:t6n76.216041$DG3.5...@news2.giganews.com...

Bisognerebbe sapere che tipo di database e' e come viene fatta la sql per l'
estrazione dati.
Ciao
Aldo

 wrote in message
93kv4o$alkd1$1...@ID-56381.news.dfncis.de...




Perché se sei nel formato mm/dd/yy, non esiste il 13° mese, quindi il 13 Gennaio è 01/13/01
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

  & "ORDER BY
...(...)...
Sembrerebbe che la risposta buona sia quella che ti ha dato Moreno.
Se delimiti la data con # allora devi passarla nel formato mm/dd/yyyy.
Probabilmente non ti arriva cosi' nella variabile DataPre.
Ciao
Aldo

 ha scritto nel messaggio
news:0b2s5t4bv15u0sbtt...@4ax.com...


 ha scritto nel messaggio
news:93l7th$akt5a$1...@ID-56381.news.dfncis.de...

ci ho provato, e non solo con quella
e' incredibile ha funzionato tutto il 99 e 2000 fino alla data del 12/01/01
ci deve essere un bug in vb5
pero' si deve risolvere, se no che faccio ?
ciao,
Massimo


Prova anche con format(......,"yyyy/mm/dd")
Ciao
Sir Jo

 ha scritto nel messaggio
news:t5ta27m...@corp.supernews.com...


Ho risolto !!
Creo il recordset con l'oggetto query
Strano ma con l'oggetto query con parametri va tutto ok
mentre se creato il recordset normalmente ... ripeto dal 13/01/01 non va.
Ciao a tutti e grazie
Massimo

 wrote in message
news:EJA76.192956$IP1.7...@news1.giganews.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Indirizzi hardware con vb

Salve a tutti, sono un ultra-principiante di VB.
Mi diverto a costruire interfacce analogico/digitale, ma per ora queste
schede le controllo in basic con le funzioni Inp() Out(,) direttamente
all'indirizzo della scheda.
La mia domanda e' questa.
E' possibile fare lo stesso con VB, visto che non trovo tali funzioni ?
Vi ringrazio in anticipo per la risposta.
Se possibile risposta via email,  
bep...@sis.it
Grazie
Beppe

schede le controllo in basic con le funzioni Inp() Out(,) direttamente
Ciao,
esiste una Dll (per Win31) che si chiama InpOut.Dll che fa appunto
quel che ti serve. La dovresti trovare un po' dappertutto sui siti VB.
Ciao,
Ugo.
E-maiņ: 
pri...@gpnet.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Manuali da scaricare

Sapete per favore dove posso trovare dei manuali in italiano di VB 4 o 5, da
poter scaricare.
Ciao! Ciao!

poter scaricare.
I manuali di VB5 sono sul Cd stesso di VB5 (TOOLS\DOCS)
Zeross
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiave primaria e chiave esterna: tipo dati?

Buongiorno a tutti,
Nella tabella A (utenti) ho la chiave primaria ID_Utente con tipo dati
contatore.
Nella tabella B (Permessi) ho la chiave esterna che fa riferimento alla
chiave primaria della tabella A.  (Relazione 1:N). Di che tipo di dati deve
essere la chiave esterna?
Come DB uso ACCESS
E poi: visto che controllo il DB da visual basic, occorre per forza che il
campo ID chiave primaria sia di tipo contatore? Non č meglio un intero? Non
si incasina il codice VB con l'incremento automatico di ACCESS? (Tanto
incremento io con SQL da Visual basic quando inserisco i nuovi record)
Vi sarei veramente grato se potreste rispondermi
Max

>incremento io con SQL da Visual basic quando inserisco i nuovi record)
Il fatto che usi VB non c'entra con l'incremento automatico. Funziona bene ugualmente.
Puoi anche farlo tu ma se hai piu' utenti che inseriscono record sulla stessa tabella devi gestire un meccanismo di lock mentre calcoli il nuovo valore.
Antonio

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO !!! - Problemi con Datareport

Ho un problema con la stampa con Datareport.
Riesco a stampare benissimo tutti i dati che prelevo dal mio database, perň
avrei bisogno ( in stampe di piů pagine ) di modificare la CAPTION di un
comando LABEL che si trova inserito in una SECTION.
Se modifico il valore, mi viene automaticamente modificata in tutte le
pagine, mentre io avrei bisogno di modificarlo solo in una pagina.
Vi ringrazio anticipatamente per l'aiuto.
Saluti da ANDREA

 pagine, mentre io avrei bisogno di modificarlo solo in una pagina.
L'unico modo per fare queste cose con DataReport č:
Costruirsi un recordset virtuale con tutte i dati che ti servono in stampa.
Devi sapere tu quante rige ci stanno in ogni pagina.
Ogni <numero di records per pagina> valorizzi il campo che ti interessa nel
recordset.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: File sonori

Ho progettato uno screensaver e vorrei includere anche la possibilitą di
riprodurre file sonori.
Qualcuno saprebbe indicarmi quale codice (Api) devo inserire ?
Grazie
Aldo



Newsgroup: it.comp.lang.visual-basic
Titolo: Installazione Prodotti Visual Basic

Come faccio a settare l'installazione del mio eseguibile direttamente in 
Programmi\wr\wr\  da "Creazione guidata pacchetti installazione"?
Esiste un Tool migliore per costruire un installazione di un eseguibile 
Visual Basic?
Grazie. 

 Visual Basic?
Inno Setup e IsTool (interfaccia grafica)
-- 
Freccia@Bulldozer63 :D

 Programmi\wr\wr\  da "Creazione guidata pacchetti installazione"?
Glielo dici quando ti chiede il percorso dei vari files.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Apertura tabella con select

Progetto VB5 SP3, Database Access97, DAO3.5
in un form di questo progetto è presente un dblist, un controllo data1 e un
dbgrid collegata a data1.
Come posso fare una select nella tabella il cui nome viene selezionato dalla
dblist e collegarci il controllo data1 e di conseguenza la dbgrid?
Cioè mi servirebbe la versione corretta di:  Select * from dblist1.text
Grazie e un saluto a tutto il NG
Valli

 wrote in message 8obhjf$4cg$1...@nslave2.tin.it...

Si fa concatenando le stringhe, cioè ammesso e non concesso (ora non lo
ricordo) che esista la proprietà Text del controllo DbList (ma credo proprio
di sì), basta che scrivi:
set rs = db.openrecordset("Select * from " & dblist1.text)
Forse questo vale se usi un altro metodo per gestire i db, comunque la cosa
si può dire anche più in generale, cioè non devi mettere dblist1.text di
fila al resto senza nulla perchè se no lui cerca la tabella "dblist1.text",
ma devi concatenare la parte prima e dblist1.text proprio come un semplice
concatenamento di stringhe.
Se non hai capito o non funziona, scrivimi a 
sod...@libero.it
Ciao.

 wrote in message
seeq5.145543$dF5.2...@news.infostrada.it...

Funziona perfettamente
Grazie 1000
Ciao, Valli

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore 94: Nul

ADO in VB6 collegato a tabella dbf (provvisoriamente), prossima conversione
a mdb
caspag = datCassaRS.Recordset.Fields("uscitecassa")
'caspag è impostata come variabile Currency
uscitecassa è generato come SUM(...) as uscitecassa
L'errore presentato è : "Errore
di run time 94 Utilizzo non valido di Nul"
e da quel che ho visto dipende dalla mancanza di dati nel database, perchè
la stessa query e la stessa somma funziona egregiamente in presenza di dati.
C'è modo di intercettare l'errore per evitare la chiusura del programma ?
Grazie
--
Gulp ! Forse mi sono perso qualcosa !
Per rispondere via E-mail togli la x da 
xd...@cyberjunkie.com

 C'è modo di intercettare l'errore per evitare la chiusura del programma ?
if not isnull(datCassaRS.Recordset.Fields("uscitecassa").value) then
...
else
...
end if
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 ...
Ti ringrazio molto, č stato come...vedere l'alba. :-))
Buon Natale e felice anno nuovo
Egidio

Newsgroup: it.comp.lang.visual-basic
Titolo: strano errore ado

salve a tutti, stavo facendo un programma di magazzino e mettevo
questo codice:
Private Sub Form_Load()
Dim db As Connection
Dim rs As Recordset
Set db = New Connection
db.CursorLocation = adUseServer
db.Open "Provider=Microsoft.Jet.OLEDB.2.6; Data Source =" & App.Path &
"\MAGAZZINO.mdb;"
Set rs = New Recordset
rs.Open "Select Codice, Tipo, Decrizione, Quantità, Fornitore,
PrezzoIe, Iva, PrezzoII, Note, Nome from Magazzino order by Nome", db,
adOpenStatic, adLockOptimistic
Set rs = Nothing
End Sub
ma ricevo l'errore -
2147217904
.
da che dipende???
dove sbaglio???
grazie
ciao

Una ricerca su msdn, google, mai è.
L'errore che tu dichiari di ricevere è riferito al fatto che passi qualche
parametro di meno rispetto al necessario.
Ti lascio l'onere di scoprirlo da solo per imparare dai tuoi errori.
Un appunto, specifica sempre quale è la libreria che stai utilizzando
quindi quando fai dim db as connection e similari, digli se è ado
che stai usando lui piuttosto che dao ... regola che in generale vale
per tutte le classi e oggetti che usi.
Ti eviterà, in caso tu usi diversi oggetti di terze parti di incappare
che uno di questo oggetti abbia un metodo, proprietà o altro identico
a quello di un'altra classe/oggetto e di conseguenza il fatto che vb
non riesca a sapere quale classe vuoi veramente utilizzare.
-- 
Saluti
Andrea Moro

non riesca a sapere quale classe vuoi veramente utilizzare.
l'ho fatto, ho messo l'option explicit e ora ricevo l'errore che dice
che non ho specificato la variabile.

 che non ho specificato la variabile.
Option explicit a parte, che è secondo me d'obbligo.
Io mi riferivo al fatto che tu faccessi
dimi x as command
e sostituirlo con
dim x as adodb.command
e similari
-- 
Saluti
Andrea Moro

e similari
ho fatto anche questo

> rs.Open "Select Codice, Tipo, Decrizione, Quantità, Fornitore,
potrebbe essere un errore tipo *Decrizione* al posto di *DeScrizione*
*potrebbe*...
by
r

 ti ringrazio!!
Ma porca pupattola! Hai indicato il codice dell'errore, ma non una
descrizione, nè la riga che te lo segnala. Hai avuto 3 post a disposizione e
solo grazie all'occhio di Nerone si arriva alla soluzione. Scommettiamo che
la descrizione dell'errore è "Too few parameters. Expected 1." o qualsosa
del genere?! Se l'avessi detto prima, la soluzione era certa e, col tuo
occhio, ci saresti arrivato in un istante...


lupo, ma non eri sparito?

[*Alex88*=
asass...@libero.it
] ha scritto:

Lo devo intendere come un invito? <bg>


può essere....

 puň essere....
Che arroganza...
Per di piů detto da uno che ha tutto da imparare... Complimenti!

 può essere....
... che ti plonki. In ogni caso, grazie della sincerità.


ma stavo skerzando su, non ti scaldare, o grande esperto.


bhè, se è così mi avresti dovuto plonkare d anni...

[*Alex88*=
asass...@libero.it
] ha scritto:

No, ne sono certo.
A meno che tu non abbia cambiato nick o ... stile, anzi, style.

 ma stavo skerzando su, non ti scaldare, o grande esperto.
ROTFL
    ROTFL
        ROTFL