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

Un salutone a tutto il n.g.,
nonostante tutti i miei sforzi, non sono riuscito a trovare alcun tutorial
(anche in inglese) che mi spieghi come attribuire un handle univoco ad una
userform aperta in VBA excel. Con le API sono
riuscito ad attribuire un handle univoco alla finestra corrente, ma non al
form corrente (sulla stessa finestra possono essere aperte più form). Se
qualcuno mi indicasse qualche articolo interessante mi farebbe davvero un
grande favore.
Un saluto a tutti e grazie per l'attenzione.

 grande favore.
    Hai letto il 3d "fogli e Form di Excel : adeguarli a diverse risoluzioni
schermo" aperto ieri l'altro da Capez? C'e' qualcosa che puo' tornarti
utile?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

     Scusa ma questa non l'ho capita.
No, sono io che ho una grossa lacuna in questo argomento (e nn solo).
Quindi quando chiamo la funzione [GetActiveWindow] nell'evento initialize di
un form, il valore che mi restituisce è quello relativo alla userform che
sto aprendo e non della finestra attiva di excel come credevo!
Ok ti devo un favore!
PS:con la tua dritta, sono anche riuscito ad  intercettare lo
scrolling della rotellina del mouse.

"ciccio"
www.google.it
 "EliteSpy"  "WinSpy"
trovabili anche
http://www.planetsourcecode.com/vb/default.asp?lngWId=1
http://www.freevbcode.com/listcode.asp?Page=2&Category=6
--
Fosco

 scrolling della rotellina del mouse.
    :-)


Newsgroup: it.comp.lang.visual-basic
Titolo: distribuzione di Crystal Report 5

Salve
ho realizzato una interfaccia con VB5 per leggere/scrivere dati su un mdb.
al momento della scrittura dei dati ho la necessità di stampare una
etichetta con quei dati.
Ho predisposto un rpt in Crystal Report e vi accederei utilizzando il
componente apposito.
Tutto funziona fino a quando faccio girare l'applicativo sulla macchina in
cui l'ho creato e ho installato CR.
Quando invece installo l'applicativo sulla macchina finale, il programma di
installazione mi dice che ci sono problemi di regitrazione del componente di
Crystal Report del progetto. Inutile dire che poi non funziona la stampa del
rpt.
Come risolvere il problema ? qualcuno mi può aiutare ?
Grazie in anticipo
Giovanni Taverna
ps mi pare che tutti i file necessari a CR vengano installati con il setup
dell'applicativo.

 ha scritto nel messaggio
news:ap7315$reh$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] chi voleva brevettare cosa ?

Ritorna E-Data: il download è nostro
L'azienda conduce da cinque anni una battaglia sui brevetti sostenendo di
possedere quello sul download, nella convinzione di poter far pagare tutti i
siti che offrono download. Ora un tribunale le dà ragione
http://www.punto-informatico.it/p.asp?i=33803
* *  *
mond'e'pazze

 siti che offrono download. Ora un tribunale le dà ragione
Chissa' chi e' il pazzo?
Io penso il tribunale
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057

Ritorna E-Data: il download č nostro

 Incomincio a preparare la causa ...
non farlo. la perderesti. non hai letto bene il dnld_eula.txt...

 wrote in message
news:8uba8v$1b8qd$1...@ID-51318.news.dfncis.de...

Vi avviso. Ho scoperto di essere l' erede diretto di Adamo, l' uomo che ha
inventato quel simpatico passatempo con Eva.
Mi rivolgero' al tribunale di paz... ienti giudici per farmi riconoscere il
diritto di incassare le royalties per ogni sco???a.
Preparate il portafogli ...
Ciao
Aldo

 Preparate il portafogli ...
HAL, fratel prodigo !!
tu incassa, io penso al db dell'amministrazione.
a parte che i dnaologi hanno appena deciso che eva aveva circa 80k anni piu'
di adamo (sic), quindi sa un po' di necrofilia.

 wrote in message
news:8ucfrq$1h9ql$1...@ID-51318.news.dfncis.de...

Gia', tra l' altro non c' e' nemmeno la scusa che a quell' eta' dovrebbe
avere un sacco di esperienza ...
Comunque, vada per il db ;-)
Ciao, pal
Aldo

diritto di incassare le royalties per ogni sco???a.
Beh, se posti questo messaggio solo in un NG di programmatori, non avrai troppa fortuna... ;-PPPP
OK, stavo scherzando e, per evitare battutaccie, non parlavo di me... ^___^
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 OK, stavo scherzando e, per evitare battutaccie, non parlavo di me...
^___^
ocio, tose...
:)

 ha scritto nel messaggio
news:8ue855$1imim$1...@ID-51318.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: posizionarsi in un file hex.. AIUTO ;-))

salve gente,
dovrei creare un piccolo editor che una volta aperto un file in
hesadecimale (2 caratteri del file sono un byte) mi scriva  nelle
textbox alcuni campi del file.
Leggendo vecchi post sono riuscito a caricarmi il file in memoria
mettendolo in un buffer dichiarato come byte. Ora ho fatto alclune
prove e se leggo char$(buffer(i)) mi legge il carattere i del file
hex. Ora il file e' lungo circa 40k solo mi sembra assurdo che per
inserire alcuni campi mi devo contare i caratteri fino al punto che mi
servere e poi leggere da li. Non esiste un modo piu' furbo per gestire
i file hex?
es di come faccio ora se mi servono i caratteri dalla posizione 10
alla 19 (5 byte)
for i= 10 to 20
text5.text= text5.text + chr$(buffer(i))
next i.
Solo mi sembra alquanto brutto!! ;-)
grazie 10000
                     Merlino

next i.
se usi il tuo
sistema invece:
ti consiglio sempre di fare così prima di impostare delle
proprietà
Dim Buff as string ' o quello che ti serve
for i=10 to 20
buff=chr$(Buffer(i))
next i
text5.text=buff
buff=""
così il tutto
rende meglio ed è piu veloce
ciao
Lorenzo 
(NoMoreSecrets)
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare tutto

Sapete dirmi se sia possibile disabilitare praticamente tutto, compresa la
barra avvio di windows e permettere all'utente di utilizzare solamente la
mia applicazione?
Stefano.

A parte il fatto che non è "politically correct" a meno che non si tratti di un terminale (non in senso stretto
ovviamente, non arrabbiatevi...) tipo sportello informativo, nella quale l'utente deve aver a disposizione un programma
e null'altro.....
In ogni caso dai un'occhiata al Sito Comune di questo NG: se non trovi un'esempio unico che disabilita il disabilitabile
(tranne l'utente, ovviamente: a quello ci pensa Windows & B (=Windows & Bugs)), ce ne saranno sicuramente un paio che
"si dividono i compiti"..... un bel collage ed il gioco è fatto....
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

una soluzione 'radicale' ma tosta ;)
sostituire alla shell Explorer il proprio rogramma...
cosě la barra e tutto il resto non ci sono proprio piů...
in pc utilizzati pubblicamente spesso č l'unica soluzione...
--
GbC

Ottima soluzione !!!!
Infatti anch'io ho provato di tutto ma sfogliando MSDN mi pare di aver
capito che non si puň togliere la combinazione ALT-TAB con Win 98 (mentre in
WINDOWS 2000 si).
C'č un solo problema come si fa ???
Forse con il file msdos.sys ???
GbC <N...@SPAM.PLEASE> wrote in message 7kl03n$jdd$1...@nslave1.tin.it...


esatto...
lei vince una pampolina... 
;)
-- 
GbC

Scusa ma non avevo letto tutto il msg...
Se non hai la tastiera e non puoi spengere il pc come fai a modificare il
System.INI?
Oppure...
Se disattivi (dal Registry) il menu di boot come fai a modificare il suddetto
filetto?
comunque la pampolina l'hai vinta ugualmente...
--
GbC

E poi? :)
Non credo che sia possibile, e, a parte questo, non è neanche
corretto!!! Comunque non puoi impedire il reset!!!!! :)
ByeZ!
Alkondor


hardware no (il pulsante), ma software (la tastiera) si...
si può disattivare la combinazione Ctrl/Alt/Canc...
lo avevo fatto due anni fa su un prg per navigare in internet...
non sono sicuro, ma nel sito comune qualcosa dovrebbe esserci, mi sembra
impossibile che non ci sia...
altrimenti chiedi che cerco nei miei backup...
--
GbC
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT - SC] Per moreno

Ciao Mereno. Ho utilizzato il modulo di invio materiale ma sembra non
funzionare. Ieri sera ti ho mandato la mail predefinita per l'errore;
Stamattina ho riprovato ma non ne vuole sapere di funzionare (ho provato
anche ricaricando la pagina + di una volta...)... Se mi hai scritto temo che
la mail non mi sia arrivata (qui ho problemi...)...
CiaoZ
SebaMix
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -

 anche ricaricando la pagina + di una volta...)...
Stesso problema anche per me.
Ciao
Stef (Steama)

Ragazzi in qualche post precedente ho letto che hanno aggiornato i server
sui quali risiede il S.C. per cui Moreno Sirri si scusava per eventuali
inconvenienti causati non dal sito quanto dai server.
(Come si nota che leggo attentamente tutti i post!!!:-PPP)
Ciao Diego.
Steama <s.a...@ELIMINAMIeis.it> wrote in message
ETFu6.68716$yl2.6...@news1.tin.it...


la mail non mi sia arrivata (qui ho problemi...)...
Connection timed out.
La frequenza con cui si può presentare è direttamente porporzionale alla dimensione del file: io
l'ho testato anche con file di oltre 1Mb e non si è verificato. Purtroppo, come ho detto, il server
di Murialdo ha ricominciato a fare le bizze (aveva smesso? boh...) e ci possono essere diversi
problemi tra cui:
- connection timed out (il server si addormenta mentre processa il codice ASP)
- impossibile visualizzare la pagina (il server è in sciopero)
- errore nel file asp alla riga XX (con xx generalmente un numero basso, <30: non viene aperta la
connessione al database... il perché non ci è dato sapere...)
- too many users (ehi, raga, andate a dormire, mangiare, vivere!!! Staccate gli occhi dal PC!!! Non
ho idea di quanti utenti possono contemporaneamente accedere al sito... presumo pochi, molto
pochi... pensate che da qualche tempo io (come WM) non posso più accedere via FTP in più sessioni
contemporaneamente, quindi gli upload si fanno lunghi...)
Ripeto, molto presto discutiamo sul discorso server...
Ciao,
Moreno
Sirri Moreno
WebMaster del Sito Comune di questo newsgroup:
http://www.murialdo.it/it_lang_vb
it_la...@murialdo.it

(Come si nota che leggo attentamente tutti i post!!!:-PPP)
 ^__^ Bravo, ben fatta!! ;-P
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: quesito SQL e altro...

Salve,
Ho un database access con una tabella nella quale vi č un campo di
testo denominato "email".
Nella colonna "email" č possibile, anzi probabile, che vi siano delle
ripetizioni del medesimo indirizzo.
Ora la mia domanda č la seguente: "qual č il modo piů rapido per
ottenere l'indirizzo (o ancora meglio i primi tre indirizzi) email che
compare nel maggior numero di record?"
Grazie e ciao a tutto il gruppo.

"AirChris" ha scritto:

Potresti utilizzare la clausola "GROUP BY" e poi  effettuare un conteggio
dei record uguali otterresti il numero di volte che ciascun indirizzo si
ripete. Ordini in senso decrescente la query e... fatto!
Ciao,
Carlo.

 ha scritto nel messaggio
news:9st3sb$r5i$1...@pegasus.tiscalinet.it...

E per dirla in dialetto SQL
SELECT TOP 3 Count([Indirizzo]) As MostAdr, [Indirizzo]
FROM Tabella
GROUP BY [Indirizzo]
ORDER BY Count([Indirizzo]) DESC
non l'ho provata ma se non funziona prova a togliere la clausola Top3
Saluti

Grazie, la proverň al piů presto!
;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] oe/ie in linea

perche' da qualche giorno oe continua a rimettersi in linea da solo dopo che
mi sono disconnesso facendo fuori linea --> interrompi modem ?
dove devo guardare ?
tia, pal

 dove devo guardare ?
Forse hai settato:
Strumenti-->Opzioni-->Generale-->Rileva nuovi messaggi ogni XX minuti
e "Effettua la connessione..." nelle righe sottostanti.
_Credo_ faccia altrettanto se imposti la sincronizzazione automatica di un NG.
Bye, G.

 Forse hai settato:


 neanche quell'oretta di suspence, "mi rispondera qualcuno?"
aisicchiů non ce l'ho, per motivi di sicurezza, anche se prima o poi...
Se vuoi perň ti mando il numero di telefono, o mandami il tuo. ;-))
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com
Newsgroup: it.comp.lang.visual-basic
Titolo: flexgrid

ciao
e' possibile modificare il contenuto di una flexgrid?
c'e' qualche proprieta' da impostare?
grazie
La nostra difficolta non e' nelle dimostrazioni, 
ma nel capire che cosa dimostrare.
					 Emil Artin.

 e' possibile modificare il contenuto di una flexgrid?
sì, ma è un "accrocchio".
la documentazione dice che è modificabile se utilizzata in modalità bound,
ma non ci ho mai provato, invece, se scollegata dalla fonte dati, bisogna
arrangiarsi sovrapponendo alla cella da modificare una text box.
su msdn dovrebbe esserci un esempio funzionante, ma al momento non lo trovo,
e, sinceramente, non ho una gran voglia di cercarlo :-)
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

e, sinceramente, non ho una gran voglia di cercarlo :-)
non c'e' una griglia dati che permette di farlo facilmente?


 c'e' qualche proprieta' da impostare?
č un accrocchio ma funziona bene
Mett in un form una flexgrid e chiamala MSFlexGrid
poi copia nel form questo codice
Private Sub Form_Load()
MSFlexGrid.Rows = 2
MSFlexGrid.FixedRows = 1
MSFlexGrid.Cols = 4
End Sub
'MSFlexGrid Properties:
'Rows=2
'Fixed Rows=1
'Cols=3
'===================================================
'write this code in MSFlexGrid Keypress Event
'===================================================
Private Sub MSFlexGrid_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then
        If Len(Trim(MSFlexGrid.TextMatrix(MSFlexGrid.RowSel,
MSFlexGrid.ColSel))) > 0 Then
            MSFlexGrid.TextMatrix(MSFlexGrid.RowSel, MSFlexGrid.ColSel) =
Mid(MSFlexGrid.TextMatrix(MSFlexGrid.RowSel, MSFlexGrid.ColSel), 1,
Len(MSFlexGrid.TextMatrix(MSFlexGrid.RowSel, MSFlexGrid.ColSel)) - 1)
            Exit Sub
        Else: Exit Sub
        End If
    ElseIf KeyAscii = 13 Then
        If MSFlexGrid.Col <= 2 Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid.Col = 3 Then
            MSFlexGrid.Rows = MSFlexGrid.Rows + 1
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else
        'write your own keyascii Validations under commented lines
        If MSFlexGrid.Col = 0 Then
            'if (your condition(s)) then
                'accept only charectors
            'Else
            ' keyascii=0
            'End If
        ElseIf MSFlexGrid.Col = 1 Then
            'if (your condition(s)) then
                'accepts only numbers
            'Else
            ' keyascii=0
            'End If
        ElseIf MSFlexGrid.Col = 2 Then
            'if (your condition(s)) then
                'accept all
            'Else
            ' keyascii=0
            'End If
        End If
    End If
    MSFlexGrid.Text = MSFlexGrid.Text + Chr(KeyAscii)
End Sub
-- 
Per diventare grandi non bisogna avere paura di essere piccoli
Per rispondere in privato elimina dall'indirizzo "togliquesto"
MasterDavidex - David Ruscelli
Newsgroup: it.comp.lang.visual-basic
Titolo: RANGE CELLS

salve a tutti, vorrei se è possibile un aiutino da voi. io sono un
neo-programmatore, piu' neo che programmatore :)
Sto lavorando con VB-Excel
Io so che per selezionare un area in excel si usa la seguente istruzione:
range("A1:G50").select
siccome questa istruzione la voglio usare in modo ricorsivo per altre
aree, mi serveirebbe sapere se esiste un metodo per sostituire quella
istruzione senza la presenza delle lettere A e G 
Per ex(non so se corretto):
range((1,1),(50,7)).select
cioe' utilizzare solo valori numeri per definire la rowindex e la
columindex.
ringrazio anticipatamente.Ciao Fabio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Dai un'occhiatina nella guida del vba di Excel
a: Cells
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
Newsgroup: it.comp.lang.visual-basic
Titolo: [STAT] Altre classifiche di Novembre 2001

I thread più seguiti
Pos.  Oggetto                                                   Post
   1  apice di Merda!                                             40
   2  [OT] Sempre peggio                                          37
   3  Modificare Windows con Wisual Basic                         36
   4  [?] replace                                                 31
   5  URGENTE!!!: VB ESEGUIBILE                                   30
   6  come funziona la progress bar ???                           29
   6  [BT] Formati files fatti bene e meno bene                   29
   6  Gestione delle concorrenza con ADO e SQLServer2000          29
   9  stipendio programmatore vb ?                                26
  10  Perchè DAO?                                                 25
  11  VB 6 ancora attuale?                                        24
  11  [ ! ] per convertire in Euro con la Round                   24
  13  DISASTRO!!!                                                 23
  13  DECOMPILATORE                                               23
  15  [meta] coincidenze                                          22
  16  Vendita software auto prodotto come.....?                   21
  17  Problemi di refresh con DataGrid                            20
  17  Conta elementi                                              20
  19  per creare pacchetti di installazione???Cosa uso?           19
  20  [?] mi serve il font helvetica                              18
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/

    1  apice di Merda!                                             40
AHAHHAHA il mio apice di m... è stato il thread più seguito del mese!!!
AHAHHA
:-)
ROTFL
Davide
Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Prossimo WebMaster

Ciao a tutti,
Il mandato dell'attuale WebMaster sta terminando.
Dobbiamo quindi trovare tra noi chi e' disposto ad assumenre tale ruolo per
il prossimo mandato, che durera' dai 2 a 4 mesi.
E' presumibile che il cambio di WM avverra' intorno al 10 Novembre.
Tempo fa' ci fu chi aveva dato la sua disponibilita'; questi erano: Edoardo
Serra,  Alfondo Di Stasio, Roal Zanazzi, ma dato che non e' detto che
possano ancora dare la loro disponibilita', l'appello e' riferito a tutti.
Chi e' disponibile a fare il prossimo turno di WM del Sito Comune?
I candidati rispondino a questa mail, e sempre in questo thread faremo una
"votazione" sui su di essi.
Partecipate tutti.
--
Ciao
By -MES-   Maronese Ettore
http:\\
ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

:-))
Si, SCUSATE :-(
Riprovo:
E' presumibile che il cambio di WM avverra' intorno al 10 Dicembre.
Ettrore

Ciao a tutti,
:Il mandato dell'attuale WebMaster sta terminando.
:Dobbiamo quindi trovare tra noi chi e' disposto ad assumenre tale ruolo per
:il prossimo mandato, che durera' dai 2 a 4 mesi.
:
:E' presumibile che il cambio di WM avverra' intorno al 10 Dicembre.
Nessuno si offre come Webmaster del Sito Comune?
PS: Non spaventatevi, non e' complesso.
Se l'ho fatto io, vi assicuro, puo' farlo chiunque!



Per quanto riguarda il sottoscritto:
mi dispiace, ma visto il mio rapporto conflittuale con 
XOOM.COM
, direi che
non mi candido come WM (almeno finche' non cambieremo provider, poi si
vedra').
Se Edoardo o Alfonso sono disponibili, hanno tutto il mio appoggio
(entrambi).
ciao
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto su Controllo Data/Ora

Ciao a tutti.
 
Qualcuno sa se ci sono controlli Data/Ora e Valuta
per VB 4 soprattutto (e VB5) simili a quelli di Access ?
Sarebbe più bello inserire date e numeri senza dover 
necessariamente inserire gli / ogni volta.
Grazie .
Gianfranco
La...@usa.net
o
Gla...@tin.it


Io ho fatto questa funzione per le date:
Function FormattaData(ByVal Data As String) As String
'
'Formatta una data a seconda del numero di caratteri digitati:
'0 caratteri = nessuna data
'1 carattere = giorno (trasf. giorno in due cifre + mese corrente +
anno corrente)
'2 caratteri = giorno (+ mese corrente + anno corrente)
'3 caratteri = formato errato
'4 caratteri = giorno + mese (+ anno corrente)
'5 caratteri = formato errato
'6 caratteri = giorno + mese + anno (trasf. anno in 4 cifre)
'7 caratteri = formato errato
'8 caratteri = giorno + mese + anno
'9 caratteri = formato errato
'10 caratteri = data
'
Dim sRetVal As String
'
If IsNumeric(Data) Then
  Select Case Len(Data)
  Case 0
    sRetVal = ""
  Case 1
    sRetVal = PadL(Data, 2, "0") & "/" & PadL(Month(Now), 2, "0") &
"/" & Trim$(Str$(Year(Now)))
  Case 2
    sRetVal = Data & "/" & PadL(Month(Now), 2, "0") & "/" &
Trim$(Str$(Year(Now)))
  Case 4
    sRetVal = Left$(Data, 2) & "/" & Right$(Data, 2) & "/" &
Trim$(Str$(Year(Now)))
  Case 6
    sRetVal = Left$(Data, 2) & "/" & Mid$(Data, 3, 2) & "/" &
Trim$(Str$(Year(Now) \ 100)) & Right$(Data, 2)
  Case 8
    sRetVal = Left$(Data, 2) & "/" & Mid$(Data, 3, 2) & "/" &
Right$(Data, 4)
  Case 10
    sRetVal = Data
  Case Else
    sRetVal = ""
  End Select
Else
  sRetVal = Data
End If
'
If sRetVal <> "" And Not IsDate(sRetVal) Then sRetVal = ""
FormattaData = sRetVal
'
End Function
Function PadL(ByVal cTesto As String, nLunghezza As Integer,
cCarattere As String) As String
'
'aggiunge tanti caratteri cCarattere a sinistra di cTesto quanti ne
servono per portare cTesto alla lunghezza nLunghezza
'
Dim nLungTesto As Integer, nCaratteri As Integer
If IsNull(cTesto) Then
  PadL = Space$(nLunghezza)
  Exit Function
End If
nLungTesto = Len(Trim$(cTesto))
If nLunghezza < nLungTesto Then
  PadL = Left$(Trim$(cTesto), nLunghezza)
  Exit Function
End If
nCaratteri = nLunghezza - nLungTesto
PadL = String$(nCaratteri, cCarattere) + Trim$(cTesto)
'
End Function
Forse e' un po' "casereccia", ma la trovo comoda.
Ciao
Nando
Newsgroup: it.comp.lang.visual-basic
Titolo: errore 50003

Utilizzando ADO mi capita questo errore, ma non riesco a capire di cosa si
tratti anche perchè non riesco  a trovare documentazione su questo e su
altri errori i cui codici numerici non sono tiportati in MSDN.
Qualcuno mi può aiutare a capire di cosa si tratti e soprattutto dove
trovare documentazione su questi errori ?

 ha scritto nel messaggio
news:qRJl7.5582$2b5.1...@news.infostrada.it...

Dove, come,  quando, perchè, in che situazione, con quale provider dati, che
descrizione errore hai...
(può anche darsi che l'abbia già visto ma se non dici niente...)
ciao
ugo

 ha scritto nel messaggio
news:9n7tdb$od5$1...@pegasus.tiscalinet.it...

Hai ragione,scusa. La stringa di connessione è la seguente :
    cnLocal.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
                & "Data Source=" & dirDBLocal & ";"
dove dirDBLocal è il path del database e cnLocal è una variabile di tipo
ADODB.connection.
Purtroppo l'errore capita in modo del tutto casule, in media una volta ogni
2/3 giorni. Devo precisare che il programma deve gestire la parte gestionale
di un impianto di automazione e quindi è in funzione 24 ore al giorno.
L' accesso al database è fatto in diversi punti del programma e non sono
stato in grado di capire dove esattamente.
Penso che capiti all'esecuzione della seguente istruzione :
        rsPallet.Find "IDMaster = '" & nrRecord & "'", , adSearchForward
dove IDMaster è un campo di una tabella, nrRecord è il valore in formato
string e rsPallet è una variabile di tipo
ADODB.recordeset impostata come segue :
    rsPallet.CursorType = adOpenKeyset
    rsPallet.LockType = adLockOptimistic
    rsPallet.Open "tblEtichette", cnLocal, , , adCmdTableDirect
    rsPallet.Index = "Index3"
Newsgroup: it.comp.lang.visual-basic
Titolo: VBA 6.3 - MACRO E WORD

Ciao a tutti,
sono nuova ed è la prima volta che scrivo. Ho controllato le 10 pagine
di thread precedente, e varia documentazione su Visual Basic e macro,
ma non riesco a trovare ciò che mi serve.
Vi spiego cosa dovrei fare: ho un documento word, nuovo, che contiene
dei dati, tra i quali un numero di protocollo. La macro, dovrebbe
andare
1)prendere il numero di protocollo (si trova sempre in una posizione
fissa, è lungo 17 caratteri)
2)salvare il file con lo stesso numero di protocollo in una directory
della quale devo specificare il percorso.
Io con registra macro, ho capito come creare una macro postarla come
pulsante su una barra degli strumenti di word. Poi, entrando tramite
visual basic editor la modifico.
Il problema, è che quando è attiva la fase di registrazione, il
contenuto del file non è selezionabile.
E' possibile fare una macro di questo tipo?
Grazie in anticipo,
Samantha

contenuto del file non =E8 selezionabile.
Per selezionare del testo mentre registri una macro devi usare i menu (modifica-seleziona
tutto) e non  il mouse direttamente sul testo.
Prova a modificare questo per adattarlo al tuo testo.
Sub SalvaProtocollo()
    'la riga 5 contiene il numero di protocollo
    Prot = ActiveDocument.Paragraphs(5)
    'Tolgo l'ultimo carattere che è il ritorno a capo.
    Prot = Left(Prot, Len(Prot) - 1)
 
    NomeFile = "Prot. " & Prot & ".doc"
    'Mette i doppi apici prima e dopo
    NomeFile = Chr(34) & NomeFile & Chr(34)
    MsgBox NomeFile
 
    ChangeFileOpenDirectory "C:\dati\"
    ActiveDocument.SaveAs NomeFile
End Sub
Giovanni.
-- 
Giovanni Cenati (Aosta, Italy)
Write to user "Reventlov" and domain at katamail com
http://digilander.libero.it/Cenati
 (Esempi e programmi in VbScript)
--

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET: Volume audio

Help! Ho la necessità di sapere il livello del volume e se è muto o
no.
Inoltre devo avere anche la possibilità di modificarlo.
Qualche idea?


Ho appena trovato una cosa che fa quasi al caso mio qui:
http://www.mp3car.com/vbulletin/software-software-development/44148-vb-net-code-volume-control.html
Il problema è che non permette di conoscere e impostare il "muto".
Avete qualcosa di meglio?

 Avete qualcosa di meglio?
no no no questa cosa qua su vista mi cambia solo il volume della mia
applicazione... io voglio modificare quello globale...
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: COPIARE IN...

ciao, il quesito è il seguente:
è possibile memorizzare nel comando incolla del popupmenu di windows il
valore di una variabile?
in pratica vorrei selezionare un dato e automaticamente memorizzarlo nel
comando incolla del menu (tasto sinistro del mouse) di windows per poi
poterlo trasferire ad esempio un un textbox di un form?
grazie!

 wrote in message
news:8lig8f$54v$1...@pegasus.tiscalinet.it...


 poterlo trasferire ad esempio un un textbox di un form?
uhmmmm non è che abbia capito molto...
guarda se va bene questo:
ClipBoard.Clear
ClipBoar.SetText MiaVariabileStringa
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Esame Certificazione 70-176

Qualcuno di voi sa dove scaricare degli esempi per l'esame microsoft in
oggetto (non da Microsoft stessa) su cui fare delle esercitazioni?
Grazie a tutti.



Vuoi risparmiare i soldi: EVITA la certificazione M$...
La mia ditta non lo considera piu' come prioritario.
Sidewinder
---------------------------------------------------
"C'e' una luce in fondo al tunnel....
   ... E' Tux con il casco da minatore!"


Sono in possesso del corso di autoistruzione della microsoft, contiene anche
una prova finale di verifica, l' unico problema è che io sono a Viareggio
(LU), altrimenti puoi provare al sito della  mondadori
(
education.mondadori.com
) sotto la voce certificazioni, forse trovi dei link
....
PS  se siamo vicini io sto cercando qualcuno con cui studiare .........

....
Non vale la pena la certificazione M$... ti spillano soldi e  hai meno
probabilita di trovare lavoro.
Mi ricordo quando ho fatto il colloqio di lavoro, oltre a me c'erano 3
certificati M$ e io ero l'unico NON certificato.
E mi hanno preso perche' ero l'unico che sapeva usare anche Unix
(grazie al deep smanettament con linux)
Quindi il mio consiglio personale e': 
Imparate  a lavorare anche su sistemi NON M$,  vi aiuta molto alla
formazione personale. E alla flessibilita mentale.


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

ciao a tutti
ho costruito un programmino per copiare i file dall'unita' C ad A
pero' vorrei inserire anche un'oggetto progressbar in modo da visualizzare
 + o - il tempo di copia.
come faccio a collegare questo oggetto  a tutta la procedura? esiste un
modo?
grazie a tutti.

 wrote in message 7rp19p$2esg$1...@stargate1.inet.it...



....

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

Situazione: Ho un form MDI padre, un form MDI figlio ed un modulo di classe
Class in un normale progetto VB.
La gestione dei tre è affidata al modulo di classe. All'avvio
dell'applicazione viene creato un oggetto Class e lanciato un semplicissimo
metodo Init: questo visualizza il form MDI figlio che è stato dichiarato
WithEvents in quanto contiene un pulsante che se premuto effettua un
RaiseEvent Click di modo che la Class, intercettato l'evento, genere un
nuovo oggetto Class.
Il problema è che l'evento non viene assolutamente intercettato dalla Class.
Perchè?? Grazie a tutti.

 Class. Perchè?? Grazie a tutti.
Hai provato a vedere con F8 se esegue il raisevent?


Certo che ho provato...

 Certo che ho provato...
Potresti postare del codice di esempio per metterci in condizione di
provare?

Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare una picturebox in una matrice di Byte !?

Salve , 
dovrei copiare una picturebox in una matrice di Byte cosi' da
eleborare l' immagine , ma non so come fare ad effettuare questa
copia, qualcuno puo' aiutarmi, Grazie.

Semplice come bere un bicchier d'acqua:
dim xPoint as long
' Legge il valore (colore) del decimo pixel orizzontale e del
' ventesimo verticale
xPoint = Picture1.Point(10, 20)
' Per cambiarlo in Nero QBcolor(0):
Picture1.Pset(10, 20), QBcolor(0)
"Lad" <lad@_NOSPAM_gnd.it> ha scritto nel messaggio
news:tYCROHfFkdPbyK...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [? IDE VB6 Icone degli Add-ins corrotte]

Incredibile ma vero !  Un bel giorno tutte le icone nei menu relativi alle
aggiunte (Add-ins), si presentano come coperte parzialmente da una striscia
verticale, di colore uguale allo sfondo del menu stesso ! Le icone del menu
di VB6, invece, sono perfette.
Ho provato anche a cambiare l 'aspetto di windows (ME), da VB6 ho impostato
la grandezza delle icone su 'grandi' per poi ripristinarle ...niente, c'è
sempre quella striscia orribile!
Avete qualche idea di cosa possa essere successo o almeno cosa io possa
tentare per rispristinare i menu? (Già ho reinstallato VB6 e SP5 un paio di
volte... ma niente)
grazie

 volte... ma niente)
Non dovrebbe entrarci, ma non si sa mai...
Hai provato a cancellare il file nascosto ShellIconCache e riavviare ?
Lo dovrebbe ricreare pulito, ma non so se ci sono dentro anche
le icone interne alle applicazioni oltre quelle di sistema. Male non fa,
comunque. ;-)
Bye, G.

 comunque. ;-)
non avevo provato, ma ho provato ora... niente!
E' talmente strano che sembra provocato da un rito woodoo !
Grazie comunque
G.Chieli
Newsgroup: it.comp.lang.visual-basic
Titolo: errore di sintassi

Mi potete aiutare a capire come aggiustare questo errore di sintassi???
H = (Sumxy - ((Sumx * Sumy) / NoOfPlottedPoints)) / (Sumxx - ((Sumx *
Sumx))) / NoOfPlottedPoints)))
____________________________________________________________
Qui il codice più esteso:
Sumx = 0
Sumy = 0
Sumxy = 0
Sumxx = 0
For i = 1 To NoOfPlottedPoints
Worksheets("Data").Cells(i + 6, 4).Value = Result(i, 1)
Worksheets("Data").Cells(i + 6, 5).Value = Result(i, 2)
Sumx = Sumx + Result(i, 1)
Sumy = Sumy + Result(i, 2)
Sumxy = Sumxy + (Result(i, 1)) * (Result(i, 2))
Sumxx = Sumxx + (Result(i, 1)) * (Result(i, 1))
Next i
' Infine, calcola 'sto benedetto esponente H
============================================================
H = (Sumxy - ((Sumx * Sumy) / NoOfPlottedPoints)) / (Sumxx - ((Sumx *
Sumx))) / NoOfPlottedPoints)))
============================================================
Worksheets("Data").Range("C3").Value = H
End Sub

*Sumx))) / NoOfPlottedPoints)))
le parentesi non tornano
le ultime 3 non sono chiuse da nulla
ciao Carlo
---
www.oxwen.it

 Sumx))) / NoOfPlottedPoints)))
Mi pare che il messaggio e il punto in cui l'IDE lo segnala sia abbastanza
chiaro :)
Conta le parentesi.
Ciao
--
Reporting tool: 
http://www.neodatatype.net

Ciao e grazie per il consiglio per l'errore di sintassi che
adesso è riparato ma mi dice:
=======================================
errore di run time "9" indice non incluso dell'intervallo
=======================================
sò che bisognerebbe settare la macro ma non conoscendo il linguaggio
VB(farò un corso!!!) non ne vengo fuori, grazie per l'aiuto!!!!

Ciao l'errore di sintassi adesso è riparato ma mi dice:
===========================================================
errore di run time "9" indice non incluso dell'intervallo
===========================================================
sò che bisognerebbe settare la macro ma non conoscendo il linguaggio
VB(farò un corso!!!) non ne vengo fuori, Grazie!!!!!
===========================================================================
Zanna ha scritto:


 sò che bisognerebbe settare la macro
Per fare che?

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Fare telnet in automatico

Come posso fare da visual basic a far partire un telnet verso una
determinata porta di un host, inviare delle stringhe, ricevere quello che mi
risponde l'host remoto, ecc ecc
Grazie per la risposta

Si deve usare il componente Winsock che ti permette di specificare l'ip a
cui connetersi, la porta remota, inviare i dati e riceverli... Da una
occhiata alla Msdn... Consiglio migliore è dirigersi verso il sito comune...
c' è un esempio molto ben fatto... "winsockb.zip"!....
SitoComune: 
www.it-lang-vb.net
Ps: Consulta sempre il sitoComune prima di postare.. te lo consiglio per
evitare che tu sia assalito...

 ha scritto

piuttosto, per conoscere qualcosa che gli puo' servire parecchio.
j.sc

ok.. labradorina.. :)

 ok.. labradorina.. :)
con una bella scodinzolata ottengo tutto.
compresa la distruzione di tutti i soprammobili inferiori ai 55 kg.
ciao, j.tail

 ha scritto nel messaggio
news:9o2pjg$a1rl7$1...@ID-51318.news.dfncis.de...

Adesso basta!!!
1) Sono mesi che non posso piů bere mentre sfoglio il Ng, per salvaguardare
monitor e keyb...
2) Ho ormai rinunciato anche a mangiare, nella speranza di non lasciare
questo mondo (per pazzo che sia) soffocato da un boccone...
e fin qui va bene...
...ma non posso aspettare che mi passi la tosse per sfogliare quatto post...
ROTFL
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Query su Access

Salve, in un database Access ho 2 tabelle eventi la stessa identica
struttura che chiameremo FRUTTA_1 e FRUTTA_2. 
La tabella FRUTTA_1 contiene 3 record:
	Pera
	Mela
	Uva
La tabella FRUTTA_2 contiene 2 record:
	Pera
	Mela
E' possibile fare una query a campi incrociati tra le 2 tabelle che mi
dia i record NON contenuti nella seconda tabella?
Grazie
Giuliano

 dia i record NON contenuti nella seconda tabella?
Scrivo "a braccio" perché non ho sotto mano Access per verificare la 
correttezza, comunque dovrebbe essere una cosa del genere:
Select CampoFrutta From Frutta_1
Where CampoFrutta Not In (Select CampoFrutta From Frutta_2)
William. 


Ciao potresti fare una left join del tipo :
select * from frutta_1 F1
left outer join frutta_2 F2 on F1.chiave = F2.chiave
where F2.chiave is null
verifica la sintassi (questa sicuramente funziona su sqlserver), ma
dovrebbe andare.
N.

On 6 Giu, 12:11, 
giulianolo...@tiscali.it
 wrote:

Tendenzialmente quello che hai fatto potrebbe non essere corretto.
Perchè hai 2 Tabelle uguali da mettere in JOIN...?
La cosa potrebbe essere spiegabile solo se una delle 2 fosse una
tmpTable o di appoggio, contrariamente potrebbe essere discutibile.
Per la sintassi SQL invece potrebbe essere quasi giusta quella
proposta da "luss" ad eccezione dell'OUTER JOIN non supportato da JET.
Potrebbe essere così:
SELECT * FROM Frutta_1
LEFT JOIN Frutta_2  on Frutta_1.chiave = Frutta_2.chiave
WHERE Frutta_2.chiave is null
@Alex

proposta da "luss" ad eccezione dell'OUTER JOIN non supportato da JET.
E in effetti il codice di Alex funziona perfettamente. 
Grazie, anche a Luss e a William.
Giuliano
Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP-VB.NET] Obfuscator

Ciao
Nel libro di F.Balena ho letto che in VS 2003 c'è l'utility "Obfuscator" ma
non l'ho trovata . . . puo darsi che sia perchè ho solo la ver. standard???
C'è qualcos'altro in giro???
Grazie

 ha scritto nel messaggio 
news:fJgxd.33672$Zk.6...@twister2.libero.it...

Nell'istallato nella macchina di sviluppo, vs2003 prof,
menù Strumenti > Dotfuscator Community Edition
al clic si attiva una finestra che propone un Contratto di licenza.
Ad oggi non l'ho utilizzato
Ave
giuseppeD
---
CCR

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

salve gente!!
vorrei sapere dove posso trovare manuali in rete e cartacei per programmare
con visual basic
grazie

 wrote in message
7v7aec$pc8$1...@draco.tiscalinet.it...

Prova in questo sito :
ftp://ftp.areacom.it/vb32/

Newsgroup: it.comp.lang.visual-basic
Titolo: Nodi in una listview

Salve a tutti e scusate l'intrusione,Volevo sapere se è possibile aggiungere
dei nodi come nelle treeview in una listview, oppure se ci sono controlli
alternativi che possa usare.
Grazie

 ha scritto

Sì, il TreeView.
Scusa la battuta, ma credo che sia l'unica risposta possibile.

 Sě, il TreeView.


 conosci"credo di si",puoi consigliarmi un controllo che faccia al caso
mio.
No, mi spiace, non li/ne conosco.
Uso solo lo stretto indispensabile, per principio e ... cautela.

 ha scritto

forse
www.vbaccelerator.com

 ha scritto nel messaggio
news:akll62$1kdih5$1...@ID-51318.news.dfncis.de...


 ha scritto nel messaggio
news:xGrb9.121100$n04.3...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma Visual Basic per emissione ricevute/fiscali e/o fatture

Salve a tutti,
volevo sapere se un programma in V.B. con annesso db access deve
essere sottoposto a qualche certificazione da parte del ministero
delle finanze, nel caso in cui debba stampare delle ricevute fiscali
e/o fatture per un'attività di ristorazione.
Tenete presente che il documento utilizzato per emettere la ricevuta è
del tipo buffetti, quindi con il codice univoco della ricevuta
registrato dal ministero delle finanze, ed è quindi esso stesso un
documento fiscalmente valido.
Grazie
Marco

 ha scritto nel messaggio
news:783cd0da.02021...@posting.google.com...
: Salve a tutti,
: volevo sapere se un programma in V.B. con annesso db access
deve
: essere sottoposto a qualche certificazione da parte del
ministero
: delle finanze, nel caso in cui debba stampare delle ricevute
fiscali
: e/o fatture per un'attività di ristorazione.
    Assolutamente no.
: Tenete presente che il documento utilizzato per emettere la
ricevuta è
: del tipo buffetti, quindi con il codice univoco della ricevuta
: registrato dal ministero delle finanze, ed è quindi esso stesso
un
: documento fiscalmente valido.
    Quello è il progressivo di stampa delle ricevuta e non è
riconosciuto dal Ministero. Il Ministero concede
un'autorizzazione alla stampa di documenti fiscali ad un
tipografo (in questo caso la Buffetti) il quale, a sua volta,
deve numerare progressivamente i moduli che mette in commercio.
--
a bien tot,
vbenry

...

Grazie
Marco

 ha scritto nel messaggio
news:783cd0da.02021...@posting.google.com...

ASSOLUTAMENTE NO.   Solo per la stampa DEI MODELLI delle Bolle di
Accompagnamento (in vigore solo per alcune categorie), non per la loro
compilazione, è richiesta l'autorizzazione del ministero.
Newsgroup: it.comp.lang.visual-basic
Titolo: drive

salve
sono una neo quasi programmatrice in visual basic alle prime armi
ho un problema: (veramente piu' di uno)
ho provato  a fare un programma in cui ho inserito un selettore dei driver.
se provo ad accedere ad un driver non presente (ad ex a:\) il programma va
in debug
Come faccio a risolverlo?
nella guida ho trovato driveExists, ma il mio programma non lo riconosce, o
forse io non so come usarlo
vorrei che selezionando un drive non presente, il selettore dei drive
tornasse su c
GRAZIE

 wrote in message 89gr3m$809$1...@nslave2.tin.it...


 wrote




 > dice se esiste l'unità o no, quindi l'untà A: esiste sempre.


 in questo contesto)
l'evento "change_drive1" ?
pal

Da mè è tin che è lento e mi inchioda il browser,  mentre libero infostrada,
va decentemente.
Dovrebbe comunque essere più veloce tiscali,  purtroppo da me non c'è il pop
(ho provato quello di Carpi).
a) Select else .....   guarda che questa non voleva essere un'applicazione
intera funzionante ma solo un esempio di codice.
b) Hai ragione sul left al posto del mid, ma l' else invece occorre nel caso
che l'utente prema il bottone annulla.
c) In caso di errore non si posiziona su c: ma sull'ultimo drive valido,
infatti il DirListBox contiene l'ultimo path corretto !
Daltronde nel tuo codice di esempio fai la stessa cosa però con l'ausilio di
una variabile globale oldDrive. Personalmente preferisco usare meno
variabili globali.
d) La soluzione di usare l' api getdrivetype per me non ha senso. Se vuoi
usare le api di windows allora programma in c++ e non in vb, i programmi
gireranno sicuramente più veloci. In vb le api devono essere usate solo come
ultima spiagga quando non esiste altro metodo, oppure quando ti occorre
velocità per un tuo algoritmo, tieni inoltre presente che prima o poi M$
includerà le api dentro delle librerie di oggetti.
e)l'evento "change_drive1" ? .....  Ma dai, non fare il pignolo che hai
capito!   :-))
            Saluti

 capito!   :-))
infatti :):)
ciao, a.

Private Sub Drive1_Change()
Dim fs As New FileSystemObject 'oggetto Scripting.FileSystemObject
If fs.GetDrive(Drive1.Drive).IsReady Then Dir1.Path = Drive1.Drive Else
MsgBox ("Disco non in linea"): Drive1.Drive = Left(Dir1.Path, 2)
End Sub
Visto ?
4 righe !
ciao

 ha scritto

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto: OpenRecordset!!! URGENTE

Come posso creare un recorset da una tabella (NON MODIFICABILE) chiamata
"Elenco tipologie elemento" cioč con degli spazi nel nome??
Uso DAO 3.51 object library.
Ho provato con gli apici...ma non funziona, senza (logicamente) non
funziona...... non riesco ad uscirne.
Grazie a tutti quelli che mi aiuteranno.
Ecco l'istruzione:
SBAGLIATO
Set rs = db.OpenRecordset("SELECT * FROM 'Elenco tipologie elemento' " & _
        "WHERE Oggetto LIKE 'Tp*'")
SBAGLIATO
Set rs = db.OpenRecordset("SELECT * FROM Elenco tipologie elemento " & _
        "WHERE Oggetto LIKE 'Tp*'")
OK
Set rs = db.OpenRecordset("SELECT * FROM Elenco_tipologie_elemento " & _
        "WHERE Oggetto LIKE 'Tp*'")

Usa le parentesi quadre.Ad es.
SBAGLIATO
Set rs = db.OpenRecordset("SELECT * FROM 'Elenco tipologie elemento' " & _
        "WHERE Oggetto LIKE 'Tp*'")
GIUSTO
Set rs = db.OpenRecordset("SELECT * FROM [Elenco tipologie elemento] " & _
        "WHERE Oggetto LIKE 'Tp*'")
Quando crei le istruzioni SQL,usa Access,che e' semplice e molto potente.
Ciao

 Set rs = db.OpenRecordset("SELECT * FROM [Elenco tipologie elemento] " & _
        "WHERE Oggetto LIKE 'Tp*'")
Cosě funziona

Newsgroup: it.comp.lang.visual-basic
Titolo: DataGrid monoColonna

Apro un recordset Aziende e lo applico al datagrid (via codice)
Il recordset contiene una ventina di colonne.
Ora io vorrei avere una datagrid che contenga appena la RagSoc dell'azienda.
Come faccio a far sparire le colonne che non mi interessano ?

 ha scritto

come con la dbgrid.
clic dx sulla griglia, properties, layout -> togli la spunta a "visible".
j.
Newsgroup: it.comp.lang.visual-basic
Titolo: Salvataggio pagina web

Ciao ragazzi, se con vb6 metto un controllo webbrowser nella form, mi è poi
possibile salvare la pagina che ho aperto? quel che mi interessa è l'HTML
della pagina... se si come si fa?!
Ciao e grazie a tutti per l'aiuto!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Con webbrowser non ricordo, ma con Inet puoi col metodo OpenURL (e passi i
dati ad una stringa che salvi su file)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

 dati ad una stringa che salvi su file)
ehm.. scusa l'ignoranza ma Inet che č?! come se fa?! cmq, x spiegarmi
meglio, dovrei lanciare il "Salva con Nome" di Internet Explorer. Grazie x
l'aiuto, e scusa ancora x l'ignoranza...


 Ciao e grazie a tutti per l'aiuto!
wb non basta, o almeno, c'e' un modo piu' immediato aggiungendo dei
riferimenti.
cerca un mio post di pochi giorni fa.
ciao, j.

 Grazie x l'aiuto, e scusa ancora x l'ignoranza...
Cerca "Inet visual basic" su google gruppi ed avrai ogni risposta ai tuoi
dubbi (sono cose che abbiamo detto già molte volte)


 quel che mi interessa è l'HTML
'*.vbs
Option Explicit
Dim IE, FSO, AllDocument
Set IE = WScript.CreateObject("InternetExplorer.Application","IE_")
IE.Navigate "
http://google.it
"
While IE.ReadyState-4: WScript.Sleep 100: Wend
AllDocument = IE.Document.documentElement.OuterHTML
'AllDocument = IE.Document.body.innerText
IE.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateTextFile ("C:\saved_doc.html",true,0).Write AllDocument
MsgBox "Done"
--
Fosco

ragazzi vi voglio bene!
Provo subito!
Ciao e grazie!

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO, SQL ecc.

Un saluto a tutto il NG.
E' una vita che non scrivo, ma ho riavvicinato VB da poco per
immergermi nella crezione di un piccolo DB.
Ho iniziato a usare ADO su VBA in Access 2000 e ho un problemino...
Prendo come esempio il solito Northwind per chiarezza e come esempio.
Cerco di essere breve...
Nella tabella Ordini c'è una campo IDImpiegato numerico che prende i
valori dalla tabella Impiegati in collegamento uno-a-molti.
Nella stessa tabella, secondo la query SELECT DISTINCTROW ecc., viene
visualizzato il nome dell'impiegato (ad esempio 'Buchanan, Steven' che
ha IDImpiegato=5.
Ora se in VB voglio creare un Recordset ADO che contenga e visualizzi,
ad esempio, i campi IDOrdine e il nome dell'impiegato della tabella
Ordini, creo un ADO.Command e scrivo:
With MyCmd
   .ActiveConnection = CurrentProject.Connection
   .CommandText = "SELECT IDOrdine, IDImpiegato FROM Ordini"
   .CommandType = adCmdText
   .Execute
End With
Quindi creo un ADO.Recorset:
With MyRst
    .CursorType = adOpenKeyset   ' o altro...
    .LockType = adLockReadOnly   ' o altro...
    .Open MyCmd
End With
Quindi...
Debug.Print MyRst.Fields(1) 
...stampa, ovviamente, il numero 5 e non il nome dell'impiegato (tale
'Buchanan, Steven' che se lo incontro lo spello...).
Come si fà a far entrare nel Recordset il nome e non numero? Cioè come
si fà a scrivere la query nella proprietà CommandText in modo che nel
Recordset entri il nome?
Ho, per la verità provato a scrivere una sottoquery, ma il "dialetto"
di SQL da usare non mi è chiarissimo....
Oppure... qual'è il modo "funzionante" per ecuperare quel valore?
Modificando le tabelle ed evitando la query nel campo IDPersonale
della tabella Ordini o altro?
Comunque ADO è proprio forte! 
Ciao e grazie!
--
Giorgio

    .CommandText = "SELECT IDOrdine, IDImpiegato, (Select NomeImpiegato
From Tabella_Impiegati Where Tabella_Impiegati.IDImpiegato=IDImpiegato) As
Nome FROM Ordini"

 Nome FROM Ordini"
Grazie! In effetti č quello che volevo, solo che mi ero un po' perso
con le virgolette e il simbolo & nella stringa SQL del CommandText...
e non avevo usato la parola 'AS'...
Ciao
-- 
Giorgio