mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Win200 Adwanced Server, IIS e VBScript

Su una pagina ASP ho questo codice:
Dim Index
For Index=1 to 15
    MyData=CDate(CStr(Index)+"/"+"1"+"/"+"2000")
    Select Case WeekDay(MyData, vbUseSystemDayOfWeek)
        case 1: Giorno="D"
        case 2: Giorno="L"
        case 3: Giorno="M"
        case 4: Giorno="M"
        case 5: Giorno="G"
        case 6: Giorno="V"
        case 7: Giorno="S"
    End Select
Next
Quando la pagina stava su una macchina Win2000 Server tutto funzionava bene,
poi il tutto č stato spostato su una macchina Win2000 Advanced Server, e
come per magia
non funziona piů nulla.
Non vengono generati errori, ma la sequenza dei giorni della settimana č
errata, per esempio trovo
1/1/2000 S
2/1/2000 G
3/1/2000 L
e cosě via, la sequenza sembra essere casuale.
Inoltre ho una seconda parte di codice che utilizzo per determinare se un
giorno č festivo o meno
il controllo č manuale controllando mese e giorno ES:
    If month(MyData)=1 AND Day(MyData)=1 Then Festivo=True
anche in questo caso i giorni festivi non vengono piů individuati.
Non riesco a capire cosa succede, c'č forse qualche Bug su Window2000 AS,
su IIS che installa il SO, o sull'interprete VBS?
Vi prego aiutatemi a risolvere questo mistero.

     Select Case WeekDay(MyData, vbUseSystemDayOfWeek)
Anche qui: con vbUseSystemDayOfWeek sei nelle mani di Bill. Specifica tu
qual e' il giorno che consideri numero 1.
Penso la faccenda sia tutta qua.
Ciao
Aldo

     MyData=CDate(CStr(Index)+"/"+"1"+"/"+"2000")


Newsgroup: it.comp.lang.visual-basic
Titolo: KeyDown e PageDown

Sembra che l'evento KeyDown di un form non intercetti
il tasto PageDown e PageUp
infatti questo pezzo di codice non funziona
(ovviamente ho già messo KeyPreview su True)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = vbCtrlMask And KeyCode = vbKeyPageDown Then
        MsgBox "Funziona !!!"
End If
Vi risulta ?????
Ciao
Sir Jo

Vi risulta ?????
Scrivilo cosi':
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (((Shift And vbCtrlMask) = vbCtrlMask) _
                                  And KeyCode = vbKeyPageDown) Then
        MsgBox "Funziona !!!"
End If
End Sub
;-) hal

 ha scritto nel messaggio
news:9g5ogj$u51$1...@pegasus.tiscalinet.it...


 ha scritto


 ;-) hal
Purtroppo non erano problemi di Shift ma proprio del tasto PageDown
Comunque ho risolto perchè ho scoperto che non viene
generato l'evento KeyDown a livello di form ma a livello di MaskEditBox
e quindi ho creato l'evento sull'oggetto.
Comunque grazie del pensiero.
Ciao
Sir Jo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Toolhelp32

Devi modificare la struttura e informare windows sulla sua lunghezza
Public Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32Module As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String*259
End Type
pe.dwSize=LenB(pe)
Ciao
GL
Newsgroup: it.comp.lang.visual-basic
Titolo: un piccolo problema

Prima di tutto chiedo scusa se la domanda è già stata fatta.
Secondo sono agli inizi e quindi non prendetevela se la domanda è molto
semplice.
Infine ecco il mio problema:
ho creato un programmino molto semplice per iniziare a conoscere i comandi
di VB 6.0, ho creato la mia maschera bella carina e scritto il codice per
farla funzionare, tutto bene fatto partire sembrava funzionare tutto. Ho
creato l'eseguibile, e lo portato su un computer di un mio amico per
farglielo vedere, ma lui aveva una risoluzione video diversa da quella con
cui avevo creato l'eseguibile, e qui parte dei comandi erano scomparsi.
Tornato a casa ho fatto delle prove ed ho visto che i comandi non cambiano
ne dimensione e rimangono nella stessa posizione al cambiare della
risoluzione video, come posso rimediare? di solito come si opera per ovviare
al problema?
Grazie di tutto

 come posso rimediare? di solito come si opera per ovviare al problema?
Si progetta alla dimensione minima richiesta/imposta (per esempio 640x480 o,
rischiando un po', 800x600) ed eventualmente (ma non necessariamente) si
spostano in fase di esecuzione (aumentando proporzionalmente le spaziature
orizzontali e verticali, ovvero left e top e magari width e height)  se la
definizione è maggiore di quella di progetto.


Quindi se ho compreso bene, l'ideale č progettare a una risoluzione piů
bassa, per poi calcolare left e top di ogni comando (o meglio ancora una
costante di proporzione, si potrebbe usare il comando screen per sapere le
dimensioni video che si stanno usando e quindi poi calcolarmi la mia
costante, del resto č un sistema di coordinate)  per un intervallo di
risoluzioni video (per questo viene sempre indicata una risoluzione min e
una max), idem per width e height, altrimenti i comandi non si sposterebbero
dalle loro posizioni iniziali e a risoluzioni maggiori li avrei tutti in
alto a sinistra ed i controlli es. PictureBox non si ridimensionerebbero
restando o troppo grandi o troppo piccoli.
Dimmi se ho compreso bene?
Ciao e grazie.

 Dimmi se ho compreso bene?
Credo di sì, ma considera le note che ho aggiunto. Ti consiglierei di fare
una prova con un form nuovo, fuori dal tuo applicativo, nel quale metti
tutti (!) i controlli che in qualche modo usi nell'applicativo, magari in
combinazioni diverse e particolare. Nell'evento Resize del form chiama la
tua routine di adeguamento. In tal modo i controlli si
sposteranno/ridimensioneranno non solo quando preparerai il form alle
dimensioni proporzionate al video, ma anche quando l'operatore dovesse
allargare la finestra. Nota anche di non far nulla se le dimensioni del form
vanno al di sotto di quelle di progetto, rischieresti di comprimere troppo,
sovrapponendo i controlli

 ha scritto nel messaggio
news:bubu3r$fjlso$1...@ID-174464.news.uni-berlin.de...

Grazie di tutto inizio a vedere gia dei primi risultati, mi manca solo un
bel pò di pratica ed esercizio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo campo contatore Access

Salve a tutti per creare degli ID mi viene molto comodo usare un campo 
contatore ma mi chiedevo cosa succedeva quando dopo tanti e tanti 
inserimenti questo arrivava al limite...
E poi si puo gestire in qualche modo questo campo da VB? 

Cap4 ha scritto:

E' un Long.... ma quanti records dovrai mai inserire...???
Se pensi al limite hai sbagliato DB...!
@Alex

 ha scritto nel messaggio 
news:1167328135....@i12g2000cwa.googlegroups.com...


 paranoia..
Premesso che non userei un Counter in quel caso, ma un'insieme di 2 PK
date dal NumeroFattura & Posizione(dove per posizione intendo il
progressivo relativo alla fattura, ed io preferisco usare un numero
assegnato ricavando il Max(Posizione)+Incremento ).
La doppia PK direi che sarebbe d'obbligo in questo caso di tabella
Detail....!
TblFatture(1)--------------------->(00)TblDetail
PK(NumeroFattura)             PK(NumeroFattura&Posizione)
In ogni caso, quando svuoti la tabella se effetti un Compact del
database con il metodo CompactDatabase di DAO o Compact di JRO(se usi
ADO e non hai referenziato DAO)
vedrai che il Counter si azzera, ma in questo caso avresti delle PK
dell'anno precedente uguali a quelle dell'anno in corso e dell'anno
futuro...., personalemente in un'applicativo contabile lo vedo poco
bello....
E' una mia opinione.
@Alex

 ha scritto nel messaggio 
news:1167342282.2...@n51g2000cwc.googlegroups.com...


 precedente?
PK=PrimaryKey o chiave primaria
Secondo me puoi risolvere in modo più performante assegnando al Numero
fattura un codice
parlante di tipo testo.
Es di codice fattura:
xxyyprogr
Dove :
xx può essere l'anno
yy può essere il tipo di documento nel caso ci sia la possibilità di
diversificare
Progressivo è il numero progressivo della fattura.
06AA00001
Normalmente ci si crea una funzioncina che genera il Numero della
Fattura, solo quando si è sicuri che debba essere fatta, e si lavora
su Tabelle Temporanee senza assegnare un NumeroFattura per i
preventivi....... bla bla bla.....!
@Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: info ActivexDll

Premetto che non sono esperto di ActivexDll.
Vorrei fare una cosa "semplice": creare una Dll (activex) che mi
permetta di scambiare un valore.
In pratica ci sarà un applicativo che avrà la DLL come riferimento e che
gli passerà un valore.
Ci sarà poi un'altro applicativo diverso, con la stessa DLL come
riferimento, che invece dovrà leggere il parametro passato dall'altro.
Questo perchè il primo applicativo lo faccio io, ma il secondo può
essere fatto anche da terze parti.
Il problema è che il secondo applicativo quando legge il parametro
passato dal primo lo trova nullo.
Come posso fare?
Grazie
Axl
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 permetta di scambiare un valore.
non lo puoi fare con una DLL, perche' ogni processo istanzia una sua copia
della libreria all'interno del suo spazio di indirizzamento
devi usare un ActiveX EXE (che quindi gira in un processo separato dal
chiamante)
impostando come modello di threading 'Pool di thread' con 1 thread.
in questo modo tutti i processi che accedono all'oggetto utilizzano la
stessa istanza
e quindi agli stessi valori
ciao

 ha scritto nel messaggio
news:ag1t6d$a7m$1...@newsreader.mailgate.org...

Utilizzare un ActiveX EXE e' corretto, ma il modello di threading non e'
sufficiente, perche' quello che ottieni e' che solo che tutte le istanze di
classe risiedano in un unico thread, il che non vuol dire che due istanze di
una stessa classe MultiUse condividano anche gli stessi valori
Perche' funzioni occorre che la variabile condivisa sia memorizzata a
livello di *modulo*; non deve quindi essere un membro della classe, che
invece deve esporre solo le Property Get/Let relative
In soldoni:
'In un BAS
Public GlobalVar as Integer
'Nella classe
Property Get Valore() As Integer
Valore = GlobalVar
End Property
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 invece deve esporre solo le Property Get/Let relative
hai ragione, avevo dimenticato proprio la parte piu' importante
la fretta di rispondere fa brutti scherzi...
ciao

 livello di *modulo*;
Oppure usare una classe PublicNotCreatable
Ciao

 ha scritto nel messaggio
news:ag4a7s$1e6$1...@monty.lombardiacom.it...

... la cui istanza venga restituita da una delle classi creabili.
Se ho capito bene cosa intendi, bisogna comunque prestare attenzione a dove
dichiari la variabile che deve contenere l'istanza della classe, che
comunque deve essere unica e a livello di modulo BAS.


 comunque deve essere unica e a livello di modulo BAS.
Già.
In pratica tu istanzi le classi contenitrici (quante ne vuoi) e fanno tutte
riferimento a un'unica classe comune.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: criptare PKCS7

cerco delle info su come implementare un progetto vb6 con la firma digitale,
gia in mio possesso, secondo lo standard PKCS7
grazie
Paolo

 ha scritto nel messaggio
news:aes4h8$9d635$1...@ID-128507.news.dfncis.de...

Prova ad utilizzare Capicom o se vuoi "soffrire" le CryptoApi.
Su MSDN trovi tutto, in più segui questo link
http://discuss.microsoft.com/archives/capicom.html
c'è molto su CAPICOM.

GRAZIE !
Paolo

Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè accade ciò?

Sto impazzendo !!! :((
Dopo essere riuscito a creare un pacchetto di installazione su due
piattaforme, Win98 e XP (realizzati in entrambe i casi con la compilazione
sulla piattaforma interessata, e partendo da sorgenti sviluppati sotto
XP),ho provato a far funzionare il sw e meraviglia delle meraviglie:
1. Sotto XP tutto bene (è la piattaforma da cui sono partito);
2. Sotto Win98 pur essendoci tutte le funzionalità, la gestione delle
scale in una picturebox non risulta coerente (ho valori esagerati).
Ma che cosa sta succedendo?? potrebbe essere una questione di numero di
bit del SO?  visto che ho dichiarato necessariamente alcune variabili
double ? (l'ho buttata così:)) )
Ciao e grazie anticipate
Peter
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 scale in una picturebox non risulta coerente (ho valori esagerati).
- sotto 98 hai provato a testarlo nell'ide prima di farre il pacchetto di
setup ?
- usi qualche api strana che non e' compatibile con l'SO ?

 - usi qualche api strana che non e' compatibile con l'SO ?
non mi pare, comunque riporto di seguito l'elenco delle dll e degli ocx
utilizzati:
VB6STKIT.DLL
COMCAT.DLL
VB6IT.DLL
stdole2.tlb
asycfilt.dll
olepro32.dll
oleaut32.dll
msvbvm60.dll
TABCTIT.DLL
TABCTL32.OCX
FLXGDIT.DLL
Msflxgrd.ocx
CMCT2IT.DLL
COMCT232.OCX
MSCH2IT.DLL
MSCHRT20.OCX
MSCMCIT.DLL
MSCOMCTL.OCX
CMDLGIT.DLL
Comdlg32.ocx
Extra.dll
Ciao e grazie


 ocx utilizzati:
no no dll e ocx , proprio qualche api che magari con la serie NT va bene e
con la 98 no ... oltre a questo io problemi di scale dipendenti dal SO non
ne ho mai sentiti !
Che curiosita' che mi hai messo addosso ... SCOPRI COS'E' a piu' presto ^_^
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: simulazione pressione tasti

Vorrei simulare la pressione dei tasti della tastiera da VB. Ovvero:
apro il blocco note, lancio il mio programma VB dall-avvio veloce e
sul blocco note vengono inserite determinati caratteri *esempio
lettere, numeri...).
Non riesco a ricordarmi come si fa.
Grazie in anticipo.

[*Alex* : 
alex...@libero.it
] ha scritto:

SendKeys, nella guida c'č anche un esempio

"Alex"
*.vbs
set oShell = CreateObject("WScript.Shell")
oShell.run"notepad",3
WScript.Sleep 500
oShell.AppActivate "- Blocco note"
oShell.SendKeys"123abc"
stessa cosa in VB :
Private Sub Form_Load()
Shell "notepad", vbMaximizedFocus
SendKeys "123abc"
DoEvents
End Sub
--
Fosco

 Vorrei simulare la pressione dei tasti della tastiera da VB. Ovvero:
SendKey?
Alex

Newsgroup: it.comp.lang.visual-basic
Titolo: Limite n° caratteri in Listview

Per caso esiste un limite massimo di caratteri che possono stare in ogni
singola riga di una ListView? Carico i dati da un file ma non mi vengono
caricati tutti i caratteri, solo 260 me ne vengono caricati!! O sbaglio io
qualcosa o c'è qualche limite da impostare in qualche opzione recondita che
non conosco... (anche se optio di più per la prima possibilità... :-) però
non si sa mai...)
ciaaao,
    mik

 non conosco...
A occhio e croce è un limite della listview: lo confermerebbe il fatto che
non riesci a superare questo limite nemmeno con le listview per eccellenza
(desktop e esplora risorse).
Ciao

 A occhio e croce č un limite della listview: lo confermerebbe il fatto che


 ha scritto nel messaggio


 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con ADO

Ciao, sono riuscito ad associare  crearmi un recordset da un file .dbf. 
Quando però cerco di cancellare un record (rst.delete)  mi dice che : 
'Loperazione richiesta non è supportata dall'oggetto o dal provider'. Ho 
associato il seguente provider :
str1 = "Provider=MSDASQL.1;" & _
                  "Persist Security Info=False" & ";" & _
                  "DSN=File di dBASE" & ";" & _
                  "DBQ=F:\PROGRAMMI\CARTOLINE\TABELLE" & _
                  ";DSN=File di 
dBASE;DBQ=F:\PROGRAMMI\CARTOLINE\TABELLE" & _
                  ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;"
Consigli ?
Lorenzo
 


Come hai aperto il recordset?
ciaociao


str1 = "Provider=MSDASQL.1;" & _
                  "Persist Security Info=False" & ";" & _
                  "DSN=File di dBASE" & ";" & _
                  "DBQ=F:\PROGRAMMI\CARTOLINE\TABELLE" & _
                  ";DSN=File di 
dBASE;DBQ=F:\PROGRAMMI\CARTOLINE\TABELLE" & _
                  ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;"
 
Adodc2.ConnectionString = str1
 
cnn2.Open str1
 
Set rst2 = New ADODB.Recordset
 
rst2.Open "Select * from query", cnn2, , , adCmdText
 
Grazie

 Grazie
prego
ciaociao
Newsgroup: it.comp.lang.visual-basic
Titolo: client FTP

Salve a tutti,
cercavo a scopo didattico un client FTP in vb (ovvero i sorgenti) per vedere
l'utilizzo delle varie classi internet.
Qualcuno sa indicarmi dove posso trovarlo??
Grazie
Pietro

 ha scritto nel messaggio
news:r3Z16.13999$ag5.9...@twister1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Numero del giorno nell'anno

Ciao a tutti 
vorrei sapere se esiste una funzione che calcola il numero
corrispondente al giorno dell'anno : es. 31 Gennaio = 31
1 Febbraio = 32.
Grazie a tutti
Per rispondermi togli NOSPAM dall'indirizzo
tudro...@tin.it

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

 1 Febbraio = 32.
puoi trasformare la data in un intero e sottrarre il valore intero del primo
giorno dell'anno.
NumeroCheTiServe = format(DataCheHai, "#") - Format("01/01" &
YEAR(DataCheHai), "#") + 1
ciao


fai come ti dice lui.......pufffffff......è un lunedi improbabile
oggi.......a me il badile...

oggi.......a me il badile...
^__^

Dim data1 as date
Dim data2 as date
data1= 01/01/01
data2= ' la data che devi confrontare'
NumeroCheTiServe= DateDiff("d",data1,data2)
saluti Stefano

 ha scritto nel messaggio
news:9hq79q$6om$1...@nreadB.inwind.it...




Grazie !

Newsgroup: it.comp.lang.visual-basic
Titolo: video

Salve a tutti,
vorrei sapere se ci sono nuove api per la gestione di video-capture per il
windows Xp perchè con le vecchie api, tipo la getdriverdescription mi
riconosce solo il drive di sistema e non quello di acquisizione installato
della mia scheda.
Come posso fare a fargli riconoscere gli altri eventuali driver? Ecco la
routine che ho utilizzato io. Forse sto sbagliando in qualcosa?
Grazie.
Public Declare Function capGetDriverDescription Lib "avicap32.dll" Alias
"capGetDriverDescriptionA" (ByVal wDriverIndex As Long, ByVal lpszName As
String, ByVal cbName As Long, ByVal lpszVer As String, ByVal cbVer As Long)
As Long
Dim  cnt As Long,  ln1 As Long, ln2 As Long, str1 As String, str2 As String
For cnt = 0 To 8
        ln1 = 80
        ln2 = 100
        str1 = String$(80, " ")
        str2 = String$(100, " ")
        If capGetDriverDescription(cnt, str1, ln1, str2, ln2) _
        Then cmb(0).AddItem Left(str1, ln1) & ", " & Left(str2, ln2) _
        'Else Exit For
      Next cnt



Newsgroup: it.comp.lang.visual-basic
Titolo: Which Visual Basic?

I'm looking into purchasing VB for home and fun use. Which version do
I need? I'm quite sure I don't need Enterprise. But, I would
appreciate advice to decide between Professional and Learning. The
Learning version includes a learning program (which I need) but lacks
some of the high end Professional capabilities
Steve

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Questa è davvero strana...

Ho realizzato un query per recuperare dati da archivi in formato .dbf:
SELECT Tab1.Campo1, Tab1.Campo2, Tab2.Campo1, Tab2.Campo2 FROM Tab1 LEFT
JOIN Tab2 ON Tab1.Campo1 = Tab2.Campo1 AND Tab1.Campo2 = Tab2.Campo2
Connettendomi direttamente ai dbf, attraverso questa ConnectionString:
Provider=MSDASQL.1;Persist Security Info=False;Data Source=File di
dBASE;Initial Catalog=c:\prova
mi dà un risultato sbagliato, nel senso che riporta molti record duplicati;
sono perciò costretto a collegare le tabelle dbf in un file mdb, e
connettermi ad esso tramite questa Connection String
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\prova\db1.mdb;Persist
Security Info=False
Esiste una spiegazione logica?
Nick

 Esiste una spiegazione logica?
Hai provato con
SELECT Tab1.Campo1, Tab1.Campo2, Tab2.Campo1, Tab2.Campo2
  FROM Tab1
      ,Tab2
 WHERE Tab1.Campo1 = Tab2.Campo1
   AND Tab1.Campo2 = Tab2.Campo2

    AND Tab1.Campo2 = Tab2.Campo2
Veramente questo è un Inner Join 'old fashion'. Se Nick ha usato un Left
Outer, evidentemente ha bisogno di questo.
La cosa strana, è che con una connectionstring funzioni e con l'altra no.
Forse, ci sono record DELETED e non è attiva l'opzione di ignorare i Deleted
(credo sia qualcosa tipo NO DELETE).
Ciao
Alberto

 ignorare i Deleted (credo sia qualcosa tipo NO DELETE).
questa, davvero, non la sapevo.
ci sono database che permettono di recuperare anche i record cancellati?
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 cancellati?
Prima del compact direi che 'tutti' i db lo consentono. Sul 'tutti', metto
le virgolette, perchè ce ne sono tanti e mi limitavo a quelli che ho usato.
Il nostro amico parla di dbf, che a me ricorda FoxPro (ma è .dbf anche altra
roba), che sicuramente consente di considerare i record cancellati come
validi o meno.
Ciao
Alberto

 Nick
incuriosito dal post di Albe V°, ho cercato qualcosa su msdn e ho trovato 
questa pagina...
http://support.microsoft.com/default.aspx?scid=kb;en-us;189598
prova a dare un'occhiata, credo che si parli del tuo caso
good coding!!!
--
Alletun
"Se ti va di spassartela adesso
Prendi il Vettore oggi stesso."
Terre Desolate - Stephen King
Inviato da 
www.mynewsgate.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Registrazioni ActiveX

Salve,
esiste un metodo per testare l'eseguibile VB, e vedere quali DLL, o OCX
servono? Il setup registra in automatico i files, ma preferirei registrarli
io.
La miglior cosa è avere un PC pulito senza l'installazione di VB, in
alternativa?
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: uscita programma.

scusate l'insistenza ma sono un pivellino in ambito VB.
Ecco l' n-esimo problema.....
dopo aver compilato i miei progetti e dopo averli mandati in
esecuzione ed essere uscito    mi accorgo  che premendo CTRL-ALT-CANC
sono ancora in memoria!!!!!!(Ed infatti se provo a cancellarli mi
appare il classico msg.......".......il file specificato è usato da
WINDOWS!"
Non capisco dove sbaglio.....eppure ho vauto anche l'accortezza di
chiudere i controlli mci (MMControl1.COMMAND="CLOSE") NELL'EVENTO
UNLOAD DELLA FORM.
dOV'è L'ERRORE DOV'è **+à-+-.;MNSXBSUV????????
*********************************
*   \`\ /`/    Romolo Stoppani  *
*    \ V /      
FIRE...@iol.it
 *
*    /. .\   ___________        *
*   =\ T /= <   Condoms? \_     *
*    / ^ \   | Yes,thanks!!\    *
*   /\\ //\  |______________|   *
* __\ " " /__                   *
*(____/^\____)  ICQ->4783993    *
*********************************

On Mon, 15 Dec 1997 21:05:28 GMT, 
fire...@iol.it
 (Romolo Stoppani)
wrote:
Succedeva anche a me... usa END quando termini il programma e nell'
evento Unload dell'ultimo form.
Ciao. 
Marco Grignoli   
sinf...@tin.it

...


Newsgroup: it.comp.lang.visual-basic
Titolo: E' possibile ritagliare un'immagine in VB?

Ciao a tutti, ho la necessità di ritagliare un'immagine (che si trova in un
preciso percorso nell'hardisk) utilizzando VisualBasic.
Come è possibile farlo?
Ringrazio tutti in anticipo.
Ciao da Emiliano

Emiliano - EmiCAD® wrote:
http://www.vb-helper.com/howto_clipboard_copy_paste_image_pieces.html
http://www.vb-helper.com/howto_resize_image_with_mouse.html
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

 
http://www.vb-helper.com/howto_resize_image_with_mouse.html
Dritte very interesting! ;)
Grazie Wodka!
Non prenderla come una provocazione, veramente, ma...
con .NET si fa con 2 riga di codice (una carica l'immagine, l'altra la
ridimensiona, 3 righe se la vuoi anche salvare o mostrare sullo schermo!)
                    Ciao
                                    Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

ARRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRGH!
..........anf........ anf........ gasp!
me fai morì!
....con paintshopPro neanche con una istruzione!
:-)

Ciao!

:-)
Eheheheh... hai ragione! :-)
PSP-VB  1-0

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET Resource Kit

Ho visto che e' appena stato rilasciato gratuitamente il 
VB.NET
 Resource Kit e
lo sto scaricando (192 Mbyte!):
http://msdn.microsoft.com/vbasic/vbrkit/
Ho qualche domanda per chi lo avesse gia' prelevato ed installato.
Prima domanda: e' solo in inglese? Se si, come sembra, non ci sono problemi ad
installarlo su XP Home italiano?
Seconda domanda: senza avere Visual Studio .NET installato (ho solo il VB 6) in
realta' serve a qualcosa? Cosa contiene in sostanza?
-- 
Ciao!
   -DocDoc-
--- Per scrivermi: 
do...@despammed.com
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/

1-Si e' solo in Inglese
2-Direi si di ci sono molti demo e estratti da libri interessanti (tutto in
Inglese...)
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]

ma perchè l'elenco dei messaggi del ng è pieno di messaggi che hanno come
oggetto Re:...........................................????????

 oggetto Re:...........................................????????
[...]
Perchè il server news non te li fa vedere tutti (saranno + di 40000 queli di
questo NG), quindi se non ti fa vedere un msg ti fa vedere le risposte che
ha ricevuto e che sono + recenti.
Da deja vedi abbastanza post (
www.deja.com
)
CiaoZ
SebaMix

Newsgroup: it.comp.lang.visual-basic
Titolo: query troppo lunga?

Utilizzando ADO devo vare una query abbastanza lunga
e quando mi apre il recordset non preleva i dati della query come posso
ovviare a questo problema?

Controlla la query.
:-)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: DTS (Data Transofmation Service): funzionamento a qualc1 conosciuto?

Qualcuno si è rtovato a dover programmare/usare via codice il DTS di
MSDE/SQL7(/2000)?
Qualche indizio?
Libro/resource?
Mi permetto di ringraziare in anticipo.
Agostino (magoguz)

Newsgroup: it.comp.lang.visual-basic
Titolo: stampa di un report access aiuto...

devo stampare un report creato con access.
come devo fare ??

 come devo fare ??
Ho risposto al tuo precedente messaggio avente come oggetto:
"stampa di un report access aiuto ..."
--
Ciao.
Maurizio

Newsgroup: it.comp.lang.visual-basic
Titolo: Help sui database

Ciao a tutti sono Sara,
Avrei bisogno di esempi VB5, ecc. che trattano l'uso dei database attraverso
oggetti DAO e non Data Control in ambiente multiutente.
Per favore, non datemi dei riferimenti a siti vari, ne ho già visti tanti e
non ho trovato niente di comprensibile e di utile.
Grazie in anticipo a chi mi aiuterà.
Scrivetemi pure a : 
mga...@pres.it
Ciao Sara.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: TCP/IP e WINSOCK

Salve a tutti,
vorrei sapere se qualcuno può darmi delle informazioni sull'uso del
controllo mswinsck.ocx
Dove posso reperire degli esempi che mi permettano di colloquiare con un
altro sw usando il protocollo TCP / IP ?
GRAZIE, ciao.
    Aldo

 altro sw usando il protocollo TCP / IP ?
http://www.vbip.com/
Nella home-page trovi i link a due esempi ben
documentati che implementano le operazioni di
send-mail e receive-mail. Trovi anche esempi
per connessioni FTP.
Newsgroup: it.comp.lang.visual-basic
Titolo: Clipboard

Che sono le clip...?

 Che sono le clip...?
in qualsiasi programma puoi fare taglia/copia/incolla. I tuo dati copiati
vanno nella clipz...

Ciao,
Forse delle patatine??
prova a scriverlo nel codice, evidenziarlo e premere F1 !!!
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: open e read...

salve avrei la necessità di leggere da un file dei dati in sequenza, es:
ciao
mia
dfk
afd
e metterli in una lista, io ho provato con questo codice:
Dim tempo As String
Dim c As Integer
Dim k As Integer
tempo = ""
Open "c:\windows\desktop\port.dll" For Binary As #1
For c = 0 To 165
        k = k + 1
        Get #1, k, tempo
        List1.List(c) = tempo
    Next c
Close #1
ma il risultato è che mi si creano 166 liste vuote
come posso fare? grazie...siete mitici!!!
ciao
 ToM_

Open "c:\windows\desktop\port.dll" For Binary As #1
  Al di la' della scelta "curiosa" dell'estensione del nome del file,
che senso ha aprire come binary un file che contiene una lista di voci
di testo? Usa un file sequenziale.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

ma il risultato è che mi si creano 166 liste vuote
Ti consiglio una lettura alla voce "Get".
In particolare:
-------
Se la variabile in lettura è una stringa di lunghezza variabile,
l'istruzione Get leggerà un descrittore a 2 byte contenente la lunghezza
della stringa e quindi i dati che verranno trasferiti nella variabile. È
quindi necessario che la lunghezza del record specificata dalla proposizione
Len dell'istruzione Open sia maggiore di almeno 2 byte rispetto alla
lunghezza effettiva della stringa.
------
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Dividere un file di testo in righe£$%&/()=?

Salve eccovi la mia ennesima domanda come potrebbe essere il codice che mi
serve per fare ciň che segue?
apri il file c:\ciccio.txt
prendi la prima riga di testo e mettila in text1.text
controlla che la seconda ci sia se si mettila in text2
ecc ecc
fino a che ci sono righe
senno chiudi file
io ciň provato ma effettivamente non ho molta dimestichezza e mi risponde
sempre picche!
se possibile qualcuno che mi spiega anche il procedimento inverso che
dovrebbe essere facile!
Vi ringrazzio fin da ora site tutti gentilissimi!

...

Vado a memoria:
Dim Line as String
Open "file1.txt" For Input as #1
Open "file2.txt" For Output as #2
    Do While Not Eof(#1)
        Line Input #1, Line
        if Len(Line) > 0 then
            Print #1, Line
        End if
    Loop
Close #2
Close #1
La Open For Input/Output dovrebbe funzionare bene con i files di testo, io
di solito preferisco usare l'As Binary.
Ciao.

dovrebbe essere facile!
open "c:\ciccio.txt" for output as #1
	for i=0 to tottextbox 'dove tottextbox č il numero totale di textbox -1
		print #1, text1(i).text
	next i
close #1
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
---------------------------------------------------------------------------

 close #1
ti ringrazio per la tua tempestiva ri sposta ma mi da ancora errore!
mi dice che non ho assegnato una variabile e mi evidenzia questo punto(*)


ringrazio anche te per la tempestiva risposta ma mi da errore nella riga Do
while not eof(#1)
poi visto che non ho la guida in linea non so neanche che istruzione è Eof
sai dirmi dove posso documentarmi?

...

Ah, già, mi sembra che la eof non vuole il #, prova solo con Eof(1).
Eof ti dice se hai raggiunto (o superato) la fine del file (Emd Of File)
Ma come fai a non avere almeno la guida?
Sei anche un po' masochista?
Ciao


semplice la mia versione di visual studio 6 č di dubbia provenienza vista
,installata, volata via.

Vi ringrazzio site tutti gentilissimi!
adesso ci sono riuscito mettendo i due metodi che mi avete dato in + ad aver
fatto cio che volevo ho anche capito!
però un a cosa non mi e chiare ma se io volessi riscrivere sul solito file?
es. c:\ciccio.txt contiene una riga con scritto ciao
     come faccio ad sovrascrivere il file con magari un'altro file
c:\ciccio.txt contenete una riga con scritto bay
grazie luca!
Newsgroup: it.comp.lang.visual-basic
Titolo: VB e File su host

Salve a tutti..
Voglio già ringraziare chi potesse darmi un aiuto.
Giungo subito al nocciolo : devo scrivere un file su host utilizzando
visual Basic, qualcuno sà darmi qualche delucidazione sul come fare?
Matteo

Avevo lo stesso problema.....
alla fine lo scrivo in un'area di scambio dove c'e' un programma che
acquisisce il file e lo spedisce all'host.
Il file lo scrivo attraverso il lancio di un file bath.
Nn so se ti sono stato di aiuto ma io nn ho trovato altra soluzione

 Il file lo scrivo attraverso il lancio di un file bath.
Cos'è un file bath?
Qualcosa che fa riferimento al bagno?
:-p
Alberto

> Cos'è un file bath?
 Intendevo un File.bat che gira in modalita batch ^_^
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Protezioni e chiavi hardware

Io ho preso tutto il kit di valutazione della Hardest (una chiave, manuale,
software) per pochissimo (circa 50 KLire).

 scritto nell'articolo
<01bcdbca$191032e0$0bb71fc3@recanet>...


alcune chiavi eutron e hardest
Il problema rimane 'hardware da realizzare, non credi ?
Antonio Tanzillo  
a...@netgroup.it
Marigliano (NA)  
www.netgroup.it/atsoft

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ma quanti problemi questo VB!

dentro e non fuori ??? Peggio ancora la form, con la "barra blu" in cima +

Se non sbaglio li leggi con form.scalewidth e form.scaleheight
esatto

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Utilizzo gestione errori non gestiti

Salve a tutti,
si fa presente che con .NET: Windows form , 
ASP.NET
 , 
VB.NET
 o C#,
è possibile catturare gli errori non gestiti.
Quindi, in considerazione che chi programma è umano e soggetto ad errare e
può dimenticare di dotare una segnaletica a tutte le procedure;
si rammenta che la magnificenza della Microsoft ha dotato .NET della
gestione degli errori non gestiti.
Quindi onde evitare di far perdere tempo a chi produce,
dateve nà letta a suddetto argomento.
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

 CCR
Scusate 
ma il tutti è circoscritto, e no rivolto a tutti.


 ma il tutti è circoscritto, e no rivolto a tutti.
:-D
-- 
ciao, hal

 fault at 0x00000000, the memory could not be read...
La sequenza dell'utente o del programmatore sfigato. ^__^
Ave
giuseppeD
---
CCR

Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione con mysql

Salve a tutti,
sto realizzando un interfaccia grafica con Vb e vorrei sapere se c'è un
modo per connettersi al database mysql senza l'ausilio di un ODBC.
Grazie e saluti
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 modo per connettersi al database mysql senza l'ausilio di un ODBC.
Prova avedere qui. Non li ho testati.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 
Puoi usare OleDB
-- 
Ciao,
        Fabrizio
<=- 
http://www.negusweb.it
 -=>

 Prova avedere qui. Non li ho testati.
http://www.mysql.com/portal/sites/item-142.html
{Meglio andare a dormire presto) :-)


 
scarichi MyODBC-3.51.05 o versione successiva se c'è dal sito di mysql
poi crei un nuovo Dsn utilizzanto i driver di MySql 
Public Conn As New ADODB.Connection
Public Rec As New ADODB.recordset
Conn.Open "DSN=" & NomeDsnCreato
Rec.Open "select * from " & TuaTabellaIn MySql, Conn, , , adCmdText
 
e poi utilizzi il recordset come lo hai sempre utilizzato
ciao
dak

 Puoi usare OleDB
Francamente cercavo un metodo diretto cosě come fa mytool
esiste?


 Puoi usare OleDB
Francamente cercavo un metodo diretto cosě come fa mytool
esiste?
-- 


 Puoi usare OleDB
Francamente cercavo un metodo diretto cosě come fa mytool
esiste?


 esiste?
Ci sono le API di mySQL con degli esempi in C++. Per il vb non ti so dire.
Ma come mai questa necessità di collegamento diretto ?
Motivi prestazionali ?

Newsgroup: it.comp.lang.visual-basic
Titolo: Esplora Risorse e cartelle da proteggere

Ciao a tutti!
Sto creando un programma che blocca l'accesso di altri utenti del mio PC
alle mie cartelle: in pratica attraverso il registro, intercetto l'apertura
di ogni cartella, controllo se ha il nome (prefissato) della cartella da
proteggere e nel caso affermativo, chiedo la password.
Ora, il mio problema è che in Esplora Risorse tutto va bene nella finestra
di destra (finestra dei files), mentre in quella di sinistra (finestra delle
cartelle) la mia modifica non ha effetto, e qualsiasi persona può da qui
accedere ad una cartella, a cui non può accedere dalla finestra di destra!
Qualcuno può aiutarmi?
Grazie a tutti, Gianluca.

 ha scritto nel messaggio
news:95mjf8$s8i$2...@nread1.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Disabilitare ALT+F4

E' possibile disabilitare ALT+F4 in un MDIForm ?
...sempre grazie!
--
Gabriele F.
gfio...@NOSPAMbresciaonline.it.it
Eliminare NOSPAM per scrivermi

 E' possibile disabilitare ALT+F4 in un MDIForm ?
se vuoi evitare la chiusura puoi cancellare l'evento mdiform_queryunload
ciao.
--
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano


ah, ma allora dilla tutta...
cioč, come ti comporteresti con un tuo amico? gli chiedi "scusa posso salire
sul tuo motorino? scusa posso metterlo in moto? scusa posso togliere il
cavalletto..." ecc. ecc. oppure te la cavi con un "mi presti il motorino per
5 minuti?" ;)))
ina ltre parole, per evitare che qualcuno (o qualcosa) possa chiudere una
tua finestra VB prova a dare un'occhiata all'evento QueryUnload della form;
tale evento ha 2 parametri: il primo Cancel, se impostato a True fa in modo
che la form si "rifiuti" di essere scaricata; l'altro parametro, UnloadMode,
ti informa chi o che cosa vorrebbe "scaricare" la form;
per esempio per fare in modo che una form si tolga dalle scatole solo se si
spegne windows (e in nessun altro modo) prova quanto segue
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then
        Cancel = True
    End If
End Sub
in teoria sarebbe anche possibile "resistere" a tentativi di chiusura da
parte del task manager (vbAppTaskManager), ma non ho fatto molte prove a
riguardo e ho il sospetto che le cose possano essere diverse sotto win9x e
winnt/2000... prova e magari fammi sapere;
ciao

 ha scritto nel messaggio
news:D6g07.1868$rh.7...@news6.giganews.com...



in tal caso ti basta intercettare l'evento Unload della form;
ciao

migliorare la visualizzazione, applico un cambio di risoluzione video. Il
Nota 1: si risponde *sotto* al testo quotato
Nota 2: si quota solo quel che e' necessario
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-VI --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
   On contrary of popular belief, Unix *IS* user friendly:
    it just appears to be selective who it is friend with

Newsgroup: it.comp.lang.visual-basic
Titolo: Barra stile OutLook (verticale, non orizzontale

Nessuno sa come costruire una barra di pulsanti stile OutLook (intendo
la barra verticale sulla sinistra, non quella orizzontale in alto)?
Bye by Massimo 8-]

 ha scritto nel messaggio
news:39CF0662...@txt.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: domandina

come si fa a cambiare il colore di sfondo in una picture box utilizzando
un valore 
compreso tra 0 e 64????
cioe' una scala di grigi 0= nero 64= bianco
Antonio.

 ha scritto nel messaggio
news:3BB1CD98...@tiscalinet.it...



Ok Ok ho trovato
Con il sistema RGB i colori possono essere rappresentati in uno
spazio tridimensionale le cui coordinate sono R G e B.
Dato che RGB vanno da 0 a 255 possiamo rappresentarli su un cubo
ecco che (0,0,0) è il nero e (255,255,255) è il bianco.
Tutti i punti che hanno identiche le tre coordinate si trovano
sulla diagonale e sono i grigi quindi se mi muovo tra questi colori
ho solo i grigi cioè per avere un grigio basta mantenersi sulla
diagonale---> tutti e tre i valori di rgb identici
quindi:
Crea una scroll bar orizzontale con valori massimi e minimi 1 e 64
e poi utilizza questa function
Se mantiene uguali
Private Sub HScroll1_Change()
    Dim valore As Integer
    valore = CInt((255 * CInt(HScroll1.Value)) / 64) 'serve per rapportare
64 a 255
    Picture1.BackColor = RGB(valore, valore, valore)
End Sub
spero di esser stato utile e chiaro fammi sapere
                                                danilo


Ok Ok ho trovato
Con il sistema RGB i colori possono essere rappresentati in uno
spazio tridimensionale le cui coordinate sono R G e B.
Dato che RGB vanno da 0 a 255 possiamo rappresentarli su un cubo
ecco che (0,0,0) è il nero e (255,255,255) è il bianco.
Tutti i punti che hanno identiche le tre coordinate si trovano
sulla diagonale e sono i grigi quindi se mi muovo tra questi colori
ho solo i grigi cioè per avere un grigio basta mantenersi sulla
diagonale---> tutti e tre i valori di rgb identici
quindi:
Crea una scroll bar orizzontale con valori massimi e minimi 1 e 64
e poi utilizza questa function
Se mantiene uguali
Private Sub HScroll1_Change()
    Dim valore As Integer
    valore = CInt((255 * CInt(HScroll1.Value)) / 64) 'serve per rapportare
64 a 255
    Picture1.BackColor = RGB(valore, valore, valore)
End Sub
                            spero di esser stato utile e chiaro
                                                danilo

Grazie 1000!!!!
Antonio.
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO ! Quando un File viene modificato ? (per esperti)

Salve, ho una domanda per veri GURU !	
Come posso intercettare l'avvenuta modifica/creazione di un file da VB5?
Avete presente i VirusScan, che controllano un file appena si cerca di
aprirlo?
Bene, il mio problema è proprio questo:
intercettare quando un file viene aperto , creato o modificato.
Se avete suggerimenti, vi ringrazio !!!
Massimo

Option Explicit
Private Declare Function FindFirstChangeNotification Lib "kernel32" Alias
"FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal
bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
 Private Declare Function FindNextChangeNotification Lib "kernel32" (ByVal
hChangeHandle As Long) As Long
 Private Declare Function FindCloseChangeNotification Lib "kernel32" (ByVal
hChangeHandle As Long) As Long
 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle
As Long, ByVal dwMilliseconds As Long) As Long
 Const INFINITE = &HFFFF
 Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
 Const FILE_NOTIFY_CHANGE_SIZE = &H8
 Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Private Sub Command1_Click()
Dim hNotify As Long, lStatus As Long
'-----------------------------------------
'// Controlla la directory 'C:\pozzo'
hNotify = FindFirstChangeNotification("C:\pozzo", False,
FILE_NOTIFY_CHANGE_FILE_NAME Or _
FILE_NOTIFY_CHANGE_LAST_WRITE Or _
FILE_NOTIFY_CHANGE_SIZE)
Do
   '// Controlla ogni 1s
   lStatus = WaitForSingleObject(hNotify, 1000)
   If lStatus = 0 Then
      MsgBox "File modificato!"
      If FindNextChangeNotification(hNotify) = 0 Then Exit Do
   End If
   DoEvents
Loop
lStatus = FindCloseChangeNotification(hNotify)
End Sub
Ciao,
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un database da vari file di testo

Ciao a tutti. Devo creare delle tabelle access a partire da file di testo
con i campi NON separati.
Avevo pensato di fare una funzione che (passando le larghezza delle colonne
in un array) creasse
un recordset con i contenuti del file di testo.
Ottenuto il recorset poi volevo "riversarlo" (con eventuali modifiche, tagli
e incollaggi) sulla/e
tabelle del database access.
Volevo sapere se č possibile lavorare su un recorset non collegato a
database fisici e se č
possibile fare l'operazione di "riversamento".
Grazie delle eventuali info.
CIew.

 ha scritto nel messaggio
news:9rmidp$628$1...@fe2.cs.interbusiness.it...


 tabella vera e propria
Ho visto.. ma ho anche notato dei problemi di accesso al file.. se ho il
file
access aperto, non posso aggiornare il file di testo origine..

Scusa ma non capisco: perchč vuoi aggiornare il file di testo origine se nel
primo post dici che vuoi riversare ciň che contiene su tabelle normali?

 primo post dici che vuoi riversare ciň che contiene su tabelle normali?
Hai ragione.. ho scritto male.. tra l'altro, nel riversare il contenuto
delle
tabelle collegate, devo apportare delle modifiche (ad es. convertire dei
numeri
in lettere a seconda dei codici, scrivere un valore piuttosto che un altro
nel
a seconda del contenuto,ecc..). Secondo voi posso farlo con il vba incluso
in access? E se si, come? Con una connessione ado a se stesso?

 > primo post dici che vuoi riversare ciò che contiene su tabelle normali?


 modifiche proprio prima di riversare i record
Si, avevo provato, ma mi sembra che l'sql di access sia veramente limitato.
Ho preso una query con l'opzione REPLACE, scritta e funzionante su
SQL2000 e su access.. nulla!

Newsgroup: it.comp.lang.visual-basic
Titolo: Recupero campi da database

Salve, ho dei problemi col recuperare campi dal mio db, ammesso che
rsModifica è il mio recordset, per recuperare un campo faccio:
rsModifica!nomecampo
come faccio a recuperare un campo il cui nome contiene degli spazi?
Ad esempio ho PARTITA IVA e non riesco in nessun modo ad ottenerlo
Grazie
Vincenzo

Vincenzo Palomba ebbe il coraggio di dire:

rs.fields("partita iva")
MIk

rsTuoRs.Fields("Partita IVA")
oppure
rsTuoRS![Partita IVA]
Ciao, Vincenzo

 rsTuoRS![Partita IVA]
Quest'ultimo non mi convince... ma non ho verificato


Vai tranquillo Lupo che funziona.
Ho avuto modo di usare questa sintassi per lavorare su un DB fatto da un mio
collega con nomi di campi e tabelle con spazi... io in genere non amo questo
modo di definire i campi.
Ciao, Vincenzo