mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Server/Client & Db Access remoto

Vorrei creare 2 applicazioni VB(6) & Ado(2.5) che accedono ad un db Access.
Un'applicazione Server installata su macchina PC1 (che si connette
fisicamente al db locale) e un'applicazione client sulla macchina PC2 che
deve connettersi al Server.
Come si può realizzare?  (avendo sul client il max di prestazioni
possibili?)
Grazie
BasicA

BasicA
In
maniera molto semplice puoi creare l'applicativo server con collegamento al
database in locale e l'applicatico client con il path della rete.
Nel NG
c'è molto su questo !!!!!!!!!!
Luigi Salerno
--------------------------------
Inviato via 
http://usenet.iol.it
 

beh, la tua richiesta è molto generica..............
in pratica ti sei risposta da solo.......ti serve la tecnologia ADO, che per
l'appunto consente alla tua applicazione di connettersi ai database, nel tuo
caso Access.
per avere il max delle prestazioni ti conviene usare un altro database, come
SQL Server, perchè con Access non è che hai prestazioni elevatissime,
specialmente in un ambiente client/server.......
cmq, dai un'occhiata all'MSDN che ti esempi ne trovi una valanga,
oppure sul nostro Sito Comune........
premi F1...........
:-))
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 wrote in message
213Z45Z115Z106Y...@usenet.iol.it...


Dimenticavo:
ma il Server, serve? Nel senso che:
il Client deve poter accedere ad un db installato su un'altra macchina,
senza avere cartelle condivise. Tutto qui.
Come devo fare?

Come devo fare?
in questo caso devi usare un
applicativo server installato sulla macchina server ed un'altro sul/sui
client attraverso socket ok.
Luigi


 ha scritto nel messaggio
news:212Z171Z183Z110Y...@usenet.iol.it...




Newsgroup: it.comp.lang.visual-basic
Titolo: Sheridan ActiveThreed Plus v3.02

Salve a tutti. Qualcuno sa dirmi dove posso scaricare l'OCX di cui
all'oggetto (anche in versione demo) ?
Grazie

 di cui  all'oggetto (anche in versione demo) ?
La Sheridan si è fusa con la Infragistic. Quel prodotto ora lo trovi qui:
http://www.infragistics.com/products/classic/activethreed.asp
Ciao
*Roby*

Newsgroup: it.comp.lang.visual-basic
Titolo: [Forse OT] Rotellina del mouse

Salve a tutti,
vi pongo questa domanda a cui non riesco a trovare una soluzione. Quando
sviluppo in VB6 con l'editor di visual basic non funziona la rotellina del
mouse. Mi spiego meglio nella schermata dove si scrive il codice non riesco
a "scrollare" la pagina in su e in giù come faccio con word o con siti web.
Lo so che non è basilare ma sarebbe molto comodo.
Avete mica una soluzione?
Grazie

 ha scritto nel messaggio
news:AXNJ9.9493$lV4.3...@news2.tin.it...

Scarica l'IntelliPoint Mouse Software da qui
http://www.microsoft.com/products/hardware/mouse/download.asp
Io ho un Logitech ma funziona lo stesso...
Ciao
Skysurfer

 Io ho un Logitech ma funziona lo stesso...
O in questo caso meglio ancora se vai su 
www.logitech.com
 e ti scarichi il
mouseware per il tuo mouse che č meglio (specie se hai un mouse particolare
(io ce l'ho senza fili)).
Al3x
Newsgroup: it.comp.lang.visual-basic
Titolo: Convertire un progr da VB6 a VBNET

Ciao a tutti,
sapreste dirmi oltre ad avere vbnet enterprise se c'è un utility che 
converte un programma da VB6 a VBNET, oppure se qualcuno di Voi può farmi un 
grande favore in questa conversione inviandovi lo Zip del mio programmino?
Grazie per gli eventuli aiuti 

 ha scritto nel messaggio 
news:d6uktc$9b4$1...@newsreader1.mclink.it...


Marco R. ha scritto:


La conversione te la devi fare a mano perchè NON si tratta di una
conversione ma di un cambio di piattaforma = Porting.
A parte i danni che fa il cosiddetto convertitore, alla fine
dell'operazione (quando termina correttamente) hai un programma che non è
più vb6 e sicuramente non è 
vb.net
, una porcheria inusabile.
Se era un progetto semplice potrebbe anche compilarsi al primo colpo.
Se era un progetto complesso e/o con oggetti di terze parti è escluso che
possa funzionare al primo colpo.
Se non mi credi fai pure una prova e poi mettiti a rincorrere tutti gli
avvisi che troverai nel progetto inseriti dal convertitore, ti passerà la
voglia di usarlo e scoprirai che inoltre si fa prima a riscrivere
l'applicazione su 
vb.net
.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 La conversione dovrebbe farla da solo VBNET quando apri il progetto
No perchè la mia versione di Visual Basic.NET non è la enterprise quindi mi 
dice che la mia versione non lo può fare.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con parole puntate

Ciao a tutti,
Supponiamo di volere fare una ricerca di una parola all'interno di un testo.
Il punto è quello di includere anche tutte le parole puntate che si 
possono ottenere da una parola.
Es.  parola = pippo
      parole scaturite = p.i.p.p.o
      etc.
C'è un algoritmo oppure un istruzione che possa aiutarmi su access ??

Hinoki ha spiegato il 07/02/2008 :

Replace?
Alberto
-- 
L'economia sa tutto di te e tu non sai niente dell'economia. La tua 
banca sa tutto di te, di quanti soldi hai, e quando li spendi; ma tu 
non sai niente di cosa fa la banca dei tuoi soldi e dove li mette, e se 
ce li ha!

 
Non è sufficiente perchè devo prendere in considerazione tutte le 
possibili combinazioni


Access?
Non si un po' OT? :))
Albe intendeva dire questo:
function esisteLaParola(cosaCERCO as string, doveCERCO as string) as 
long
    dim locBUFF as string
    locBUFF = replace(doveCERCO,".", "")
    esisteLaParola=instr(1,locBUFF,cosaCERCO,1)
end function
Ho scritto a memoria ma dovrebbe esserci tutto
Ciao cia'
-- 
-> GbC|
www.gbcweb.com
www.chiappori.com
 

 combinazioni
Scherzi, o parli seriamente?
Alberto
-- 
Friedrich Nietzsche: Un po' di salute ogni tanto è il miglior rimedio 
per l'ammalato.

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO CON SQL

Come faccio a introdurre una stringa sql e farla eseguire da un form in vb ?
Tipo se premo un pulsante lui mi effettua la riverca voluta dalla stringa
sql e mi spara il risultato in una text box ??
grazie in anticipo
ciao

Il modo più semplice che mi viene in mente è:
* inserisci un data control nel form
* colleghi il controllo data al db (cioè setti Databasename)
* colleghi all'oggetto data le tue label, cioè setti le proprietà datasource
e datafield (ovviamente devi conoscere i nomi dei campi restituiti dalla
query)
* poi scriverai una cosa del tipo
comman1_click()
dim stringasql as string
    stringasql="select...."
    data1.recordset=stringasql
    data1.refresh
end sub
Prova ad implementarlo così. Se non fossi stato sufficientemente charo
fammelo sapere.
Older

crei una connessione ad un db nel modo che preferisci
nella sub del pulsante (cmd_click) inserisci
    strSQL="SELECT ..."    'questa la puoi impostare o prelevare ad esempio
da una text box in cui scrivi tu di volta in volta
    adesso puoi passare la strSQL al database e farla eseguire.
DAO    (con controllo data)
    data1.datasource=strSQL        'mi sembra
    data1.refresh
    dbgrid1.refresh
ADO (senza contollo data)
    recordset.open strSQL, connessione
    oppure
    db.execute strSQL
O comunque è roba del genere.  È cmq molto facile anche se non sembra.
Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare programmi in VBA

Salve,
sono nuovo del newgroup e neofita programmatore&#8230; Vorrei scrivere 
una macro in visual basic (VBA) che apra file di qualunque tipo 
lanciando il programma associato all&#8217;estensione del file. E&#8217; 
necessario leggere il registro di windows per risalire alla path 
del programma? O e&#8217; possibile usare uno specifico comando di VBA?
Grazie
Ing. Marco
Inviato da 
www.mynewsgate.net

 del programma? O e&#8217; possibile usare uno specifico comando di VBA?
Usa l'API ShellExecute che apre automaticamente il programma associato al
file che gli passi come parametro.
Ciao!
Esteban

 ha scritto nel messaggio
news:200310220...@mynewsgate.net...

http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&threadm=10rdfi4%2440u%241
%
40fe2.cs.interbusiness.it
&rnum=14&prev=/groups%3Fq%3Dinputbox%2B%2Bgroup:it
.comp.lang.*%26hl%3Dit%26lr%3D%26ie%3DUTF-8%26start%3D10%26sa%3DN
Ciao.
E.L.

Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio dati tra form

Vorrei aprire da un form un altro form passandogli un parametro ma mi sembra
che lo show non lo ammetta.
Come posso fare ?
Grazie K.
--
Der suchende...
--------------------^-^---------------------
          Marco Gualla
marco....@tin.it
mgu...@itstech.it
-----------------------------------------------

Come posso fare ?
1)	implementa una proprietą nella seconda form e settala al valore che preferisci prima di
richiamare il metodo .Show
2)	Implementa un nuovo metodo...
Public Sub Mostra(frmdest as form, parametro as quellochevuoi)
	'faccio quelloc he devo fare in base al parametro
	frmdest.show
end sub
quindi, per aprire la form Form2, userai 
Mostra Form2, mioparametro
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
---------------------------------------------------------------------------

 Grazie K.
Dichiara una variabile "public" nel secondo form e impostane il valore dal
primo form prima di aprirlo.
Ad Esempio
nel Secondo_ Form metti nelle dichiarazioni:
Public Pippo as integer
nel primo_form
Private Sub Test()
Secondo_Form.Pippo = 1
Secondo_Form.Show
End Sub

 wrote in message
news:9bu4oo$balks$1...@ID-66163.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: 1 domandina

si puo' usare InstallShield per installare applicazioni in VB6?


Si, ma non lo conosco.
Io utilizzo l'Installer:
Economico, Funzionante, Facile da usare.
Ciao
Oz
Newsgroup: it.comp.lang.visual-basic
Titolo: Caricare una variabile da una routine ad un'altra

è possibile caricare una variabile da una routine all'altra
specificatamente:
assegnare un valore ad una variabileXXX che si trova dentro
una routineA (di maschA che ha aperto la B)
direttamente dalla routineB di una (maschB) mentre è aperta
in modo acDialog
----------------------------------------------------------------
-caso da risolvere
Private Sub AAA (-della MascheraA-)
         If x>0 then
             Apro la maschera B in modo acDialog e prima di chiudere
             carico la variabile varXXX che si trova dentro la SubAAA
         End If
 varXXX
        …..qui ho del codice
 End Sub
----------------------------------------------------------------
(routine di access solo che nel newsgroup al momento
non ho trovato soluzioni)
credo che l'equivalente in Vb sia:
----------------------------------------------------------------
-caso da risolvere
Private Sub AAA (-della MascheraA-)
          If x>0 then
            Apro una form B con scelta obbligata prima di poter
ripassare alla form A
            e prima di chiudere carico la variabile varXXX che si trova
dentro la SubAAA
          End If
 varXXX
…..qui ho del codice
End Sub
----------------------------------------------------------------

Una soluzione al tuo problema e' il passaggio per riferimento... ma non so
se VBA te lo permette...
Eventualemtne, cerca la parola chiave "ByRef" sull'help.

 End Sub
bas:
public sPippo as string
form1 form_load
    spippo = "sPippo"
form1 command1_click
    form2.show
form2 form_load
    caption = "il nome della variabile è " & spippo
j.
Newsgroup: it.comp.lang.visual-basic
Titolo: Query con parametri in ADO

Query con parametri... in ADO come dire brasato di manzo... in umido ;-)
Bando alle ciance.
Io devo aggiornare di volta in volta un record in una tabella.
Questo record lo tiro fuori con una query con parametro.
Per fare il tutto mi appoggio agli oggetti Command e Parameter.
Il problema avviene nella sub rsRequery (vedi piů giů).
Quando vado a fare un rst.AddNew mi dice che il metodo non č supportato dal
provider.
Come si fa allora???
*****************************************************
    Dim cnDB As ADODB.Connection    ' Connessione al DB
    Dim cmd As ADODB.Command        ' Query di selezione
    Dim prm As ADODB.Parameter      ' Parametro della query
    Dim rst As ADODB.Recordset      ' Recordset aperto
Private Sub Form_Load()
' Avvio connessione
    Set cnDB = New ADODB.Connection
    cnDB.Provider = "Microsoft.Jet.OLEDB.3.51"
    cnDB.ConnectionString = "C:\DB.MDB"
    cnDB.Open
' Apertura oggetto comando con parametro
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = cnDB
    cmd.CommandText = "SELECT * FROM Tab WHERE Tag = [Tag]"
    cmd.CommandType = adCmdText
    Set prm = cmd.CreateParameter("Tag", adInteger, adParamInput)
    cmd.Parameters.Append prm
' Apertura recordset
    prm.Value = "0"
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseServer
    rst.LockType = adLockOptimistic
    rst.CursorType = adOpenDynamic
    rst.ActiveConnection = cnDB
    Set rst = cmd.Execute
End Sub
Private Sub rsRequery(Tag, Stato)
    prm.Value = Tag
    rst.Requery
    If rst.BOF And rst.EOF Then     ' Se il recordset č vuoto...
        rst.AddNew                           ' aggiunge un rst e lo aggiorna
        rst!Tag = Tag
        rst!Stato = Stato
    Else                                           ' Se non č vuoto...
        rst!Stato = Stato                    ' aggiorna il rst
    End If
    rst.Update
End Sub
*****************************************************
Grazie per la pazienza!
FabioDB

 *****************************************************
Non fare il requery con un query, chiudi il recordset, aggiorna i parametri
e poi riesegui il command altrimenti hai guai.

Newsgroup: it.comp.lang.visual-basic
Titolo: Chiusura del form

Salve a tutti !
Come si può intercettare la chiusura di un form del proprio programma ( se
questa avviene tramite ctrl-alt-canc, o se avviene tramite la X che si trova
in alto a sinistra ???).
In pratica mi servirebbe che il programma prima di chiudersi eseguisse una
operazione !
GRAZIE !

Alla chiusura di un form (Unload del form) viene generato l'evento
QueryUnload.
E' qui che devi mettere il codice che deve avviarsi alla chiusura del
programma.
NOTA: non so se funziona anche con CTRL-ALT-CANC, fai delle prove.
Newsgroup: it.comp.lang.visual-basic
Titolo: tcp ip e indirizzi di rete

E' possibile sapere tutti gli indirizzi
di rete dei computer collegati al mio pc?
E' possibile sapere almeno l'indirizzo
del mio pc, sempre da codice vb?
Ciao Enzo
www.scozzaro.it

"Enzo" <scoz...@tiscalinet.it.NoSpanning> ha scritto
| E' possibile sapere tutti gli indirizzi
| di rete dei computer collegati al mio pc?
|
| E' possibile sapere almeno l'indirizzo
| del mio pc, sempre da codice vb?
Enzo: un po' di buona volontą... :)))
-------------------------------------------
3) Terza fonte di informazione: cercate tra i vecchi post di questo
newsgroup: quasi tutti i temi sono stati gią ampiamente trattati e risolti.
*  
http://groups.google.com/groups?group=it.comp.lang.visual-basic
Newsgroup: it.comp.lang.visual-basic
Titolo: Installazione: recuperare da codice la directory di installazione

Ciao a tutti,
come faccio da codice a sapere quale è la directory (scelta
dall'utente nella fase di installazione) in cui è stato installato il
mio programma?
Mangiafuoco

da Vb:
App.Path  --> Ti ritorna la directory in cui viene lanciato l'eseguibile
Ciao
Oz

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

Newsgroup: it.comp.lang.visual-basic
Titolo: forse [OT] vb6

Non so se OT o no!
Uso attualmente vb5  e a volte ancora il vb4 vorrei passare al vb6 o vb-net
.
Sapreste indicarmi un sito dove posso trovare i prezzi di questi prodotti.
Ho vagato nel sito di microsoft ma mi sono perso! e prezzi nisba!?
Voi che mi consigliate vb6 o vb-net?
Grazie. Franco


VB5---->VB6  - Pro: Passaggio indolore - Contro: Massimo 3 anni e ti 
vorrai di sicuro aggiornare a .NET
VB5---->
VB.NET
 - Pro: Al passo coi tempi e linguaggio/piattaforma più 
seri. Contro: Curva di apprendimento più ripida.
Ti consiglio "la seconda che hai detto" :-)
-- 
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
free.it.comp.lang.csharp - free.it.comp.lang.vbnet
free.it.comp.lang.aspnet - free.it.comp.lang.delphi

 seri. Contro: Curva di apprendimento piů ripida.
e "massimo 3 anni e ti vorrai di sicuro aggiornare a *n*x" :P

javalab ha scritto:

LOL :-)
Comunque non ci sara' bisogno di aggiornarsi *n*x:
si dovra' convertire il codice al nuovo Framework 4.0,
totalmente incompabile con i precedenti e con requisiti
minimi un Pentium 9,6 GHz e 4GB RAM, altrimenti il JIT
del momento non riuscira' neanche a partire :-(
--
ciao, hal.upgrade();
--------------------------------
Inviato via 
http://usenet.libero.it

 Comunque non ci sara' bisogno di aggiornarsi *n*x:
Scusate, cos'ha quella parola per non essere scritta normalmente?
Chi vi paga? ;-PPP

 ha scritto

essendo loro liguri, credo che piuttosto che scucire palanche si
farebbero squartare con gli arti legati a 4 tonni ( 5? :P ) imbufaliti
da un illegittimo sospetto, ma hal direi usi liNuX, hpl uNiX (bsd).
se proprio preferisci:
*n?x
ma poi sembra un quesito della suse :P
te l'ho detto, le p.r., accontentare tutti e' una fatica... me,
dovrebbero pagarmi...
j.
nb anche la ligure economia delle firme: hal, hpl.
fra un po' scrivo h*l cosi' andiamo benone sempre.

 fra un po' scrivo h*l cosi' andiamo benone sempre.
:-)
--
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Qual è il database più semplice (una tabella) pe r VB ?

Vorrei usare un database in VB, ma quelli che ho esaminato finora sono
troppo complessi !
Creare un server SQL, connetterlo, ecc. a me serve solo una "tabella"
elementare in un file e basta, come in Excel.
Qual č il database piů semplice, in formato tabella (monoutente, pochi
record, solo testo) che posso usare in 
VB.NET
 ?
Grazie infinite.

 record, solo testo) che posso usare in 
VB.NET
 ?
Usa Excell a questo punto no ? Credo che anche in 
vb.net
 si possa boundare
un oggetto dao a un foglio excel ! Prova !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 Grazie infinite.
Se non vuoi un "DATABASE" usa un comune file di testo formattato ( , ; : .
TAB cosa vuoi tu)

Newsgroup: it.comp.lang.visual-basic
Titolo: stringa sql

nella seguente stringa sql al posto della stringa 'cliente' vorrei mettere
il contenuto della combo1
rcd.open "select scst.articolo, max(
scst.id
) as maxdiid from scst group by
scst.cliente, scst.articolo having(((scst.cliente) = 'cliente')) order by
scst.articolo", con, adopenstatic, adlockoptimistic
come posso fare
grazie a chi mi aiuterą

 adlockoptimistic

 grazie a chi mi aiuterą
occhio a virgolette e apici
ciao, j.

problema risolto grazie per i suggerimenti

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

Ancora grazie in anticipo a tutti quelli che mi risponderanno... e hanno
risposto ai miei precedenti messaggi!
Ora però ho un nuovo problema: :((
Dovrei lanciare una macro VBA di word da un programma scritto in VB...
Si può fare? Come?
        Ancora grazie a tutti!!
            Allanon



 Si può fare? Come?
Function Run(MacroName As String, [varg1], [varg2], [varg3], [varg4],
[varg5], [varg6], [varg7], [varg8], [varg9], [varg10], [varg11], [varg12],
[varg13], [varg14], [varg15], [varg16], [varg17], [varg18], [varg19],
[varg20], [varg21], [varg22], [varg23], [varg24], [varg25], [varg26],
[varg27], [varg28], [varg29], [varg30])
    Member of Word.Application
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: contatore access

Ciao a tutti,
                innanzitutto Grazie Mille in Anticipo.
Io vorrei sapere se esiste la possibilita in Access ,come in sql server, di
poter sapere quel'è il valore di un campo contatore in una tabella.
Grazie Mille
Alberto

 Grazie Mille
e con questo sono già duemila...
-- 
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

Newsgroup: it.comp.lang.visual-basic
Titolo: Tabelle dinamiche VB6 - Access 2000

Voglio fare in modo che tramite l'inserimento del nome della tabella da
parte dell'utente, in vb6, venga creata dinamicamente una tabella con quel
nome nel db access 2000. Ho provato passando una stringa del tipo "CREATE
TABLE..." & nometab ..... ma MSJet non supporta tale funzione. Esistono
altri rimedi (creando un modulo vba in access da collegare all'applicativo
vb6..) ? Grazie.
Stefano
sme...@tin.it


In che senso non fuonziona ????
A me funziona benissimo, passandogli il nome della tabella su una variabile:
Connessione.Execute "CREATE TABLE " & NomeVariabile & " (CAMPO1 AS
LONG,...........)"
Forse devi stare attento solo alle virgolette...........
Ciao
Sir Jo

A me non funziona....ho dovuto risolvere con oggetto Command...inserendo nel commandtext tutta la stringa sql e dove volevo la
variabile un simbolo qualsiasi. Poi ho fatto:
command.execute Replace(stringasql,"?",NomedaSostituire)  ' ? è un simbolo scelto da me!
Ciao SIMO
--
__________________
www.sasim.cjb.net


Newsgroup: it.comp.lang.visual-basic
Titolo: DIAL UP: conoscere le connessioni

Avrei bisogno di conoscere il nome delle connessioni
presenti in accesso remoto. E' possibile?
Grazie Andrea

presenti in accesso remoto. E' possibile?
  Devi utilizzare le RAS API. Cerca l'articolo q150948 nella microsoft
knowledge base e troverai il link a VB32RAS.EXE, che contiene una DLL
che sfrutta le RAS API per fare quello che ti serve e tante altre cose
ed i relativi sorgenti in VB4/32 (che il VB5 gestisce senza problemi),
per cui puoi farci cio' che vuoi.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] [!] Qualcuno ha comprato un HD Fujitsu nell'ultimo anno?

Meglio fare subito un backup
http://www.theregister.co.uk/content/63/27926.html
Ciao
*Roby*

ma porc...
ce li ho dappertutto, verifico il p/n
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [???] AIUTO !!!!! - I Repot !!!!!

Perchè aggiornando la tabella collegata al Report quest'ultimo mi visualizza
sempre ciò che era presente prima ??????????
Non c'e la faccio piu' Aiutatemi per favore, è importantissimissimo
Ciao a tutti e grazie anticipatamente Roberto

...


dovresti fare un requery sul dataenviroument se stai usando vb6


Fai il Refresh del report:
NomeReport.Refresh
Ricordati se hai modificato i dati,devi anche fare il requery del recordset.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: ancora su immagini nei menu

forse ho capito perche non mi riesce di inserire le immagini nei menu.
dipende dalla grandezza dell'immagine.
se sono troppo grandi., lui me le "taglia", mostrandomi solo la parte in
alto a sinistra.
sto usando la funzine setmenubitmaps
come faccio a evitare cio? a ridurre da prima la dimensione di un'icona?
grazie
MarioH

ora sto cercando di usare setmenuiteminfo, con la struttura menuiteminfo.
non ho ben capito come devo impostare i parametri ftype e fmask se voglio
che la voce di menu sia una stringa con un'icona a sinistra.
questa è la dichiarazione in C della struttura:
typedef struct tagMENUITEMINFO {
  UINT    cbSize;
  UINT    fMask;
  UINT    fType;
  UINT    fState;
  UINT    wID;
  HMENU   hSubMenu;
  HBITMAP hbmpChecked;
  HBITMAP hbmpUnchecked;
  ULONG_PTR dwItemData;
  LPTSTR  dwTypeData;
  UINT    cch;
  HBITMAP hbmpItem;
} MENUITEMINFO, *LPMENUITEMINFO;
grazie
MarioH

Newsgroup: it.comp.lang.visual-basic
Titolo: API: "ExtractAssociatedIcons" in shall32.dll....perchè non c'è?

Ciao a tutti!
ho i lseguente problema: avendo la necessità di prelevare l'icona associata
ad un collegamnto (ad un eseguibile, o ad un file generico) e di
visualizzare questa icona in una listView (il tutto a run-time!!!), ho
trovato una API che, in teoria,  fa al caso mio: "ExtractAssociatedIcon"
(ecco la sua definizione pubblica)
Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias
"ExtractAssociateIconA" _
     (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As
Long
A questo punto inserisco la dicharazione dell'API nei miei moduli del
progetto, preparo il codice che la invoca con opportuni parametri ed eseguo
la mia applicazione! Bene, anzi male, quando è ora di eseguire la chiamata
all'API mi genera errore e mi dice che la funzione non è presente nella dll
specificata (shall32.dll)!
Dove cavolo la trovo questa funzione??
Spero che mi possiate dare una mano!
Grazie in anticipo!
Mauro.

ExtractAssociateIconA
hai scritto proprio cosi'?
-- 
ciao, hal

 ciao, hal
Ciao, Mauro.

 Dove sbaglio?
E' un errore dell'api viewer.
Associate*d* con la D.
Ciao

 > postato è quella fornita con il VS6 (tool API text viewer).

Newsgroup: it.comp.lang.visual-basic
Titolo: errori sull'Update nelle transazioni

salve
questa e' la mia situazione
VB6 + ADO 2.7 + db Access 2000
un unico db condiviso in rete (su ogni client e' montata una unita'
con quello share di rete)
apri la connessione al db in questa maniera
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security
Info=True;Data Source=" & sNomeDatabase & ";Mode=Read|Write;Jet
OLEDB:Database Password=pippo"
CONN.CursorLocation = adUseClient
CONN.ConnectionString = strConn
CONN.ConnectionTimeout = 30
 
CONN.Open
apro il recordset in questa maniera
  With adoSource
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockPessimistic
    .Open "SELECT * FROM Anagrafica WHERE IdAnagrafica= -1;", CONN
 
  End With
poi faccio
conn.begintrans
adosource.addnew
alla pressione di salva fa:
adosource.update
conn.committrans
alla pressione di annulla fa:
conn.rollback
facendo partire 2 client in contemporanea il 2° mi da' l'errore "Could
not Update; Currently Locked"
questo l'MSDN dice che sia un bug infatti il Q331594 spiega un work
around che dovrebbe risolvere l'errore ma non lo risolve
ora mi chiedo sbaglio qualcosa io? teoricamente uno potrebbe aprire 2
transazioni concorrenti no?
grazie mille

 not Update; Currently Locked"
perchè proprio il lock pessimistico?
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

perchè proprio il lock pessimistico?
indipendentemente dal tipo di lock mi da' lo stesso errore
sull'articolo della microsoft c'era scritto di provare quello

 sull'articolo della microsoft c'era scritto di provare quello
mah... a parte che l'articolo non parla di transazioni concorrenti ma di
modifiche multiple ad un record all'interno della stessa transazione...
in realtà non conosco molto le transazioni...
però, così a occhio, cercherei di tenerle "aperte" il meno possibile. non
puoi fare l'addnew quando l'utente clicca su "salva"?
se hai necessità di aggiungere più di un record alla volta, suggerirei di
passare invece ai record disconnessi e agli aggiornamenti batch


passare invece ai record disconnessi e agli aggiornamenti batch
si ho fatto cosi' grazie ado + aggiornamento in batch
pero' sorge un ulteriore problema io ho un record con +  sotto record
"collegati" tramite contatore nella tab principale
io uso i contatori di access e loro restituiscono il valore solo dopo
che faccio l'update o l'updatebach quindi come faccio a inserire un
record correlato?
grazie ancora
Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO.NET] Creazione DB?

Ciao a tutti.
Mi sto documentando sulla piattaforma .NET, leggendo un libro ho letto
che :
[CUT]
"Microsoft Visual Basic .NET non č progettatoper la creazione di nuovi
database, ma per la visualizzazione, l'analisi e la manipolazione delle
informazioni in database esistenti."
[CUT]
Con ADO potevo manipolare le tabelle, aggiungere campi, modificare
indici,
etc.
con 
ADO.NET
 tutto questo č possibile?
grazie a tutti
Stefano
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

con 
ADO.NET
 tutto questo è possibile?
Per non dover imparare tutte le volte a costruire la ruota, la cosa
piu' semplice e', quale che sia la libreria usata, mandare la stringa
sql che comanda le azioni da fare.
-- 
ciao, a

 sql che comanda le azioni da fare.
il che equivale, più o meno, ad accendere il fuoco con la pietra focaia.
;-))))))
Salutoni
Sergio

;-))))))
ROTFL,
sempre meglio che prendere la Ferrari per andare a comprare il
giornale dall' edicola sotto casa ;-)
-- 
ciao, hal


Noto un certo sarcasmo nelle vostre affermazioni
:o)))
stefano

 giornale dall' edicola sotto casa ;-)
Assolutamente vero.
Al di là degli scherzi, attualmente mi troverei (forse) nella condizione di
sviluppare una applicazione nella quale è presente la necessità di gestire
una limitata quantità di dati. Non pochissimi, ma sicuramente inferiori al
migliaio di record complessivi, distribuiti su più tabelle.
Il pensiero di dover installare le librerie per permettere la gestione dei
dati mi sta facendo propendere per una architettura "vecchia", basata su
file di testo......
Anche perchè, adesso come adesso, per utilizzare access bisogna installare
mdac + jet, con il jet che deve essere quello apposito per la versione di
windows installata. Così, a occhio, equivale a dire che l'utente non potrà
mai arrangiarsi a installare il programma >:-(
Salutoni
Sergio

Noto un certo sarcasmo nelle vostre affermazioni
Perche' mai? :-P
-- 
ciao, hal.vbi

 etc.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvssamp/ht
ml/vb_VBSamplesTop.asp
Nel sito della Microsoft è possibile il download di 101 esempi in 
VB.NET
 tra
cui uno tratta di costruire db , Table , View , ecc.
Non ho avuto il tempo di analizzarlo.
giuseppeD


Grazie infinite.
Stefano

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

devo visualizzare delle icone.
Mi è stato detto che devo creare una image list e poi associarla ad una
listwiev.
una volta fatto mi è stato detto che devo fare tanti add item quante icone
devo aggiungere dove li devo fare?
ma poi ho visto che la listwiev no ha il metodo additem
come devo fare?
aiutatemi non ho msdn e devp concludere il progetto
grazie
--------------------------------
Inviato via 
http://usenet.libero.it

 aiutatemi non ho msdn e devp concludere il progetto
fatto.
ciao
fabio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie
Nulla,
Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 vs ACCESS 2000, perchè litigano ?

qualcuno sa dirmi se ci sono dei problemi di incompatibilità tra i due ?
GRAZIE TANTE

 qualcuno sa dirmi se ci sono dei problemi di incompatibilità tra i due ?
No: io ho installato entrambi (Win2k) e vivono in perfetto accordo.
Ciao,
Carlo.

 wrote in message
news:9sf1jn$t6p$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:9sg6bq$t7n$1...@newsreader.mailgate.org...


Il problema dovrebbe risolversi con il Service Pack 4 (credo)

 Il problema dovrebbe risolversi con il Service Pack 4 (credo)
Il SP non c'entra niente.
Basta usare il Jet.4 anzichč Jet.3.6
Ciao

grazie, ho "forse" risolto il problema, ora ne ho un altro, vorrei associare
una matrice di caselle di testo ad una tabella, ho provato in questo modo:
Private Sub Form_Load()
Dim rs As Recordset
Dim cn As Connection
  Set cn = New Connection
  cn.CursorLocation = adUseClient
  cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\applicazione\db.mdb;"
  Set rs = New Recordset
rs.Open "tblGenerale", cn, adOpenStatic, adLockOptimistic
Dim elemento As TextBox
  'Associa le caselle di testo al fornitore di dati
  For Each elemento In Me.casellaTXT
    Set elemento.DataSource = rs
  Next
End Sub
ma il form rimane vuoto, come posso fare, aiuto !!!

 End Sub
Hem... elemento.DataField = "nomecampo"?
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire un file trascinandolo sulla finestra

Come posso far sě che trascinando l'icona di un file, per esempio dal
desktop o da gestione risorse, sulla finestra del mio programma (NON sulla
sua icona!), il file venga aperto dal mio programma?
Grazie a tutti per l'attenzione e BUONE FESTE !

Come posso far sì che trascinando l'icona di un file, per esempio dal



------------
Francesco Beccari
frankb!
interplanet.it
(sostituire ! con @ per l'indirizzo corretto)
(change ! with @ for my correct email address)
Spam? No, thanks!

Come posso far sì che trascinando l'icona di un file, per esempio dal


Ringrazio tutti voi che mi avete risposto, ma gli esempi riportati
funzionano in VB5, e io possiedo VB4, in cui non esiste l'evento
OLE_DragDrop.
Qualcuno sa come ottenere ciň che volevo in VB4?
Newsgroup: it.comp.lang.visual-basic
Titolo: Tabulati AZIENDALI E PRIVATI

Mi chiamo Giuseppe, e sono un professionista nel campo delle
Telecomunicazioni.
Attualmente sto commercializzando un lista di nominativi di utenti
RESIDENZIALI ed AZIENDALI
La suddetta lista contiene circa 200.000 (duecentomila) nominativi di TUTTA
NAPOLI ed è in formato excel con Nome, Cognome, indirizzo, CAP e numero di
telefono FISSO.
I tabulati sono delle seguenti città: Napoli, Salerno, Casandrino, Cardito, 
Casoria, Frattamaggiore, Grumo nevano e Somma Vesuviana.
La lista ha un costo superiore ai 1000 euro, ma io la vendo a 600 euro iva
inclusa.
OTTIMO PER CALL-CENTER!!!!!!!
Se Vi può interessare, anche per ulteriori informazioi, sono a Vostra
completa disposizione.
Cordiali Saluti 


NNTP-Posting-Host: 39.4.50.171
X-Complaints-To: 
newsm...@fastweb.it
X-Trace: 
tornado.fastwebnet.it
 1182534452 39.4.50.171 (Fri, 22 Jun 2007 19:47:32 CEST)
****************
Fastweb: 
ab...@fastweb.it
Garante privacy: 
gar...@garanteprivacy.it
Guardia di finanza: 
u...@gdf.it
Newsgroup: it.news.net-abuse (tanto per gradire)
Bye, G. 

Paperino wrote:
Mai fare incazzare un papero! :)
-- 
Greg

Newsgroup: it.comp.lang.visual-basic
Titolo: serial number

I don't know how to get the serial number of a floppy, a hard disk, CD-Rom
..... with visual basic

...


I use this method with API function:
Bye
Declare Function GetVolumeInformation& Lib "kernel32" Alias _
"GetVolumeInformationA" ( _
ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long)
Function Get_Info() As String
Dim vol_str As String * 20
Dim Serial As Long
Dim compo As Long
Dim syst As String * 20
Dim filesy As Long
Dim cur_dir As String
Dim other As Long
cur_dir = Left(App.Path, 3)
Call GetVolumeInformation( _
cur_dir, _
vol_str, _
20, _
Serial, _
compo, _
other, _
syst, _
filesy)
Get_Info = Serial
End Function


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

E' da pochissimo che uso VB e mi sono subito fermata al primo ostacolo.
Dovrei mettere nel form una specie di planing di un albergo, con le date in
alto e vari numeri a lato.
Diciamo un qualcosa di simile a quello qua sotto:
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ovviamente ogni "x" o gruppo di "x" dovrebbe essere clickabile.
E fattibile?
Sarà possibile rollarla con la rotellina del mouse?
Mi date una mano?
Grazie
Simona

questo è un programma, penso che tu debba pianificare alcune cose prima....
ciao e auguri....

alto e vari numeri a lato.
]zac[
Newsgroup: it.comp.lang.visual-basic
Titolo: DataArrival - Winsock

Il mio programma contatta dei siti con l'oggetto winsock.
Ricevo i dati (Private Sub wscHttp_DataArrival(ByVal bytesTotal As Long) con
il metodo get.
Il mio problema consiste nel fatto che quando mi si genera l'evento
DataArrival nel momento in cui ricevo i dati voglio cercare di stoppare
questo evento quando ad esempio mi scarica 5000 byte.
Io ho provato, quando supero i 5000 byte a chiudere la connessione e ad
impostarne una nuova solo che continua ad andarmi a finire in dataarrival
come se dovesse scaricarmi tutta la pagina per forza.
se potete aiutarmi
grazie e ciao.

 writes:
CV> DataArrival nel momento in cui ricevo i dati voglio cercare di stoppare
CV> questo evento quando ad esempio mi scarica 5000 byte.
CV> Io ho provato, quando supero i 5000 byte a chiudere la connessione
La chiusura di una connessione TCP/IP non è una cosa immediata, quindi
tra la  tua chiusura e  l'accettazione della stessa dal  server remoto
passa un tot di tempo e  di scambi di messaggi. Non ho controllato, ma
ho  idea che  quando la  chiusura avviene  realmente venga  sparato un
evento Close.
Fino a quello dovrebbero arrivarti i dati che erano per strada...
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per Common Dialog

Ciao,
ho un problema: quando cerco di inserire il Common Dialog ottengo un
messaggio di errore (Error 429) che mi dici che non il Registro
aggiornato per questa applicazione. Cosa devo fare per risolvere il
problema? Vi prego aiutatemi, ho iniziato a programmare in VB5 da
pochissimo!
Grazie
Vincenzo Serricchio

Vincenzo Serricchio

Newsgroup: it.comp.lang.visual-basic
Titolo: OCX per ZIP e UNZIP

Salve gente, mi sapete consigliare un OCX o DLL per fare gli ZIP e
UNZIPPARLI magari freeware ?
grazie a tutti.

UNZIPPARLI magari freeware ?
http://www.info-zip.org/
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema pacchetto istallazione!!!

Salve a tutti,
  e' da ieri che mi cimento a creare un pacchetto di istallazione per
un'applicazione sviluppata in VB6 Sp5 su W Xp Pro inglese.
Alla fine della configurazione (dopo aver impostato le cartelle di
destinazione de pacchetto, i file da portarsi dietro etc...) dopo aver
premuto il tasto FINE, il sistema crea il file Setup.lst, dopodiche'
scompare la maschera di istallazione e termina il tutto senza neanche
una segnalazione d'errore con la sorpresa che all'interno della
cartella di istallazione non c'e' nulla!!! Qualcuno di voi ha gia'
avuto un problema di questo genere?
Grazie a tutti coloro che potranno aiutarmi.

 ha scritto

controlla il percorso. c'e' caso sia non dove pensi tu.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] setup: il file ???.reg non e' un file del registro di configurazione valido

Stavo ricreando un pacchetto di installazione di un programma perche' 
volevo aggiungere un file.
In "Creazione guidata pacchetti di installazione" ho selezionato il 
pacchetto creato qualche settimana fa.
Il file e' un .reg che ho appena esportato usando regedit.
Quando "Creazione guidata pacchetti di installazione" arriva al termine 
della configurazione e premo il tasto Fine appare il seguente messaggio:
Il file 'c:\programmi\...\lettore.reg' non e' un file del registro di 
configurazione valido
Premendo Ok appare un msgbox "Elaborazione in corso" "Scrittura del file 
setup.lst in corso ..." che dopo 10 minuti di attesa ho deciso di chiudere.
Il file .reg e' il seguente:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\nomeprogramma]
[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\nomeprogramma\setup]
"prefix"="~"
"suffix"="|"
"ritardo"="0"
Cosa c'e' che non va?
grazie
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 
forse la versione... 
l'hai fatto con xp? 
e lo vuoi importare su?
-- 
------------------------
KillerBoy
kill...@pippo.it
-------------------------
Inviato da 
www.mynewsgate.net

 
w2k sp4
vb6 sp5
Ho provato anche a deselezionare il file .reg ma l'errore appare lo stesso.
ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio variabile a CrystalReport ver 9

Ciao a tutti !!
Sono alle prese con Crystal Report 9 , ho un report che prende i valori da
un DataEnvironment , ma devo fare in modo che visualizzi solo i record che
nel campo prog abbiano il valore della variabile pippo  come faccio ?????
ho trovato questo esempio in rete
CRXReport.FormulaFields.Item(1).text = "'Report Title'"
'If we use the value of the Textbox
Text1.Text = "This is a Title"
CRXReport.FormulaFields.Item(1).text = chr(34) & Text1.text & chr(34)
End Sub
non capendo il significato di  Item(1).text
ho pensato di modificarlo così  nel  Load del report
Dim pippo as integer
pippo= frm_rapporto.txtprog.text
NomeMioReport.Formulafields.Item(1).text=&pippo
ma non funziona !!
Se qualcuno  e' in grado di  aiutarmi ..... Ringrazio Anticipatamente !!!

> NomeMioReport.Formulafields.Item(1).text=&pippo
Prova così:
NomeMioReport.Formulafields.Item(1).text="Nome formula='" & valore & "'"
Io di solito uso l'ocx e scrivo così:
CR1.Formulas(1) = "Bolla= '" & Text14.Text & "'"
Ciao Gab

 Io di solito uso l'ocx e scrivo cosě:



Prova magari con item(0), oppure direttamente con la formula mia (la
seconda)
Ciao Gab
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP verifica credit card

Scusate il disturbo ma sto cercando un'applicazione Vb che mi faccia la
verifica delle carte di credito Nessuno č in grado di aiutarmi?????
Grazie in anticipo
Adriano Sivori
Siv...@tin.ir

verifica delle carte di credito Nessuno è in grado di aiutarmi?????
Se non ricordo male installando Microsoft Wallet ci si ritrova un OCX
utilizzabile per lo scopo.
Di + nin zo'.
Ciao
-
MIX (VB5SP3)
post...@yahoo.com
50 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

verifica delle carte di credito Nessuno è in grado di aiutarmi?????

Newsgroup: it.comp.lang.visual-basic
Titolo: Input

Salve a tutti,
                 è da un po che cerco di capire come mettere in una
variabile il contenuto di un file aprendolo con il comando open ma ho capito
che nn potevo mettere il contenuto di un file intero in una varibaile e ho
scritto il seguente prog:
Private Sub Command1_Click()
a = 0
Open NomeFileFor input As #1
Do
Input #1, Data
On Error GoTo GestioneErrori
Text1.Text = Text1.Text & vbCrLf & Data
Loop Until a = 1
GestioneErrori:
If Err.Number = 62 Then a = 1
Close #1
End Sub
il prob è che nella textbox nn compare il contenuto preciso del file, da
quello che ho capito quando vado a leggere da un file con il comando input
ferma il cursore ad ogni "invio" e ad ogni virgola, qualcuno mi sa dare
un'aiuto per risolvere il prob?

 ha scritto nel messaggio
news:a6e2ei$o95$1...@newsreader.mailgate.org...


 scritto il seguente prog:
Doppia risposta :-)
Per mettere tutto il contenuto di un file in una stringa, e questa in una textbox,
puoi usare questo codice:
***********************
Private Sub Command1_Click()
    dim TestoDaFile as string
    dim FileLibero as integer
    filelibero = freefile
    open "<nome del file da aprire>" for input as #filelibero
    TestoDaFile = Input(LOF(filelibero),filelibero)
    close filelibero
    Text1 = TestoDaFile
end sub
***********************
Per correggere il tuo, invece, potresti usare "Line Input" anzichè input,
e un Do While not eof(n) al posto di usare la gestione errori.
Un'altra cosa: invede di aggiungere ripetutamente testo ad una textbox,
carica tutto il file in una stringa e alla fine mettilo nella textbox, è molto più veloce.
Rifacciamo:
***********************
Private Sub Command1_Click()
    dim TestoDaFile as string
    dim strTemp as string
    dim FileLibero as integer
    filelibero = freefile
    open "<nome del file da aprire>" for input as #filelibero
    Do While not eof(filelibero)
    line input #filelibero, strTemp
    testodafile= testodafile & vbcrlf & strtemp
    loop
    close filelibero
    Text1 = TestoDaFile
 End Sub
***********************
Il primo sistema comunque è sicuramente più efficiente.
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

Diciamo che alla fine mi servirà per creare una specie di ftp usando i
winsock, ma per il mom mi interessa la visualizzazione. Premettendo che nn
ho l'insieme msdn, le uniche cose che ho capito sono LOF e EOF perkè le uso
in TurboPascal, ho provato ad usare il codice che hai scritto  omettendo
"cdfile.filename" visto che nn so cosa sia una commondialog, quando avvio il
prog mi da il seguente errore , "La variabile utillza un tipo di automazione
nn supportato in Visual basic" error di run-time '458'    segnalandomi
'FileName'.
Non volendo abusare della tua disponibilità, percaso consci qualche sito e/o
guida/manuale da cui posso trarne questo tipo di informazioni?
               Grazie Mille

Beh nn so come ringraziare te e francesco
Grazie mille.
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare Form su A4

Salve, vorrei poter stampare form su fogli A4 riempiendoli.
Ho notato che usando PRINTFORM questo non mi stampa il form su tutto il
foglio A4 ma solo su una parte.
C'è qualche modo per risolvere questo problema?

[*dylandog* = 
fga...@virgilio.it
 in
news:2A8pb.81999$
e5.30...@news1.tin.it
] ha scritto:

http://makeashorterlink.com/?X54225A66


Ma è lunghissimo :(
Uff mi basterebbe solo che ci fosse un zoom sulla stampa

 Uff mi basterebbe solo che ci fosse un zoom sulla stampa
Della serie:
Che ore sono?
C'è il sole.

 migliore vita eterna.
Nono.. io non mi fido di te che entri nella  mia macchina...
sisi... di piuttosto che vuoi cercare nel mio archivio porno.. altrochè...
i punti per la vita eterna si... ^__^
*wee si skerza eh*

 Nono.. io non mi fido di te che entri nella  mia macchina...
rileggendo questa parte del mio ultimo post mi viene da chiedermi se soffro
di personalità multiple..
non sono quello che si definisce dylandog.
mi sono solo immedesimato in lui nella risposta.
vabbè al + presto mi creo quel programmino che dopo le 2 di mattina mi
impedisce di digitare a casaccio sulla tastiera ^__^

Grazie ma ho trovato un controllo che mi risolve il problema..praticamente
quello che cercavo.


 Mi sa che il programmino se lo utilizzi tu ti conviene farlo funzionare 24
ore su 24

 problema..praticamente quello che cercavo.
Fenomenale. Tre post e tre cose diverse.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Come far creare un collegamento a w98

La mia domanda è la seguente: quale istruzione devo utilizzare per far
creare a Windows98 un collegamento nella cartella "esecuzione automatica"?
Se non è questo il metodo giusto potreste indicarmi la "retta via"?
Vi ringrazio anticapamente.
Il mio e-mail è :      
super...@flashnet.it

Eccoti servito...
Hai bisogno della libreria STKIT432.DLL di VB4 (quella usata dal programma di Setup)
Public Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwndOwner As Long, ByVal nFolder As Long, ByRef
ppidl As Long) As Long
Public Declare Function SHGetPathFromIDListA Lib "shell32" (ByVal pidl As Long, ByRef pszPath As Byte) As Long
Public Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As
String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Public GetPathDirectory As String
Function DirStartup()
 
    Dim lngPuntPIDL As Long
    Dim strPath(0 To 260) As Byte
    Dim strTemp As String
    Dim lngBoh As Long
    Dim lngTemp As Long
    lngTemp = SHGetSpecialFolderLocation(vbNull, 7, lngPuntPIDL)
    lngTemp = SHGetPathFromIDListA(lngPuntPIDL, strPath(0))
    If lngTemp <> 0 Then
        lngTemp = 0
        strTemp = ""
        While strPath(lngTemp) <> 0
            strTemp = strTemp & Chr(strPath(lngTemp))
            lngTemp = lngTemp + 1
        Wend
        GetPathDirectory = strTemp
    Else
        GetPathDirectory = ""
    End If
 
    aaa = ""
    bbb = ""
    i = Len(GetPathDirectory)
 
    Do
        aaa = Mid(GetPathDirectory, i, 1)
        If aaa = "\" Then Exit Do
        bbb = Mid(GetPathDirectory, i, Len(GetPathDirectory))
        i = i - 1
    Loop Until i = 1
 
    DirStartup = bbb
 
End Function
iLong = fCreateShellLink(DirStartup, "MioProgramma", App.Path & "\" & App.EXEName & ".exe", "")
Se vuoi, puoi sostituire alla libreria di VB4, quella di VB5: VB5STKIT.DLL, oppure quella di VB6, che però non so come
si chiama.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)