mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] GetWindowsText help

Come si fa avendo l'handle di una finestra a fare ritornare il titolo il
testo??? con getwindowstext  ottengo solo il lenght esatto come lo trosformo
in testo???
HELP!


Dim lunghezza As Long
Dim buffer As String * 256
Dim testo As String
lunghezza = GetWindowText(hWnd, buffer, Len(buffer))
testo = Left(buffer, lunghezza)
Ciao


Con GetWindowsText ottieni il testo della finestra.
Con GetWindowsTextLength ottieni la lunghezza del testo.
Riporto sotto l'help della funzione API.
Prova cosi':
dim text as string
text = String(GetWindowsTextLength(hWnd) + 1, Chr(0))
GetWindowsText hWnd, text, Len(text)
--
Roal Zanazzi
z...@iol.it
The GetWindowText function copies the text of the specified window's title
bar (if it has one) into a buffer. If the specified window is a control, the
text of the control is copied.
int GetWindowText(
    HWND hWnd, // handle of window or control with text
    LPTSTR lpString, // address of buffer for text
    int nMaxCount  // maximum number of characters to copy
   );
Parameters
hWnd
Identifies the window or control containing the text.
lpString
Points to the buffer that will receive the text.
nMaxCount
Specifies the maximum number of characters to copy to the buffer. If the
text exceeds this limit, it is truncated.
Return Values
If the function succeeds, the return value is the length, in characters, of
the copied string, not including the terminating null character. If the
window has no title bar or text, if the title bar is empty, or if the window
or control handle is invalid, the return value is zero. To get extended
error information, call GetLastError.
This function cannot retrieve the text of an edit control in another
application.
Remarks
This function causes a WM_GETTEXT message to be sent to the specified window
or control.
This function cannot retrieve the text of an edit control in another
application.
Newsgroup: it.comp.lang.visual-basic
Titolo: Directory C:\Windows

Ciao a tutti,
questa e' sicuramente una domanda scema, ma io sono
piu' scemo di lei... Esiste una costante di VB5 che indica
qual e' la directory che contiene Windows?
Su alcune macchine e' C:\Windows, su altre e' C:\Winnt
e se qualcuno ha fantasia si trova di tutto. In un programmino
voglio chiamare notepad e ogni volta che chi lo usa ha una
directory di windows con un nome o su un disco diverso
non funziona piu' il mio comando
Shell("C:\WINDOWS\notepad.EXE " + App.Path + "\ConvError.log", 1)
come faccio?
Grazie e ciao
Marco
-- 
Posted from 
wnt006.gsi.de
 [140.181.106.209] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
3B71706D...@cern.ch...


devi utilizzare le API di win...per sapere qual'è la directory di Win!
non ricordo...quale sia....cmq...guarda sul sito comune....
http://www.it-lang-vb.net/
Ciao simo
--
__________________
www.sasim.cjb.net


non funziona piu' il mio comando
Sito comune o mio sito
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 Shell("C:\WINDOWS\notepad.EXE " + App.Path + "\ConvError.log", 1)
Const VIR As String = """"
Call Shell(AggiungiBarra(Environ$("windir")) & "notepad.exe " & _
    VIR & AggiungiBarra(App.Path) & "ConvError.log" & VIR,
vbNormalFocus)
Ciao
Faber

 ciao
-- 


 ha scritto nel messaggio
news:3B7237E5...@cern.ch...

---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------
(Rubato da una risposta di Moreno!!!
--
Ivan Castellaro
Mettere un punto tra nome e cognome per l'e-mail.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aprire la finestra Cerca File o cartelle

Bye
Qualcono di voi sa come sia possile da VB lanciare la finestra di cerca file
o cartelle con eventualmente la possibilità di predefinire il valore nella
casella Cerca in
Grazie
Andrea

Ma l'help di visual basic lo hai installato ?
Comunque devi cercare le common dialog, aggiungere questo ocx
nel tuo progetto e poi nel pulsante che apre i file devi mettere:
commondialog1.showopen   ........
a te scoprire il resto

...





Leggi bene la domanda, non credo sia questo che chiede...
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: stampare un richtextbox

ciao stampando con printer. un richtextbox dandogli le cordinate di stampa
con printer.currentX e printer.currentY
le cordinate vengono mantenute solo dalla prima riga di testo il resto viene
stampa tutto a sinistra sul foglio
come posso ovviare a questo problema se potete aiutarmi ve ne sarei grato
ciao Gedi


Prob sbagli qualcosa.
Posta il codice.
Ciao
Aldo


Date: Thu, 8 Feb 2001 10:05:35 +0100
Ciao
Aldo

 wrote in message
966rn0$jftnb$1...@ID-56381.news.dfncis.de...

grasie ciao GEDI

Newsgroup: it.comp.lang.visual-basic
Titolo: Form1 chiama form2

ciao a tutti..
sto provando, con visual studio 2008, a 
fare una prima applicazione per smartphone:
consiste nella pagina iniziale (form1) 
dove c'è un button1, che se cliccato, fa 
aprire il form2.
Bene. Questa semplice cosa non 
riesco...come posso fare?
grazie!

 aprire il form2.
specifico: sostituire il form2 al form1, 
non aggiungerlo sopra l'altro...

 ha scritto nel messaggio 
news:4c92510d$0$12121$4faf...@reader4.news.tin.it...

non so se Ti è sufficiente utilizzare
i metodi "form1.show" e "form1.hide"
per quello che vuoi fare
ciao
JS

Newsgroup: it.comp.lang.visual-basic
Titolo: confronto tra oggetti indicizzati

Ciao a tutti
il mio problema e' questo,avendo 10 label indicizzate con il nome "L" dove
ogni label contiene un numero diverso.
Come faccio a sapere quale' il numero piu' basso?
Qualquno puo' farmi un'esempio?
grazie a tutti saluti henry.

 Qualquno puo' farmi un'esempio?
Conosci l'indice minimo (0?) e l'indice massimo (9?)?
Per "contiene un numero" intendi la Caption della label?
indice_n_minore=0
n_minore=10^15
For indice=0 to 9
    if val(L(indice).Caption)<n_minore then
        n_minore=val(L(indice).Caption)
        indice_n_minore=indice
    end if
Next indice
Debug.Print "Num.minore= " & n_minore & " all'indice " & indice_n_minore

 For indice=0 to 9
For indice=1 to 9
-- 
Ciao, Mauro CB

*CalabrOne* ha scritto:

Sě, hai ragione. E' piů furbino.

 Qualquno puo' farmi un'esempio?
Tieni presente che è una pessima idea basarsi sui valori dei controlli per i
tuoi algoritmi, per molteplici ragioni, ad. es. velocità, riusabilità,
leggibilità, astrazione, ecc.
Le label servono per *rappresentare* un valore, non per contenerlo.
Piuttosto usa un array di Long, lavori su quello e poi lo butti a video
tramite labels.
A ognuno il suo mestiere!
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net
Newsgroup: it.comp.lang.visual-basic
Titolo: Sito comune

Esiste un sito comune di questo NG
grazie e ciao


Si eccolo:
http://www.murialdo.it:8000/it_lang_vb/

Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora su Flash e VB

Le ho provate tutte, ma non riesco a gestire una movie di flash come
pulsante nessuno sà proprio darmi qualche indicazione?


Ti ho già risposto ieri sull'altro tread
non lo hai visto o c'è qualcosa che non è chiara???
--
Mauro Cerreto
www.cerretosoft.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Programma che linka un EXE creato con VB in un unico file

Ricordo che tempo fa si parlò di un programmino che,preso un EXE creato con
VB e tutti i files annessi e connessi (VM runtime di VB, DLL, OCX e
quant'altro) creava un EXE stand-alone che si poteva eseguire senza troppa
difficoltà semplicemente copiandolo sulla macchina target.
Qualcuno saprebbe illuminarmi al riguardo ?
Grazie
alex (che è stato lontano per parecchio tempo... :->

 Qualcuno saprebbe illuminarmi al riguardo ?
Si chiama STEALTH INSTALLER, non crea proprio un programma stand-alone,
ma diciamo
un'installazione fantasma. 
L'ho trovato sul sito degli Spippolatori: 
www.spippolatori.com
, sono
circa 340K
Ciao 
:-) Hd (-:

Newsgroup: it.comp.lang.visual-basic
Titolo: Manuale sulla programmazione OO

Ciao a tutti,
C'e' un (o piu') manuale (in italiano sarebbe meglio!), su intenret, che
possa spiegarmi cos'e' la programmazione object oriented e la sua
funzionalita'?
Grazie all & Ciao ;^)=
--
RedFoxy
A fox around web

funzionalita'?
Piu' che un manuale, diversi libri:
http://www.mindview.net/
-- 
hth, hal

 ha scritto

ah, ecco.
guardando il sub per un attimo mi sono detto: il caro hal oggi non ne puo'
piu': manuale sulla programmazione che due palle...
http://www.google.it/search?sourceid=navclient&q=oop+tutorials
non ho ancora capito se navclient deriva dal fatto che uso la toolbar di
google, credo di si'.
ciao, a.

google, credo di si'.
Centrato :-)
Con mozilla, infatti, la stringa diventa:
http://www.google.com/search?q=oop+tutorials&sourceid=mozilla-search
-- 
ciao, hal.digger

Newsgroup: it.comp.lang.visual-basic
Titolo: Access e connessione

"Errore durante la connessione: Metodo '~' dell' oggetto '~' non trovato."
Questo è il testo dell'errore che ha un mio cliente durante la connessione
al database. Sul mio PC tutto ok. Avete qualche idea?

 ha scritto nel messaggio
news:SSQTa.14691$Za4.3...@news2.tin.it...


Hai registrato il dsn (se lo usi). Il server funziona. La scheda
di rete anche? L'archivio mdb (se è access) è apribile come file
a se stante?
-- 
Saluti
Andrea Moro

 a se stante?
non uso un dsn, non è in rete.
Si, l'archivio è apribile.
Newsgroup: it.comp.lang.visual-basic
Titolo: visual basic + crystal Report + Oracle (da suicidio)

Salve a Tutti.
Ho un grosso problema.
Ho appena installato una mia porcedura su un server. Questa procedura
produce genera delle stampe. Il problema è che mi riporta i decimali a 0.
Sul mio pc va tutto ed è windows 2000 professional .. la versione di oracle
è la stessa.
Ho modificato 2000 impostazioni sul server ma nulla!
Cristal Report ver. 8.0
Odbc Oracle 8.01.07
Server: Windows 2000 Server
Visual Basic: ver 6 sp3
Grazie mille in aticipo!

 Visual Basic: ver 6 sp3
E già qui ci sarebbe tanto da dire...
Come accesso ai dati usi Ado?
Ciao
Alberto

 Cristal Report ver. 8.0
Ci vuole la patch di CR. Nella KB di Seagate c'è proprio una nota
specifica su questo problema.
Purtroppo ora non riesco a reperirla.
-- 
-- 
Saluti e salute a tutti.
________________
Gabriele Del Giovine [Microsoft MVP] - Windows 2000 - Windows NT 4.0
- Le informazioni fornite in questo messaggio sono fornite
  senza vincolo di garanzia e senza responsabilità alcuna.

 specifica su questo problema.
SI tratta della patch inclusa a partire dal Monthly Service Pack di maggio
2000.
Actxviewwin_en_200305.exe


Newsgroup: it.comp.lang.visual-basic
Titolo: Porte USB

Come prima cosa un cordiale saluto a tutti.
Sono un cronometrista del CONI (quelli che rilevano i tempi agli
atleti.....naturalmente č un hobby).
Il sistema che rileva i tempi trasmette li al PC tramite una seriale RS 232,
il programma (in VB6) rileva l'evento COM 1 ed elabora la stringa per la
gestione del tempo.
In Associazione (Cronometristi di Modena) dobbiamo acquistare un nuovo
portatile; perň i nuovi portatili, almeno quelli che ci interessano (ACER,
SONY ecc) non hanno piů la porta seriale (9 PIN) ma hanno le porte USB.
Problema (penso solo per me), come faccio la gestione della porta USB in VB6
?
Mi hanno detto che basta acqistare un convertitore RS 232 - USB, caricare i
relativi Driver e il tutto dovrebbe funzionare come prima.
Mi potete dare qualche informazione in merito ?
In VB6 č possibile gestire le USB (penso che NO)
Ringraziandovi anticipatamente Tanti Auguri di BUON NATALE e FELCE ANNO
NUOVO
-- 
Andrea Becciu
mailto: 
andy...@tin.it
www.becciu.net

Le USB non vengono viste dal sistema come porte, ma vengono viste le
periferiche ivi collegate.
La soluzione è comprare il convertitore ed installare i driver.
Windows dovrebbe vedere il tutto come se ci fosse un controller RS232.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no
web: 
http://www.nicolaottomano.it

 ANNO NUOVO
ciao e auguri anche a te

Andrea Becciu ha scritto:



ho avuto il tuo stesso problema un mesetto fa ed ho preso dei convertitori
USB<->COM che funzionano benissimo.
Quando li installi normalmente windows li vede come COM3 o COM4, ma ti
basta cambiare il numero della porta nel pannello di controllo oppure
nell'applicativo ed il gioco č fatto.
Saluti e buone feste anche a te!
-- 
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: Quanti elementi nell'array?

C'è un sistema per sapere quanti elementi ci sono in un array
monodimensionale (o bidimensionale) senza fare un ciclo finché non si
verifica un errore?
Grazie.
Francesco


Sì, c'è un sistema.
F1
ciao
ugo
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

 ugo

 >
Intendeva premi F1 e controlla la guida..... cavolo questo tipo di cose sono
molto chiare sul help...
Cmq la funzione č UBound()
Perdonami Ugo
Ciao

Questo mio messaggio, non per fare polemica, 
Nemmeno io intendo polemizzare, ci mancherebbe :-)
-- 
buon lavoro, hal

Premetto anch' io una tiratina d' orecchie ad Ugo(*)
(*) cosi' nessuno puo' dire che ti "coccolo" :-PPP
-- 
ciao, hal

 ha scritto nel messaggio
news:uYpf8.44120$fa5.1...@twister2.libero.it...


 semplicemente F1 sia tempo e banda sprecati per tutti.
Non è esatto. Ho scritto anche "Sì, c'è un sistema."...     ;-PPPPP
cmq ammetto di essere stato fin troppo laconico.


IMHO hai ragione, la documentazione per l'Ubound e' decisamente nascosta.
Io perlomeno ricordo di averla scoperta solo dopo qualche mese che lavoravo
su VB, e non grazie a MSDN...


 Ho scritto anche "Sě, c'č un sistema."...     ;-PPPPP
Azz... mi era sfuggito :-PPP
-- 
ciao, hal

 ha scritto nel messaggio
news:a5lhqr$vv$1...@newsreader.mailgate.org...

bisogna anche considerare che molti frequeentatori del NG non sono dei
professionisti o progammatori per lavoro,ma semplici appassionati o studenti
che non possono spendere l'elevato costo di VB e a molti manca addirittura
l'help on line e anche le ricercche on line costano scatti telefonici.
leonello

veniamo al dunque................
Riepilogando :
Dim MioArray() As Long
ReDim MioArray(2)
MioArray(1) = 1
MioArray(2) = 10
MioArray(0) = 5
MsgBox "Elemento MAX =" & LBound(MioArray) & " MIN = :" & UBound(MioArray),
vbInformation
By Utente WIn2k

Newsgroup: it.comp.lang.visual-basic
Titolo: AL WEBMASTER

... Service unavailable
CHE POSSO FARE????
Grazie!
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
--
Posted from [195.103.149.2] by way of 
f201.law8.hotmail.com
 [216.33.241.201] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:2000042707381...@hotmail.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: DLL ADDons

Ciao, devo fare un programma composto da un MDI, e vari children. E'
possibile sviluppare una struttura base (light), e creare varie
add-ons da distribuire in un secondo momento?
E' una cosa che si può fare con le dll? E' possbile creare forms
children distribuibili in un secondo momento?
Se non è con le dll, come si potrebbe fare?
ciao grazie

 Se non è con le dll, come si potrebbe fare?
Forse con EXE ActiveX ma la logica non cambierebbe di molto...
Per la mia esperienza : crei un programma main che è già comprensivo di
tutto (cosa che puoi fare solo se hai già le specifiche di progetto); dividi
il programma in moduli autonomi (e lasci stare la struttura MDI) ed in base
ad un log utente esponi solo le funzioni dedicate ad esso. Il fatto di avere
moduli distinti (quindi DLL) ti permette di non avere un main pesante perchè
i componenti vengono caricati solo su richiesta (load on demand) e poi
scaricati quando inutilizzati.
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Acesso remoto

C' è qualcuno che mi sa dire come generare un evento al momento che viene
stabilita la connessione Internet di accesso remoto ???
Mi serve per scrivere in un file l' IP (dinamico) che il server mi assegna ,
per fare delle statistiche .
Grazie a tutti !!
Ciao
Nic...@tin.it

nic...@tin.it
 (Nicola) ha scritto:

Basta usare il controllo predefinito Winsock: Per sapere se sei connesso
controlli con un timer se la proprietà LOCAL IP di winsock (il tuo Ip)
è diversa da 127.0.0.0. Se è diversa da quel numero sei connesso e il
numero riportato è il tuo ip.
Ciao
Andrea Fontana
E-Mail: 
anr...@tin.it
ICQ#: 27799781 

 wrote in message 7vqk1f$n9e$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: MI : Svendo VB 6.0 originale

Causa inutilizzo vendo il seguente software originale con licenza e 
cartolina di registrazione ancora integra :
- Visual Basic 6.0 Professional aggiornamento   L. 400.000
(bisogna avere una versione precedente)                   
- Visual Basic 6.0 Professional completo        L. 750.000
Risposte in e-mail 
sh...@libero.it
-- 
Posted from 207.46.11.20 by way of 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Non mi sembra proprio una "svendita"!

 Non mi sembra proprio una "svendita"!
be', insomma...
hai presente quanto costa il pro ?
cioe', la *licenza*, del pro...
come saldo non e' male.

 Non mi sembra proprio una "svendita"!
Se l'offrisse a meno potresti essere incriminato:
. per ricettazione e, frequentando il ng, non potresti nemmeno opporre la
buona fede;
. per circonvenzione d'incapace.
--
Ciao ;-)
Maurizio
--------
?SPQR(C)
 X
--------

 . per circonvenzione d'incapace.
:)
Newsgroup: it.comp.lang.visual-basic
Titolo: sottrazione parziale.

Innanzi tutto, salute a tutti!
Il mio problema:
- Sono autodidatta e alle primissime armi.
- Ho Access 2000 e Visual Basic 6.0 (Enterprise).
- In Access2000, ho una tabella costituita da alcuni campi contenenti solo
numeri. (Non c'è il contatore).
- Con una query di selezione ho ricavato un campo costituito da numeri
progressivi.
- Esempio a casaccio:
  12
  19
  41
  70
  93
A questo punto, vorrei sottrarre l'ultimo meno il penultimo, il penultimo
meno il terzultimo e così via fino al primo, per ottenere, in un nuovo
campo:
    7
  22
  29
  23
Ora:
Non ho trovato (e mi ci sono consumato gli occhi), un solo manuale - nè di
VB 6.0 e nè di Access2000 - (e non ne ho consultati pochi!), in cui compaia
il benchè minimo esempio, accenno o rimando, a: "somme o sottrazioni
parziali".
Sembra, infatti, che l'argomento sia sconosciuto o, (visto che nemmeno lo si
accenna), che questa possibilità, in questi programmi "estremamente
potenti", semplicemente, non esista.
Quindi, domande:
- Esiste questa possibilità?
- Se esistesse, quali sono i capitoli o i paragrafi o gli argomenti, che mi
dovrei studiare?
Grazie fin da ora.
rudi

 ha scritto nel messaggio
news:qB3z9.8890$Zn2.2...@twister1.libero.it...


 Il mio problema..
Non si può fare, senza un campo progressivo sequenziale, per un semplice
motivo: chi decide quale record è l'ultimo, il penultimo, ecc.., se non hai
un campo in base al quale ordinare???
Access, infatti, come la stragrande maggioranza dei DB moderni, non è
posizionale, ossia non garantisce che un determinato record sia memorizzato
in una determinata posizione. Facendo la query oggi, ti trovi i record in un
certo ordine. Facendo la stessa query domani, se non specifichi
espressamente un Order by, i record potrebbero benissimo arrivare in
tutt'altro ordine (potrebbero, anche se spesso l'ordine è lo stesso perchè
l'ottimizzatore di accesso ai dati lavora sempre nello stesso modo).
Risolvendo questo punto, ossia inserendo un campo contatore progressivo, la
cosa è molto semplice:
Select Valore=T1.Campo_Numerico - ISNULL((Select Top 1 Campo_Numerico From
Tabella as T2 where T2.Campo_Sequenziale<T1.Campo_Sequenziale Order by
T2.Campo_Sequenziale DESC),0.0) From Tabella as T1 Order by
T1.Campo_Sequenziale ASC
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: DoEvents

Buonasera, vorrei sapere qual è il contrario di "DoEvents", cioè
l'istruzione che lo annulla.
Il problema nasce da un ciclo che deve essere interrompibile all'inizio e
dopo un certo punto non più. Quindi mi serve sapere come si annulla appunto
il DoEvents.
Grazie, Ste.

 wrote in message
news:iOJyc.455018$rM4.18...@news4.tin.it...

' La riga qui sotto è un DoEvents annullato
' DoEvents
Ciao
--
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Grazie, Ste.
Nel corso del ciclo devi controllare una variabile booleana
Es. if abort then exit sub
la variabile diventa true alla pressione di un pulsante
i vari doevents nel ciclo permettono alla routine del pulsante di funzionare
quando desideri che il processo non venga piů interrotto disabilita il
pulsante
(e metti un doevents per permettere alla grafica di aggiornarsi)
--
Mauro Cerreto
www.cerretosoft.it

Grazie a tutti.
Stefano

 ' DoEvents
LOL! E' lo stesso procedimento usato da Balena per eliminare GoSub alla
conferenza di Torino... :-)
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

 Ciao
ROTFL

Newsgroup: it.comp.lang.visual-basic
Titolo: DATABASE su CD-ROM

Sicuramente l'argomento sarà stato già trattato , ma avrei bisogno di avere
informazioni su come gestire i database residenti su un CD-ROM.Ossia se è
possibile usarli visto che il CD-ROM è un disco a sola lettura ed
Access(queto è il formato che intendo usare) scrive un file LDB nella
directory in cui è presente il database.
Qualcuno ha già affrontato il problema  ? (Sicuramente...)
Aspetto qualche info...., grazie !!!
Leonardo Orazi
Best Engineering S.r.l.
www.bestonline.it

L'utilizzo di file mdb su cd rom non comporta alcun problema (provare per
credere) a patto che non si pretenda di scriverci sopra, piuttosto potrebbe
essere conveniente creare un database access su disco che contenga le
tabelle del database su cd allegate, in maniera da poterci interagire (anche
in scrittura su tabelle locali)  mantenendo la connessione ad un solo
archivio.
Alla prossima...
Axelmet
Newsgroup: it.comp.lang.visual-basic
Titolo: domandone su "memoria in comune"

allora, questa è una domanda lunga e difficile...
poniamo che ho 2 file VB, compilati, 1.exe e 2.exe.
all'interno di 1.exe ho una variabile che all'inizio è uguale a 0. ad un
certo punto, da 1.exe chiamo (shell) 2.exe. quest'ultimo cosa fa?.
usando VarPtr e CopyMemory, va a mettere, in una determinata locazione di
memoria, un detrerminato valore. poi, sempre al'interno di 2.exe, viene
effettuato un "test":
call copymemory (byval varptr(test),byval Pointer,2).
lui prende cio che sta all'indirizzo Pointer, e lo mette in test.
in 2.exe tutto questo funziona alla grande.
2.exe non termina con un end, ma resta "in attesa", nel senso che la sua
ultima istruzione è Form1.Show, quindi visualizza un form e diligentemente
torna a 1.exe
ora, la mia domanda è questa. se io in un modo o in ualtro riesco a passare
a 1.exe il valore di Pointer, e faccio
call copymemory (byval varptr(test1),byval Pointer,2).
lui che fa? mi copia in test1 il valore che io, durante l'esecuzione di
2.exe (che non è ancora chiuso!!!!) avevo messo all'indirizzo Pointer?
praticamente io ho due applicazione che contemporaneamente puntano a
Pointer, solo che una (2.exe) mi restituisce un valore, e l'alra (1.exe) mi
restituisce 0...
come mai accade cio? io sono stato attento a leggere da 1.exe quando 2.exe è
ancora attivo... quindi... dovrebbe funzionare, e invece non funziona...
qualche suggerimento?
Mario

 wrote in message news:8rpugt$ja2$1...@nslave3.tin.it...


Un dubbio che mi e' venuto... Hai messo il sleep il programma che
restituisce il valore errato per, diciamo, tre secondi?
Potrebbe semplicemente essere un problema di temporizzazione
Sleep e' una API, Sub Sleep(ByVal dwMilliseconds As Long), in kernel32.
Ciao,


 e' suo.
perche gli ho dato una mazzetta per chiudere un occhio... ::))))
Mario

wow... ora provo immediatamente...!!!!
se funziona ti faccio una statua...
mario

 wrote in message news:8s44bo$8l7$1...@nslave3.tin.it...


> Sono curioso: la statua era da fare ?
niente statua, non funziona...
ma tanto che importa... ora ho VB4 a 16 bit e sto creando un'applicazioncina
per utilizzare una simpaticissima dll (VBASM) che consente di sfruttare i
comandi Peek, Poke, VarSeg, VarPtr, Sseg, Sadd, InterruptX, Inp, Out, PeekW,
PokeW,... speriamo di riuscirci...
mario
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Opinioni su ADO Ottimistico e Pessimistico

A vostro modesto parere, è da preferirsi una gestione ottimistica (e quindi
a valle) dei conflitti negli aggiornamenti oppure una gestione a monte
(pessimistica). Per quali motivi?

 ha scritto nel messaggio
news:Puk97.2151$y_3.2...@news.infostrada.it...

Dipende dalle situazioni.
Personalmente preferisco lavorare con Optimistic Locking e
eventualmente,  - ove REALMENTE- necessarie ) le transazioni,  proprio per
non inibire l'accesso alla pagina dati agli altri utenti.
Il pessimistic ha un significato solo in situazioni in cui è STRETTAMENTE
NECESSARIO che gli altri utenti non possano accedere al dato, per es.
durante la creazione di una chiave univoca non rimpiazzabile (n° Fattura o
n° Biglietto di un aereo, per es.), ma anche in casi di questo tipo, se hai
il controllo del Database, puoi usare logiche diverse, come l'uso di tabelle
di progressivi e/o di tipo simil-semaforico.
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: VBA: AppAcctivate

Scusate se riposto: e` una domanda troppo stupida o non si puo` fare?
---
L'istruzione
AppActivate Shell("Winword.exe",1)
manda in esecuzione Word
Se volessi passare come stringa pippo.doc e lasciare che venga eseguita
l'applicazione abbinata all'estensione .doc come posso fare?
Grazie.
 
--
Ciao,
      Peppo
 
ICQ    : UIN 5709387
Fidonet: 2:331/301.45

Shell "Winword.exe pippo.doc"
Cosi' word ti dovrebbe aprire il file direttamente.Bye
Peppo wrote:

--
                         /|\      El Matador di Yew - Europa
                        / | \     Icq:42795350
                       |\ | /|    Non esiste
                       |\\|//|
                       |\ | /|    un'arma pericolosa,
                       |\ | /|
                       |\ | /|    esistono solo
                       |\ | /|
                       |\ | /|    guerrieri
                       |\ | /|
                       |\ | /|    PERICOLOSI
                       |\ | /|
                   ____|\ | /|____
                  (_______________)
                       (_____)
                       (_____)
                         ***
                          *

shell ("start percorso\pippo.doc")
Ciao
:-) Hd (-:
p_di...@freemail.it
  (okkio, non č politico ^_^)
hd...@azienda.net
Sito Comune:
www.murialdo.it
\it_lang_vb
----------------------------------------------------------------------------
Quando l'ultimo pesce sarą catturato, l'ultima fiamma sarą 
spenta, l'ultimo fiume avvelenato, solo allora capirete che non 
si puņ mangiare solo denaro.
-----------------------------------------------------------------------------

 wrote


Cosi' word ti dovrebbe aprire il file direttamente.Bye
ho bisogno di sganciarmi dal fatto di conoscere quale applicativo usare per
aprire quel tipo di file.
Grazie cmq,


shell ("start percorso\pippo.doc")
elementare Watson!
Semplice e funzionale, e bastava pensarci.
Ma... vedi post successivo.
Grazie.


        NomeFileConPercorso, vbNullString, "C:\", SW_SHOWNORMAL)
provata e fatta funzionare.
E` meglio della shell con il comando start in quanto e` piu` veloce e non
apre quella antiestetica finestra dos.
Forse se ne parla gia` nel precedente thread ma se cosi non fosse hai un
doc, o mi puoi indirizzare a un doc, che mi documenti la chiamata piu` in
dettaglio? Ad esempio cosa serve la var lpDirectoty?
Grazie, siete fantastici! E` incredibile quanto un NG possa ritornare utile
per imparare!


 wrot

Newsgroup: it.comp.lang.visual-basic
Titolo: jpeg e bmp

Salve a tutti, ho un problema, ho delle immagini jpeg, qualcuno mi sa 
dire dove posso trovare una activex o ocx o altro per poter leggerla e 
eventualmente stampare ???
Grazie....
PS. Gratuita meglio ;-)
Marco

 eventualmente stampare ???
con il controllo standard di VB PictureBox si possono visualizzare sia jpeg
che bmp che altri formati... dove sta il problema? per la stampa poi
potresti usare l'oggetto Printer (consulta la guida, non l'ho mai usato
:))
Ciao
Faber

, 
zann...@libero.it
 says...

Il fatto è che il programma non deve lavorare in vb, ma sotto un altro 
linguaggio ;-)
ecco perchè mi sono rivolto alla ng, speravo che cmq una dll o altro ci 
fosse cosi la potevo riutilizzare.
Dimmi cosa ne pensi se la creassi io la dll con l'oggetto PictureBox, mi 
potresti dare dei consigli.
Grazie ...
Marco

 potresti dare dei consigli.
uhmmm non ho esperienza a proposito della creazione di OCX utilizzabili poi
in altri linguaggi... credo che nel NG ci siano persone molto piů preparate
di me a proposito...
mi dispiace di non poterti essere d'aiuto...   :(
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: .Find

Come posso fare per far funzionare il metodo .Find se nella stringa che
cerco c'è un apostrofo?
 Esempio:
 Dim Rst as Recordset
    Rst.Find Criteria:="[Campo] = '" & Me.Valore & "'",
SearchDirection:=adSearchForward
Dove Me.Valore = "Un'amica"
Grazie a Tutti!

Marco Tirinato ha scritto:

Rst.Find Criteria:="[Campo] = '" & _
                     Replace(Me.Valore, "'","''") & "'", _
              SearchDirection:=adSearchForward
hth, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: appactivate in cascata... problema

ciao ragazzi,
all'interno di un programma ho bisogno di controllare se un'applicazione e'
aperta, se non lo e', controllo se una seconda applicazione e' in
esecuzione, se nemmeno questa lo e', allora visualizzo il messaggio in una
msgbox. purtroppo, al secondo appactivate vb mi ritorna run-time error 5 e
nn capisco il motivo!
a grandi linee il codice e' questo:
On Error GoTo noeti
AppActivate "Stampa Etichette Indirizzi"
SendKeys "CIAOOOOOO"
GoTo fine
noeti:
On Error GoTo noword
AppActivate "Microsoft Word"
SendKeys "CIAOOOOOO"
GoTo fine
noword:
MsgBox "CIAOOOOOO"
fine:
un aiutino?
grazie 1000 a tutti
Dade

 appactivate vb mi ritorna run-time error 5 e nn capisco il motivo!
ipotizziamo
    on error goto qui
    a = 5/0
qui:
    on error goto la
    a = 6/0
la:
    msgbox "Eccomi arrivato"
il msgbox non comparirą mai
proviamo in un altro modo
    on error goto qui
    a = 5/0
qui2:
    on error goto la
    a = 6/0
la2:
    msgbox "Eccomi arrivato"
exit sub
qui:
   resume qui2
la:
    resume la2
questo dovrebbe funzionare.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 questo dovrebbe funzionare.
però dovrebbe funzionare anche con il resume next :-)
On Error resume next
AppActivate "Stampa Etichette Indirizzi"
if err.number = 0 then
    SendKeys "CIAOOOOOO"
    GoTo fine
else
    err = 0
end if
AppActivate "Microsoft Word"
if err.number = 0 then
    SendKeys "CIAOOOOOO"
    GoTo fine
end if
noword:
MsgBox "CIAOOOOOO"
fine:


 questo dovrebbe funzionare.
funziona benissimo :) con il resume next invece non mi funzionava!
grazie 1000 Sergio
Dade

 funziona benissimo :) con il resume next invece non mi funzionava!
riprovaci. dovrebbe proprio andare, e per quello che devi fare tu risulta
anche molto più "leggibile"


 ha scritto nel messaggio
news:xaGqc.9126$Wc.3...@twister2.libero.it...
[cut]
On Error Resume Next
' Cerco di attivare la stampa delle etichette
AppActivate "Stampa Etichette Indirizzi"
' Se si e' verificato un errore
if err <> 0 then
    ' Azzero l'errore...
    err.clear
    ' ... e cerco di avviare word
    AppActivate "Microsoft Word"
    ' Se si e' verificato un errore
    if err <> 0 then
        ' Avviso l'utento
        MsgBox "CIAOOOOOO"
    else
        SendKeys "CIAOOOOOO"
    end if
else
    SendKeys "CIAOOOOOO"
end if

Newsgroup: it.comp.lang.visual-basic
Titolo: VOCI E MENU

GRAZIE

 GRAZIE
PREGO!
la fattura  a chi la mando?
--
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
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire una pagina

Posso aprire una pagina Web presente sul mio disco C con il browser
inserendo il comando c:\default.htm?
Come si può fare?
Ciao e grazie a tutti.
Enzo

 Come si può fare?
In un form:
'Dichiarazione API
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "open", "C:\.NomeFile.htm", "", "", 1
End Sub

 Come si puņ fare?
Puoi usare ShellExecute.
Trovi gli esempi sul sito comune
o su 
http://members.xoom.it/CesareRizzi
Se hai bisogno di piu' controllo sul browser (dimensioni, posizione, ecc...)
usa l'oggetto InternetExplorer
CiaoZ

Newsgroup: it.comp.lang.visual-basic
Titolo: programma per visualizzare desktop

Vorrei sapere se esiste un programma in giro per visualizzare il destop di
un pc in rete locale.
GRAZIE

 ha scritto nel messaggio
news:8p5nd7$ls$1...@nread2.inwind.it...


 un pc in rete locale.
me ne hanno mostrati almeno un paio, uno era di mcafee.

 un pc in rete locale.
Devi ASSOLUTAMENTE provare  WinVNC che ti permette di fare GRATIS ciň che
hai detto, sia in intranet sia tramite Internet.
Lo trovi qui:
http://www.uk.research.att.com/vnc/index.html

> Sicuramente NetMeeting lo scarichi gratuitamente dal sito Microsoft
Ho provato NetMeeting (distribuito insieme a IE5.5 in italiano), ma non č
assolutamente all'altezza per quanto riguarda la "visualizzazione del
desktop".
WinVNC č molto piů veloce e ha alcune importanti opzioni che mancano a
NetMeeting.
Anche WinVNC č gratuito e occupa meno di 1MB.
Inoltre il client puň essere avviato direttamente da un floppy, senza alcuna
installazione.
NetMeeting, comunque, puň essere utile per il trasferimento di files, che
manca a WinVNC.
Ciao.

 ha scritto nel messaggio
news:dTSt5.25083$_U1.4...@news.infostrada.it...


 Experimental
A me invece funziona benissimo...
Ti suggerisco di utilizzare i files di configurazione per la connessione.
Segui le istruzione e poi piazza un collegamento al file di configurazione
sul desktop: basterà un doppio clic!!!
Sarebbe bene anche aggiungere alcune chiavi nel registro, così come indicato
dal produttore.
ALOHA!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Query: metodo "Execute".

Posto che db è un database dBase IV (tabelle DBF), la seguente query di
estrazione records da Tab1 con creazione di una nuova tabella Tab2 mi dà
errore:
db.Execute ("SELECT * INTO Tab2 FROM Tab1 WHERE Campo1<> " & Valore & ";")
Guardando l'help si capisce che non è possibile utilizzare il metodo
"execute" nelle query che restituiscono records.
E' sempre vero?
In un altro caso riesco ad utilizzare la suddetta sintassi senza alcun
errore, ma non capisco dove sia la differenza!
Grazie.


Stai usando ADO o DAO ???
Ciao
Sirjo


DAO !


Questo è un esempio che ho trovato sull'help di VB
' Seleziona tutti i record nella tabella
 ' Impiegati e li copia in una nuova tabella,
 ' Backup Impiegati.
 dbs.Execute "SELECT Impiegati.* INTO " _
  & "[Backup Imp] FROM Impiegati;"
Usano il metodo Execute e, a quel che mi ricordo, lo usavo anch'io e
funzionava.
Che errore ti dà di preciso ???
Ciao
Sirjo

 Che errore ti dà di preciso ???
Scusa per il ritardo.
Ho verificato che in realtà l'istruzione di creazione tabella con "execute"
funziona (onfatti l'avevo già usata con successo), ma la seguente
istruzione.
db1.Execute ("SELECT * INTO TempCamp FROM DatiCamp WHERE [COD_COLL] <> " &
CodiceColl & ";")
mi causa il messaggio di errore:
"Too few parameters. Expected 1"
E' come se  venisse interpretata come query parametrica.
A cosa può essere dovuto?

FINALMENTE HO RISOLTO !!!!!!
Mi rispondo da solo: dimenticavo gli apostrofi prima e dopo la variabile.
L'istruzione corretta è la seguente:
db1.Execute ("SELECT * INTO CodColl FROM DatiGen WHERE COD_COLL = ' " &
CodiceCollaudo & "';")
Grazie comunque a Sergio!
Ciao.

 Ciao.
Di niente
Mi ero già accorto che avevi dimenticato gli apici, ma non ho fatto a tempo
a risponderti.......
Ciao
Sirjo
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire file access da vb

Vi sembrerà strano:
ma non sono riusciuto a trovare il modo per aprire un file access protetto
con password (conosciuta) da visual basic.
opendatabase("pippo.mdb"...

Per impostare una password usa:
dbase.NewPassword = "","password"
dove dbase è l'oggetto database e "password" la password da impostare
Per modificare una esistente:
dbase.NewPassword = "vecchia","nuova"
Per aprire un DB con password:
Senza DataControl.....
Set dbase = OpenDatabase(App.Path & "\db1.mdb")
dbase.Connect = "PWD=aaaa"
Oppure:
Set dbase = OpenDatabase(App.Path & "\db1.mdb", False, False, "PWD=;aaaa")
Con DataControl.....
Data1.DatabaseName="db1.mdb"
Data1.Connect=";PWD=aaaa"
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------



 wrote in message 7j380d$sfa$1...@nslave1.tin.it...

Ti sembrera' strano, ma la tua stessa domanda e' stata posta innumerevoli
volte su questo newsgroup e, guarda caso, anche in questi giorni e ha gia'
avuto risposta.
Ti invito quindi a leggere gli altri messaggi (almeno i subjects, se proprio
non vuoi scaricarti il corpo dei messaggi), per vedere se e' gia' stata
fornita risposta al tuo problema.
--
Roal Zanazzi
z...@iol.it

set mydb=Opendatabase(Nome$,true|false,true|false,";PWD=xyz")

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore run-time 91

al momento che eseguo    "  Data1.Recordset.AddNew " mi spunta un errore 91
            variabile oggetto o variabile del blocco with onon impostata
la Versione che use è VB6 it. professional.
Cosa Faccio?
Grazie


Il recordsource del DataControl non è istanziato: perchè non posti un po'
più del tuo codice e ci dici come hai impostato le proprietà del controllo
stesso?

Newsgroup: it.comp.lang.visual-basic
Titolo: alternativa crystal reports

ciao a tutti
ho la necessità di pubblicare dei reports su web ma non ho crystal
reports...
Qualcuno conosce un software alternativo?
grazie!

 ha scritto nel messaggio
news:7IKR8.573$Jj7....@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: R: [?] Stampa diretta su LPT1

 eliminazione della stampa sotto windows (ottimo lavoro))

non funziona:
Io invece faccio una open del file LPT1 in output.
Chiaramente questo bypassa lo spooler di Windows ma funziona.
--------------------------------------------------------
Paolo Hölzl
Metis Informatica s.a.s technical manager (Ferrara)
----------------------------------------------------------
ATTENTION!, antispam 
For reply, substitute xxx.xx with 
tin.it

 Chiaramente questo bypassa lo spooler di Windows ma funziona.
Anch'io faccio cosi', ma alla fine della stampa (su Epson Stylus color 800)
mi "ciuccia" un ulteriore foglio e lo tiene caricato (senza scriverci
niente).
Succede anche a te?
C'è un modo per ovviare a cio'?
Ciao, Andrea

 >


C'è un modo per ovviare a cio'?
Finisci con un FormFeed (toglie il foglio rimasto dentro)


Se non sbaglio il FormFeed è il Chr$(12), o sbaglio?
Paolo Holzl <metisinf...@xxx.xx> wrote in message
7frntn$lon$2...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Drag & Drop con selezione multipla

Ho un listview su cui ho la possibilità
di selezionare uno o più item.
Gli item selezionati voglio portarli
con il drag & drop su di un treeview.
Il codice che ho prodotto funziona,
ma solo per un item solo.
C'è qualcuno che mi da una mano?
                    Grazie
Private Sub lstView_MouseMove(Button As Integer, Shift As Integer, x As
Single, Y As Single)
With lstView
   If Button = vbLeftButton And .ListItems.Count > 0 Then 'attiva drag
    .DragIcon = .SelectedItem.CreateDragImage
    .Drag vbBeginDrag
    End If
End With
End Sub
Private Sub TrView_DragDrop(Source As Control, x As Single, Y As Single)
With TrView
    If Not .DropHighlight Is Nothing Then
         If nodSelected.Key = .DropHighlight.Key Then
            'la provenienza e la destinazione coincidono
            Set .DropHighlight = Nothing
        Else
            'Azione sul drop
            Set .DropHighlight = Nothing
            .Nodes(nodSelected.Key).Selected = True
        End If
    Else
          MsgBox  "Azione non prevista"
    End If
End With
End Sub

 ha scritto nel messaggio
news:25I89.7559$xi1.3...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Evidenziare riga listview

Ciao a tutti, 
In una listview, "checkando" la proprietą hottraking del controllo, mi
permette di selezionare una riga senza cliccare su di essa, solo che
per farlo devo fermare il puntatore sulla riga e aspettare un minimo
di tempo che "mi da fastidio"!!! :(
Posso fare la stessa cosa senza fermare il mouse  ma automaticamente
appena ci passo sopra?!
Grazie a tutti!
Mizietto ^___^

 appena ci passo sopra?!
Private Sub L1_MouseMove(Button As Integer, _
    Shift As Integer, x As Single, y As Single)
    If L1.HitTest(x, y) Is Nothing Then
    Else
        Dim ob As ListItem
        Set ob = L1.HitTest(x, y)
        ob.Selected = True
    End If
End Sub
dove L1 e' il list.
beppe
Newsgroup: it.comp.lang.visual-basic
Titolo: comunicazione tra applicazioni

vorrei che un mio programma in vb5 partisse quando viene premuto il tasto
connetti dalla finestra di connessione di accesso remoto; non ho la più
pallida idea di come fare... qualcuno mi potrebbe aiutare?
grazie

connetti dalla finestra di connessione di accesso remoto; non ho la piů


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto FileSystem e ?

Utilizzo il file system object per scrivere dei file (quindi assiame al
textstream).
Ho notato che quando vado a scrivere una riga con il metodo writeline se
in questa stringa è presente un punto interrogativo la procedura si
blocca restituendo l'errore:
Errore di run-time '5'
Chiamata di routine o argomento non valido.
E' una cosa risaputa? E' aggirabile?
Grazie e ciao 
Matteo
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Chiamata di routine o argomento non valido.
Sospetto che il problema sia un' altro:
c'e' qualche funzione stringa, tipo Mid, Len e compagnia?
Prova a mandare il codice che va in errore ...
-- 
ciao, hal


 Prova a mandare il codice che va in errore ...
Confermo...il problema è un altro...
Il carattere che vedevo come punto di domanda nella 
finestra di debug era in realtà un carattere sporco probabilmente 
non interpretabile dall oggetto fs
Grazie per la risposta
Matteo


Newsgroup: it.comp.lang.visual-basic
Titolo: Mi sembrava facile ...

Mi sembrava facile quanndo l'ho pensata, e invece sto incontrando qualche
difficoltà; alla fine ci son riuscito con codice lungo e contorto :(
Devo fare una specie di tabellone, con dieci colonne, e riempirlo di numeri
che partono sempre da 1 fino a 3-4 mila, quando arrivo a 10 sulla prima riga
devo fare addnew e proseguire con 11,12 ecc..
Come posso fare ad usare un qualsiasi ciclo, dal momento che se mi riferisco
al campo con una variabile mi segnala errore?
--
Greg


vediamo se ho capito:
Dim rs As ADODB.Recordset
Dim I As Long
Dim J As Long
     Set rs = New ADODB.Recordset
     rs.Fields.Append "Col01", adInteger
     rs.Fields.Append "Col02", adInteger
     rs.Fields.Append "Col03", adInteger
     rs.Fields.Append "Col04", adInteger
     rs.Fields.Append "Col05", adInteger
     rs.Fields.Append "Col06", adInteger
     rs.Fields.Append "Col07", adInteger
     rs.Fields.Append "Col08", adInteger
     rs.Fields.Append "Col09", adInteger
     rs.Fields.Append "Col10", adInteger
     rs.Open
     For I = 1 To 3000 Step 10
       rs.AddNew
       For J = 0 To 9
         rs.Fields(J).Value = J + I
       Next J
     Next I
hth
bye
r

      Next I
L'errore stava nel fatto che io cercavo di usare rs!(J) dimenticandomi della
proprietą fields :(
grazie tante
--
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: funzione Api FindFirstFile

ciao, sto utilizzando la funzione api FindFirstFile per vedere se c'e'
un file dentro una directory; se c'e' allora utilizzero' la FindNextFile
per trovare altri file con la stessa estensione...
il problema e' che quando lancio la funzione il sistema operativo (win
98) mi va in crash
ho postato il codice perche' non riuscivo a trovare da solo l'errore,
chi puo' dirmi dove sbaglio???
ciao e grazie in anticipo!!!
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
  dwFileAttributes As Long
  ftCreationTime As FILETIME
  ftLastAccessTime As FILETIME
  ftLastWriteTime As FILETIME
  nFileSizeHigh  As Long
  nFileSizeLow  As Long
  dwReserved0  As Long
  dwReserved1  As Long
  cFileName As String
  cAlternateFileName As String * 14
End Type
Private Declare Function FindFirstFile Lib "kernel32" Alias
"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As
WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias
"FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As
WIN32_FIND_DATA) As Long
Private Sub Command1_Click()
Dim result As Long
Dim struttura As WIN32_FIND_DATA
struttura.cFileName = ""
struttura.cAlternateFileName = ""
result = FindFirstFile("C:\Documenti\p*.txt", struttura)
End Sub
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

   cFileName As String
[cut]
cFileName As String * MAX_PATH
dove
Const MAX_PATH As Long = 260
Ciao
--
Faber

 ciao Faber e grazie, era proprio li l'errore, volevo chiederti come si fa
a sapere il valore di queste costanti?
ho provato ad aprire alcuni file .h come windows.h ecc. (in C quando 
uso le api intesto sempre questa libreria) ma non ho trovato nulla...
sull' msdn il valore di MAX_PATH come quello di INVALID_HANDLE_VALUE
non ti viene riportato...
dove posso trovare documentazione in linea???
ciao e grazie


 a sapere il valore di queste costanti?
scarica APIViewer 2001 - gratuito - da 
http://www.allapi.net
è una manna, in questi casi
Ciao
--
Faber


Ma non fai prima ad utilizzare la funzione DIR ?

 wrote in message
news:3c6a54d5...@news.tiscalinet.it...

ho visto adesso che esiste la funzione dir,non conosco bene il vb, pero'
in C utilizzavo l'sdk per molte cose, e li la define MAX_PATH non 
devi dichiararla (a proposito l'ho trovata, e' dichiarata, per chi 
servisse, dentro windef.h, insieme ad altre define che 
potrebbero servire) 
ciao Negus


 queste costanti?
Cerchi #define MAX_PATH (o quello che cerchi) tra i file .h, con la
funzione di ricerca di Explorer o con qualche programma che cerchi
testo nei file.
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.