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

Ciao a tutti,
io vorrei condividere la stessa connessione con una server da VB attraverso
il controllo winsock ma su tutti i form che utilizzo nel mio progetto. Come
posso fare?

Come posso condividere la stessa connessione al server con winsock su più di
un form all'interno dello stesso progetto?
Grazie

 wrote in message
news:8u6eqa$fot$1...@sun250.unimi.it...

Rendi disponibile l' handle o il controllo ai form che non lo hanno.
Es.:
'// form che ha il winsock ocx (magari in array) chiamato Winsock1
Public Property Get Winsock(ByVal Index As Long) As Winsock
  Set Winsock = Winsock1(Index)
End Property
'// su un' altro form:
Dim ws As Winsock
Set ws = FormConWinsock.Winsock(0)
' da qui in poi con ws usa il controllo caricato sull' altro form.
Teroricamente sarebbe possibile anche riferirsi direttamente al controllo
sul form con
FormConWinsock.Winsock1
ma e' una buona regola incapsulare il codice che si riferisce a variabili
interne (in questo caso il controllo) di un oggetto (in questo caso il
form).
Purtroppo vb permette troppo facilmente di scrivere codice da strada.
Ciao
Aldo



un form all'interno dello stesso progetto?
Hai provato semplicemente facendo riferimento all'istanza del controllo dell'altro form? Tipo
Form1.Winsock1 ?
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Form sempre in primo piano

1) Scusate l'ignoranza, ma riesco con shell a lanciare un qualsiasi
programma, ma non ho idea di come fare per chiuderlo da programma.
2) Come posso creare un form che stia sempre in primo piano?
Chiedo scusa per la banalità delle domande.
Ringrazio tutti fin d'ora.
-------------------
Stefano Bianchi
b.st...@libero.it
--------------------


in un modulo:
Option Explicit
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal
hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_NOTOP = -2
Public Const HWND_TOP = -1
Public Const SWP_NO_DIMENSIONABILE = &H1
Public Const SWP_NO_MOVIBILE = &H2
Public Sub PrimoPiano(ByVal hWnd_Form As Long, _
        SempreInPrimoPiano As Boolean)
If SempreInPrimoPiano Then
    SetWindowPos hWnd_Form, HWND_TOP, 0, 0, 0, 0, SWP_NO_MOVIBILE Or
SWP_NO_DIMENSIONABILE
Else
    SetWindowPos hWnd_Form, HWND_NOTOP, _
        0, 0, 0, 0, SWP_NO_MOVIBILE Or SWP_NO_DIMENSIONABILE
End If
End Sub
richiama la sub con : Call primopiano(me.hwnd,true)
se vuoi far tornare la Finestra allo stato normale, sostituisci   true con
false
By Utente Win2k

 Chiedo scusa per la banalitą delle domande.


Per mantenere il form sempre in primo piano mi ricordo questo metodo, anche
se non l'ho sperimentato (funzione SetWindowPos):
Success% = SetWindowPos(hwnd,HWND_TOPMOST, Left, Top, Width, Height,1)
Nel caso di shell ms-dos basta che aggiungi il parametro /c dopo il comando
command:
call shell ("C:\COMMAND /C file *.bat")
Ciao
Gianluca
"Stefano Bianchi" <b.st...@XYZlibero.it> wrote in message
news:3b1fd4d...@news.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Timer in esecuzione: realtà o fantascienza?

Ecco il problema:
Sto scrivendo un controllo OCX.
E' possibile creare in fase di esecuzione un numero X di controlli Timer in
risposta all'uso da parte dell'utente di un certo metodo fornito dal
controllo??
E come fare per gestire i corrispondenti eventi TimerX_Timer ??
Qualcuno mi può scrivere la giusta sequenza di istruzioni???
Grazie, saluti


Consiglio: i Timers di Windows sono una risorsa scarsa (ossia sono in numero
limitato), quindi e' _altamente_ consigliabile usarne il minor numero
possibile.
Non hai scritto cosa vuoi fare precisamente, ma la cosa migliore credo sia
usare 1 solo Timer e gestire le varie operazioni (quelle che tu vorresti far
fare a N Timers) nell'unico evento Timer.
--
Roal Zanazzi
z...@iol.it

 wrote in message
2tXv3.17246$98.1...@typhoon.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: File txt con codifica ANSI

Ciao ragazzi,
 
Sto lavorando ad un progetto VB 2005 Express e in un punto del codice devo creare un file di testo :
Using scrittura As StreamWriter = File.AppendText("MioPercorso\File.txt")
 
Funziona tutto ma il file viene generato con la codifica UTF-8
 
avrei bisogno di generarlo con codifica ANSI, è possibile mantenendo il codice sopra riportato?
grazie
Marco

 ha scritto:

Prova qualcosa del tipo:
 
Dim myFile As FileStream = Nothing
Dim sWriter As StreamWriter = Nothing
 
myFile = New FileStream(path, ...)
sWriter = New StreamWriter(myFile, System.Text.Encoding.Default)
 
e poi scrivi normalmente :)
 
Controlla la sintassi perchè così a memoria potrei errare :)
 
 
 

Ciao,
 
ho provato così :
 
Dim myFile As FileStream = Nothing    
Dim sWriter As StreamWriter = Nothing   
 
myFile = New FileStream("J:\Folitec\Database FKW\File txt\Operatori.txt", FileMode.Append)  
 
Using scrittura As StreamWriter = New StreamWriter(myFile, System.Text.Encoding.Default)
 
poi continuo con il codice di Using come già avevo scritto
 
sembra non funzionare e comunque come faccio a capire in che codifica è stato generato il file txt?
Se apro il file e vado su "Salva con nome" la codifica che compare è quella con cui ho generato il file?
 
 

Ciao,
 
ho provato così :
 
Dim myFile As FileStream = Nothing      
Dim sWriter As StreamWriter = Nothing   
 
myFile = New FileStream("J:\Folitec\Database FKW\File txt\Operatori.txt", FileMode.Append)
 
Using scrittura As StreamWriter = New StreamWriter(myFile, System.Text.Encoding.Default)
 
ecc...
 
Ma sembra non funzionare, come faccio tra l'altro a capire con quale codifica è stato salvato il file txt?
se lo apro e faccio "Salva con nome" la codifica che compare è quella con cui è stato creato?

Credo di aver risolto!
il codice che ti ho postato cioè il tuo, adattato alle mie esigenze è ok
mancava una codifica in un'altra zona del codice
Faccio qualche prova ma dovrebbe andare, grazie 1000 per l'aiuto
Marco

Newsgroup: it.comp.lang.visual-basic
Titolo: API di Windows 95&98

Forse la domanda sarą stupida...ma dove caspita trovo, oltre alle
definizioni delle chiamate alle API, cosa esattamente fanno?
In particolare mi interessano quelle riguardanti la rete, cioč per
recuperare i nomi dei pc collegati in una rete locale.
Grazie.
________
Luca


Due cose: o impari a programmare in C++ con MFC oppure ti fai dare da
qualcuno che già lo fa tutta la documentazione...ma non c'era già nel
pacchetto di VB5?
Rick
http://users.iol.it/scozzoalto
Tutte le stupidaggini sparate nella mia scuola negli ultim anni!


-----------------
Ciao!
Per conoscere gli utilizzi delle diverse API di Windows 95/98, devi
assolutamente scaricare la Win32 Programmer's Reference (un link lo trovi
sul mio sito).
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Rileggi il messaggio di lele innanzitutto!
Io riposto di nuovo l'indirizzo dove si trovano le API. Ma per l'ultima
volta :-(
http://www.borland.com/devsupport/borlandcpp/patches/BC52HLP1.ZIP
ciao
		maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: Formula per testare la data(anno bisestile)

Sapreste dirmi qual'è la formula per testare se l'anno è bisestile o meno?
Uso semplicemente il "MOD 4" , ma se non erro c'eraun'altro calcolo da
aggiungere.
Sapreste dirmi qlcosa???
Ciao a tutti e buon lavoro.

 Ciao a tutti e buon lavoro.
Beh, l'anno č bisestile se č divisibile per 4, per 400 ma non per 100.
Esempio:
il 1900 č divisibile per quattro, per 100 ma non per 400, quindi non č
bisestile.
il 2000 č divisibile per quattro, per 100 e per 400, quindi č bisestile.
Perciň penso che dovresti iniziare a vedere se č divisibile per 400, se lo č,
allora č bisestile, se non lo č, controlla se č divisibile per 100. Se sě,
allora non č bisestile, altrimenti, se č divisibile per 4 č bisestile,
altrimenti no:
if anno mod 400 = 0 then
    bisestile = true
else
    if anno mod 100 = 0 then
        bisestile = false
    else
        if anno mod 4 = 0 then
            bisestile = true
        else
            bisestile = false
        end if
    end if
end if
Ciao!
Esteban
Hosted by 
www.seber.it

 ha scritto nel messaggio
news:9el3d3$ec7$1...@pinco.nettuno.it...

E se provassi a fare
If IsDate(29 Feb del tuo anno)   ?
chissà...

 Sapreste dirmi qual'č la formula per testare se l'anno č bisestile o meno?

Newsgroup: it.comp.lang.visual-basic
Titolo: Inviare email

Come posso fare per esempio quando si clicca su un pulsante a far inviare
una email con il programma di posta predefinito?
Quando devo aprire una pagina web faccio
Call Shell("explorer.exe 
http://www.miositozzo.boh
", vbMaximizedFocus)
E per l'email invece?
--
[ Imperator ]
Comitato Gestione Free.It.* - CGFI
Web: 
www.infofreeit.tk
 - E-Mail: 
infof...@email.it
 - IRC: #infofreeit
Gruppo ANTISPAM: 
http://it.groups.yahoo.com/group/contro_spam/

 ha scritto nel messaggio
news:bfo3mk$2ol$1...@lacerta.tiscalinet.it...


 
http://www.miositozzo.boh
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Flash dentro VB

Esiste un componente VB in grado di farmi gestire animazioni flash
interne ad una form?
Vi ringrazio in anticipo per le risposte (ma mi sa tanto che saranno
negative :D )
http://www.xol.it
Risorse per programmatori.

 negative :D )
Se vuoi ti mando un esempio e-mail
Ciao.

 animazioni flash interne ad una form?
Usa l'OCX che viene installato quando installi flash.
Ne abbiamo già parlato parecchio, bastava fare una ricerca su google:
http://groups.google.com/groups?hl=it&q=flash&meta=group%3Dit.comp.lang.visu
al-basic
Comunque, per fare prima, dai una occhiata a questo progetto:
http://www.vbcity.com/pubs/article.asp?alias=flashvb
Ci trovi tutto quello che ti serve. Se poi per caso riesci anche a capire
come si fa a sapere qual'è la dimensione di default di un Swf, fammelo
sapere che ancora io non ci sono riuscito.
Ciao
*Roby*

 *Roby*
Grazie mille a tutti e due per i consigli, ho letto gli altri post e
forse ho capito come fare.
Non appena ci sarò riuscito vi faro' sapere :)
________________________

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb e Database

Sono assillato da programmatori in altri linguaggi, che denigrano
continuamente VB per la scarsa capacità di gestire database; io non sono
molto esperto però quando ho visto maneggiare(visualizzare, fare query
ecc..) da cobol un file dati contenente 290.000 record con tempi di frazioni
di secondo, mi sono messo la coda trale gambe!
Qualcuno è in grado di chiarirmi le idee?
Queste le mie conoscenze:
1) Access: l'ho provato una volta con 203.000 record in una tabella, tempi
di risposta 4 minuti su una query!
2) Sql Server: troppo costoso!
3) ODBC su altri database: mi dicono che rallenta molto!
Non esiste un file record nativo?
Grazie a tutti per l'attenzione.

Mauro Roncali wrote:

Hai provato a creare un indice ?

...


 Non esiste un file record nativo?
Che qualcuno mi corregga se sbaglio...
A me, me pare na stru**ata! (non quello che dici te, ma quello che dicono
gli altri)
VB E' un linguaggio che ha la sua maggiore potenza nella gestione dei
database, non vedo perche' dovrebbe essere peggio di altri.
Inoltre, la velocita' non dipende solo da VB, anzi, dipende per la maggior
parte dal motore di Database che usi. Cioe', o il Cobol ha integrato nel
linguaggio l'accesso ad un database in formato proprietario, allora posso
anche capirlo. Altrimenti, prova ad utilizzare lo stesso formato che hai
visto utilizzare da loro.
Per inciso, non e' che ho usato VB e database molto alla leggera; le
applicazioni che scriviamo (e che vendiamo) qui da noi sono applicazioni di
gestione di Database, e non abbiamo mai avuto grossi prob. Anzi, proprio
negli ultimi giorni ho voluto provare a vedere cosa riuscivo a fare per
migliorare le prestazioni di alcune cose...beh, riesco ad aprire una tabella
da 5 milioni e mezzo di record in 4 secondi ca, e a mostrarla a video alla
velocita' con cui Word mostra un documento sul disco in locale ^__^
Se hai bisogno di chiarimenti e-mailami.
Byez.
--
Fasten your sit belt,
                                Drizzt.

 gli altri)
sono d'accordo!!! VB avrà tanti difetti, anzi tantissimi, ma questo....
proprio no!
Bye
-- 
Ale...@tiscalinet.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Chi mi aiuto con questo codice?

Qualcuno mi aiuta ad adattare il seguente codice ad una matrice e un vettore
che partono da 0 anzichè da 1? Io non ci sono riuscito, ottengo degli errori
nei risultati! Grazie!
Ciao
Public Sub lubksb(a#(), Indx&(), b#())
'
'   Solves the set of N linear equations A * X = B.
'   Here a(1 To N, 1 To N) is input, not as the matrix A but rather
'   as its LU decomposition, determined by the routine ludcmp.
'   Indx(1 To N) is input as the permutation vector returned by ludcmp.
'   b(1 To N) is input as the right-hand side vector B, and returns
'   with the solution vector X.
'   a() and Indx() are not modified by this routine and can be left
'   in place for successive calls with different right-hand sides b().
'   This routine takes into account the possibility that b() will begin
'   with many zero elements, so it is efficient for use in matrix inversion.
'
    Dim I&, N&, II&, J&, LL&
    Dim sum#
'
    N = UBound(a, 1)
'
    II = 0              ' When II is set to a positive value, it will become
the in-
                        ' dex of the first nonvanishing element of b(). We
now do
                        ' the forward substitution, equation (2.3.6). The
only new
                        ' wrinkle is to unscramble the permutation as we go.
    For I = 1 To N
        LL = Indx(I)
        sum = b(LL)
        b(LL) = b(I)
        If (II <> 0) Then
            For J = II To I - 1
                sum = sum - a(I, J) * b(J)
            Next J
        ElseIf (sum <> 0#) Then
            II = I      ' A nonzero element was encountered, so from now on
we will
                        ' have to do the sums in the loop above.
        End If
        b(I) = sum
    Next I
'
    For I = N To 1 Step -1      ' Now we do the backsubstitution, equation
(2.3.7).
        sum = b(I)
        For J = I + 1 To N
            sum = sum - a(I, J) * b(J)
        Next J
        b(I) = sum / a(I, I)    ' Store a component of the solution vector
X.
    Next I
'
'
'
End Sub
Public Sub LinEqu(a#(), b#())
'
'   Risolve un sistema di N equazioni lineari in N incognite.
'    a(1 To N, 1 To N): matrice dei coefficienti delle incognite.
'    b(1 To N):         vettore dei termini noti.
'   La matrice originale a() viene sostituita dalla sua
'   scomposizione in matrici triangolari inferiore e superiore:
'   Il vettore b() ritorna con le soluzioni:
'
    Dim Indx&(), d#
'
    Call ludcmp(a(), Indx(), d)
    Call lubksb(a(), Indx(), b())
'
'
'
End Sub

 End Sub
Le modifiche qui sopra piu` che una risposta verificata considerale come una
riflessione ad alta voce... ;-)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:93pdjp$bbuoi$2...@ID-52090.news.dfncis.de...


 Grazie!
:-)

Newsgroup: it.comp.lang.visual-basic
Titolo: l'oggetto Printer

Ora so che devo utilizzare l'oggetto printer per stampare un file di testo.
Per non perdere tanto tempo a studiare metodi e argomenti sarei grato a chi
volesse mandarmi una routine che esegue più o meno quanto necessario.
Prego ROAL di astenersi da commenti sarcastici.
Saluti a tutti.
Sauro

Sito comune, planet-source-code ...
più cerchi più ne trovi.

 Prego ROAL di astenersi da commenti sarcastici.
Sarà mica ancora per il post del 22/12/01 !?
--
Starla. SP.
Sito Brutto: 
http://digilander.iol.it/starlasp
Sito Comune: 
http://www.it-lang-vb.net
star...@libero.itspam

Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire la finestra 'Nuova visualizzazione'

Ciao a tutti!
Avrei bisogno del vostro aiuto per richiamare in un progetto (a
runtime) la finestra 'Nuova visualizzazione' (quella che da
'Visualizzazione dati' permette di costuire una query).
Se fosse possibile farlo, sareste cosě gentili da dirmi come?
Grazie!

...

Non c'č nessuno che mi sappia rispondere?

*Reggi* ci ha deliziati con queste righe
 Quote:

No e' che non c'e' nessuno che in VB abbia una finestra chiamata "Nuova
Visualizzazione" o "Visualizzazione dati" ,
stai parlando di qualcosaltro e questo non lo devo "Indovinare" io , ma devi
dircelo tu !
A presto
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Sto parlando di Visual Basic 6:
Menu Visualizza-Finestra Visualizzazione dati
Credo che i Visual Basic 6 siano tutti uguali, quindi se ce l'ho io...
Vorrei sapere se è possibile richiamarla a runtime.
Grazie!

 wrote in message
news:31275225.0305...@posting.google.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: come indirizzare la seriale

Vorrei realizzare un programma che inviasse un carattere o una sequanza di
caratteri alla seriale.
Mi sapete dire come fare e se sono io a decidere come vengono inviati i bit
(Cioe' 8 bit + 1 bit di stop; oppure 8 bit + 2 bit di stop + 1 di parita';
etc)?
Grazie in anticipo
wo...@intercom.it

Puoi utilizzare il controllo aggiuntivo Microsoft Comm Control:
per le impostazioni puoi settere la proprietą "settings"
e per mandare caratteri la funzione CommOutput.
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con TextBox :(

Salve a tutto il NG...
ho da chiedervi una cosa..  :)
Utilizzo delle textBox in un form per far inserire all'utente dei dati..
I valori che l'utente inserisce sono le proprietà di un grafico realizzato con
MSChart.
come controllo la pressione del tasto "ENTER" per far accettare i dati e quindi
far partire l'aggiornamento del grafico?
Ho pensato all'evento "lost focus " sulla casella .. forse lo farò anche.. ,ma
volendo gestire il tasto enter.. come devo fare??
Grazie a tutti
-- 
Posted from  [195.223.93.201] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio news:>
[cut]
Evento text1_KeyUp
 KeyAsci = vbEnter
--
Ivan Castellaro
Mettere un punto tra nome e cognome per l'e-mail.
ivancas...@libero.it

  KeyAsci = vbEnter
Scusa se mi permetto...
L'evento KeyUp non ha un parametro KeyAscii:
- o usi l'evento KeyPress con KeyAscii = vbKeyReturn
- o usi il parametro KeyCode (nell'evento KeyUp).
Ciao,
Carlo.

 ha scritto nel messaggio
news:9t1fe2$6us$1...@pegasus.tiscalinet.it...

Hai ragione l'ho scritto con un piede fuori dala porta mentre stavo uscendo
(forse ache la testa era già fuori dalla porta).


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Studio Net

chi sa dirmi dove e' possibile scaricare la beta VS NET ?

dal sito microsoft! Vai su 
msdn.microsoft.com
 e cerchi un po'.
Ti avviso che sono "appena" 111Mb (puoi fare perņ una decina di Download da
10Mb ciascuno)!!!
Ti avviso anche che non ti devi aspettare il VisualStudio standard (con
tutte le finestrelle e finestrone), ma solo il FrameWork.
CiaoZ
SebaMix
P.S. Semmai scaricati prima l'SDK (l'Help) - Altri 35 Mb circa ;)

chi sa dirmi dove e' possibile scaricare la beta VS NET ?
Per scaricare il VC (ehm, VB) .Net devi tirare lo sciacquone :)
Scusate. Mi ritiro nelle mie stanze...
Ciao

 chi sa dirmi dove e' possibile scaricare la beta VS NET ?
hmmmmmmm... ho qui un URL... non so se sia ancora valido... di certo non 
è legale...

Newsgroup: it.comp.lang.visual-basic
Titolo: dbgrid e inserimento dati

Ciao a tutti,
ho una dbgrid collegata ad un database. 
Mi si e' presentato subito un problema che non riesco a risolvere. A
prescindere che ci sia o no un database collegato, quando faccio
l'eseguibile per testare un po', seleziono una casella tra le varie colonne
che ci sono per inserire un dato...beh il dato non viene scritto. Clicco
sulla tastiera ma non scrive. 
Immagino ci sia qualcosa che mi sfugga, un aiutino per favore?
In pratica, cosa devo fare perche' in fase di esecuzione sia abilitata la
scrittura nelle varie celle?
Grazie
p.s. utilizzo ancora i controlli Data (e il database e' access)
E.p.

Alle 01:04, domenica 7 settembre 2003, |Epoch| oso' proferir le seguenti
parole:
-cut-
una'altra cosa... ho abilitato tutte quelle opzioni che mi sembrava fossero
il motivo per cui non  inseriva (quell'Allowaddnew per esempio)
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: combobox

salve ragazzi, sapreste dirmi perchè la seguente riga di codice in visual
basic.net
 mi da errore di cast non valido dalla stringa "ComboBox1" al tipo
integer?
for j=1 to 8
    controls("combobox" & j ).visible=false
next

 ha scritto nel messaggio
news:ckomti$36t$1...@lacerta.tiscalinet.it...

Forse perchè Controls.Item richiede un integer?
Ma non hai l'intellisense abilitato?
Ciao


Ci provo:-)
perchè quello che hai scritto si traduce cosi:
 Controls.item(Index).visible = False
Dove Index è un oggetto di tipo Integer mentre quello che tu gli passi è una
stringa x altro non convertibile in un numero come da messaggio di cast non
valido.
Fai una scansione della collection dei controlli e verificane il nome per
fare quello che vuoi tu.
Ciao
 Roberto
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Perche' controls e' una classe di tipo ControlCollection e, come gia' 
avrebbe dovuto evidenziarti l'Intellisense, il metodo predefinito Item 
accetta solo un parametro index As Integer
Ergo, puoi accedere a questo insieme per indice, non per chiave come stai 
cercando di fare; devi operare diversamente, a seconda di quello che ti 
serve potrebbe esserti utile un For Each oppure, per esempio, i metodi 
Controls.GetChildIndex e/o Controls.contains
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: molto OT: regalo natale

Per Natale avrei deciso di regalare ad un amico
un'agenda elettronica (il mio budget è di 60.000£)
Ho dato un'occhiata ai vari prodotti CASIO SHARP
...ma non mi hanno tanto convinto...(colpa del mio scarso budget)...ora mi
domando...cosa potrei regalargli
di simile e/o comunque di tecnologico con questa
misera cifra?
Grazie
:))

 misera cifra?
uhmmm un modulo di RAM? un mouse ottico? un DVD che sai che gli piace
tanto ma non l'ha mai comprato? (in questo caso: naturalmente avrete la
stessa idea sia tu che altri 3 amici, e lui si ritroverà con 4 copie
identiche  :D)
Buona caccia
Faber

misera cifra?
se per agenda elettronica intendi palmare... i prezzi partono dalle
200.000 in su.
le agende ora in commercio (quelle da 256K, per intenderci, che fanno
da calcolatrice e memorizzazione numeri di telefono sono roba da
marocchini senza valore.
Ci sono in giro degli attimi euro-convertitori, alcunio ti fanno il
calcolo in tempo reale delle due valute euro-lire e del resto in una
sottrazione...
Puň essere un'idea?
--
Ciao!
Davide

 ha scritto nel messaggio
news:qcuR7.543$9X1....@twister2.libero.it...

Hai pensato ad una webcam per il pc?
Una sveglia di quelle che tengono l'ora sincronizzata via satellite e ti
proiettano l'ora sul tetto tramite un raggio laser?


wrote:
fagli un programma in visual basic ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Undo

Avete qualche consiglio o materiale sulle tecniche di undo?
Mi spiego:
Word, Excel, AutoCad, CorelDraw e tutti i programmi seri danno la
possibilità di annullare non solo l'ultima operazione fatta ma anche le
operazioni precedenti fino ad un certo numero di operazioni o fino ad una
quantità di memoria impostata.
Vorrei esplorare le tecniche usate dai frequentatori di questo ng per
l'undo su più livelli.
In passato ho implementato solo undo ad un livello, mettendo da parte il
comando da eseguire per ripristinare la configurazione precedente se
esiste, oppure registrando su disco o in memoria tutto se non esiste il
comando.
Ciao, Stefano

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Dialogare tra programmi

Salve a tutti,
ho un problema: devo fare un programma che attinga a dati e valori di un
altro programma (scritto anche lui da me). Dovrei cioč fare in modo che il
programma possa leggere e usare i valori delle variabili dell'altro
programma.
E' possibile tutto cio' senza riorganizzare tutto con Form main e child?
-Ovviamente posso riscrivere il codice di entrambi i programmi-
Grazie a chiunque voglia rispondermi
Raf
#kanni#@
tin.it

...

Se i due prg lavorano sulla medesima macchina, la via piu' semplice e' il
DDE. Altrimenti puoi dare un server ActiveX.
Un esempio di DDE lo trovi sul CD di VB o sul Sito Comune:
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: realizzare pacchetto installazione...

salve
chiedo scusa per l'eventuale ot (e/o per la grande banalità), ma con vb6
come si fa a creare il pacchetto di installazione, che oltre a inserire il
link al prg crea il link ad altri file (es. descrizione.txt, help.hlp, etc)?
grazie

 ha scritto nel messaggio
news:87hbvb$hk4$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Hackeraggio di un file

Avrei un prob.
Devo ricostruire la struttura di un file di dati , dal file stesso.
Sapete come fare?
Grazie
--
Posted from 
agora.stm.it
 [195.62.32.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Grazie
devi fare delle prove, se conosci il linguaggio sorgente è più facile, devi
aiutarti cmq con un programma tipo hexedit e lo stesso edit del dos

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Lista domini e computer disponibili in rete

Ciao a tutti.
Volevo sapere dovevo potevo trovare informazioni per poter creare
un'applicazione che mi facesse navigare nella rete della mia azienda.
Per esempio vorrei ricavare la lista dei domini esistenti e i relativi
computer connessi. Un pò come l'esplora rete di windows.
Grazie mille.

 ha scritto

www.mvps.org/vbnet

Newsgroup: it.comp.lang.visual-basic
Titolo: Scarico file senza salvarlo nella Cache  (API : URLDownloadToFile)

L' API URLDownloadToFile  
salva purtroppo anche nella cache:
come evitarlo?
Posso usare l'API  InternetOpenUrl 
che supporta dei FLAG tra i quali ce n'è qualcuno 
che mi permette di evitarlo,
ma tale API ha un grosso bug
(When InternetOpenUrl is called asynchronously, the callback function may
still report error 997 (ERROR_IO_PENDING) even on the
INTERNET_STATUS_REQUEST_COMPLETE notification). 
-------------
Nella era di Internet, la Microsoft mi fa scaricare un file come si deve?
Grazie mille.

 deve? Grazie mille.
Dipende cosa intendi con "cosa si deve"
Comunque, puoi utilizzare direttamente i socket e fare una richiesta HTTP 
gestendo completamente il trasferimento del file.
Guarda su 
www.vbip.com
 dove troverai diversi esempi.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

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

Come faccio a leggere le mail direttamente su POP3 senza usare oggetti
aggiuntivi?
Grazie a tutti.
Simo

aggiuntivi?
Sito Comune: con l'oggetto Winsock. Se non vuoi usare neanche quello puoi usare l'APi di Winsock: se
non erro ci sono anche quelle sul SC.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Comportamento simpatico delle collection

In questo codice c'e' un errore. Dov'e'? 
Contenuto di <Tabella>:
campo1  campo2
'a'     'ka'
'b'     'kb'
dim cMia as new Collection
Set rs = new ADODB.Recordset
set rs.ActiveConnection = <MiaConnessione>
rs.Source = "select campo1, campo2 from tabella"
rs.open
do until rs.eof()
  cMia.add rs("campo1"), rs("campo2")
  rs.movenext
loop
rs.close
A questo punto, se controllo cMia("ka"), ho un errore del tipo 'Oggetto
non valido'. Why?
Un po' di suspance prima della soluzione...
VVV
VVV
VVV
VVV
VVV
VVV
VVV
VVV
Sembra (io non lo sapevo, mea culpa...) che l'istruzione 
  cMia.add rs("campo1"), rs("campo2")
aggiunga alla collection non i valori dei campi, ma dei puntatori al
recordset. In tal modo, quando chiudo il recordset, la collection mi si
incrania.
Soluzione semplice: modificare la riga come
  cMia.add "" & rs("campo1"), "" & rs("campo2")
Bye by SixaM 8-]
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

  cMia.add "" & rs("campo1"), "" & rs("campo2")
Soluzione corretta:
cMia.add rs("campo1").Value, rs("campo2").Value
E tutte le maledizioni a chi ha inventato le proprietà predefinite :)
Ciao

   cMia.add "" & rs("campo1"), "" & rs("campo2")
Ti prego...
usa il .Value
Alberto
PS: e se salta fuori qualcuno a menarmela che 'le proprietà predefinite 
vanno usate perchè il codice è più leggibile', giuro che mi scaldo...

 recordset.
No, non aggiunge nessun puntatore al recordset. Aggiunge (peraltro 
giustamente) dei riferimenti agli oggetti Field referenziati da rs("campo1") 
e da rs("campo2").

 vanno usate perchè il codice è più leggibile', giuro che mi scaldo...
Non saro' certo io... anzi, bisognerebbe scrivere un programmino che
cambia tutte le proprieta' predefinite, mettendone delle altre che non
c'entrano una mazza. Se il proprio codice resiste anche a questo
cambiamento, allora siamo a cavallo!


 vanno usate perchè il codice è più leggibile', giuro che mi scaldo...
Beh sicuramente è più veloce da scrivere ;-), e utile quando lavori a
800x600 per evitare di diventar scemo a scrollare.
Ora che sono @1280 mi sto convertendo ad esplicitare le proprietà ma non è
facile abituarsi.
La peggiore è per la txt, non mi viene mai di scrivere txtPippo.Text
-- 
DBMS Firebird
VB6 + Ado

   cMia.add "" & rs("campo1"), "" & rs("campo2")
Mi pare che il CStr funzioni ugualmente e imho è un po' più elegante di
quello che hai fatto.



VB.NET
 è bello anche perchè hanno tolto le proprietà predefinite!
Ciao, Vincenzo 

 cambiamento, allora siamo a cavallo!
Tempo fa stavo cercando un qualcosa tipo l'option Explicit, che però 
non facesse proprio compilare se non veniva esplicitata la proprietà.
Nel tuo caso, tuttavia, il non esplicitare era corretto (quasi, in 
realtà andava usato RS.Fields.Item("nomecampo") ), se si fosse voluto 
aggiungere alla collection il riferimento al Field e non il valore del 
Field stesso.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Editor file risorse (.res)

Salve a tutti.
Qualcuno di voi conosce un editor di risorse , freeware o shareware ?
Sul sito della Microsoft c'e' ne uno ma funziona solo su NT , mentre a me servirebbe per Win9x.


E' sufficiente il notepad...
scrivi un file con estensione .rc e poi lo compili con rc.exe (e'
compreso in vb) che genera il res.
-- 
Sidewinder  
---------------------------------------------------------------------
'Mounten' wird für drei Dinge benutzt: 'Aufsitzen' auf Pferde, 'einklinken'
von Festplatten in Dateisysteme, und, nun, 'besteigen' beim Sex.
	-- Christa Keil
---------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Programma Paint.

Ciao!
Devo creare un piccolo programma in visual basic 6 che mi permetta di
disegnare col mouse dei tracciati a mano libera in modo da evidenziare dei
particolare di una picture box.
la difficolta che trovo e' quella che dovrei anche esere in grado di
eliminare questi tracciati senza cancellare l'immagine sottostante (un po'
come i layer di photoshop ) sapete dove posssotrovare delle informazioni a
riguardo ?
Grazie a tutti VOI !
Ciao Adriano

E' semplice se l'immagine in sottofondo la carichi con LoadPicture diventa a
far parte dell'immagine fissa di sfondo della Picture....quando disegni
sopra di lei e poi vuoi cancellare i tuoi scarabocchi ti bsat usare cls e
verrą cancellato soltanto il tuo disegno... non ricordo se funzia anche con
Autoredraw a true...ma mi pare di si.
-----------
Ciao
Sabba
Newsgroup: it.comp.lang.visual-basic
Titolo: Palette o Colori

Esiste un Controllo che visualizza tutti i colori per poter cambiare gli RGB
?

 wrote in message
838i3j$f7b$1...@news.flashnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP] Dove trovare VB Service Pack?

Salve a tutti,
dove posso trovare l'ultimo VB Service Pack? Credo si possa scaricare dal
sito MS, ma sono decine di Mb. C'è qualche rivista in edicola che lo include
nel cd-rom?
Grazie,
Paolo
PS. Mi rispondete anche tramite email? Grazie!

Occhio!!!! Non installare il SP4!!  Non ne ho sentito parlare per niente
bene sul NG (riguarda i msg di qualche giorno fà...
Ti consiglio di cercare il SP3...

Newsgroup: it.comp.lang.visual-basic
Titolo: it.binari.visual-basic verra` cancellato

Una prece.
--
Ciao.
Maurizio

eh??!!??!!??!!??!!


Leggi bene!...it.BINARI... e non il ns caro it.COMP...
...anch'io ho preso un sciopon appena letto....e poi.... fiiuuuhh..
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: For Binary ?

Scusate tanto ma... come si fa a visualizzare in una textbox (o anche in
qualche altra cosa:-) il codice binario di un file ???
Open Pathname For Binary As 1
....
Adesso il file dovrebbe essere da qualche parte dei miei 128Mb di Ram... :-)
e poi ???
Grazie dell'aiuto !
--
_______________________________________
   Molteplici saluti
       (rigorosamente in contemporanea :-)
             MultiTaskinG
My Motorcycle WebSite: 
http://drive.to/vantax
    ICQ _&_PGP disponibili su richiesta :-)
_______________________________________


di nulla!
Andrea
anfa...@tin.it


Salve
il seguente codice è uno dei sistemi utilizzabili per leggere file binary e
forse anche
il più veloce. la variabile pts contiene il numero dei dati che si
desiderano leggere
la variabile posizione identifica la posizione del byte iniziale(NON DEL
RECORD )
di lettura del file. Naturalmente bisogna specificare nella variabile
dimensione_dati_in_bytes  la lunghezza di ogni dato. Sbagliando queste due
informazioni non potrà leggere i dati in maniera corretta.
lancia la routine qui sotto dopodiché 500 dati del file dovrebbero essere da
qualche parte
dei tuoi  128Mb di Ram... :-)   e poi verranno visualizzati nella finastra
di debug
con l'istruzione debug.print.
         pts = 500
        ReDim legge(pts) As Single
        posizione = 1
        dimensione_dati_in_bytes = 2
        Open Nomefile For Binary As #1 Len = dimensione_dati_in_bytes
                     Get #1, posizione, legge()
        Close #1
        For I = 1 To pts
              Debug.Print legge(I)
        Next I
Newsgroup: it.comp.lang.visual-basic
Titolo: X ESPERTI

Come faccio ad inviare un segnale tra due computer usando una rete
microsoft? Quale oggetto devo usare? Riesco molto bene a fare questo usando
le porte seriali ma mediante una scheda di rete? Ringrazio anticipatamente
il genio che mi saprà rispondere.... Ciao

Non sono un esperto, ma penso che tu debba usare winsock.
Ciao

Ho realizzato un'applicazione client server utilizzando l'oggetto winsock ma
riesco a far comunicare i due applicativi solo sul mio computer di casa che
non è collegato ad una rete. Quando installo i programmi sui terminali in
rete questi cominciano a darmi una serie di errori fra i quali:
 10040 Gruppo di indirizzi non supportati
 10044 Il tipo di socket non è supportato in questo gruppo di indirizzi
 10014 Argomento non valido (al momento di inviare un dato)
             quest'ultimo sulla guida agli errori è descritto come segue:
             L'indirizzo richiesto è un indirizzo broadcast, ma il flag non
è impostato
Comunque anche quando faccio girare i due applicativi sul terminale di casa
al momento di inviare il dato la prima volta questo tenta di connettersi con
il modem al server è normale?
Comincio a pensare seriamente che ci sia qualcosa nella configurazione della
rete. Ad esempio qual'è il flag non impostato??? Ringrazio anticipamente chi
saprà darmi una risposta... Grazie



Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] anzi OTissimo FOR DUMMIES ! ^__^

Oggi, il 6 Aprile dell'Anno del Signore 1999, ho avuto una visione !!!
Facendo un po' di sano zapping tra i canali sono capitato sui Simpson
proprio durante la scena in cui Homer sta leggendo un libro dal titolo
"Internet For Dummies" puntualmente tradotto in sovraimpressione con
"Internet Per Deficienti".... ^_______^
AHAHAHAHAAAHAHAHAH
Visto che avevo ragione ?!
Visto ? Vistooo ? VISTOOO ? VISTOOOOOO ? ^__________^
PS: tranquilli, la pazzia non s'è impadronita di me (non ancora o comunque
non del tutto)... è solo il periodo in cui ho le mie cose ! ^____^
Zeross


Poi è arrivato Bill due suoi scagnozzi (vicepresidenti? :-) ) e ha
"rilevato" l'azienda del povero Homer. Quando i due brutti ceffi avevano
concluso l'opera di distruzione Billy ha detto: "non vi crederete che io sia
diventato così ricco firmando assegni!"
Che sia la verità? :-))
Ciao a tutti.
Davide.


-_-;;;; Zeross... ricordami di farti una domanda in privato... non posso
fartela qui perché.. non si sa mai, potrei fare una gaffe ^_^;;
Ciao

 fartela qui perché.. non si sa mai, potrei fare una gaffe ^_^;;
Mei... ti ricordo che tanto tanto tempo fa, un tizio ha inventato una cosa
che si chiama telefono. Il mio numero ce l'hai, quindi se la tua curiositŕ č
impellente potresti farmi anche uno squillo.
Sono buono e ti avverto... ho il servizio di riconoscimento numero chiamante
attivo, quindi se non vuoi farmi scoprire il tuo numero ricorda di digitare
il codice 1348 prima del numero mio.
Vedi un po' tu... ^____^
Bye,
Zeross

il codice 1348 prima del numero mio.
Ma non era *67# ?
Scusate se prolungo l'OT...
Gabriele

 Ma non era *67# ?
Boh... ^__^
Io ho un tastino che fa il codice automaticamente! ^__^
Zeross
Newsgroup: it.comp.lang.visual-basic
Titolo: Microsoft CAR 95 !

Bill Gates ha detto in una conferenza stampa che se il mercato delle auto
fosse gestito come quello dei computer probabilmente avremmo delle auto che
costano 50.000 lire e farebbero 500 Km con un litro.
Il presidente della General Motors americana ha risposto prontamente che se
le cose stessero così avremmo delle auto che
- si bloccano 2 volte al giorno senza motivo.
- si spegnerebbero premendo il pulsante Avvio.
- avrebbero degli Air-Bag che chiedono "sei sicuro ?", prima di entrare in
azione.
- ogni nuova vettura avrebbe i comandi cambiati rispetto alla versione
precedente.
- gli indicatori della benzina, dell'olio, ecc. avrebbero spesso dei bug che
non indicano i valori corretti lasciandoci a piedi a metà percorso.
- avrebbero delle sospensioni che a volte vanno in crash, facendo andare in
"crash" pure la macchina nelle curve.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: fermare il programma per 2 secondi usando il timer

mi sapete aiutare? grazie.

 mi sapete aiutare? grazie.
Se per Timer intendi la funzione Timer potrebbe essere:
dim Timeout as single
Timeout = Timer + 2
do while true
 DoEvents
 if (Timer > Timeout) then
  exit do
 end if
loop
Attento alla mezzanotte. 
Se può capitare che i due secondi siano a cavallo della mezzanotte devi
gestire l'eccezione del ritorno a zero del Timer.
Ciao.
pinco_pallo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 si ferma tutto per x secondi che decidi tu !
emm emm sleep e sleepEx "bloccano" la tua applicazione rilasciando il
controllo alla CPU per x ms che decidi tu !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Newsgroup: it.comp.lang.visual-basic
Titolo: Run with App associata

Come potrei aprire un file es.: Manuale.wri  utuilizzando
l'applicazione associata  da una   r= Shell( "???")    ?
Grazie
Antonio Tanzillo  
a...@pippo.netgroup.it
KillPippoforrepondez

 
Con
X=Shell( "start Manuale.wri")
start e' un comando del dos di windows ( sta in C:\Windows\Commsnd ) che
cerca nel registry la applicazione associata ad una estensione (.wri) e lo manda
in esecuzione passandogli il file da aprire.
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes




Newsgroup: it.comp.lang.visual-basic
Titolo: Come riconoscere se Capslock è attivo?

Scusate se la domanda è banale, sono un neo programmatore!
Grazie per la risposta!

Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long)
As Long
Const VK_CAPITAL = &H14
Private Sub Command1_Click()
MsgBox (IIf(GetKeyState(VK_CAPITAL), "Attivo", "non atttivo"))
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: ShellNew come si implementa in VB5?

Sotto la chiave HKEY_CLASSES_ROOT del registry per alcuni tipi di files
è definita la chiave 'ShellNew' che definisce come deve essere creato un
nuovo documento di tale tipo (Vedi sottomenu File-->Nuovo in Gestione
Risorse) e precisamente la chiave 'ShellNew' specifica uno tra i
seguenti metodi: NullFile, FileName, Data e Command che stabiliscono
rispettivamente se il nuovo documento deve essere un file vuoto, la
copia di un template, un file contenente un insieme minimo di dati
binari oppure causa l'esecuzione di un comando (per esempio un
wizard..).
Come posso utilizzare tali informazioni in VB5 per creare da programma
un nuovo documento a scelta tra quelli registrati (cioe tra tutti quelli
che compiono nel sottomenu File-->Nuovo di Gestione Risorse)?
Grazie...
Mario Calò Carducci
mil...@iperbole.bologna.it

Mario Calo` Carducci wrote:

  ...si parla proprio di funzioni non documentate per la programmazione
della shell...
non mi resta che attendere fiducioso...

Newsgroup: it.comp.lang.visual-basic
Titolo: preview control

Qualcuno ha già lavorato con il successore di Imaging di windows , ora
Preview di XP?
ho trovato il componente Preview1.type library ma offre funzionalità di
sola apertura file e visualizzazione mentre dovrei fare tutte quelle
cose permesse da imaging quali vai a pagina, pag+ , pag- , prima pagina,
tutte però richiamabili da codice....
Fabio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Preview di XP?
http://www.ilixis.com/developer/wia.html
-> GbC|
www.gbcweb.com


Visto che sei riapparso dul NG posso chiederti una cosa in privato?
PS. In caso affermativo, vedrò di contattarti nei prossimi giorni... adesso
è tardi e si va a casa! :-)
Ciao, Vincenzo

 Visto che sei riapparso dul NG posso chiederti una cosa in privato?
Ero scomparso?
No grazie, niente privato.
Se vuoi posta qui nel NG.
-> GbC|
www.gbcweb.com


Volevo sapere se il controllo nmcrypt si può usare liberamente nelle proprie
applicazioni e se si può ridistribuire?
Ciao, Vincenzo

 applicazioni e se si può ridistribuire?
puoi ridistribuirlo a tuo piacimento, anche senza citare l'autore
-> GbC|
www.gbcweb.com
Newsgroup: it.comp.lang.visual-basic
Titolo: POPOLA TREE VIEW

Ciao
ho un problema durante il caricamento di una tree view con dati provenienti
da una tabella access.
Mi succede che se il DB risiede in locale, la tree viene popolata senza
errori, appena lo sposto su un disco di rete (leggo un file ini per la
connessione al DB), appena legge il 2° record mi da un errore di runtime 5 e
non riesco a capire come mai.
cosa devo controllare???
 
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 non riesco a capire come mai.
una cosa del genere?
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamsgillegalfunccall.asp
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

                    Il 21 Gen 2005, 10:04, 
news...@cssoft2001.com
 (Melchiade Bedrosian Baol)
ha scritto:

ho dato un'occhiata e non sembra proprio un problema di range di valori
se vuoi posso girarti il codice che genera l'errore..


Newsgroup: it.comp.lang.visual-basic
Titolo: SQL - SELECT - ADO & TABELLE....

Buonasera a tutto il NG
Vi chiedo alcune informazioni al fine di poter mettere in Sviluppo
alcune idee che la mia mente malata ha ancora in fase di progettazione.
Le domande sono queste:
1) Esiste un modo tramite VB6 di strutturare delle SELECT che reperiscono
informazioni da più tabelle che sono fisicamente in DB diversi ??
(Cioè avere la possibilità di effettuare una
SELECT di TABELLA1 e TABELLA2 dove
TABELLA1 sta in MDB1
e TABELLA2 sta in MDB2)
2) Come faccio in ADO a definire un RecordSet che contiene un'intera
Tabella??
Ciao a tutti e grazie Bozu


1) Per accedere a tabelle in db diversi via query la sintassi è :
 [SELECT | INSERT] INTO destinazione IN
	{percorso | ["percorso" "tipo"] | ["" [tipo; DATABASE = percorso]]}
Per identificare una tabella di origine:
FROM espressionetabella IN
	{percorso | ["percorso" "tipo"] | ["" [tipo; DATABASE = percorso]]}
 anche se, sempre che la query debba cmq prendere dati dalle stesse tabelle
contenute negli stessi mdb, sarebbe meglio usassi delle tabelle linkate.
2) Con semplice select sulla tabella!
Ciao
 
 
--------------------------------
Inviato via 
http://usenet.libero.it

 Tabella??
Potrebbe non essere una buona idea usare una select senza nessun filtro!
dim ADORST As ADODB.Recordset
     Set ADORst = New ADODB.Recordset
     With ADORst
         .ActiveConnection = dbConn
         .Open "SELECT * FROM Tabella", , adOpenDynamic, adLockPessimistic
     End With
adOpenDynamic e adLockPessimistic sono degli esempi dei parametri 
possibili, dipende da quel che devi fare. Vedi la guida.
dbConn e' la connessione al tuo database.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!