mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Recordset disconnesso come datasource

Se inserisco in un form un controllo dbgrid o datagrid e imposto il
datasource su un recordset capita qualcosa di strano.
In pratica agisco così
Dim cn as New Adodb.Connection, rs as New Adodb.Recordset
...
(apro connessione e recordset)
....
set datagrid1.datasource=rs
Se a questo punto esco dalla Sub chiudendo recordset e connessione mi si
reimposta anche la datagrid e non viene visualizzato nulla.
Se esco senza chiudere recordset e connessione visualizzo la datagrid in
modo disconnesso.
Si verifica però un fenomeno poco piacevole: arrivato alla fine delle righe
(rows) il puntatore si riposiziona automaticamente sulla prima riga come se
il bookmark si reimpostasse a 0.
Avete qualche suggerimento per evitare di lasciare aperto recordset e
connessione e, cosa più importante, per evitare che il puntatore della
datagrid si riposizioni sul primo record al superamento dell'ultimo?
Grazie in anticipo a quanti risponderanno
Fabio

reimposta anche la datagrid e non viene visualizzato nulla.
Probabilmente il recordset esce dallo scope: prova a dichiararlo a
livello di Form.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzare ProgressBar

Ciao a tutti
vorrei utilizzare una progressbar che mi scandisca il trascorrere
dell'esecuzione di una routine
o di un processo come ad esempio la copia di un file da hd a floppy e
similari,tuttavia gli esempi
che ho trovato non mi chiariscono il criterio secondo cui calcolare questi
parametri.
Come farei a sapere a che punto è la copia di un file?
Per quello che riguarda l'esecuzione della routine,credo che potrei mettere
dei valori che incrementano lo stato
proprio ...lungo il percorso (1) ma per la prima non ho soluzione.
Vi sarei grato se mi deste qualche tip...
Cordialità
Johnny

 Come farei a sapere a che punto è la copia di un file?
Dipende dall'istruzione che usi. Se per esempio usi la FileCopy, non puoi
perchè non restituisce eventi.
Se invece ti fai una routine di copia che procede "a blocchi", ti basta
farti restituire, dopo "n" blocchi, il numero totale dei bytes copiati.
Questo, raffrontato con la lunghezza del file in copia, ti permette di avere
tutto per poter settare la barra di progressione.

 ha scritto nel messaggio
news:5e2C9.10679$Ka3.3...@twister1.libero.it...


 copiato un file a blocchi! Puoi dirmi pure come si fa?
Devi usare la Open For Binary
Riempire (di un crt qualsiasi, anche Chr(0)) una stringa di lunghezza pari
alla dimensione che vuoi dare al blocco e leggere (vedi Get). Attenzione in
caso di EOF che i bytes validi sono quelli pari alla lunghezza della stringa
restituita.
Fai qualche prova e pubblica il codice che crei, poi ci guardiamo.

...E se almeno per il momento evitassi di usare la progress bar??
:-)))))))))))))))))))))))))))

 :-)))))))))))))))))))))))))))
Ecco, bravo. ;-)
Rammenta che la FileCopy presume che il file in fase di copia non deve essre
in uso.

...E' inutile amico mio...ne hai sempre per tutti...
Dovrei chiamarti padrino...
mah...si...in effetti...
GRAZIE PADRINO ;-))
Johnny
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto apertuta file

Come posso fare in modo che in un mio programma l'apertura di un file possa
essere effettuata attraverso una finestra del tipo apri/salva din windows?
Scusate per la domanda stupida e banale.
Grazie in anticipo a tutti coloro che vorranno aiutarmi.
Adriano

Cosa intendi per finestra di tipo apri-salva di Windows?


Devi usare il Common Dialog fornito col VB (clicca col tasto destro sulla
barra degli strumenti e scegli la voce Componenti dal menu che si sprirą.
Nella finestra che si apre, selezione Microsoft Common Dialog).
Per vedere come si usa guarda la guida in linea.

essere effettuata attraverso una finestra del tipo apri/salva din windows?
Devi includere nel tuo progetto il componente Microsoft Common Dialog Control;
a questo punto aggiungi una istanza del controllo sulla tua form e sei pronto ad
usarlo.
Per saperne di piu' cerca sulla guida 'Common Dialog'; vedrai che c'e' una
pagina di help per ciascun dialog che e' possibile richiamare (Apri, Salva,
Seleziona carattere, stampanti ecc...)
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

 Adriano

Scusate per la domanda stupida e banale.
Devi usare l'ocx Microsoft_CommonDialog che propone mi pare 5
finestre:
quelle che mi ricordo sono:
1. Tip Carattere
2. Apri File
3. Salva File
Ce ne sono mi pare ancora 2 ma non ricordo quali... le finestre si
richiamano con cmmCommon.action=1,2,3 ecc.
Non è semplicissimo da usare cmq ti faccio i miei auguri...
SDe ti serve una mano io lo ho gia' usato e qualcosa ne so gia'... Ti
posso aiutare per quello che so...
Ciauz
Ciauz
%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#
email?    
un...@freemail.it
ICQ?      43191559
FTP?      
ftp.fortunecity.com
 (mail me for UI & pass)
IRC?      always on #atlantis
Ti odiero', se posso, se no, t'amero contro voglia...
%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#
Newsgroup: it.comp.lang.visual-basic
Titolo: Fuori elenco  Record

Ciao a tutti,
ho un form dove visualizzo dei record, ho due cmd per scorrere i record,
per terminare lo scorrimento nel pulsante successivo ho inserito
If Not Data1.Recordset.EOF Then
    Data1.Recordset.MoveNext
Else
    MsgBox "Sei all'ultimo record.", vbCritical, "Attenzione"
End If
'    On Error Resume Next
    txtFields(0).SetFocus
Ma esce lostesso dal termine del file, dove sbaglio?
E cosě per il cmd precedente
If Not Data1.Recordset.BOF Then
        Data1.Recordset.MovePrevious
    Else
    MsgBox "Sei al primo record.", vbCritical, "Attenzione"
End If
    On Error Resume Next
   txtFields(0).SetFocus
Grazie per eventuale aiuto.
birra

 Ma esce lostesso dal termine del file, dove sbaglio?
che l'eof è vero quando sei già oltre la fine della tabella, non quando sei
all'ultimo record
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo


Quindi cosa mi potresti consigliare?
Non conosco altri modi, purtroppo....
Ciao
Birra

 ha scritto nel messaggio
news:He__c.206128$OR2.9...@news3.tin.it...

Se non erro la situazione BOF ed EOF non coincidono rispettivamente al primo
record ed all'ultimo, ma sono situazioni particolari. Prova cosi.
If Not Data1.Recordset.EOF Then
    Data1.Recordset.MoveNext
Else
    MsgBox "Sei all'ultimo record.", vbCritical, "Attenzione"
    Dati1.Recordset.MoveLast
End If
If Not Data1.Recordset.BOF Then
        Data1.Recordset.MovePrevious
Else
    MsgBox "Sei al primo record.", vbCritical, "Attenzione"
    Dati1.Recordset.MoveFirst
End If
Ciao.

 Non conosco altri modi, purtroppo....
private sub Record_Successivo()
    if Data1.Recordset.EOF then exit sub
    Data1.Recordset.MoveNext
    If Data1.Recordset.EOF Then
        msgbox "Ultimo Record già raggiunto!"
        exit sub
    end if
end sub
private sub Record_Precedente()
    if Data1.Recordset.BOF then exit sub
    Data1.Recordset.MovePrevious
    if Data1.Recordset.BOF then
        msgbox "Primo record già raggiunto!"
        exit sub
    end if
end sub
CIAO

Solo per ringraziare!
Naturalmente mi avete fatto risolvere....
Ciao
Birra
Newsgroup: it.comp.lang.visual-basic
Titolo: [SQL] Sempre una maledetta QUERY!!!

>>    AND Data BETWEEN #01/01/2000# AND #9/15/2002#
non ci sono piu' records...
la cosa strana e' che aumentando l'anno, i records ci sono...ma come cacchio
funziona il campo data?????
Grazie per il supporto :(
See Ya
--
---
Per le risposte private rottate la mia email e togliete quello che
immaginate ^_^
See Ya

 funziona il campo data?????
Guarda è un gran casino, anche a me a volte mi tocca sudare ancora per delle
boiatine del genere.
datainizio e datafine sono due variabili di tipo date
strQuery = "SELECT CODICEDIP , NOME, COGNOME, MOVIMENTI.CODICE AS 'CODIMOV',
TIPOMOV, DATA, ORA, DESCRIZIONE  FROM QUERYMOV WHERE DATA between " &
CLng((DataInizio)) & " and " & CLng((DataFine)) & " ORDER BY
DIPENDENTI.CODICE, DATA, ORA "
Questa funziona bene,se ti può essere d'aiuto.
Il campo DATA sul DB è un "data in cifre".
Inoltre tieni presente che, ad esempio in access, i campi data sono di vario
tipo, data incifre, data estesa etc...
Ho notato che a volte hanno comportamenti differenti

strQuery = "SELECT CODICEDIP , NOME, COGNOME, MOVIMENTI.CODICE AS


>>
Io di solito scrivo:
AND datevalue(data)>=#01/01/2000# AND datevalue(data)<=#9/15/2002#
e funziona! (Immagino che funzioni anche con "between ... and", ma ormai 
mi sono abituato cosi' :-) La differenza importante la fa invece la 
funzione datevalue!!!)
ciao
		maxx
P.S. Controlla anche che non sia stata inserita la data sbagliata, 9 
dicembre invece del 12 settembre ...
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Non funziona :(
č un po' vago non credi?
Cosa fa di preciso, perchč da me funziona perfettmente e vorrei
capire....
Newsgroup: it.comp.lang.visual-basic
Titolo: subito Visual-basic.net

Si puo' (iniziando da "0") cominciare a studiare
VB.net senza avere le basi di Visual basic 6 ??
O sarebbe forse meglio approcciarsi alla
programmazione con il "C", per poi passare
al VB.net ??

 ha scritto nel messaggio
news:6536c.74195$Kc3.2...@twister2.libero.it...

VB.NET
 da subito
Ave
giuseppeD

 al VB.net ??
Direi che non ti conviene, a questo punto usa C#
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog

 Direi che non ti conviene, a questo punto usa C#
perchè?
ciao,
Licantrop0

> perchč?
Perche' visto che optavi per imparare prima il C , C# ha una sintassi C
based quindi faresti molto prima ad apprenderlo che 
VB.NET
 e le
potenzialita' dei linguaggi sono le stesse.


 potenzialita' dei linguaggi sono le stesse.
io sono passato da vb6 al 
vb.net
  e a volte faccio errori di abitudine che
mi porto dietro dal 6, ho studiato un pochetto anche il C# e le cose mi
rimangono + semplici perche' non compio + errori di abitudini vecchie !
Conta che nel .Net il linguaggio usato e' secondario, quindi o C# o VbNet
sono quasi la stessa cosa, molta documentazione si trova in C#, ma ammetto
che la sintassi vb e' molto + intuitiva (specie nei costrutti e nel nn dover
usare le parentesi e i ; ^_^
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 aspetti..)
VB6 l'ho visto un paio di volte, ma a parte le ovvie migliorie mi sembra
concettualmente uguale a VB4. A sentire voi mi sembra che VB.net sia una
specie di "pianeta alieno".
Per che cosa sono così differenti?
D

 ha scritto nel messaggio
news:eLb6c.1639$xu6...@tornado.fastwebnet.it...

http://groups.google.it/groups?hl=it&lr=&ie=ISO-8859-1&q=vb.net%2Bvb6%2Bdiff
erenze&meta=group%3Dit.comp.lang.visual-basic
giuseppeD

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

Qualcuno puo inviarmi un esempio per modificare
e leggere dati da un database di access.......??
Grazie
nai...@tin.it

 e leggere dati da un database di access.......??
Dim dbPippo As Database
Dim tbPluto As Recordset
Set dbPippo = OpenDatabase("C:\Cartella\Pippo.mdb")
Set tbPluto = dbPippo.OpenRecordset("Pluto")
tbPluto.MoveFirst
Do Until tbPluto.EOF
    MsgBox(tbPluto!Campo1 & " " & tbPluto!Campo2)
    tbPluto.MoveNext
Loop
tbPluto.AddNew
tbPluto!Campo1 = "Paolino"
tbPluto!Campo2 = "Paperino"
tbPluto.Update
dbPippo.Close
--
Er Roscio.

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

Non c'e' possibilita' di modificare il font della MsgBox?
Tempo fa, ma probabilmente in access 2, avevo usato mi sembra la @ per
almeno mettere parte del testo in grassetto. In VB6 non funziona ne trovo
piu' la documentazioen al riguardo.
Grazie
--
Ciao,
      Peppo
 
ICQ    : UIN 5709387

 ha scritto nel messaggio
news:m6s4is48r7dcbpnrl...@4ax.com...

Puoi sempre crearti delle msgbox personalizzate...

...


 ha scritto nel messaggio
news:8g0m7a$r9g$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: conversione spazi in reale

ciao a tutti....
scusate la stranezza della domanda...ma sono nelle curve...
dovrei convertire uno spazio numerico in uno spazio reale...
mi spiego meglio
ho due punti A e B distanti uno spazio ( spazio=" ")
sapendo che posso spostare B da A di una misura variabile che puo essere
rappresentata da un numero decimale o intero, come faccio a convertire
questo valore in spazi?
Devo rappresentare questa distanza in stampa, ma non trovo il modo di
convertire il numero...
se
A <-- 5 mm --> B ....spazio rimanenete da utilizzare 3.25 mm
diventa
A <-- 8,25 --> B
ma in spazi normali come faccio?
Grazie anticipatamente a chi mi sapra aiutare
Emanuele


Se ho capito il problema devi utilizzare una scala.
Es.
	1 spazio = 1 mm
In questo modo se devi rappresentare la distanza di 10 mm basta
inserire 10 spazi.
La formula sarebbe:
 
	NumeroSpazi = scala * distanza
Dove scala rappresenta proprio la scala che hai impostato (nel nostro
caso 1 spazio/mm)
Il modo migliore per improntare una scala, secondo me, è sapere
innanzitutto qual è la distanza massima da rappresentare e quanti
spazi (" ") hai a disposizione nella pagina.
Se ad esempio devi rappresentare al massimo la dimensione di 150 mm e
hai a disposizione 30 spazi, ovviamente la tua scala sara 
 
		0.2 spazi/mm
In modo che la tua dimensione massima ancora entra nel fogiio.
Corregimi se non ho capito il problema.
ciao.
 

ciao e grazie della risposta.
ci sei andato molto vicino , ma forse io ho presentato male il mio problema.
quello che devo fare e giustificare del testo in una riga.
ho fatto un programmino che deve stampare delle descrizioni per delle
videocassette,
e vorrei che le descrizioni sul report venissero giustificate, in modo da
non avere quelle bruttissime scalette al lato destro.
ho provato in diversi modi e questo e' quello che ho ricavato.....
imposto la scala in millimetri
posiziono il currentx e currenty
stabilisco il margine dell'etichetta
quindi calcolo l'area stampabile della riga  (diciamo 100 mm)
leggo la riga e conto gli spazi che trovo mentre la leggo
    controllo di non aver superato lo spazio
        in tal caso identifico l'ultimo spazio per tagliare l'ultima parola
e mandarla a capo             per intero
in questo modo mi ritrovo con degli spazi al fondo da distribuire fra quelli
esistenti per compensare e pareggiare la riga
e qui insorge il problema..come fare?
ho provato ad aumentare lo spazio fra le parole ma inutilemnte...
se puoi aiutarmi o darmi una idea


Ho inviato un pacchetto con qualcosa che dovrebbe fare al caso tuo.
Fammi sapere!
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: Icone...

Salve gente !!!
Siccome sono un pò pigro e non ho voglia di disegnarmi tutte le icone
per
i miei esperimenti, qualcono sa dove trovare qualche icona (*.ico) ???
Ciao e grazie, Niki.
--
Posted from 
ro...@virtual.zia.ms.it
 [195.103.158.42]
via Mailgate.ORG Server - 
http://www.mailgate.org

i miei esperimenti, qualcono sa dove trovare qualche icona (*.ico) ???
Pò in realtà si scrive po' (con l'apostrofo)
Se fai una ricerca su internet ne trovi a migliardi.
Cerca anche qualche programmino free o share che ricavi le icone da dll e
exe così puoi usare tutte quelle standard di windows (io uso MicroAngelo ed
è carino)

...
->>Salve gente !!!
->>Siccome sono un pò pigro e non ho voglia di disegnarmi tutte le icone
->>per i miei esperimenti, qualcono sa dove trovare qualche icona (*.ico) ???
->Pò in realtà si scrive po' (con l'apostrofo)
->
->Se fai una ricerca su internet ne trovi a migliardi.
->
Magari migliardi no ma "miglioni" si 
Vincenzo

Pò in realtà si scrive po' (con l'apostrofo)
E lo sapete il perché?
perché non esiste po come parola ma poco e appunto l'apostrofo che
'abbrevia' infatti:
PO' sta per POCO
Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Rilevare il ridisegno di un oggetto

Salve
Vorrei modificare leggermente lo stile del checkbox per fare cio senza
crearmi un CB da zero velevo solo rilevare l'evento on paint del CB e
apportargli le modifiche che mi interessano (che poi sono minime)
e' possibile?
Io uso VB5 e il CB non ha un evento Paint
Come posso fare?
Grazie
--
Brayan Fix Kirys Solfory
E-Mail: 
Ki...@technologist.com
For Free Software go to: 
http://come.to/kiryssoft

Come posso fare?
Dovrebbe essere possibile (non ho mai provato) con le API SetWindowsHookEx()
e UnHookWindowsHookEx(), ma il loro utilizzo combinato con le api necessarie
per il ridisegno fanno sě che sarebbe piů semplice (e pulito) costruirti un
nuovo checkbox.
Non credo pero' che tutto il gioco ne valga la candela.
Pero' magari qualcuno conosce un metodo piů sbrigativo...
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6]Consiglio su struttura DB

Devo creare 10 tabelle di cui 5 sono a record fissi quindi solo in lettura 
del tipo (codici Istat, codici fiscali comunali e altro).
Altre 5 tabelle a record variabili in cui l'utente può aggiungere record 
quindi lettura e scrittura, tre di queste sono relazionate.
Secondo voi, è meglio un solo Db oppure visto che uso Access è meglio 
dividere le tabelle in due DB.
Carmelo



Meglio 1 DB sempre e comunque, altrimenti se arrivi a dover fare una join,
fra due DB diversi anche se access la fa fare, io lo sconsiglio.
Rilascerai poi tu degli script per aggiornare comuni e roba simile.

 dividere le tabelle in due DB.
...
Mi sono accorto di averti erroneamente mandato una mail pvt anziche' 
rispondere qui..
cmq, come dice anche Andrea, decisissimamente meglio un db solo.
p.s.
Scusa per la mail che ti ho inviato

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio news:19sfqv8p44edj.q...@40tude.net...

Come ho gia detto, 5 di queste tabelle le devo solo consultare.
Ma visto che ho letto che la capienza di un DB Access è limitata, non vorrei 
che in seguito all'incremento di record nelle altre 5 tabelle il DB 
arrivasse al limite della sopportazione. La tabella dei CF comunali ha oltre 
8000 record.
Comunque visto che il vostro consiglio è di fare un solo DB mi dite quali 
sono i vantaggi e gli svantaggi?
Carmelo 

 sono i vantaggi e gli svantaggi?
I vantaggi è che hai tutto sulla stessa struttura, backup e ripristini sono
fatti assieme, logiche di accesso anche, non rischi di avere cose "che
perdi di vista", e tutto è a portata di query.
Gli svantaggi nel tuo caso nessuno, se ho capito bene le problematiche. Se
il numero di record sono un problema, secondo me è giusto cambiare DB e non
mettersi ad avere i dati fuori mano.
Ah mi raccomando di storicizzare le variazioni di comuni e simili, perchè
dato che cambiano spesso (anche di regione a volte), devi avere i dati
reperebili ad ogni data.


Un nostro cliente sta lavorando con una vecchia versione del nostro 
programma di gestione del personale (in attesa di passare alla versione 
SQL) che ha un db access. Il cliente ha 1.700 dipendenti che timbrano di 
media 4 volte al giorno, quindi la tabella Timbrature cresce di circa 
6.800 record al giorno che moltiplicati per i giorni lavorativi fanno 
una cifra vicina ai 2 milioni di record all'anno... bè il db non ha mai 
avuto nessun problema!
Le prestazioni sono più che soddisfacenti tanto che questo cliente non 
vedeva il perchè della migrazione a SQL Server...
Ciao, Vincenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Evento quando cambia uno degli oggetti della Form

Ciao a tutti!
Ho una Form con una quindicina di OptionButton, TextBox e Label.
Posso ottenere un'evento unico quando cambia uno dei tanti oggetti?
Se sě, come?
Grazie!

 ha scritto nel messaggio
news:uBTG7.52059$sq5.2...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - Codici a barre (EAN13)

Tempo fà avevo scaricato (mi sembra dal sito comune) il
Code 39 che mi piaceva perchè può stampare anche le
lettere oltre ai numeri.
Poi però quando ho fatto le prove di lettura con la pistola
ho incontrato delle difficoltà insormontabili (fino a 5/6
caratteri tutto bene, oltre non riesce a leggere).
Ho quindi deciso di ripiegare sul EAN13 che viene letto
in modo ottimo.
Ho trovato sul sito comune un OCX di Giuseppe Giovanni Selge che tra l'altro
funziona anche bene.
Lo userò se non potrò fare diversamente.
Però mi piacerebbe poter completare il mio progetto
senza dover fare uso di nessun OCX.
Ho cercato con Google e scaricato un sacco di roba
senza risolvere.
Forse qualcuno può indicarmi dove trovare un sorgente
per la sola stampa di EAN13 ?
Grazie e saluti a tutti.
Sauro

 Sauro
Ciao, Vincenzo

 codici a barre.
Supponi Vincenzo di trovarti nella seguente situazione:
1) Ti sei sempre occupato solo di gestionali e non hai la minima idea di
come costruire un barcode
2) Hai anche altri problemi da risolvere per i quali nessuno
ti puņ aiutare.
3) Sai che altri hanno risolto il problema e fatto delle routine alcune
delle quali free da qualche parte.
Davvero tu ti impegneresti a fondo per crearti una procedura per conto tuo?
Va bč, cercherņ ancora.
Ciao, Sauro

 Non ho la minima idea di cosa sia ICLVB.
Non lo sai, ma ci sei. Acronimo di...
Vai sul sito comune e cerca meglio...
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/bcodesub.zip&ID=111
Io lo ho usato in parecchi programmi senza problemi.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 maxx
Corro a scaricare.
Cio Maxx e grazie mille.
Sauro

Newsgroup: it.comp.lang.visual-basic
Titolo: print di bitmap in VB5

Salve,
qualcuno sa dirmi dove posso trovare documentazione, OCX, o darmi una dritta
su come stampare una immagine  (bmp o gif o altro) da VB5 senza usare
PrintForm?
Vi ringrazio anticipatamente
gigi
e-mail: 
gigil...@iol.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: MoveNext....MoveLast???? AIUTO!

Ciao!
Ho inserito in una form DATA1 (collegato al file "mio_database.mdb") e
TEXT1. 
Ho settato le proprietà di Text1 come segue:
"Data Source" --> Data1 
"Data Field"  --> Mio_campo_da_visualizzare
ora, se utilizzo i tasti del controllo DATA1, posso visualizzare in TEXT1
la cella corrispondente a Mio_campo_da_visualizzare del record selezionato.
La mia domanda è questa.... Esiste un modo per selezionare il record che
desidero scrivendo alc istruzione?
Ad esempio, tramite un COMMAND1, posso posizionarmi sul record 10???
Mi fate qualche esempio per piacere??
Spero possiate aiutarmi xkè mi sono bloccato su qst cosa che può sembrare
anche banale :-\
Grazie mille!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Mi fate qualche esempio per piacere??
Allor ec cos tu devi far :
Aggiungi una text2 e un Command1
Command1_click()
    data1.recordset.movefirst
    data1.move val(text2.text-1)
end sub
abbandona prima possibile i controlli "boundati" (cioe' la text1 collegata
direttamente al Database , ti eviti un sacco di casini gestendolo tu da
codice , per esempio basta che a command1_click tu aggiungi alla fine :
text1.text = data1.recordset![Campodellatuatabella]
ciauz
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 ciauz
Mhm... ho fatto come mi ha indicato Gigio2k ma quando vado a premere
Command1 mi dà errore... mi dice "Error in loading DLL" e, facendo il
debug, mi evidenzia la parola "Recordset".... Da cosa dipende???
Aiutatemi :-\




 Aiutatemi :-\
Azz, quell'errore per me  e' strano ! Mai sentito in simili circostanze


Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] ShellExecute e Attachement

Ho letto un sacco di roba in rete per aprire il browser di posta predefinito 
con allegati usando ShellExecute ecc. ma nessun esempio funziona.
Solo uno funziona, usa FindWindow oltre a ShellExecute ma mi si impalla il 
computer.
Pare che "&Attach=" non funzioni con ShellExecute.
Vero o c'è un modo per farlo usando ShellExecute senza Mapi o altro.
Grazie Carmelo 

 Grazie Carmelo
afaik, vero.
ma non credo sia colpa della shellexecute.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare Query

Ciao a tutti...
ho un piccolo problema che spero possiate risolvermi...
non riesco ad associare ad un controllo data una query che creo al
momento da VB.
Supponiamo che io abbia un controllo data1... creo una query nel
database... poi voglio associare il controllo data1 alla query che ho
appena creato, e poi cancello la query...
Supponendo che la mia Query si chiamo "MyQury" ho provat a fare
qualche cosa del tipo:
data1.recordsource= "MyQuery"
ma non va...
Grazie e ciao!
P.S.: Sapete indicarmi qualche sito con faq e esempi sul VB e
manipolazione di database?
,      ,+''+, LOGiN
 '+,,+'ICQ: 8457530
---
Per rispondere eliminare le "X"
dall'indirizzo email.

...


Ciao.
Prova ad inserire SET, come ad es.
SET data1.recordsource= "MyQuery"
Fammi sapere se va.
Ciao.
matpascal



Se definisci meglio il problema forse ti si puo' dare una soluzione...
--
Roal Zanazzi
z...@iol.it

Se definisci meglio il problema forse ti si puo' dare una soluzione...
Grazie, ma ho risolto... pero' sono arrivato ad un altro problema...
piu' che problema penso sia una scelta di forma... uso vb5 e faccio
operazioni su un database access mediante la DAO library...
Ho visto che ad. es. per aggiungere un nuovo record posso usare AddNew
o farlo mediante comandi SQL...
Cosa e' meglio? Mi sembra che in SQL sia piu' veloce e meno incasinato
o sbaglio? 
Grazie e CiauZ!


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

Salve a tutti, è da un bel po' che non sbircio da queste parti infatti
quando ho visto i messaggi non scaricati e da leggere mi e' venuto un mezzo
infarto (21559).
Comunque...piano piano...
Ora il mio problema:
qualcuno di Voi sa se è possibile visualizzare la stringa contenuta nel
ToolTipText anche senza passarci sopra con il mouse??
Grazie a tutti.
Michele C.

 ToolTipText anche senza passarci sopra con il mouse??
metti un command su un form, poi
Private Sub Form_Click()
    MsgBox Command1.ToolTipText
End Sub
ciao, a.

 ha scritto nel messaggio
news:8oh9kj$35c$5...@nslave2.tin.it...


 qualcuno di Voi sa se è possibile visualizzare la stringa
contenuta nel ToolTipText anche senza passarci sopra con il
mouse??
Tipo:
    msgbox ctl.tooltiptext
?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Intercettare scroll su una Richtextbox

E' possibile ?
In pratica il mio problema � questo: immaginate una chat (anche se nel mio
caso non si tratta di questo, ma il comportamento � del tutto analogo).
Normalente si desidera che ci sia l'auto-scroll in modo che man mano che
arriva del testo questo sia sempre visibile nell'ultima riga.
Per fare questo ho adottato il suggerimento di Balena che mi serve anche per
accodare senza sfarfallio:
RTB.SelStart = Len(RTB)
RTB.SelText = stringa_da_accodare
Fin qua tutto bene!
Quando per� si scrolla in alto per rivedere del vecchio testo, se ne arriva
del nuovo il puntamento torna ovviamente in fondo.
Per risolvere ho bisogno di capire quando l'utente scrolla in alto: pensavo
di intercettare in qualche modo l'evento per poter "bloccare" la posizione
del testo, ma mantenendo l'accodamento del nuovo testo che nel frattempo
arriva.
Qualche suggerimento ?

 Qualche suggerimento ?
E' solo un'idea: subclass della RTB, cercando il messaggio,
cos� a memoria, EM_SCROLL.
Una guglata con le keyword subclass richtextbox em_scroll vb
potrebbe servire a qualcosa :-).
Bye, G. 

 cos� a memoria, EM_SCROLL.
In effetti gi� ieri pomeriggio ho googlato parecchio e mi sono imbattuto in
qualche esempio che utilizza il Subclassing, che sembra essere l'unica
soluzione per intercettare lo scroll, dato che non esiste (in VB6) un evento
del genere.
In rete ci sono una miriade di interventi su siti e forum vati che
sostanzialmente chiedono la stessa cosa (accodamento e sospensione
autoscroll quando l'utente scrolla indietro il testo) e girano attorno al
problema senza raggiungere il risultato. Forse non � cos� facile...
a parte questo, devo dire che il subclassing mi fa un po' paura, a causa di
esperienze passate (crash apparentemente inspiegabili dell'applicazione,
difficolt� di debug, comportamenti bizzarri..).
Far� dei test (tra l'altro devo prima scoprire come riuscire a sapere quando
il "thumb" � a fondo corsa) e valuter� il rapporto rischi/benefici.
Grazie per il suggerimento.

 Grazie per il suggerimento.
Beh, io ci ho provato :-).
[1] me compreso, eh :-(.
Ultimamente sto giusto riscrivendo qualche centinaio di righe di un
vecchio prog nato male proprio in quel senso, e che dovevo espandere.
E, cavolo, la differenza si vede. Ora il codice *si capisce* solo leggendolo 
:-).
[2] Anglofoni, aiuto... visual "cues" o "clues" ?
Mi pare di veder usare indifferentemente le due espressioni, ma
immagino che il significato possa essere diverso.
Bye, G. 

 Beh, io ci ho provato :-).
E io ti ringrazio!

 rappresentazione.
OK.
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Decompilare VB3

Ho perso il sorgente di un mio vecchio programma in VB3.
e l'exe caricato su win 95 mi da' errore (ho caricato tutto...)
qualcuno  mi può dare una mano...
mario nanni
mna...@gol.grosseto.it

...

Che errore ti da?
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

qualcuno  mi può dare una mano...
Prova qui: 
http://members.aol.com/vbdis/vbdem42e.zip
Ciao!
----
Sigi  (My Nickname)
Marco Sigismondi  (My Real Name)
sigi.o...@iol.it
  (My E-Mail)
11876249 (My ICQ #)
--
Sigi™ is a ® of SigiCorporation ltd.
© 1998, SigiProgram & SigiComputer
----

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

Come posso gestire o almeno visualizzare la cartella "Cronologia"
all'interno di VB5? Con un filelistbox nessun risultato.
Grazie in anticipo
Edoardo

...

#define CSIDL_PRINTHOOD                 0x001b
Chiavi?
WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderLocation(HWND hwndOwner,
int
nFolder, LPITEMIDLIST * ppidl);
Anche questa sarebbe da convertire.
Grazie 1000 per il tuo interessamento
Edoardo

Newsgroup: it.comp.lang.visual-basic
Titolo: acquisto VB

Devo comprare VB per applicazioni gestionali su DB (Access).
Non so se mi conviene cercare una licenza "usata" di VB5 Professional o
comprare il VB6 Prof.
Io uso VB5 senza problemi ma non so che fine farà con Win2000 e oltre.
Potete darmi qualche dritta?
Grazie

 wrote in message
news:8s3olr$68i$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: gestione Midi

Sono interessato a sviluppare un programma che permetta di suonare con la
tastiera del computer il sintetizzatore della scheda audio via MIDI.
Ho già tirato giù l'esempio sul sito comune mi è stato molto utilile ma
vorrei sapere quali sono i comandi da inviare alla scheda ovvero i codici
esadecimali.
Un Grazie in anticipo e CIAO


wrote:

http://www.google.com
Ricerca: midi hex codes
Il quinto link segnalato e':
http://debussy.music.ubc.ca/~courses/319/Notes/MidiCodes.html
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

Ancora meglio... 
MIDI Glossary: 
http://www.student.wau.nl/%7Eolivier/midi/keywords.htm
MIDI Explained: 
http://www.student.wau.nl/%7Eolivier/midi/midi.htm
MIDI Protocol: 
http://www.srm.com/qtma/davidsmidispec.html
Standard MIDI File Archive:
http://www.harmony-central.com/MIDI/files.html
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!

Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione a server web via VB

Salve a tutti, il mio problema è il seguente:
l'idea sarebbe scrivere un programma che:
a) lanci la connessione ad internet
b) invii una richiesta ad un indirizzo web predefinito che corrisponde ad
una pagina html
c) salvi sul file l'html restituito dal server
Il tutto mi sarebbe utile per automatizzare un'operazione che ultimamente mi
tocca  fare spesso, senza dovere aprire Iexplorer e cliccare in giro.
qualcuno ha qualche suggerimento di come procedere? (codice di esempio che
faccia una delle cose descritte, o semplicemente un idea di dove andare a
cercare un tutorial o simile..)
Immagino che bisognerà inviare attraverso il modem la stessa stringa che
invia Iexplorer  quando clicco sul link che mi porta alla pagina... o magari
esiste qualche componente che fa già tutto lui..
Grazie 1000
Sandro

 ha scritto nel messaggio
news:9_2V8.35407$Jj7.9...@news1.tin.it...
CUT
non ci girare intorno...vuoi scaricare un sito o parte di esso?
Programma NetVampire...e mille altri!shareware o freeware..cerca su google o
su altro motore di ricerca!
(prima che i puristi insorgano....se chiede un ocx che faccia tutto da ...se
non č interessato ad imparare come si fa da vb...tanto vale indirizzarlo
subito su un programma fatto all'uopo!)
se invece sei interessato ad imparare come  fare un download da codice di
una pagina HTML cerca sul sito comune ...una volta c'era uno (o piů? )
esempi
ciauz!
:-)

prova a guardare su msdn "Mcrosoft internet transfer control"

 wrote in message
3d24c3ef...@news.tiscali.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: help invio file remoti

qualcuno mi sa dire come fare per inviare un file ad esempio c:\prova.txt ad
un computer remoto ad esempio con l'utilizzo di INET o di qualche altro ocx
naturalmente do prescontato che devo conoscere l'indirizzo ip del pc remoto
ringrazio a chi mi risponde
cordiali saluti
gianluca


Ma vuoi il codice bello e pronto????

Newsgroup: it.comp.lang.visual-basic
Titolo: [BUG] evento keyup si perde le M ...

http://www.g2kweb.it/public/download/bug_keyup_m.zip
questo e' uno stralcio di un mio vecchio programma,
le text venivano usate per codici numerici, nessun problema, ora i codici 
son alfanumerici... tutto apposto tranne che per "m" e "M" ...
test :
clikkate EDIT
e provate ad inserire tutte le lettere che volete tra cui "m" e "M" nel 
keydown la emme viene ignorata O_o
PERCHE' ?
sono le 11:30 e' tardissimo e domani ci si alza presto... sto bug me lo 
porto nel mondo dei sogni per poi scoprire di sicuro che domani non e' un 
bug ma un mio errore del cavolo che ora col sonno non vedo !
VB6SP6 per la cronaca !
-- 
-Gigio@work-
G2k Blog : 
http://www.g2kweb.it/?3098
G2k Snip Url : 
http://www.g2kweb.it/?3015
G2k Free Gallery : 
http://www.g2kweb.it/?218
 

La sera si dovrebbe andare a dormire al posto di codare fino a tardi...
la m e' un carattere LARGO... e le txtbox son troppo strette...
guardate... non so che dire... ma so' cosa fare : SPEGNERE IL PC E ANDARE A 
DORMIRE !!!
ARGH!

Gigio2k ha scritto:

Ma LOL!
Newsgroup: it.comp.lang.visual-basic
Titolo: AAAAAAAAAAiuto!! - sono disperato - Crystal Report da VB4 al 5

ciao a tutti, 
ho acquistato una "Edizione learning  VB 5 ", e con questa non riesco
più a visualizzare/stampare anteprime di stampa che ho sempre usato
con un programma quasi ultimato con VB4-Professional.
Non riesco più a trovare in "Strumenti/controlli aggiuntivi/Crystal
Report control" l'item da selezionare per fare apparire il bottone
relativo.
i messaggi di orrore che mi appaiono sono i seguenti:
c:\path\nome_form.frm - Il file è stato salvato in una versione
precedente di VB, salvandolo verrà memorizzato in VB5 - OK 
Impossibile caricare 'c:\path\CRYSTL16.OCX' - continuare a caricare il
progetto? - SI
(ho provato anche a copiare in windows\system\Crystl16.ocx e
Crystl16.oca, o anche nel path del programma dove non lo trova  ma non
è servito a niente)
dopo aver caricato il programa se double clicco l'item che mi serve
stampare mi appare:
Errore di compilazione: impossibile trovare il metodo o il membro dei
dati.
Sono disperato -  C'è qualcuno che mi può aiutare?

VB5 lavora esclusivamente a 32 bit e quindi anche i componenti lo devono
essere!
CRYSTL16.OCX è un componente a 16 bit
Ciao


wrote:

Grazie Andrea :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Cancel event

Salve a tutti !
C'è qualcuno che mi sa dire come posso annullare l'esecuzione di un evento
che ho intercettato?
Vi spiego il mio problema:
devo intecettare la pressione di un tasto e impedire la sua normale
conseguenza!
E.S.:
Premendo la freccia in basso, mentre ho il fuoco su una listBox, devo
impedire che mi venga selezionato l'elemento successivo e quindi che la
selezione mi rimanga sull'elemento corrente.
Spero di essere stato chiaro !! Vi ringrazio anticipatamente!

 ha scritto nel messaggio
news:2eYA7.73966$1H1.7...@news.infostrada.it...


 conseguenza!
Non si puň. Se l'evento fornisce un parametro modificabile, del tipo 
Cancel As Boolean, allora sě, sennň niente da fare, devi agire a 
posteriori annullando l'operazione
Newsgroup: it.comp.lang.visual-basic
Titolo: Help Active Service Page

Per favore datemi un aiuto, dove posso trovare un'Help in Italiano per
sviluppare file in Active Service Page forse mi avete capito ma nel caso non
sono stato
chiaro nel mio poco corretto linguaggio vi faccio un esempio, ( se io creo
dei file "Esempio.HTML" e lo voglio far diventare interattivo devo scrivere
un'altro file "Esempio.asp" che a sua volta va ad aggiornare un database di
Acces che si trova sul Server creo il form "Prova.html" e poi creo il file
"Prova.asp" con i link di riferimento) adesso uso l'help di visualbasic5,
non ho il6  aiutatemi magari c'e qualcosa sul Sito Comune? Dove?
Se sono stato poco chiaro scrivetemi e magari vi manderò in allegato quello
che ho creato, non sono tanto esperto quello che ho realizzato lho visto su
riviste e sul lavoro che mi ha lasciato un collega ma ora devo andare avanti
e mi serve un'aiuto.
Ho creato una rubrica telefonica che funziona bene e altri lavori.
Vi ringrazio anticipatamente a Voi tutti e aspetto un vostro messaggio.
Ciao Giuseppe
bkf...@tin.it

...


In italiano c'č anche 
www.asp-it.com
 che č ottimo!
cmq esiste anche il ng it.comp.www.asp che č piů adatto all'argomento
--
=> Fabio883 <=
fab...@net-one.it
ICQ UIN: 5320334
Home Page: 
http://i.am/fabio883
6 GIUGNO '99: TUTTA L'EUROPA CONTRO LA TUT
Partecipa anche tu all'European Telecom Boycott!
Tutte le info su 
www.notut.org
e nella nostra lista informativa: 
notut-s...@onelist.com
**************************************
E va be', e' un po' strabica! Quando piange, le lacrime del suo occhio
destro cadono sulla sua guancia sinistra...
    LOUISE A. SAFIAN
**************************************
SignMail v1.0 Beta by Fabio883

 >
bkf...@tin.it

 wrote in message
7i72ma$2ss$1...@pluto.sm.dsi.unimi.it...


 ha
deciso di sua spontanea volonta' di scrivere:
ASP, mi aveva interessato ma non avevo trovato guide decenti ,
controllero' i siti da voi proposti, ma e' una cosa che funziona solo
su IE ? Xche' se e' cosi' neppure mi sbatto...
Ciao
********* Federico Emanuele Galli  *********
Sideralis Programs (Visual-Basic and Delphi)
 
http://www.softitaly.com/sideralis
  Hai domande ? It.comp.lang.visual-basic
---> 
http://www.murialdo.it/it_lang_vb
 <---

su IE ? Xche' se e' cosi' neppure mi sbatto...
No, anche sui browser Netscape. Il server comunque deve essere Microsoft NT
con annesso IIS (Internet Information Server).
Ciao Fabrizio

con annesso IIS (Internet Information Server).
Insomma, non mi cambia, ho il sito su un sistema unix... che tristezza
tutta questa roba microsoft... dovro' studiare java un gg o l'altro !!

Newsgroup: it.comp.lang.visual-basic
Titolo: Spegnere il pc da programma

Salve,
ho necessità di spegnere il computer una volta terminata una operazione di 
lunga durata.
Come fare?
Un ringraziamento a chi volesse aiutarmi.
Davide 

darkstar wrote:

The ExitWindowsEx function either logs off, shuts down, or shuts down and 
restarts the system
http://www.mentalis.org/apilist/ExitWindowsEx.shtml
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

Io uso una soluzione esterna
(non so' se fa al caso tuo)
cmq può interessare anche per altre occasioni
http://users.pandora.be/jbosman/poweroff/poweroff.htm
Ciao
Maury

 ha scritto nel messaggio
news:ET6ge.880267$b5.38...@news3.tin.it...


 ha scritto nel messaggio 
news:ET6ge.880267$b5.38...@news3.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore ISAM installabile

Devo agganciare un file di testo con un Data Control ma quando tento di
impostare la proprietą recordsource mi da l'errore "Impossibile trovare ISAM
installabile". Funziona invece perfettamente con un file Excel.
Ho gią provato a reinstallare i driver ISAM.
A qualcuno č gią successo e mi puņ aiutare?
Grazie.
Max



...


Newsgroup: it.comp.lang.visual-basic
Titolo: controllo digitazione

Ciao a tutti,
vorrei che in una textbox fosse possibile digitare solo due caratteri e non
più...
Ad esempio fosse possibile digitare cifre come 10,20,30 ma non 1000 3000 e
cosi via
Spero mi abbiate capito e mi sappiate aiutare...

:-(( tristezza.....
proprietą maxlength del textbox stesso.....
--
Igor Damiani
ig...@igordamiani.it
http://www.igordamiani.it
ICQ : 11847262

 proprietà maxlength del textbox stesso.....
Scusa, grazie per l'auito; potresti spiegarmi cosa sono "maxlenght",
"textbox" e, già che ci sei, il concetto di proprietà?
Starla

 "textbox" e, gią che ci sei, il concetto di proprietą?
Oggi siamo in quattro o cinque ad avere i coglioni girati, eh?
Alberto

spiritoso........
:-))))))))))))))
in effetti a volte mi chiedo come faccio a rispondere a post così!!! la
prima cosa che faccio quando ho un dubbio o un problema è di andare su e giù
nelle proprietà come un psicopatico!!!!
vabbè, che ci vuoi fare? good coding a te!!!


 Oggi siamo in quattro o cinque ad avere i coglioni girati, eh?
Ehehehehhe.... si capisce così tanto?! :)
Starla

 "textbox" e, già che ci sei, il concetto di proprietà?
Chi sono... dove sono... che ci faccio qui ? E chi me lo fa fare a starci ?
Da dove vengo ? Dove vado ? [1] Cos'è questo coso luminoso e
colorato davanti a me ? E questi disegnini che si muovono ?
[1] "Un fiorino !" (cit.)
Un Paperino che va a casa a pappare :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: mdb e apostrofi

Qualcuno sa come evitare l'errore che avviene quando si cerca di
filtrare un database mdb, quando la variabile che uso come filtro
contiene il carattere apostrofo (')
es.
variabile = "l'ora"
 Set Data_C.Recordset = db_1.OpenRecordset("select * from tabella
where email_mittente  = '" & variabile & "'")
il messagio di alert e'
ERRORE DI RUNTIME 3075:
SINTAX ERROR  (MISSING OPERATOR IN QUERY EXPRESSION) 'email_mittente =
l'ora"
ciao a tutti
   Nicola Tornieri
   ----------------------------
  Manens Intertecnica srl
  tornieri[at]
manens.com
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

...


 l'ora"
                           RISPOSTA
se il prblema è dell'apice creati una function del tipo
function doubleapice(xstring as variant) as variant
  dim outstring as variant
  dim i as integer
  dim n as integer
  outstring = ""
  if isnull(xstring) then
    doubleapice = ""
    exit function
 end if
 n = len(xstring)
 for i = 1 to n
   if mid(xstring, i, 1)  = "'" then
      outstring = outstring & "''"
   else
      outstring = outstring & mid(xstring , i , 1)
   end if
next i
doubleapice = outstring
end function
Newsgroup: it.comp.lang.visual-basic
Titolo: Compressione DataBase Access

Ciao a tutti,
qualcuno mi sa dire come si fa a compattare da visual basic un database
access ?
Ho un DB di 59.000 record che ogni giorno devo svuotare e riempire con altri
59.000 record
diversi ma non vorrei far crescere eccessivamente le dimensioni del file mdb
quindi, prima
di importare i nuovi dati dovrei poter effettuare la campattazione del
database vuoto.
Ciao, Andrea

...


Lo trovavi consultando l'help in linea.
Si, infatti l'ho trovato subito dopo aver mandato il messaggio ;-) Io
speravo invece che riuscisse
a compattare il database senza doverne creare uno nuovo perche' poi dovrei
comunque cancellare
quello vecchio e sostituirlo con quello nuovo ;-(
Ciao, Andrea

...

...che e' esattamente quello che fa Access stesso, senza farlo vedere
all'utente ;-)
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Da MDB a ? (riscrittura di codice)

 gestione, per uno scopo del genere.
    Se riscrivi tuto usando ADO, poi non importa quale motore hai dietro
(Access, SQL Server, Oracle, ...).
    L'unica cosa, in questo caso, cui prestare *estrema* attenzione, e' che
l'SQL usato dai diversi motori puo' dar non trascurabili problemi di
compatibilita'.
    Quindi, o rimani dentro SQL92 (credo sia il minimo supportato da tutti),
oppure, nel caso cambi motore DB, riscrivi gli eventuali statement fuori
standard.
        Cris
Newsgroup: it.comp.lang.visual-basic
Titolo: Get data from a file to an array

Hello everyone!
I am looking for some code to copy data from an existing txt file (data in
just one column) to an array of one dimension.
I think it is very easy but I am having problems with the File System
Object...
Thanks in advance
Nuno

 ha scritto

(qualcuno mi corregga se cazzeggio, plz)
nuno,
i never used the fso, anyway you might want to try putting on a form a
multiline txtbox (vertical scrollbars) and a listbox, then pasting the
following code.
hth, pal
Option Explicit
Private Sub Form_Resize()
    If WindowState = 1 Then Exit Sub
    Dim sw As Integer, sh As Integer
    sh = ScaleHeight
    sw = ScaleWidth \ 2
    With Text1
        .Left = 0
        .Top = 0
        .Width = sw
        .Height = sh
    End With
    With List1
        .Left = sw
        .Top = 0
        .Width = sw
        .Height = sh
    End With
End Sub
Private Sub text1_DblClick()
    Text1 = ""
    List1.Clear
    Dim l() As String, s As String
    Dim n As Integer, cnt As Integer
    n = FreeFile
    'load the array and fill text1 for a chek
    Open (App.Path & "\test.txt") For Input As #n
    Do While Not EOF(n)
        cnt = cnt + 1
        Line Input #n, s
        Text1 = Text1 & s & vbCrLf
        ReDim Preserve l(cnt)
        l(cnt - 1) = s
    Loop
    Close #n
    'list array items:
    For n = LBound(l) To UBound(l)
        List1.AddItem l(n)
    Next
End Sub


In the References section, check "Microsoft Scripting Runtime"
------------------------------------------------------------------
Const Pth = "c:\license.txt"
Private Sub Command1_Click()
    Dim fso As New Scripting.FileSystemObject
    Dim tx As Scripting.TextStream
    Set tx = fso.OpenTextFile(Pth, ForReading)
    Do Until tx.AtEndOfStream
        List1.AddItem tx.ReadLine
    Loop
    tx.Close
    Set fso = Nothing
    Set tx = Nothing
End Sub
PAL --- cosa vuol dire "hth" ?
        Ciao (Bye)

 PAL --- cosa vuol dire "hth" ?
[i] hope this helps, "spero che questo ti aiuti", "spero di esserti stato
utile", ecc. -- se credi ti mando un listatone html con tutte le
abbreviazioni che sono riuscito a trovare.
e' ancora da pulire ma qualcosa fa.
hth :))
ciao, a.

 wrote in message
8vj7s3$4mcul$1...@ID-51318.news.dfncis.de...


 da come scrivi nei post questi acronimi saranno migliaia ...
no, poche decine.
la maggior parte me li invento li' per li'.
se controlli i miei post, troverai rarissimamente un'abb ripetuta.
il palganini dell'acronimo.
:)))
il listone e' partito ora. 300k di html, mi sono ricordato adesso che ci
sono anche cose come "lan"... l'idea era di darlo ad alcuni utenti. ci ho
rinunciato presto, ma mi ha divertito scrivere il prg.