mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Consiglio su multiutenza con VB+ADO

Ciao a tutti,
volevo un consiglio su come comportarmi per il programma che sto facendo.
Il programma dovrebbe venir installato tipo su 3/7 PC credo, e questi PC
dovrebbero accedere al medesimo DB (interbase) che sta su un server.
Le operazioni saranno tipo inserire nuovi record in 2/3 tabelle, visionarli
e lanciare dei report.
Dato che non ho mai affrontato il problema della multi utenza volevo sapere
le linee guida su come comportarmi e dove prestare attenzione.
PS: nel vecchio programma con gli archivi su file, mi pare che tutto fosse
gestito da un file di testo che conteneva il file (qui sarebbe la tabella)
dove il nodo (il pc) stava lavorando.
Grazie a tutti :)

 le linee guida su come comportarmi e dove prestare attenzione.
Le operazioni che potrebbero incontrare la concorrenza (vado a memoria)
sono:
1- identificativo da utilizzare dopo il salvataggio
in questi casi potresti utilizzare una tabella contatore, che si blocca
fino alla restituzione del nuovo identificativo costruito.
2- modifica dei dati
Intervenire bloccando il o un gruppo di record, o prima di modificare
verificare che il record originale non sia stato nel frattempo modificato
da altri.
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

 modificato da altri.
Per il bloccare il record c'è un qualche comando ADO o che? Oppure devo
trovare il modo di farlo "a mano"?
Grazie :)

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

Potete aiutarmi?? il mio problema è il seguente:
la mia applicazione usa svariati file wav, ora questo comporta che
se devo installarla su vari computer oltre all exe devo dare anche tutti
i vari wav, vorrei se era possibile includerli all'interno dell'exe stesso
o metterli in una libreria a parte. E possibile tutto cio?? con le immagini
non ho problemi le metto tutti su una form a parte e le richiamo ma
gli altri tipi di file esterne come i wav non si puo!! potete spiegarmi
come si fa??? è importantissimo!!!!
GRAZIE  a tutti!!!

 come si fa??? è importantissimo!!!!
Puoi inserire i tuoi .wav in un file di risorse (.res) tramite
l'editor di risorse di VB. E' il sistema migliore (per quanto
piuttosto sottovalutato dai programmatori VB) per
distribuire file "sciolti" ti questo genere. Vale anche per
file grafici, ovviamente.
Io, personalmente, preferisco ancora inserire le risorse
esterne in una dll. Per fare questo occorre però un editor
come il Workshop di Borland o simili, ma è solo abitudine.
Nell'help di VB ci sono esempi su come aprire un file
.wav incorporato come risorsa.

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 & Mscomm Urgente!!!!!!!!!!

Salve a tutti, potreste dirmi come utilizzare questo controllo ocx per fare
un'applicazione del tipo:  trasferire fax eccc

 ha scritto nel messaggio
news:89rofg$11u$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Spostamento su 2 recordset corrispondenti con datagrid

Ciao a tutti, vi espongo il mio problema:
Sto lavorando su un programma in Visual Basic 6 connesso tramite ADO ad un
database Access. Ho un datagrid collegato ad una tabella del db che chiamerò
TR1.
Nel db è presente inoltre una tabella copia di quella TR1 che chiamerò TR2.
TR1 e TR2 sono praticamente identiche (quindi l'ID della chiave primaria
corrisponde) tranne nel valore di un campo che può essere differente l'uno
dall'altro.
Es.
TR1
ID    Nome            Val
1      Tizio                5
2      Caio                2
3      Sempronio       7
TR2
ID    Nome            Val
1      Tizio                5
2      Caio                8
3      Sempronio       7
Il datagrid è collegato solo a TR1, ho la necessità che quando mi sposto al
record corrispondente al TR1, cliccando sulla corrispondente riga sul
datagrid, venga fatta la stessa cosa sul TR2.
Es. voglio posizionarmi sulla riga con ID 2 del TR1 => Clicco sulla riga 2
del datagrid => vorrei che si andasse a posizionare sia su TR1 che TR2 sulla
riga con ID = 2.
Tutto ciò è possibile?
Vi ringrazio.
Ciao

 ha scritto

al click sulla griglia, qc come
rs2.find "id=" & rs1!id
ciao, j.

 ha scritto nel messaggio
news:31dq92F...@individual.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: Scusate l'ygnoranza.

Salve lorsignori,
io sono un neofita e vorrei "umanamente" chiedervi qual'è la strada migliore
per re-iniziare a programmare (in VisualBasic). Quando ero "giovine"
programmavo tranquillamente in Basic Microsoft su sistemi Msx2, then ho
interrotto per svariati anni (leggi AccademiaBelleArti) ed oggi ho la
Necessità epidermidale di ricominciare a programmare.
Today sono stato in libreria ed il migliore dei manuali mi è sembrato quello
della McGraw-Hill da 54.000 lire (copertina violaceo-chiaro) anche se su un
altro manuale della Apogeo(?) mi sembrava che ci fosse un discorso più al
passo coi tempi (sui controlli ActiveX, l'OLE e le strategie da
bassomarketing della Microsoft...)
Magari però, su Internet c'è qualcosa di meglio...(tipo interi manuali
gratuiti o blablabla...)
Insomma, sapete darmi un consiglio per evitare le tipiche cantonate
commerciali da libreria ?!!?!
IF money < 90.000 and money = "only for august" THEN "quale manuale prendo"
ELSE "cumm'facc" ?!?!?
Merci Beaucoup.
"La mia faccia sotto ai piedi vostri"
DandAN

 IF money < 90.000 and money = "only for august" THEN "quale
manuale prendo" ELSE "cumm'facc" ?!?!?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO] valore di default

deV<

tramite un comando sql di ADO (collegato ad un db MSQL7)
USE northwind
EXEC sp_columns @table_name = 'customers'
ciao, hal

 ha scritto nel messaggio
news:9cfi81$dbi6l$1...@ID-56381.news.dfncis.de...



eh eh, hai ragione, ma la prigrizia ha avuto il sopravvento  ;-)
ciao, hal

 ha scritto nel messaggio
news:9cgr5l$dv495$1...@ID-56381.news.dfncis.de...


legge 'sto valore...mah...
Probabilmente il problema non e' di ADO in se', ma della sua genericita' nell' approccio
ai database. Per i provider forniti per i vari database 
non e' stato possibile/opportuno implementare una proprieta' DefaultValue.
Magari, se provi con un 
mioRecordset.mioCampo.Properties("DefaultValue") 
potrebbe anche funzionare.
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: date un consiglio a una spina!

Buongiorno, sono un novello al quale piacerebbe imparare qualcosa. Vorrei
imparare a compilare i moduli di access. Faccio già tebelle, query, report
ecc; ma sono a digiuno del resto.Non ho tante pretese, ma vorrei togliermi
qualche vizio.Qual'è la strada da prendere? Non voglio fare corsi, vorrei
essere autodidatta...e rompere le .........a questo bel newsgroup ogni
tanto.Grazie in anticipo.
ciarletto
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ciarletto
non ho capito esattamente la tua richiesta: vuoi integrare le tue
aplicazioni access con dei moduli? vuoi cominciare a programmare con visual
basic?
in qualsiasi caso, il metodo migliore per partire come autodidatta è quello
di farsi un bel giro in libreria.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:82Z88Z48Z250Y1...@usenet.libero.it...


 Inviato via 
http://arianna.libero.it/usenet/
"Nel titolo del post accennare ai contenuti trattati nel post"
Bye by SixaM 8-]
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: Files Metastock e scaricare dati di borsa

Buongiorno a tutti,
qualcuno ha esperienza nello scaricare dati di borsa e nella gestione dei 
files metastock?
Grazie
Tullio1248 

 ha scritto nel messaggio
news:1B2wf.19926$av6....@tornado.fastwebnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Database su un server

Salve vorrei avere degli esempi e delle spiegazioni su come posso lavorare
in VB
su un database che si trova su un server che fornisce uno spazio web
gratuito.
Ciao E Grazie

 ha scritto nel messaggio
news:PFNO6.14822$h9.13...@news.infostrada.it...


La stessa cosa l' ho chiesta anche io, non vorrei essere scortese ma...ogni
tanto buttate un occhio anche agli utimi 10 post...mica dico tanto :) C' è
già un thread aperto poche righe sotto il tuo post!!
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
 

 wrote in message
157Z29Z81Z46Y9...@usenet.iol.it...


 wrote in message
PFNO6.14822$h9.13...@news.infostrada.it...


 ha scritto nel messaggio
news:PFNO6.14822$h9.13...@news.infostrada.it...

Alcune possibilità: 1)usi Vbscript in pagine ASP (richiede un server IIS),
2) crei delle DLL da installare sul server che si occupano di recuperare i
dati e utilizzi la DLL da una pagina ASP sempre utilizzando Vbscript 3) Usi
una WebClass (ma ho sentito che quest'ultime saranno abbandonate da
Microsoft.
Ti invio in privato una pagina ASP per la lettura dinamica di un database
MDB, per la spiegazione è un'altro paio di maniche ;-)
Ciao VB



Sito Comune
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
---------------------------------------------------------------------------

 wrote in message
62ppgtc8dlagijp30...@4ax.com...


 ha scritto nel messaggio
news:9eh5ut$sau$1...@serv1.albacom.net...


ho già guardato sul sito comune, ma non ho capito l'articolo.
grazie... :-((((

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] utilizzo di codice FREE

Salve a tutti,
ho visto che sul sito comune e su altri si trova del codice FREE di VB per
diverse utilità.
Alcuni di questi, all'interno del codice si indica di poter utilizzare il
codice a patto che rimanga traccia del "VERO" autore del pgm.
Domanda: come fa questo "Vero" autore a capire se è stato utilizzato il
"suo" codice o altro??
Grazie.
Ciao.
Paolo.

 ha scritto nel messaggio
news:T53o7.135$7Y3....@news2.tin.it...

Essenzialmente, trattandosi di codice, si fida.
ciao
ugo

 utilizzato il "suo" codice o altro??
Esistono, volendo, metodi per la ricerca euristica di codice binario. 
Praticamente, analizzando due eseguibili, uno grosso e uno piccolo, è 
possibile dire se quello grosso contiene certe parti di quello piccolo.
Se la cosa viene portata in tribunale puoi venire forzato a fornire 
tutto il codice sorgente del tuo programma, e degli esperti decideranno 
se e quanto ne hai rubato all'altro programma
Alcuni programmatori poi nascondono "backdoor" o "easter egg", o 
stringhe "offuscate" nel proprio codice, e chi si limita a scopiazzarlo 
se le ritrova dentro il proprio programma. A volte proprio l'algoritmo 
usato nel codice originale è inconfondibile
Insomma, dipende. Se nel tuo programma usi un qualche algoritmo di 
compressione implementato interamente in VB, beccarti è facilissimo, 
perchè questi algoritmi si contano sulle dita di una mano. Se il tuo 
programma importa una serie di funzioni come GetOpenFileName, 
GetSaveFileName, PrintDlg, eccetera, e soprattutto LocalAlloc e 
LocalFree, considerando anche che segui il newsgroup e prevedibilmente 
frequenti il sito comune, è facilissimo intuire che stai usando la 
classe CommonDialog di Roal Zanazzi


In linea teorica, hai ragione.
In pratica vorrei vedere chi imbastirebbe una causa in difesa del copy su
codice free ( ai nostri livelli, quanto meno).
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Stato AVANZAMENTO QUERY

Ciao a tutti...
ho la necessita' di eseguire una query in ACCESS da VB6 e visualizzare lo
stato di avanzamento a video.
non importa con quale mezzo l'importante e' vedere che sta procedendo.
i miei db sono di circa 80.000 record (Il piu' piccino!)
se qualcuno mi sa dare una dritta mi puo' scrivere a   
sca...@tin.it
GRAZIE PER LA COLLABORAZIONE!!!  a buon rendere

Non puoi far eseguire la query tutta d'un botto, altrimenti mentre si esegue
lei, non puoi far eseguire nient'altro.
Io la spezzerei in più sottoquery.
1) Conta il n° di record
2) Dividi per 10 (ad esempio)
3) Fai una query che legge il primo 1/10, poi un'altra che legge 2/10, e via
via fino a 10/10.
In questo modo fra una delle 10 query e l'altra, puoi incrementare un
contatore che segnala la percentuale.
Se vuoi più precisione, dividi per 20, ma non ti consiglio di andare oltre
perchè aumenta di troppo il tempo di risposta.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: service pack 3 di visual basic 5

Qualcuno puo' darmi una dritta per trovare il service pack3 di vb 5.0 ?
grazie

)sotto la sezione "ftp"! Preparati
perché sono dodici mega... :-(

>Preparati perché sono dodici mega... :-(
In realtà sono 12.99, cioè 13
:-)

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

Mi permetto di formulare una domanda (richiesta) di aiuto .
Ho un problema di grafica e devo lavorare con le 
matrici.in
 particolare data
una matrice A devo calcolare
la matrice inversa , il determinante, ecc.
Qualcuno conosce un modo veloce per fare questi calcoli?
Ho realizzato il seguente codice :
Modulo.Bas
Attribute VB_Name = "Modulo1"
Global Const size% = 13
Sub Minversa(original#(), inverse#(), Size% )
    Dim b#(size%, 2 * size%)
     For Row% = 1 To size%
       For Col% = 1 To size%
           b#(Row%, Col%) = original#(Row%, Col%)
       Next
        b#(Row%, size% + Row%) = 1
     Next
     For i% = 1 To size%
        If b#(i%, i%) = 0 Then
          switched% = 0
          For testrow% = i% + 1 To size%
             If b#(testrow%, i%) <> 0 Then
                For Col% = 1 To 2 * size%
                   temp# = b#(i%, Col%)
                   b#(i%, Col%) = b#(testrow%, Col%)
                   b#(testrow%, Col%) = temp#
                Next Col%
                switched% = -1
             End If
          Next testrow%
          If Not switched% Then
            'non ha inversa
            Exit Sub
          End If
        End If
        'riduce tutti gli elementi non diagonali nella colonna a zero
        For Row% = 1 To size%
           If Row% <> i% Then
            hold# = b#(Row%, i%)
            For Col% = 1 To 2 * size%
             b#(Row%, Col%) = b#(i%, i%) * b#(Row%, Col%)
             b#(Row%, Col%) = b#(Row%, Col%) - hold# * b#(i%, Col%)
            Next Col%
           End If
        Next Row%
     Next i%
     For Row% = 1 To size%
         For Col% = 1 To size%
            inverse#(Row%, Col%) = b#(Row%, Col% + size%) / b#(Row%, Row%)
(*)
         Next Col%
     Next
End Sub
Sub multmatrix(first#(), second#(), product#())
rowsfirst = UBound(first#, 1)
colsfirst = UBound(first#, 2)
rowssecond = UBound(second#, 1)
colssecond = UBound(second#, 2)
rowsproduct = UBound(product#, 1)
colsproduct = UBound(product#, 2)
For i1% = 1 To rowsproduct
   For i2% = 1 To colsproduct
      total = 0
      For i3% = 1 To colsfirst
         total = total + first#(i1%, i3%) * second#(i3%, i2%)
      Next
      product#(i1%, i2%) = total
   Next
Next
End Sub
....il problema è che per dimensione della matrice size% di valore alto
(circa 10)
tutti i valori della inversa vengono ....ZERO.
Qualcuno sà dirmi come mai? Addirittura  il denominatore (*) diviene zero.
Grazie Ric.

 Qualcuno conosce un modo veloce per fare questi calcoli?...

riccardo ha scritto:

Tempo fa avevo scritto una routine per calcolare l'inversa di una matrice,
solo che era in C++. Se non hai fretta con calma me la converto e poi la
posto.
-- 
Samuele Battarra
mail server: 
libero.it
, account: battarsa
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html
Newsgroup: it.comp.lang.visual-basic
Titolo: datareport

salve gente , piccolo problemino della serie datareport
come posso fare da codice nascondere nella  ("Section1") una " text1box "
grazie 1000 

 ha scritto nel messaggio
news:JMYpd.412983$35.18...@news4.tin.it...


 ha scritto nel messaggio 
news:co9lml$c4p$1...@atlantis.cu.mi.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come far visualizzare un'icona

Come far visualizzare un'icona al passaggio del mouse su una label
grazie..

 ha scritto nel messaggio
news:99vkdo$qme$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Torneo programmi x pacchetti di installazione

ciao.
Vedo che l'uso di differenti programmi per la creazione pacchetti di
installazione è un giochino divertentissimo.
Io uso solitamente il "creazione guidata pacchetti di installazione" fornito
con Visual Studio 6 (pdwizard).
é gratis, ed è facile da utilizzare.
Mi dite che mi sto perdendo dalla vita?
COSA hanno di tremendamente migliore i vari Inno Setup, Wise, Install
Shield, Setup Factory ecc?
cosa mi permettono di fare?
grazie.

Se hai una serie di pc non omogenei direi che 1 su 4 è anche esagerato; ho
fatto un programma un po' complesso, installato su una trentina di client,
senza metterci le mani manualmente si è installato su 3........

 ha scritto nel messaggio
news:9d92g0$h05gp$1...@ID-77234.news.dfncis.de...


 wrote in message
news:9d939v$56g$1...@fe2.cs.interbusiness.it...


> altrimenti mi pare che "il preferito" tra i gratis è Inno, no?
Io l'ho guardato una volta e non ci capivo 1 mazza..
Uso l'Installer e mi trovo molto bene.
P.s.: Con l'Installer hanno fatto il setup di Office2000, Cristal REport
8...Ecc..
Ciao
Oz

Newsgroup: it.comp.lang.visual-basic
Titolo: Connessiona a db tramite path relativo

Non riesco ad impostare un path relativo "particoalre" per l'accesso al mio
db.
Mi connetto con:
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\miodb.mdb"
Ora però ho bisogno che il path sia relativo.
Mi spiego, la struttura delle directory dell'utilizzatore sarà sicuramente
tipo:
C:\cartella_variabile\cartella_varibile2\qui ho 2 cartella quella con
l'applicativo e quella con il db.
Il percorso dell'applicativo è:
C:\cartella_variabile\cartella_varibile2\applicativo
Il percorso del db è:
C:\cartella_variabile\cartella_varibile2\database
Praticamento dovrei dirli di andare indietro di una direcory e poi andarlo a
cercare in \database.
E' possibile ciò?

 ha scritto nel messaggio 
news:432fd945$0$8476$5fc...@news.tiscali.it...


Plutoide ha scritto:

Nel tuo caso specifico il problema si risolve con App.Path &
"\database\miodb.mdb".
Io di solito utilizzo un file di testo (es. Percorso.ini) nel quale
scrivo il percorso completo del database, e me lo vado a leggere quando
mi serve: questo ti salva dai casi in cui il database e' in un percorso
diverso dal tuo applicativo, oppure quando e' in rete su un altro
computer.
Ciao.

Nella mia completa ingoranza in materia di database...
ma "..\database" non funziona?
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO e Seek/index

Ragazzi, scusatemi ma non risco proprio a fare funzionare la proprieta seek
e index, uso l'ADO 2.5 - forse
mi manca qualche proprietą ???
per favore AIUTO !!!!!!!!!!!!

 wrote in message
8fh1gt$pci$1...@nslave2.tin.it...

lascia perdere e lavora con delle istruzioni sql mirate ...

 per favore AIUTO !!!!!!!!!!!!
No! Ti manca DAO!
ADO non ha ne' seek ne' index, che sono proprietą di DAO.
--
Ciao a tutto il NewsGroup
Alex
alm...@tin.it

 ADO non ha ne' seek ne' index, che sono proprietą di DAO.
Ok, ok esistono, tutti possono sbagliare... come disse il riccio scendendo
dalla spazzola! :)
Grazie per l'help che mi hai mandato.
Sono stata *bastonata* anche da Pal... :) e, se lo dice lui, mi fido, dato
che ha *sempre* ragione!!!
Ho capito, l'ado 2.5 le supporta... ma io non ce l'ho (l'ado 2.5)!
Chiedo pubblicamente perdono. ;) :)

Newsgroup: it.comp.lang.visual-basic
Titolo: As400 & Chiamate PGM

ho la necessita' di lanciare dei PGM su AS400 tramite un prog in VB, che mi
restituiscano dei parametri, ho provato ad utilizzare le librerie del client
access, ma riesco soltanto a lanciare dei programmi, ma non a riceverne il
risultato dei parametri... qualcuno ha qualche consiglio in merito ?
grazie
eMOeL

che sappia io non c'è modo, l'unica cosa che puoi fare è far creare all'RPG
un file txt con i valori dei parametri e leggerli alla chiusura dello
stesso.
Fabio Guerrazzi

Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornare dati in tempo reale su più client connessi in rete ....

Mi accingo a dovere progettare un sistema composto da diversi client
scritti in VB che si dovranno interfacciare ad un DBMS MySql installato
su di una macchina dedicata in una rete intranet. I client VB
semplicemente si occuperanno della visualizzazione dei dati
(anagrafici) recuperati dal server DBMS.
Ora il mio problema è il seguente: vorrei che tutte le operazioni
effettuate da un client su questi dati (inserimento, cancellazione,
modifica, ...) portassero ad un aggiornamento in tempo reale dei dati
visualizzati sui rimanenti client.
Non mi sono spiegato ? Mi spiego meglio. Su un client A viene
visualizzata, diciamo, una listview popolata con i dati estratti dal
mio db. In un determinato momento, un altro client B installato su di
un'altra macchina esegue un inserimento di un record nella tabella di
competenza della listview visualizzata dal client A. Quello che mi
piacerebbe avvenisse, è che la listview del client A, non appena
inserito il nuovo record dal client B, aggiornasse i suoi dati
automaticamente in modo tale da presentare all'utente una situazione
reale del db possibilmente senza ricaricare i dati in toto (ovvero
senza che l'utente sia costratto a rieseguire la query).
Diciamo un po' come succede con Outlook quando il controllo dedicato
alla posta in arrivo si aggiorna automaticamente con l'arrivo di una
nuova e-mail in modo completamente trasparente per l'utente.
Ora, non ho competenze che possano indicarmi la corretta via per
implementare una simile funzionalità e per questo chiedo a voi,
sicuramente più esperti di me, di indicarmi le linee guida che possa
poi approfondire ...    
Grazie.
mav46

 visualizzati sui rimanenti client.
Ho fatto una cosa del genere, ma non ho trovato di meglio che mettere un
timer che ogni tot mi fa una query, ovviamente la piu leggera possibile.
L'ffetto finale è anche buono, un po come i prezzi di borsa sui monitor che
si vedono nelle banche.
-- 
Greg

 Greg
Si, in effetti ci avevo pensato Greg ma non avendolo mai applicato non
ho idea delle performance ed eventuali controindicazioni.
Altre possibili soluzioni ? Utilizzare tipo i socket o cose del genere
pensando di creare un componente VB lato server che tiene traccia delle
modifiche ed invia i dati ai vari client registrati che restano in
ascolto su qualche porta specifica ?
Può essere un'idea secondo voi ? In caso affermativo mi sapreste
indicare che cosa dovrei approfondire per realizzare una cosa del
genere ?
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] DataGrid BackColor

Salve,
Ritento la domanda gia' postata sperando che oggi ci sia qualcuno che puoi
aiutarmi.
Sto utilizzando VB6 SP5.
Qualcuno sa dirmi se e' possibile cambiare il colore sfondo di una riga
all'interno di un DataGrid?
Grazie,
Jojoz

all'interno di un DataGrid?
AFAIK, con tecniche facilmente utilizzabili da vb, no.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: copia oggetti multiselezionati da listbox1 -> listbox2

come posso copiare alcini elementi selezionati da una listbox ad un'altra?
mi spiego meglio, nella prima LB1 ho un insieme di stringhe (es) ne
seleziono alcune e voglio copiarle nella LB2 avendo cosi' un sottoinsieme
della prima
Grazie a tutti

> "CICO" news:XLDm9.203442$pX1.7...@news2.tin.it...:

    Ohibo'... Come ci sono arrivate tali stringhe in LB1? Con AddItem? Ok,
allora. AddItem anche per LB2.
    Ho forse interpretato male cio' che chiedi?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:anf255$dibjm$1...@ID-52090.news.dfncis.de...






Se dalla guida ci avessi capito qualcosa, non avrei rotto le scatole a voi.
Cmq, grazie lo stesso
ciao

> "CICO" news:5tEm9.172253$ub2.3...@news1.tin.it...:

    Prego, ma... quando non si capisce si domanda. Mettere il broncio non e'
produttivo.
    Caro ragazzo, come faccio io a sapere cio' che sai fare e cio' che non
sai fare? Quali sono i tuoi limiti e quali le tue competenze? Si va per
approssimazioni.


Newsgroup: it.comp.lang.visual-basic
Titolo: Icona applicazione

Esiste un modo per far vedere l'icona anche se controlbox è impostato a
false?
Non posso far vedere il pulsante chiudi perchè è un'applicazione che tramite
cicli allucinanti
di verifica dati, compattazione, verifica dimensione mette i file in ftp!
Chi lo sa?
Come sempre grazie...........
Ciao

Non fa niente, non sapevo che nel codice unload se mettevo cancel=true
la form non si chiudeva!!!!!!!!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Intercettare chiamate all'applicazione

mi e vi chiedevo se esiste qualche api o qualche ocx che intercetti le
chiamate ad un applicazione in esecuzione e in che modo le intercetta, un
po' come icq per intenderci, il programma è in esecuzione gli arriva la
richiesta e lui esegue una determinata istruzione. Ciò che  chiedo e se
sapete come avviene questa intercettazione della chiamata.
Grazie

Fulvio ha scritto nel messaggio ...

Come già risposto in privato: usa adHook che trovi sul sito comune.
(è mio :))
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 Contare le righe valorizzate in un foglio excell.

Esiste il modo per sapere di quante righe e composto un foglio excell?
Vorrei evitare di scorrere tutte le righe di un foglio.
Grazie!
Ciao

 Esiste il modo per sapere di quante righe e composto un foglio excell?
Vai all'ultima cella e leggi l'indice.
Ciao
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

 ha scritto nel messaggio
news:mn.c4057d63d...@hotmail.com...


 Se si. Mi sapresti dire qual'e'?
Scusa, ma tu lavori in connessione con Excel, senza sapere usare Excel?
Accendi il registratore di macro, modifica, vai, speciale, utlima 
cella, click, stop registrazione, vba editor, copiaincolla...
Mah...


Newsgroup: it.comp.lang.visual-basic
Titolo: "azzerare" il buffer di tastiera

inserendo in un controllo timer il codice
flag = GetKeyState(123)
dopo aver dichiarato la funzione
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long)
As Integer
riesco a verificare ed elaborare la pressione del tasto F12 senza problemi,
anche qualora fosse attiva un'altra applicazione: io vorrei però fare
qualcosa di più: vorrei annullare l'invio al programma attivo del codice del
tasto: ad esempio se il programma attivo è Word, vorrei evitare che premendo
F12 venisse anche aperta la finestra "salva con nome"...
qualcuno sa darmi un consiglio?
ty

 ty
Ciao
Andrea

grazie andrea, ma mi deve sfuggire qualcosa..
ho trovato sul web diversi esempi di hook di tastiera, alcuni veramente
notevoli, ma... l'unica differenza rispetto alla mia riga di codice nel
controllo timer è che hanno 300 righe di codice oltre ai necessari moduli
bas.
cioè anch'essi intercettano la pressione dei tasti, ma non riesco a capire
come bloccare ulteriori azioni: mi spiego con l'esempio precedente: tutte le
routine scaricate se premo F12 mentre sono in Word si accorgono della
pressione del tasto, ma la finestra "salva con nome" si apre ugualmente...
evidentemente manca una riga di codice che ignoro...
ciao

 ciao
Ciao
Andrea


Sei riuscito... le due righe mi interessano.. possono sempre essere utili
per richiamare una certa applicazione anche da un'altra!
Nel caso, posteresti cosa hai aggiunto?
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] CR 7.0 e ACCESS 2000

Qualcuno di voi ha mai provato a generare report con CR utilizzando file di
ACCESS 2000 ?
A me non li legge è possibile ?
Oppure siccome non conosco CR sono io che non sono capace ?
Nel primo caso: A questo punto come faccio?
Grazie
Ciao
Jas

 wrote in message
iOaV4.6952$EY1....@news.infostrada.it...


 Jas
Ho fatto una prova veloce col db Northwind che viene fornito nella cartella
samples di office 2000 e cr7 lo legge tranquillamente, sia eseguendo
l'accesso diretto al file mdb sia tramite ODBC...
Che problemi ti ha dato ??
Ciao.
Lorenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] A capo in una stringa

Chiedo sucsa per la mia ignoranza e per il linguaggio da "ignorante" che 
uso.
Sto creando un piccolo programmino di criptatura testi.
Ho una TextBox (multiline) che passa il valore ad una stringa che viene 
poi suddivisa nei singoli caratteri.
Per motivi pratici gli spazi sono stati sostituiti con dei '-'.
Cosa che però non mi riesce con gli a capo.
Ho provato usando 
If mid(stringa,intI,1) = vbcr then ...
ma è sempre falso. vbcr si usa per mandare a capo le stringhe ma non 
viene riconosciuto in un enuciato del genere.
Se esiste, qual è il valore che l'a capo assume in una stringa? Se non 
esiste, è realizzabile ciò che voglio fare?
Grazie a tutti, buon panettone
-- 
ICQ# 147142951
www.perrins87.tk

Non so se ho capito bene, ma magari con vbCrLf invece che solo vbCr....
Ciao

 viene riconosciuto in un enuciato del genere.
Evidentemente c'è qualcosa che non va in intI o nella stringa.
Ricorda però che Windows usa come separatore di linea il vbCrLf (vbCr & 
vbLF) di due caratteri.
Forse però per te è sufficiente un
stringa = Replace(stringa, vbCrLf, "-")
Ciao

ecco qui msdn
STRING CONSTANTS
vbCr Chr(13) Carriage return. 
vbLf Chr(10) Line feed. 
VbCrLf Chr(13) & Chr(10) Carriage return linefeed combination. 
chiedo scusa ma ero fritto e non ero in grado di cercare ieri sera
e poi, maledettisimo manuale del ca**o che si spaccia per "guida 
completa" manco ha la funziona replace che era proprio quello che mi 
serviva mentre io mi dannavo con cicli e mid
grazie mille a zanna per aver capito esattamente ciò di cui necessitavo!
e, a proposito, se io ho
stringa="abcd"
replace(stringa,"b","gh")
il risultato sarà "aghcd"?
nel senso, la funzione replace è anche in grado di inserire caratteri 
oltre ad eliminarli?
in msdn non parla di ciò
però.. a questo punto il mio programma potrebbe diventare ancora più 
potente supportando i vari invii a capo... MM.... certo che è proprio 
vero, più si sviluppa un programma e più ci si accorge di come sia 
incompleto (lo dico io che non passo le 500 righe di codice commenti 
inclusi
-- 
ICQ# 147142951
www.perrins87.tk
Newsgroup: it.comp.lang.visual-basic
Titolo: [MANIFESTO] Problemi con votazione: leggete tutti

Vi riposto questo messaggio poiché non è stato praticamente discusso, mentre lo trovo decisamente
importante:
La modifica 5 (5, 5/bis, 5/ter) ha ottenuto i seguenti voti:
5	SI: 2	NO: 20
5/bis	SI: 9	NO: 13
5/ter	SI: 11	NO: 11
Non validi: 4
Astenuti: 1
Quelli che avevano votato "SI" per una delle tre e non hanno votato per le altre due, ho
automaticamente sostituito il non voto ad un "NO" (come citato nel post con le istruzioni per la
votazione), altrimenti l'astensione non avrebbe avuto molto senso...
Quindi non è possibile stabilire se la modifica 5 (e varianti) è passata o meno.
A questo punto io proporrei di rifare la votazione solo per queste tre modifiche: scondo me bastano
2 settimane.
Che ne dite?
Come già detto, scarterei la possibilità di bocciare tutte e tre le varianti poiché nessuno ha
votato "NO" a tutte, quindi evidentemente il NG è favorevole alla modifica (bisogna solo scegliere
la variante)
Ciao,
Moreno
Sirri Moreno
WebMaster del Sito Comune di questo newsgroup:
http://www.murialdo.it/it_lang_vb
it_la...@murialdo.it

 ha scritto

a occhio ci sono piu' si' per la ter perche' le altre due erano implicite
nello scegliere la ter.
per me comunque ok come dici.
ciao, a.

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

Mi pare di essere in America... ;)
Secondo me Pal ha ragione però.
CiaoZ

Nel dubbio io voto:
MODIFICA5: NO
MODIFICA5/bis: NO
MODIFICA5/ter: SI
Ciao VB

Io farei come in svizzera...
5/bis SI
5/ter SI
Se passano tutte e due l'ordine di preferenza e':
5/bis
5/ter
Salvo una cosa:
"[lo scambio di files binari puň essere effettuato utilizzato il gruppo
^^^^^^
Dovrebbe essere 'utilizzando', direi cmq che essendo una questione
grammaticale rientra tra le modifiche attuabili senza votazione.
Ciaotutti,
Alessandro
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda forse banale su SQL

Allora, ho un problemino che forse e' una cavolata ma che non mi e' mai
capitato di affrontare e quindi non so come procedere...
La cosa e' molto semplice.
Se definisco un recordset ad esempio con
Set rs_brani = dbc.OpenRecordset("SELECT * FROM DATA ORDER BY AUTORE WHERE
BRANO='XXX'")
ora pero' vorrei riprendere questo recordset e tirare fuori un elenco di
tutti gli autori, come se dovesis usare la funzione GROUP di sql
sull'istruzione sql.
Forse mi sto perdendo in un bicchiere d'acqua ma non so proprio come
procedere...
mi date una manina???
ciao!

 wrote in message
news:lNcO6.19405$iC1.7...@news6.giganews.com...

Allora usa proprio GROUP:
Set rs_autori = dbc.OpenRecordset("SELECT * FROM DATA GROUP BY AUTORE ORDER BY
AUTORE ")
Ok?
Ciao!
Esteban
Hosted by 
www.seber.it

 ha scritto nel messaggio
news:1ZcO6.1411$h9.6...@news.infostrada.it...


 ha scritto nel messaggio
news:1ZcO6.1411$h9.6...@news.infostrada.it...

In Oracle questa query andrebbe in errore!
Se vuoi solo un occorenza di ogni autore la query  è questa
SELECT distinct autore FROM DATA where brand = 'xxx' ORDER BY  AUTORE
Ciao
Matteo

 wrote in message
news:LmdO6.1765$h9.7...@news.infostrada.it...

Vabbé, ero di fretta... Comunque potresti fare a meno di ridere e cercare di
postare i reply in modo corretto!


 postare i reply in modo corretto!
Parla uno... :)
Potresti quotare i messaggi di risposta?
Includere le circa 50 righe dei messaggi precedenti per dire solo di fare
reply in modo corretto non č un granchč...
CiaoZ
SebaMix
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare una cartella !

Salve, dovrei verificare se esiste una certa cartella sull'Hard-Disk, e in
caso negativo dovrei crearla....come faccio ?
Grazie in anticipo !
Ale

 caso negativo dovrei crearla....come faccio ?
E' inutile verificare: creala e basta.
Dim sPathCompletoCartella as string
sPathCompletoCartella="c:\Pippo"
On error resume next
MkDir sPathCompletoCartella
On error goto 0
Più complicato è se devi creare tutte le cartelle che compongono il path, ad
esempio in un ipotetico path "c:\1\2\3\4", l'MKDir fallisce se non esiste
già la cartella "c:\1\2\3".
In questo caso ti devi scrivere una procedura ricorsiva che scomponga il
path e chiami l'MkDir tante volte quante servono.
Ciao
*Roby*

 On error goto 0
grazie dell'aiuto...una cosa...ma il goto 0 a cosa serve ?
Ale

 grazie dell'aiuto...una cosa...ma il goto 0 a cosa serve ?
A ricominciare a gestire gli errori.
On error resume next significa: se c'è un errore passa alla riga successiva
settando la variabile/struttura di sistema Err ma non interrompendo
l'elaborazione
On error goto 0 significa: ricomincia a gestire normalmente gli errori e già
che ci sei azzera il contenuto della variabile/struttura di sistema Err.
Ciao
*Roby*

Prova con l'oggetto File System Objects.
Per utilizzarlo devi aggiungere ai riferimenti del tuo progetto
il componente microsoft scripting runtime.
Questa libreria ti consente, con poche riche di codice, di gestire files e
cartelle.
Potentissimo.... :-)
Saluti.
Alessandro Binarelli <abina...@niente.robaccia.it.tin> wrote in message
pMDx8.19878$8D3.5...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto SQL Server

Vi chiede aiuto per l'utilizzo di sql server, dopo averlo installato
mi sono fermato e non ci ho capito più nulla.
Sapete dove posso trovare un manuale in rete in italiano?
Sapete se si può convertire un archivio access (mdb) in Sql Server?
Dove posso trovare qualche esempio già funzionante
da poter provare e testare?
Grazie di cuore a tutti
Ciao Enzo
www.scozzaro.it

Se hai installato sql ti ha installato anche books online, l' c'č di
tutto...
Se apri il tuo db con access puoi esportare la tabella in sql server (salva
con nome - esporta), devi puoi ricrearti indici e dare permessi

 Se hai installato sql ti ha installato anche books online, l' c'è di

Newsgroup: it.comp.lang.visual-basic
Titolo: MATRICE DI CONTROLLI.....

Ciao... 
Ho finalmente trovato il sistema di 
creare controlli (tio TextBox) da codice.
Il passo successivo e' stato tentare una matrice
di controlli da codice.
Fin qui sembrerebbe nessun problema....(con il seguente codice)
Option Explicit
Dim Ntxtbox As Integer
Public xMpos, yMpos As Integer
Private txtbox() As textbox
'in form_load metto Ntxtbox=0
'e quando voglio generare il controllo faccio partire 'sta routine...:
Private Sub InserisciNomeDesctizione()
        Ntxtbox = Ntxtbox + 1
        ReDim txtbox(1 To Ntxtbox) As textbox
        Set txtbox(Ntxtbox) = Controls.Add("VB.textbox", "txtbox") '&
(Ntxtbox))
        With txtbox(Ntxtbox)
            .Visible = True
            .Width = 2000
            .Text = Ntxtbox & "   " & .Name
            .Top = yMpos
            .Left = xMpos
					'ecc. ecc.
        End With
End Sub
1* Fin qua nessun problema, ma qiando cerco di attribuire eventi a queste
TextBox
scopro che il WithEvents non funzia con le matrici...
2* Quando cerco di assegnare la prorpietà .index a qualunqie di questi
Textbox 
mi dice che non appartengono a nessuna matrice!!!
Ora: cosa posso fare???
Grazie e CIAO!!!!
PEPPUS
--
Posted from 
mail.archimedia.it
 [192.106.156.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

Pietro,
    controls.add non e' molto documentato, comunque credo non sia possibile
inserire una marice di controlli con Add, se hai bisogno di una matrice
meglio usare il tradizionale metodo con il modello con index o e usare load
controllo(Index)
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

...





2* Quando cerco di assegnare la prorpietą .index a qualunqie di questi


Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora Excel

Ancora nessuno mi ha risposto in merito al problema che avevo in Excel.
Mi ripeto:
	Vorrei conoscere le istruzione per usare un file excel come se fosse un db
access
	Cioč, vorrei leggere i dati di una colonna in tutti i fogli presenti in una
cartella Excel da Visual Basic.
	Il tutto deve essere in modo trasparente all'utente.
Ciao.
-- 
Posted from [194.184.181.34] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Cioè, vorrei leggere i dati di una colonna in tutti i fogli presenti in

Newsgroup: it.comp.lang.visual-basic
Titolo: data report

Avrei un piccolo problemino da esporvi
io dovrei visualizzare un data report vuoto,ma mi da
un errore della serie " Fonte dati non trovata "
come posso evitare questo problema?
ringraziandovi vi saluto
ciao Claudio

 ciao Claudio
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: [semi OT] Driver stampante per anteprima

Ciao a tutti.
Ho un piccolo problema da risolvere. Mi accingo a sviluppare
un SW che ha molti output in stampa e vorrei evitare, durante
le prove e il debug di sprecare tonnellate di carta ed ettolitri
di inchiostro.  Sapete dove posso reperire un driver di stampa
che mi configuri una stampante virtuale che mi generi una
anteprima a video? La sampante che avevo prima aveva questa
opzione, ma quella attuale no. Chiedo su questo NG perchè
sviluppo in VB e sono certo che qui molti hanno o hanno avuto
lo stesso problema. Ho già cercato in giro ma senza successo.
Grazie a tutti ciao.
Bepi

 che mi generi una anteprima a video?
...dimenticavo di precisare (ma forse era ovvio) che tale driver
mi serve solo sul mio PC di sviluppo. Quindi nulla da agganciare
al software o da installare al cliente finale...
 ri-ciao

Bepi ha scritto:

Non so se esiste un driver che faccia questo (ma non l'ho neppure
cercato). Io mi sono semplicemente installato un programma che genera
PDF: PDFCreator ( 
http://sourceforge.net/projects/pdfcreator
 )

A< 

 PDF: PDFCreator ( 
http://sourceforge.net/projects/pdfcreator
 )
Grazie per la risposta. Infatti io sto usando questo, al momento.
Cercavo qualcosa di più pratico e veloce. Col sistema PDF ci vogliono
minuti ogni volta. Comunque se non esiste nulla come dico io
pazienza... eppure mi pare strano che a nessuno sia venuto in mente
di creare un tool così. Sarebbe utile anche per altre applicazioni.
Ciao
Bepi

 di creare un tool cosě. Sarebbe utile anche per altre applicazioni.
esistono i driver PrintToImage
sono a pagamento
-> GbC|
www.gbcweb.com

Bepi ha scritto:


Io lo uso da molto e non posso lamentarmi delle prestazioni, se però il
tempo che dici è influenzato da quanto tempo ci mette acrobat reader a
caricarsi e quindi farti vedere il pdf, beh scaricati ed installati la
versione 7 che è spaventosamente più veloce dei predecessrori.
ciauz
-- 
Inno Setup Extension Knowledege Base
http://www13.brinkster.com/vincenzog
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: NON NE POSSO PIUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU'

Ragazzi sono disperata.
Sono 2 giorni che impazzisco dietro alla MashEdBox.
Programmo in VB5 e uso la MaskEdBox per permettere all'utente di
inserire la data senza separatori, ma quella cazzo di casella non vuola
accettare l'anno di 4 cifre se la prima è 9.
Mi spiego meglio:
se inserisco 99 salva 99
se inserisco 02 salva 2002
Ora essendo che nel secondo caso l'anno è di 4 cifre ho dovuto impostare
la MaskEdBox ##/##/####.
Il problema è che a questo punto ho due lunghezze diverse e quando
chiedo di rileggere quello che ha salvato e di riportarlo a video non
sempre trova un campo lungo quanto la casella.
Cosa devo fare????
Elisa.
P.S. chiedo scusa per il linguaggio........ma quando cevo' cevo'.

 Il problema č che a questo punto ho due lunghezze diverse e quando


 qualcuno di certo inserira').
ti ringrazio innanzitutto per l'aiuto e poi vorrei chiederti:
cosa intendi con 1 txt con tre hsc ?
Ciao.
Elisa.

 wrote in message 387210D2...@tin.it...


 ciao elisa, per il linguaggio non ti preoccupare, siamo tutti maggiorenni
:)
Io no :-P

 wrote in message


 allora annulla IMMEDIATAMENTE la tua sottoscrizione al ng !!
Non ci penso neanche
:-)

 wrote


 solo perche' non si considera il frequente osceno uso della lingua ( it.
:)
 A chi lo dici... (anch'io sto facendo studi umanistici perciň ti capisco)
A proposito... io direi "IL ng" --> il newsgroup; e non "L'ng" --->
l'ennegě?

 l'ennegě?
segui la mia teoria, mai la mia prassi :)
si', effettivamente mi viene da dire l'emmedibi', il dibieffe, il gieipeg...
quindi anche l'ennegi'. ci avevo badato anch'io, non ho una regola fissa...
mala tempora currunt... d'altronde zelig vorra' ben dire qualcosa...
dio che soddisfazione un ot (oti') _finalmente_ a grado zero di
informatica... :)
a n'an psiva pio', come si dice qui...

 a n'an psiva pio', come si dice qui...
Cioè?

 Cioč?
non ne potevo piu'...

 n-à pudìa pì, dalle mie parti ;-)
sei di quel di fenoglio e/o dintorni ? bellissima terra, ottima cucina, vini
(dei quali fenoglio era appunto un promotore, se non sbaglio :) che
potrebbero usare nelle corride al posto dei toreri...

 > > a n'an psiva pio'
n-à pudìa pì, dalle mie parti ;-)
Flavio Ronco
-- 
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di compilazione: Impossibile trovare il metodo e il membro dei dati.

Ho ricopiato la routine di gestione random per poter gestire altri dati: 
EBBENE NON MI FUNZIONA!
O meglio la routine che mi avete gentilmente fornito funziona, quella da me 
copiata no!
Modulo1.bas
Public RecDati As dati ---- originale
Type dati
n1 As String * 50
n2 As String * 11
n3 As String * 50
n4 As String * 5
n5 As String * 50
n6 As String * 30
n7 As String * 30
n8 As String * 50
n9 As String * 50
End Type               ------ originale
Public RecAssegnati As dati ---- aggiunta da me
Type assegnati
a1 As String * 5
a2 As String * 50
End Type
Nella Form di salvataggio ho la parte "originale" che funziona bene (grazie 
a voi!)
  Open "c:\dati" For Random As #1 Len = Len(RecDati)
  LSet RecDati.n1 = nominativo
  LSet RecDati.n2 = Text2
  LSet RecDati.n3 = Text3
  LSet RecDati.n4 = Text4
  LSet RecDati.n5 = Text5
  LSet RecDati.n6 = Text6
  LSet RecDati.n7 = Text7
  LSet RecDati.n8 = Text8
  LSet RecDati.n9 = Text9
  Put #1, a, RecDati
  Close #1
  ...
  ....
  Dim assegnato as boolean    ----> ho provato anche come as String, as 
Integer: non cambia nulla
  assegnato=Check1.value      ----> ho provato anche ad impostare assegnato 
=1 ma non comabia nulla
  Open "c:\assegnati" For Random As #1 Len = Len(RecAssegnati)
  LSet RecAssegnati.a1 = assegnato --> QUI MI RIPORTA L' ERRORE 
"IMPOSSIBILE TROVARE IL METODO E IL MEMBRO DEI DATI."
  LSet RecAssegnati.a2 = nominativo
  Put #1, a, RecAssegnati
  Close #1
Alla fine ho tolto il controllo Check1.value ed ho scritto direttamente 
LSet RecAssegnati.a1 = 1. Lo stesso mi rende l'ERRORE!
Dove sbaglio?
Non ho fatto altro che ricopiare la parte di listato funzionante per la 
gestione dei file sostituendo le stringhe di riferimento.
Anche l'esempio del Balena è molto simile, fatti salvi i puntini di omiss... 
onnipresenti sul testo.
Grazie se vorrete ancora darmi una mano.
(G)

"Guido" <g,TOgu...@tisIMcIali.it> ha scritto nel messaggio 
news:436de0a7$0$6020$4faf...@reader4.news.tin.it...
Risolto!
(G)

Newsgroup: it.comp.lang.visual-basic
Titolo: Worksheets.Name property

What's wrong with this code?  Do I need to put 'Worksheets' into an
array before executing this code?  VB's not really my thing...
For x = 0 To UBound(Worksheets.Count)
If (Worksheets(x).Name = "Config") Then
MsgBox ("yes")
End If
x = x + 1
Next x
MsgBox ("no")
I'm getting an error at the If statement.
Help

 I'm getting an error at the If statement.
First of all it'd be a nice thing if you said *which* error
(by number and message text).
People so generic doesn't go so far in programming :-(
Luckyly, most of us already met such an error: the Worksheets
object is a Collection and in visual basic, don't ask to me why,
the collection items start from 1 (one) not from 0.
As per this rule, your first line of code becomes:
For x = 1 To UBound(Worksheets.Count)
..... and so on
-- 
hth, hal

 MsgBox ("no")
x must be start from 1 !!!