mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ShutDown e Winnt

Qualcuno mi riesce ad indicare un esempio di codice per effettuare 
lo shutdown del sistema in VB5 su un sistema NT4.
La funzione ExitWindows sembra funzionare solamente in Win95 .
Nelle API ho visto la funzione initiatesystemshutdown ma non so se serve
al mio scopo e a farla funzionare.
grazie per le risposte.

...

Sotto NT4 devi avere i permessi per effettuare lo shutdown.
Quindi ammesso che tu sia loggato come un utente in grado di effettuare lo
shutdown devi acquisire i privilegi per eseguirlo.
Non ricordo da quale sito ho preso la risposta, ma comunque prima di
chiamare la ExitWindowsEx devi chiedere i privilegi
----------------------------------------------------------------------------
-----------
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias
"LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As
String, lpLuid As LUID) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal
ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As
Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal
TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As
TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As
TOKEN_PRIVILEGES, ReturnLength As Long) As Long
'
Private Sub Logoff_Click()
    AdjustToken
    Call ExitWindowsEx(EWX_LOGOFF Or EWX_FORCE, 0)
End Sub
Private Sub Reboot_Click()
    AdjustToken
    Call ExitWindowsEx(EWX_REBOOT Or EWX_FORCE, 0)
End Sub
Private Sub Shutdown_Click()
    AdjustToken
    Call ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0)
End Sub
'
'  Taken from MSDN
'
Private Sub AdjustToken()
    Dim hdlProcessHandle As Long
    Dim hdlTokenHandle As Long
    Dim lBufferNeeded As Long
    Dim tmpLuid As LUID
    Dim tkp As TOKEN_PRIVILEGES, tkpNewButIgnored As TOKEN_PRIVILEGES
    hdlProcessHandle = GetCurrentProcess()
    OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or
TOKEN_QUERY), hdlTokenHandle
    LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
    tkp.PrivilegeCount = 1
    tkp.TheLuid = tmpLuid
    tkp.Attributes = SE_PRIVILEGE_ENABLED
    AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored),
tkpNewButIgnored, lBufferNeeded
End Sub
----------------------------------------------------------------------------
---------------
Paolo
Newsgroup: it.comp.lang.visual-basic
Titolo: tabstrip e problemi con l'evento click

Cose strane che capitano....
un form con una TabStrip
A volte (sottolineo A VOLTE!) capita che cliccando sul Tab della tabstrip
non venga intercettato
l'evento click. ( Mi rimane quindi visibile il Frame "associato" al "Tab 1")
A qualcuno è mai capitato? E come porci rimedio?
Diciamo che capita una volta su 5
Posto il codice dei 2 eventi associati alla tabstrip uno per controllare se
sono state effettuate modifiche
prima di passare ad un altro frame, e l'altro quello relativo al cambiamento
di frame...
----------------------------------------------------------------------------
------------------------------------
Private Sub TabStrip1_BeforeClick(Cancel As Integer)
    If edtLblText.Visible Then
        Cancel = True
        Select Case MsgBox("Salvare le modifiche?", vbYesNoCancel,
"Attenzione!")
            Case vbCancel
                Exit Sub
            Case vbYes
                If edtLblText.Visible Then edtLblText_KeyUp 13, 0
            Case vbNo
                If edtLblText.Visible Then edtLblText_KeyUp 27, 0
        End Select
    End If
End Sub
Private Sub Tabstrip1_Click()
    If TabStrip1.SelectedItem.Index - 1 = mintCurFrame Then Exit Sub  ' Non
è necessario modificare la cornice.
    Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True
    Frame1(mintCurFrame).Visible = False
    ' Imposto mintCurFrame sul nuovo valore.
    mintCurFrame = TabStrip1.SelectedItem.Index - 1
    If TabStrip1.SelectedItem.Index = 3 And jcliBank = False Then
        popola_bank
        jcliBank = True
    End If
End Sub
----------------------------------------------------------------------------
-----------------------------------------
Ulteriori Precisazioni:
- La presunta mancata generazione dell'evento non dipende da:
    · Velocita del click tra una selezione e l'altra
    · Click non centrato perfettamente
    · Mouse (perchè cmq il tab cliccato si evidenzia come se fosse stato
cliccato
                ma non esegue le istruzioni dell'evento TabStrip1_Click)
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
   #hackers-it; #programmatori
_____________________________

         Cancel = True
Non conosco il TabStrip, ma questo Cancel=True generalmente vuol dire ignora
l'evento (il Click seguente, suppongo)... Sicuro che debba essere messo qui?

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] UuEncode - Come si converte?

Come si può convertire del testo uuencode in chiaro?
Grazie e Ciao
Luca

...


 wrote in message
HC694.46847$m62.5...@news.infostrada.it...


 
uuencode - uudecode converte da una codifica ad 8 bit per bite a gruppi
di 5 o 6 bit ( non ricordo bene ) rimasppando poi i 32 o 64 'simboli'
ottenuti in un set ridotto ASCII , se cerchi in giro troverai
certamente  dei sorgenti in C ( ad occhio direi su un CD di Linux ) che
fanno questa operazione che dovrebbero essere semplici da riconvertire
in VB , mi dispiace ma al momento ne sono sprovvisto per cui non ti
posso aiutare ulteriormente.
ciao
P.S. se una volta reperiti i sorgenti hai problemi di traduzione
mandameni in privato e ti faccio la conversione

 wrote in message
news:83vv81$nbg$1...@nslave2.tin.it...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: [listview]: La checkbox solo per prima colonna?

Avrei un'altra domanda:
Nel controllo Listview la checkbox č disponibile solamente per la prima
colonna?
Per averne piů per riga (
p.es
 per ogni colonna) oltre ad usare + listview
(oppure listbox) sincronizzate c'č qualche altro metodo (escludendo
controlli da parti terze)?
grazie
huvi

 ha scritto
| Avrei un'altra domanda:
| Nel controllo Listview la checkbox č disponibile solamente per la prima
| colonna?
Penso proprio di si...
| Per averne piů per riga (
p.es
 per ogni colonna) oltre ad usare + listview
| (oppure listbox) sincronizzate c'č qualche altro metodo (escludendo
| controlli da parti terze)?
Controlla se la grid qualcosa fa al caso tuo... (dbgrid, "multiflexgrid", ecc...)
Newsgroup: it.comp.lang.visual-basic
Titolo: Per i guru del Crystal Report

cari colleghi esiste qualcosa di simile al left$,right$,mid$ in crystal
report ?
mi spiego, ho il contenuto di alcuni campi data in questo modo :
19991231 (yyyymmdd), ovviamente quando stampo non č carino visualizzare ciň
che per me č comodo dentro il database.
Qualcuno mi sa dire se con qualche formula strana  in crystal report posso
convertire un campo da 19991231 (yyyymmdd) a 31/12/1999 (dd/mm/yyyy) ?
grazie per qualsiasi vostra risposta.
p.s.
bella domanda, vero ?

 che per me è comodo dentro il database.


Ovviamente la tabella si chiama "PROBLEM"
Ciao, Andrea

...

Newsgroup: it.comp.lang.visual-basic
Titolo: upload file con http

Ciao a tutti, ho uno script php che mi permette di caricare un file sul
server.Il file viene selezionato tramite un form html e spedito con
metodo post allo script.
Vorrei costruire un'applicazione VB che mi permetta di spedire file
sfruttando l'http senza usare il modulo html...come faccio?Grazie
anticipatamente per i consigli

potrebbe tornare utile a qualcuno: con il controllo winsock invio i
dati seguenti,ovviamente vanni cambiati alcuni paramtri come il
percorso dello script, il percorso del server, il nome del file e
contenuto del file.
Ciao
POST /www/amico.php HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
application/x-shockwave-flash, application/vnd.ms-excel,
application/msword, */*
Referer: 
http://127.0.0.1/www/
Accept-Language: it
Content-Type: multipart/form-data;
boundary=---------------------------7d52ee2010028a
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1;
.NET CLR 1.1.4322)
Host: 127.0.0.1
Content-Length: 41702
Connection: Keep-Alive
Cache-Control: no-cache
-----------------------------7d52ee2010028a
Content-Disposition: form-data; name="MAX_FILE_SIZE"
300000
-----------------------------7d52ee2010028a
Content-Disposition: form-data; name="userfile"; filename="E:\Documents
and Settings\Evs\Desktop\157930540.jpg"
Content-Type: image/pjpeg
ciao, sono stato spedito?
si
Newsgroup: it.comp.lang.visual-basic
Titolo: consiglio

Ciao
Conosco 0 (quasi zero) VB6, ma smanettando son riuscito a farmi un piccolo 
eseguibile per uso personale,
selezionare degli elementi, contarli e salvarli su un file txt
Mi chiedevo ma un form ha la possibilita' dello scroll in verticale?
Se qualcuno vuol dare un occhiata al listato, e dirmi cosa ho "combinato", 
come (sicuramente) andrebbe scritto correttamnete
consigliarmi su cose per alleggerirlo e migliorarlo
ripeto, leggendo da libri e siti, son riuscito a fare questo, il bello che 
funziona! ;-))
per vederlo:
http://www.alfonsodirienzo.it/public/exe/exe.htm
serve per il mio hobby, birdwatching, devo memorizzare le osservazioni fatte
birra pagata
Alf
alf.diri (chiocciola) 
tele2.it

 consigliarmi su cose per alleggerirlo e migliorarlo
Nel form1 anziche scrivere Check1(numero) = Clear per 341 volte, e più 
leggibile (e umano ) usare un ciclo for;
for i = 0 to 341
	check1(i) = clear
next i
la stessa cosa si ripete nella form6 con le print.
Manca il codice per leggere e/o aggiornare il file .txt con nuove 
osservazioni. Ciao

 osservazioni. Ciao
Ciao
innanzi tutto grazie x l'attenzione
quest'ultima riga non capisco.....
i form non si possono "scrollare" vero?
Alf

 i form non si possono "scrollare" vero?
Non in VB6.
Non in modo automatico almeno.
Per cosa ti serve?
Ciao 

 quest'ultima riga non capisco.....
Ogni volta che avvii il programma, questo salva le tue osservazioni sul 
file txt, ma nel programma non esiste nulla per osservare e modificare 
il file txt, magari aggiornandolo con nuove specie viste o che altro. 
per quanto rigurda lo scroll ti conviene mettere ciò che vuoi scrollare 
in un frame e poi allo spostamento della barra modificare il top del 
frame(per un movimento verticale) o il left (per un movimento 
orizzontale). spero di esserti stato utile Ciao

 ha scritto nel messaggio
news:e9adf2$k5g$1...@nnrp-beta.newsland.it...


 Il caldo diventa freddo una volta superata la costante termica universale
Ciao
se vuoi spiegarmiun po' meglio nel dettaglio, non ho ben capito cosa 
intendi.....
puoi spiegarmi meglio?
la list in che modo?
se vuoi scrivimi in pvt
Alf
alf.diri(chiocciola)
tele2.it

 la list in che modo?
La listwiev.......
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 ha scritto nel
messaggio news:e9bd4j$sn1$1...@area.cu.mi.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO e tempi di refresh

Salve a tutti.
Sto scrivendo un'applicazione con ADO e riscontro questo tipo di
problema.
Quando faccio operazioni su una tabella del mio db (access 2000), e
subito
dopo voglio visualizzare quel dato, intercorre un certo periodo di tempo
(uno o due secondi) prima che il dato venga sincronizzato. Per ovviare
imposto uno sleep di un secondo, ma IMHO č una cosa molto sporca, perchč
essendo
un'applicazione multiutente, chi mi garantisce che quando gli utenti
collegati
saranno 50, i tempi non saranno 50 volte superiori?
Sbaglio qualcosa, devo fare diversamente oppure non posso farci niente ?
Aggiungo che i miei recordset ADO sono tutti con cursore dinamico
lato client (ovviamente).
Grazie in anticipo per l'aiuto.
Gianluca.

"Gianluca Icegrown" <gluc...@SoftHome.net> ha scritto nel messaggio
news:3A3E1AA0...@SoftHome.net...

Mi pare che non sia possibile utilizzare un cursore dinamico lato client; al
massimo puoi usare un KeySet.
se vuoi utilizzare questo cursore devi usarlo lato Server; ritengo inoltre
che se hai questa urgenza di visualizzazione l'utilizzo di cursori lato
server siano piů indicati anche se penso che con 50 client collegati Access
inizi ad aver qualche problema.
Dopo l'istruzione Open del recordset verifica che adCursorType non sia 1
(cursore statico), perchč se cosě fosse, il tempo di attesa della
sincronizzazione č accettabile.
Facci sapere ...
    Davide

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 in Win 95 non funziona bene

Contrariamente da quanti molti dicono il VB6 sotto Windows 95 non
funziona al meglio. Uno dei problemi riscontrati č sul nuovo report il
quale non si vede. Installando la versione 98 č tornato tutto ok.

...


 wrote in message
36d805ad...@news.flashnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminazione directory

Salve a tutti,
ho il seguente problema:
dovrei eliminare una directory che contiene file ed altre cartelle piene. Il
comando RmDir ritorna errore in quanto non valido per la rimozione di
cartelle non vuote. Come posso fare?
Grazie per l'aiuto.
Mauro

 cartelle non vuote. Come posso fare?
Cancellando prima i file e le altre cartelle ? ;-)
Nei "samples" di VB, e sul Sito Comune (vedi firma), trovi due
routine diverse per fare la scansione di una dir e le sue subdir,
metti nel loop un bel "Kill" e sei a posto.
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

 metti nel loop un bel "Kill" e sei a posto.
considerando che vb di default non butta nel cestino, l'ultima riga spero
sia mooolto ponderata nel codice :)
e' nel jargon la storia di quello che per provare la ricorsione ha optato
per un rm * ?
non ne sono sicuro, ma mi sembra che col fso si potesse buttare anche una
dir piena.
sarebbe uno dei pochi casi in cui ne capirei l'uso.
ciao, j.
--
jav...@libero.it
http://digilander.iol.it/javalab

 sarebbe uno dei pochi casi in cui ne capirei l'uso.
Già... pare che lo usino tutti, IMHO un po' a sproposito.
Sarà che la nuova generazione evita il codice, se può
usare un componente. Il programmatore ideale, dal punto
di vista Intel e M$...
Bye, G.

 Non lo so, ma meriterebbe, soprattutto se il tipo era root. ;-)
ho cercato adesso e non l'ho trovata. ma sono sicuro di averlo letto. direi
che avesse i privilegi di root, cioe', in fondo, di tutto quello che sarebbe
rimasto dopo l'esecuzione del comando :)
ciao, a.

 cartelle non vuote. Come posso fare?
utilizza la funzione dell'API SHFileOperation(). trovi una classe già
fatta su 
http://www.softcircuits.com
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: PC

Come posso fare per far addormentare il mio PC? E come lo risveglio?
Grazie.

 ha scritto nel messaggio
news:s3Qs9.57915$%M1.14...@twister2.libero.it...



:-)
Installaci windows....una qualsiasi versione!

Lavoro già con Windows Xp, vorrei addormentare il mio sistema via software
in VB. E' possibile?
Grazie.
"Wodka4U(xp)" <mar_TOGLI_co@ma_194ANCHE_195463QUI_rtek.it> ha scritto nel
messaggio news:YBQs9.16707$TD1.7...@news2.tin.it...


 [Tanjp] ha scritto nel messaggio
Come posso fare per far addormentare il mio PC? E come lo risveglio?
[Wodka4U] ha risposto
 Installaci windows....una qualsiasi versione!
Mi spiace essere in disaccordo con il consiglio di wodka, mi pare che per la
parte relativa al risveglio non funzioni bene..... ;-)
Salutoni
Sergio


no no il mio si risveglia....
sussurra nel drive "....bsd..." vedrai che si risveglia di soprassalto....
e siccome non è abituato .....va in crash!
:oP

 Grazie.
devi scaricarti un programma di Filesharing , trovare il file "FL8" (*)  ,
aprirlo e lanciare il loop , mi pare che pero' impieghi 5 minuti o + per
addormentarlo !
Per svegliarlo trova il programma "CoffieCup" mi pare si chiami
(*) Five Landia 8

 Per svegliarlo trova il programma "CoffieCup" mi pare si chiami
CUT
eh eh
ah ah
oh oh!

 oh oh!
hai letto anche la definizione dell'asterisco ? ^_-

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con InstallSchield

Ho un programma sviluppato con Vb6 (versione contenuta in Visual Studio 6.0
professional), per la distribuzine di questo programma sto creando i dischi
di installazione con InstallSchield 5.5.
Il problema è questo; installando il programma (con i dischi di
installazione preparati con InstallSchield 5.5) su alcuni computer gira
perfettamente su altri facendolo partire mi da questo messaggio di errore:
run_time error  "13" Type mismatch
Questo errore apparentemente non dipende dal sistema operativo dal momento
che avendo due PC con Windows98 su uno gira correttamente e sull'altro no.
N.B. il programma utilizza due librerie sviluppate in C++ che sono state
comunque inserite nei componenti durante la creazione dei dischi.
Se qualcuno ha un'idea di cosa possa causare il problema sarei molto felice
di riceverla oppure se c'è qualche sito da consultare. grazie

Hai controllato nel file di registro che i componenti siano stati registrati
correttamente e si trovino nelle dir giuste?
Per il poco che ho usato installSchield posso solo ipotizzare che
l'installazione non contenga qualche componente e questi sia presente sul
computer su cui il programma gira e non sull'altro!

 wrote in message
8psomd$caf$1...@fe2.cs.interbusiness.it...


...

Apriti il file Vb6dep.ini in cui ci sono tutte le dipendenze delle Dll.
Se ad esempio includi Dao350.dll vedrai che ti servono almeno altre 3 o 4
altre dll
da includere nel progetto.
Devi controllare che le Dll che hai incluso nei riferimenti siano presenti
nel pacchetto
di InstallShield. Forse con il file ini di prima riesci meglio.
Ciao
Oz
Newsgroup: it.comp.lang.visual-basic
Titolo: Password

How do you access a password protected database using VB in a form

...


          WWW *and* Usenet search engine
WARNING: I cannot be held responsible for the above        They're   coming  to
because  my cats have  apparently  learned to type.        take me away, ha ha!

...



Set cDataBase = OpenDatabase(DataBase, False, False, ";pwd=" & <PassWord>)

Newsgroup: it.comp.lang.visual-basic
Titolo: -> nascondere il cursore (TextBox)

c'e' un modo x farlo?
mi riferisco al cursore della tastiera non a quello del mouse.
RISPONDETEMI SUL NEWSGROUP

Prova cosi':
Private Declare Function HideCaret Lib
"user32" Alias "HideCaret" (ByVal hwnd
As Long) As Long
Private Sub Text1_GotFocus()
  HideCaret (Text1.hwnd)
End Sub
Ciao.
<le...@no.spam> wrote in message
38a92607...@news.tin.it...


Vorresti nascondere il caret, in pratica? Non so se si può, il caret non
appartiene al tuo programma, ma al sistema operativo...
<le...@no.spam> wrote in message news:38a92607...@news.tin.it...


xche' il cursore del mouse a chi appartiene?
Eppure si puo' nascondere con ShowCursor (api)


RISPONDETEMI SUL NEWSGROUP

 Eppure si puo' nascondere con ShowCursor (api)
Infatti io contavo su una funzione ShowCaret, che c'č, perň serve solo a
_mostrare_ il caret, e non anche a nascnderlo, come fa ShowCursor


HideCaret
The HideCaret function removes the caret from the screen. Hiding a caret
does not destroy its current shape or invalidate the insertion point.
BOOL HideCaret(
    HWND hWnd  // handle to the window with the caret
   );
Parameters
hWnd
Identifies the window that owns the caret. If this parameter is NULL,
HideCaret searches the current task for the window that owns the caret.
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error
information, call GetLastError.
Remarks
HideCaret hides the caret only if the specified window owns the caret. If
the specified window does not own the caret, HideCaret
 does nothing and returns FALSE.
Hiding is cumulative. If your application calls HideCaret five times in a
row, it must also call ShowCaret five times before the caret is displayed.

_mostrare_ il caret, e non anche a nascnderlo, come fa ShowCursor
ah...e che ti dice la fun HideCaret
RISPONDETEMI SUL NEWSGROUP

Non l'avevo vista


Vedi che funziona?
:-)
--
Lunga vita e prosperità
Joshua
mailto://
jos...@mclink.it

 :-)
ah, allora e' senz'altro
declare function HideCaret _
lib wysiwyg.dll _
alias HideFunctionX ...
Newsgroup: it.comp.lang.visual-basic
Titolo: MDAC

Salve a tutti.
Ho installato nel pc un programma che ha sovrascritto i file di MDAC. Ora
non mi funziona più nessun programma che utilizza MDAC
ed in più visto che avevo già l'ultima versione (2.8) non riesco nemmeno a
reinstallarla.
Come posso fare?



Forse questo ti può essere utile ...
http://www.microsoft.com/downloads/details.aspx?familyid=8f0a8df6-4a21-4b43-bf53-14332ef092c9&displaylang=en
Inoltre ...
http://groups.google.it/groups?hl=it&lr=&threadm=3269669.1061476821%40dbforums.com&rnum=2&prev=/groups%3Fhl%3Dit%26lr%3D%26q%3Duninstalling%2Bmdac
Auguri ...

Grazie,
il secondo link mi h risolto il problema.
Il primo l'avevo già provato senza ottenere nulla.
"ErPotenza" <no....@thank.you> ha scritto nel messaggio
news:gdv6a0dclqo7gq41m...@4ax.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ridurre ad Icona 2 (piu' difficile)

 Public Const SW_SHOWDEFAULT = 10

 
HOWTO: Use Icons with the Windows System Tray
Last reviewed: October 31, 1997
Article ID: Q149276
Newsgroup: it.comp.lang.visual-basic
Titolo: spegnere e riavviare il sistema operativo

Tre semplici domande:
Come riavviare win 98?
Come spegnere win 2k?
come riavviare win 2k?
Grazie a tutte le persone che mi risponderanno.

 wrote in message
HDYG5.33033$Nz.9...@news.infostrada.it...
: Tre semplici domande:

:
:
:

Newsgroup: it.comp.lang.visual-basic
Titolo: Colegamento programma in vb con outlook express

Salve volevo chiedervi una cosa
Volevo sapere se c'e' la possibilità di prelevare dei dati presenti in una
e-mail scaricata con outlook express  con un programma in vb.
Per ora sono riuscito solamente a fare questo creando un file txt con il
contenuto dell'e-mail (copia e incolla) e facendomelo poi aprire dal
programma, però se fosse possibile eliminare questo passaggio e fare in modo
che il programma vada automaticamente a prelevarsi il contenuto dell'e-mail
sarebbe meglio
Grazie Mille

 ha scritto nel messaggio
news:96fhsq$1ri$1...@nreadA.inwind.it...

A Mattè, se non lo so io vor dì che qua nun c'è scritto, no?

Newsgroup: it.comp.lang.visual-basic
Titolo: CDONTS.dll

Ho implementato lo script asp per utilizzare il CDONTS, ma il risultato è il
seguente:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/helpdesk/AskPWDinvioCDonts.asp, line 130
Invalid class string
Suppongo che questo errore si verifica perchè non ho la libreria CDONTS
installata.
Come posso installarla, dato che ho comunque IIS 4 e dovrebbe già essere
presente?
Distinti saluti

 wrote in message
news:kgmxHeE...@news-02.uni.net...


| > E' presente se la macchina e' NT4 SERVER, PWS per workstation e IIS per
| > workstation non lo installano.
| > Credo (ma non sono sicuro) che ci voglia anche un SMTP sulla macchina (o
| > almeno le installazioni su cui ho visto usare CDONTS lo avevano, ma
erano
| > server web internet per vari siti).
A me risulta che CDO venga installato con i seguenti prodotti:
 - Outlook 2000 (componente opzionale)
 - Exchange 5.5 SP1
 - Exchange 5.5 con Active Server component selezionato.
Se ti può interessare, ti segnalo un link dedicato:
 
www.cdolive.com
e dove sicuramente puoi trovare molte risposte alle tue domande.
Roberto

In effetti bastava installare SMTP di IIS 4 e come per incanto č comparsa la
libreria perduta ;-))
Grazie ancora a tutti

Newsgroup: it.comp.lang.visual-basic
Titolo: libro vb

avrei ridotto i possibili acquisti a 3:
apogeo        £ 69.000    strutturato in 21 lizioni (una al giorno sta
scritto)
i portatili        £19.900    piccolo economico ma forse troppo?
microsoft        £90.000    con il cdrom di visual basic 6.
Qualcuno mi consiglia?
Se non prendessi il libro della microsoft come potrei avere il programma?

 ha scritto nel messaggio news:...


 Se non prendessi il libro della microsoft come potrei avere il programma?
Che programma? stai parlando di Visual Basic 6?
Con il libro probabilmente ti danno la versione limitata (non genera
eseguibili)
che è liberamente scaricabile da Internet.
per il libro i portatili è la traduzione italiana e purtroppo ridotta del
libro
di Francesco Balena che trovi
 
www.minervini.org/vb/vb.asp
            danilo
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report XI

Ciao e scusate,
sapete se e' possibile usare crystal report XI e VB6 ? Ho la vaga
impressione di no ma potrei sbagliami, nel qual caso sapete dove trovare
qualche info ?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

On Tue, 07 Nov 2006 15:43:25 GMT, 
costa...@libero.it
 (Van) wrote:
Io l'ho comprato e lo utilizzo con VS2005, penso tuttavia che tu possa
scaricare la demo (io l'avevo fatto prima di acquistarlo) e provare
prima se va.
Ciao


con VB6 funziona perfettamente, lo sto utilizzando proprio in questi giorni.
ciao


Dopo averlo provato e testato, proprio oggi mi è arrivato il pacchetto con 
il Cd e la licenza!
Certo che funziona con VB6, devi istanziare RDC nei riferimenti e usare il 
CRViewer.
Ciao, Vincenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con CrystalReport

Ho un problema con Crystal Report.OCX.
Faccio:
crp.Destination = 2
crp.PrintFileName = PathFile
crp.PrintFileType =17
crp.Action = 1
e qui mi genera un errore di protezione generale.
Chi mi aiuta ???
Grazie mille

 wrote in message 7j014i$o...@news.global-one.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: vb & cruciverba

Salve a tutti. Volelvo chiedervi se qualcuno di voi e' in grado di
illustrarmi come posso fare per scrivere un prg che sviluppi cruciverba.
Quello che a me interessa e' il posizionamento delle parole nella "griglia"
del cruciverba con i relativi incroci. Capisco che la problematica sara'
vasta, quindi, se qualcuno sa magari indicarmi un sito con dei sorgenti
esemplificativi o fatti da voi stessi, vi sarei infinitamente grato.

Aldo64 ha scritto:

Una volta avevo scritto un programma del genere, se voui ti posso aiutare.
Che cosa intendi per 'posizionamento delle parole nella "griglia"'?
-- 
Samuele Battarra
mail server: 
libero.it
, account: battarsa
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html

 Che cosa intendi per 'posizionamento delle parole nella "griglia"'?
Intendo questo : date delle stringhe (es : PORTO/ OSTE/ TORO) , posizionare
le lettere
che le compongono in una ipotetica matrice a due dimensioni (es 5,5) creando
tutti le possibili combinazioni
tra verticali ed orizzontali : es. :
 PORTO
    S
 * TORO
    E
o altre soluzioni.
Grazie

Aldo64 ha scritto:

Dunque tu vorresti, dato un elenco di parole, che il programma
le mettesse automaticamente dentro la griglia, rispettando gli incroci.
Questo e' abbastanza difficile.
Se non ti interessano le combinazioni non valide (come quelle del tuo
esempio) puoi procedere cosi'.
Prendi la prima parola e la metti nella griglia.
Cerchi tra le sue lettere le iniziali delle altre parole, quando le
trovi puoi infilare li' le altre parole.
Se ti trovi in condizione di non poter piu' inserire parole, disfi
parte del lavoro tornando indietro e riprovando con altre combinazioni.
Il programma che avevo fatto io era piu' semplice, l'inserimento delle
parole avveniva manualmente e c'era una funzione che facilitava la
ricerca di parole con certi vincoli (ad esempio tutte le parole di
4 lettere che iniziano con D e finiscono con E).


 Questo e' abbastanza difficile.
    Lo so, ma comunque ti ringrazio per la tua risposta.
    Sto cercando sulla rete informazioni valide.... speriamo
    di avere fortuna.
    Grazie


Scusa, ma per far questo dovevi avere un dizionario su db. Esiste qualcosa
di simile da trovare in rete?
ciao

Maximus ha scritto:

Esatto. Ne aveva uno molto limitato (adatto giusto per i test).
In piu' una funzione che, una volta terminato il cruciverba,
potevi inserire automaticamente nel dizionario le definizioni di
quel cruciverba.

Newsgroup: it.comp.lang.visual-basic
Titolo: Come creare una dipendenza tra form del tipo parent child come nel form MDI?

Salve a tutti,
    ho un dilemma. Vorrei creare un form senza BorderStyle ( =0) che mi
contenga altri form con una relazione parent-child (praticamente come fa il
form MDI con i form child) .
E' possibile creare una cosa del genere?
Oppure al limite è possibile fare scomparire la barra superiore di controllo
(riduci icona,ingrandisci,chiudi) al form MDI e visualizzarlo a schermo
intero?
Accento suggerimenti e consigli
grazie tante

 (praticamente come fa il form MDI con i form child) .
Il sistema più semplice è aprire i form "figli" passando la Form padre come
parametro OwnerForm del metodo Show:
FrmDaRendereFiglia.Show 0,FrmGenitore
In questo modo la Form figlia non è però contenuta nella Form genitore, ci
sta solo appoggiata sopra.
In alternativa, puoi usare l'api SetParent per rendere veramente un Form
figlio di un'altro.
Private Declare Function SetParent Lib "user32" (ByVal hWndChild _
          As Long, ByVal hWndNewParent As Long) As Long
Public Sub RendiParente(HwndFiglia As Long, _
          HwndPadre As Long)
   SetParent HwndFiglia, HwndPadre
End Sub
Puoi chiamare la sub RendiParente in questo modo:
RendiParente FrmDaRendereFiglia.Hwnd, FrmGenitore.Hwnd
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: On Error in Tilt ???

Ho un piccolo problemino...
Ho sviluppato una compontente Activex EXE con VB 5 ServicePack 3  che 
effettua una connesione con un database Access via DAO e tre connessioni a 
tabelle DBF (Clipper) mediante ODBC (MS ODBC Drivers V.3.51). Sia il 
database Access sia le tabelle DBF sono su un server NT4 e l'applicativo 
viene eseguito da una Workstation NT4 ServicePack 4.
Inoltre le tabelle DBF sono condivise da un applicativo Clipper, e da un 
altro Activex EXE (via ODBC)
Questa componente, interagisce con una componente Client (Standard EXE) 
solo per permettere la visualizzazione di contatori mediante degli eventi.
In una Procedura del seguente tipo che viene chiamata dal client:
Proc Elabora()
Dim rdoCliente As rdoResultset
Dim rdoOrdine As rdoResultset
Dim rsEseguiti As Recordset
On Error GoTo Err_Procedura
Set rsEseguiti = EstraiEseguiti() 'Ritorna un recordset
Do While Not rsEseguiti.EOF
    Set rdoCliente = rdoEstraiClienti() 'Ritorna un resulset di una riga
    Set rdoOrdine = rdoEstraiOrdine() 'Ritorna un resulset di una riga
    RaiseEvent VisualizzaContatori() 'Aggiorna dei contatori su un form del 
Client
    With rdoOrdine
        Do
            .Requery 'Aggiorno il resulset
       Loop Until (!PROPOSTA = "")
        .Edit
        !PROPOSTA = "E"
        .Update
    End With
    rdoOrdine.Close
    rdoCliente.Close
    rsEseguiti.MoveNext
Loop
On Error GoTo 0
rsEseguiti.Close
Set rdoOrdine = Nothing
Set rdoCliente = Nothing
Set rsEseguiti = Nothing
Exit Sub
Err_Procedura:
If (rdoErrors(0).SQLState = "S1000") Then
    Resume
ElseIf (rdoErrors(0).SQLState = "01S03") Then
........
End If
end sub
Tutto sembra funzionare correttamente per alcuni records, poi accade che in 
fase di errore (Normalmente sul metodo Update), appare la MessageBox 
standard di VB. Il gestore degli errori non funziona piu. Ho tentato, in 
fase di debug, di forzare un On Error, ma anche in questo caso appare la 
finestra dei messaggi standard con la descrizione dell'errore.
Cio accade in modo casuale, dopo 100 records, o magari sul secondo record 
trattato.
Potete aiutarmi ??
Grazie
Cesare
--
Posted from 
ro...@falcon.telnetwork.it
 [194.20.36.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare una label

Ciao a tutti,
sto facendo un programma in VB6 dove, ogni volta che un bottone viene
cliccato, viene creata una label che viene caricata con alcuni dati. Il
fatto è che non riesco appunto a creare dinamicamente le label e non sapendo
a priori quante label mi servano non posso inserirne un tot precedentemente
nella form. Non essendo VB un linguaggio ad oggetti mi è anche venuto il
dubbio che non si possa fare una cosa simile... bho!
--
Byez
Fax Maister

 dubbio che non si possa fare una cosa simile... bho!
Vedi mia risposta al messaggio poco piů sotto "[Help] Matrice di controlli".
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ha scritto:

Guardati il vettore Controls, e più in specifico il metodo Add
--
    .-"^`\                                        /`^"-.
  .'   ___\                                      /___   `.
 /    /.---.                                    .---.\    \
|    //     '-.                              .-'     \\    |
|   ;|         \/--------------------------//         |;   |
\   ||       |\_)                          (_/|       ||   /
 \  | \  . \ ;  |         KillerBoy        || ; / .  / |  /
  '\_\ \\ \ \ \ |                          ||/ / / // /_/'
        \\ \ \ \|    
kill...@pippo.it
    |/ / / //
         `'-\_\_\                          /_/_/-'`
                '--------------------------'
Inviato da 
www.mynewsgate.net

Newsgroup: it.comp.lang.visual-basic
Titolo: query+cr

ho creato una query con access, per poi permettere a crystal report di
leggere i dati per il report, solo che quando vado in anteprima mi
viene generato l'errore odbc: il nome potrebbe non essere valido, devo
cambiare il nome del collegamento odbc o il problema č un altro?
ciao
grazie

no il problema dovrebbe essere sui nomi dei campi che se sono del tipo
NomeTabella.NomeCampo  lo disturbano.
Aggiorna la query metteno "AS NuovoNome"



wrote:

Newsgroup: it.comp.lang.visual-basic
Titolo: Help: Passaggio VB6 a .NET

Vi chiedo aiuto con una certa urgenza.
Non sono un programmatore esperto, anzi alle prime armi in VB6, ma ci 
realizzo progettini interessanti, per motivi lavorativi adesso sarei 
costretto ad usare il .net.
Ho letto in giro ma tutte voci discordanti, allora ho bisogno di chiarirmi.
1) E' cosi' drastico il passaggio da 6 a .NET, ossia posso continuare a 
lavorare in .NET senza dover comprare un manuale immediatamente, ho dovrei 
ricominciare da capo?
2) So che esiste un applicazione per trasformare i progetti in 6 a .NET, ma 
funziona oppure no? Questa applicazione dove si puo' recuperare e come si 
chiama?
3) Se dovessi rimanere a VB.6 c'e' modo di utilizzare access 2003?
Vi ringrazio lo so che sono domande fatte e strafatte, ma ho bisogno di 
sapere allo stato attuale come si presenta la situazione.
Grazie Daniele 

 Grazie Daniele
Ave
giuseppeD
---
CCR
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Dividere il progetto in tanti progettini

    Vorrei vedere se potevo suddividere il progetto in tanti
exe separati che fanno riferimento ad un unico Main program, senza però
dover compilare l'exe per vedere se funziona tutto come si deve. Se però non
lo posso fare con i gruppi di progetto, come si può fare a separare il
progetto in tanti progettini, in modo da avere tanti exeini (permettetemi la
parola) invece di avere un solo (permettetemi anche questa) EXEONE ?
    Perché ho preso praticamente tutto quello che di simpatico e/o strano
c'era sul Sito del NG e non solo, e l'exe mi è diventato un pochino enorme,
ed avevo
pensato di farlo diventare più piccolo, anche perché ho visto che l'exe
dell'Acces non arriva a 3 Mb, ed è l'Access, mentre il mio che in pratica
non fa nulla di concreto, supera tranquillamente i 5 Mb.
    Sapete come fare per darmi una mano ?
    Disperatamente vostro,
 
SeR...@freemail.it

parola) invece di avere un solo (permettetemi anche questa) EXEONE ?
E' possibile, basta che le varie componenti li compili come dll e
dall' exe principale li chiami le funzioni contenute.
Io personalmente non ho ancora provato, pero alcuni miei colleghi lo
hanno gia fatto progetti simili
Sidewinder
---------------------------------------------------
"C'e' una luce in fondo al tunnel....
   ... E' Tux con il casco da minatore!"
Newsgroup: it.comp.lang.visual-basic
Titolo: MSDN

Secondo voi MSDN per visual 
studio.net
 può andare bene come help per Visual
Studio 6?
Immagino la domanda sia un po' strana ma ho msdn per NEt e Visual Studio
6....
Se qualcuno sa illuminarmi....
grazie
emanuel
www.kantina.it
www.webvisioni.com
www.motolife.it

No, l'ultima versione di MSDN compatibile con VS6 era quella di Ottobre
2001.
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog

 ha scritto nel
messaggio news:bqv451$25o2ip$1...@ID-209982.news.uni-berlin.de...

che non riesco a trovare...
sigh


Naturalmente va bene anche quella che hai trovato a suo tempo con Visual
Studio, anche se piu' vecchia.
Nel peggiore dei casi, considera comunque che quello che perdi con MSDN
nuovo e' solo il collegamento contestuale (il celebre F1); la guida di VB6
in quanto tale e' sempre disponibile partendo dall'indice
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi d'installazione su win95/98

Ciao, sto provando ad installare il mio programma su PC che girano con win95
e 98 ma il tutto mi si blocca dicendomi che alcuni file di sistema non sono
aggiornati di digitare OK e di riavviare il PC e ripetere il tutto. Ho
provato ma continua a bloccarsi.
Il programma lo sviluppato e compilato (ho usato il wizard) con VB6 sotto
Win2000.
Ho anche provato a portarmi il codice sul PC con Win98  e avviarlo sotto VB6
ma mi si blocca sulla dichiarazione 'Dim db as Connection' inviandomi il
messaggio 'Tipo non definito dall'utente' (?). Se lancio l'eseguibile
compilato in Win2000 invece mi si blocca e dice : 'error time '430' La
classa non supporta l'automazione e l'interfaccia prevista. (?)
Ho trascorso molto tempo su questo programma e DEVE per forza di cosa
funzionare da Win95 in poi.....se qualcuno puņ aiutarmi ne sarei grato.
Grazie
Lorenzo

 messaggio 'Tipo non definito dall'utente' (?).
Semplicemente non capisce da dove scappa fuori la parola Connection
lo hai dichiarato da qualche parte prima? esiste un qualche riferimento?
Controlla bene...

 messaggio 'Tipo non definito dall'utente' (?).
Hai aggiunto i riferimenti alla classe per la gestione dei database (DAO o
ADO a seconda di quella che hai usato per fare il programma)?
Ricordati anche di installare MDAC_TYP o se hai usato DAO il jet.
Ciao.
--
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano
Newsgroup: it.comp.lang.visual-basic
Titolo: Codice EAN13 - Perchè il lettore non legge il primo digit se questo è zero?

Cari Amici,
credevo inizialmente che il problema fosse dovuto al mio decoder, ma ho
fatto la prova anche con un altro ed il risultato è identico: se il primo
digit è 0 il decoder lo ignora restituendo solo 12 digit e non 13 come
dovrebbe essere.
Naturalmente ho provato a settare il decoder in modo da restituire o meno il
13° digit di checksum, ma il risultato non cambia: 11 anzichè 12.
Da notare che il codice è quello presente su molte confezioni di cartuccie
EPSON e, come conferma della stranezza, anche nel listino ufficiale EPSON il
codice EAN/UPC risulta "castrato" del primo digit.
Ho pensato, allora, che fosse un codice UPC-A (12 cifre), ma il codice
parlante indica chiaramente i 13 digit tipici del codice EAN13.
Inoltre ho utilizzato per delle prove il font FF_EAN13 e la relativa sub di
conversione scaricati dal sito comune e ho constatato che anche in questo
caso l'anomalia si verifica: se si introduce un codice come "4 002450 44700
4" tutto funziona perfettamente, ma se il codice è "0 000000 000035 2" (le
spaziature, ovviamente, sono solo per una vostra più facile lettura) viene
perso lo zero iniziale.
Ho ipotizzato che essendo UPC-A lo standard americano ed EAN13 un suo
derivato, se il primo digit è zero (Stati Uniti) esso viene considerato
UPC-A, ma, ripeto è solo un'ipotesi. Qualcuno conosce il motivo di questa
stranezza?
Ciao!



Devi settare lo scanner in modo che legga lo zero iniziale.
Tipico esempio sono gli scanner da POS installati nei supermercati:
normalmente non leggono lo zero iniziale, in quanto _normalmente_ non
ci sono EAN-13 che inizino per zero. Normalmente iniziano con zero le
carte fidelity (o club) del supermercato.
Ciao
Aran

 dovrebbe essere.
E' cosě da specifice EAN13.
Dai un occhio qui: 
http://www.barcodeisland.com/
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.it
"

Grazie Zanna, mi sei stato utilissimo oltre che ultra-rapido: a buon
rendere!
Ciao!

Grazie Aran, ma i miei due decoder non prevedono questa possibilità.
Toglimi una curiosità: che marca e modello è quello a cui ti riferisci?
Ciao!

Ciao!
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore Connessione Ado & SQL Server

salve ...sono sempre io
sono riuscito a creare un utente in Sql Server.
sono riuscito a connettermi con questa procedura:
rs as ADODB.recordset
set rs = New ADODB.recordset
rs.open "stringa sql", connectionstring, adopendynamic, adlockoptimistic,
adcmdtext
la connectinstring è la seguente:
"Provider=SQLOLEDB.1;Password=[...la password...];Persist Security
Info=True;User ID=[....username....];Initial Catalog=[....nome db....];Data
Source=[...nome server...]"
..gli errori che riscontro sono i seguenti:
1) il recordcount segna sempre -1 e i dati non vengono visualizzati
2) sull'AddNew mi compare l'errore seguente:
"metodo non supportato dall'oggetto o dal provider"
3) sul MoveLast mi compare l'errore:
"il set di righe non supporta operazioni di recupero all'indietro"

 la connectinstring č la seguente:


Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE: Messaggio per Diego

Ciao Diego,
   grazie per la risposta sul problema di installazione.
Purtroppo sono un neofita di programmazione; potresti quindi dirmi quali
sono i componenti che non fanno funzionare il programma su Win95 (proprio
quello a 16bit, sigh!)? Ti riallego l'elenco. 
COMPONENTI: COMDLG32.OCX,
MSMASK32.OCX, MSCOMCTL.OCX,MSCOMCT2.OCX
REFERENZE: MSVBM60.DLL,
MSVBM60.DLL\3, VB6.OLB, StdOle2.Tlb, DAO350.DLL, msado20.tlb
Grazie
mille e scusa per il disturbo!
Ciao,
  Luigi
--------------------------------
Inviato via 
http://usenet.iol.it

 wrote in message
217Z57Z180Z130Y...@usenet.iol.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: combo e access

Come faccio a prendere come lista della combo tutti i record di un database?
Giosv@

 database?
Leggendo... scoprirai Additem e anche DO/Loop/Exit Do, EOF, Move<First Next>
Leggendo ancora scoprirai che il crosspost fa INCAZZARE maledetrtamente,
specialmente se non risolvibile.


--
***************************************************************
La Classe non è Acqua.
infatti è il modello in base al quale vengono create le istanze di un
oggetto in fase di esecuzione. Definisce le proprietà dell'oggetto e i
metodi utilizzati per gestire le funzioni dell'oggetto stesso.
***************************************************************
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione errore

Vorrei chiedervi se questa č una maniera corretta di gestire gli errori:
ho le seguenti funzioni:
Private Function carica_cap()
.....
....
On error goto errori
....
.....
citta_id=trova_citta()
errori: if err.description<> "" then
             errMsg = err.description
             err.clear
             exit function
           end if
End Function
Private Function trova_citta()
.....
....
On error goto errori
....
.....
provincia_id=trova_provincia()
...........
...........
errori: if err.description<> "" then
             errMsg = err.description
             err.clear
             exit function
           end if
End Function
Private Function trova_provincia()
.....
....
On error goto errori
....
.....
......
Prova_provincia = provincia_id
errori: if err.description<> "" then
             errMsg = err.description
             err.clear
             exit function
           end if
End Function
Il problema č questo:
supponiamo che l'errore si verifica in carica_provincia
allora esco dalla funzione carica_provincia,
perň non riesco ad uscire dalle altre funzioni e quindi al bloccare il prg,
io ho pensato questa soluzione:
dopo le istruzioni che mi chiamano carica_ citta e carica_provincia
inserisco il seguente codice:
if ErrMsg <> "" then
    exit function
End if
Voglio sapere č la maniera piů elegante??? O esiste una maniera migliore???
Se non metto queste istruzioni il programma continua a caricare tutti i dati
e poi alla fine rileva l'errore e non esegue la commit della transizione.
Perdendo inultimente del tempo.
Aspetto consigli
Grazie

Voglio sapere è la maniera più elegante??? O esiste una maniera migliore???


Voglio sapere è la maniera più elegante??? O esiste una maniera migliore???


 End if
un sistema e' quello di ritornare, visto che utilizzi delle funzioni, un
valore bool che se settato a true vuole dire che ha incontrato dei problemi,
quindi:
Function Uno(ByRef a As Integer) As Boolean
    On Error GoTo GestErr
    a = a * 100
    Exit Function
GestErr:
    Uno = True
End Function
Function Due(ByRef a As Integer) As Boolean
    On Error GoTo GestErr
    a = a * 100
    Exit Function
GestErr:
    Due = True
End Function
Function Tre(ByRef a As Integer) As Boolean
    On Error GoTo GestErr
    a = a * 100
    Exit Function
GestErr:
    Tre = True
End Function
la sub/funct chiamante non deve fare altro che testare il risultato al
ritorno della funzione chiamata:
Private Sub Command1_Click()
    Dim Proced As String, Valore As Integer
    Valore = 2
    If Uno(Valore) Then Proced = "1": GoTo GestErr
    Valore = 2000
    If Due(Valore) Then Proced = "2": GoTo GestErr
    Valore = 200
    If Tre(Valore) Then Proced = "3": GoTo GestErr
    Exit Sub
GestErr:
    MsgBox "Errore " & Proced & "  " & Valore
End Sub
chiaramente questo e' solo uno dei sistemi di gestione errore.
beppe