mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Valore Numerico...come lo leggo?

Salve a tutti
Ho un valore in una chiave del  Registro che devo leggere, ma mentre se
fosse una stringa non avrei problemi, questo valore č un numero esadecimale.
Ho provato a usare la funzione che usavo normalmente, timprovvisando una
modifica in long.....ma non va.
Come faccio a leggerlo?
Grazie a tutti.
Ciao
p.s. La funzione originale, che funziona con le stringhe, č cosě:
Public Function GetRegValue(hSubKey As Long, sKeyName As String) As String
   Dim lpValue As String   'value retrieved
   Dim lpcbData As Long    'length of retrieved string
  'if valid
   If hSubKey <> 0 Then
     'Pass an zero-length string to
     'obtain the required buffer size
     'required to return the result.
     'If the key passed exists, the call
     'will return error 234 (more data)
     'and lpcbData will indicate the
     'required buffer size (including
     'the terminating null).
      lpValue = ""
      lpcbData = 0
      If RegQueryValueEx(hSubKey, _
                         sKeyName, _
                         0&, _
                         0&, _
                         ByVal lpValue, _
                         lpcbData) = ERROR_MORE_DATA Then
         lpValue = Space$(lpcbData)
        'retrieve the desired value
         If RegQueryValueEx(hSubKey, _
                            sKeyName, _
                            0&, _
                            0&, _
                            ByVal lpValue, _
                            lpcbData) = ERROR_SUCCESS Then
            GetRegValue = TrimNull(lpValue)
         End If  'If RegQueryValueEx (second call)
      End If  'If RegQueryValueEx (first call)
   End If  'If hSubKey
End Function
Public Function TrimNull(startstr As String) As String
   TrimNull = Left$(startstr, lstrlenW(StrPtr(startstr)))
End Function

 Ciao
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: evento chiusura

posso riuscire ad intercettare la richiesta di un utente di spegnere il
p.c.?
in effetti aver la necessità di capire se l'utente ha eseguito l'operazione
di chiusura pc
start
chiudi sessione
ok.

 p.c.?
Si', ma in quale contesto?
Sei in una applicazione che svolge determinate attivita' e deve sapere 
se viene comandato lo spegnimento per rilasciare correttamente 
determinate risorse?
Sei nell'ambito di un servizio/demone?
Devi svolgere qualcosa di preciso solo immediatamente prima di spegnere 
il pc?
-- 
ciao, hal

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


Appunto !!! Prova a leggere cosa ritorna la variabile unloadmode.
http://snipurl.com/b6h7
Newsgroup: it.comp.lang.visual-basic
Titolo: Principiante VB6

Salve ,da poco mi diletto a fare dei piccoli programmi con VB6
ho creato una piccola applicazione per archiviare , ricercare , modificare
dei file di testo , questa applicazione gira benissimo sul mio PC ( win 98 )
ma quando la installo sul PC dell'ufficio ( e' li che mi servirebbe questa
applicazione) che ha Win NT non funziona molto bene cioe' il programma parte
alcune cose funzionano altre no a volte mi esce un errore :" errore di run
time 53
file not found " altre volte solamente " file not found ".
Per installare l'applicazione ho usato la "Creazione guidata pacchetti di
installazione" di VB6 che fa praticamente tutto da sola automaticamente
quindi non so' esattamente cosa fare .
Qualcuno puo' darmi qualche consiglio sul da farsi ???
Grazie anticipatamente a tutti quelli che vorranno esprimere il loro parare.
CIAO

 wrote in message
891ia7$a4t$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: facile facile per text.text

Come faccio a dire i primi 2 numeri scritti del text1.text vanno nel 
text2.text  mentre i secondi numeri scritti  text1.text vanno nel 
text3.text. 

 ha scritto nel messaggio 
news:L07hj.42683$8j3....@tornado.fastwebnet.it...


 text3.text.
text2.text=left$(text1.text,2)
text3.text=Right$(text1.text,2)
Sempre se sei sicuro che il numero sia di 4 cifre
ciao.......... 

 ha scritto nel messaggio 
news:47850057$0$10626$4faf...@reader2.news.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: gestire i bit

scusate sotto visual basic è possibile gestire un byte, come se fosse un
insieme di 8 bit, e quindi operare su ciascuno di esso?!
Grazie
Davide
--
=======================
Non approvo ciò che tu dici,
ma difenderò a costo della
mia vita il tuo diritto a dirlo ( Voltaire )
=======================

 insieme di 8 bit, e quindi operare su ciascuno di esso?!
Puoi gestire qualsiasi variabile numerica come un insieme di bit.
Vedi And  e Or.

Newsgroup: it.comp.lang.visual-basic
Titolo: OT orologio

qual'è il codice vb per un orologio
grazie

 grazie
Crea un progetto nuovo e copiaci dentro questo codice:
Option Explicit
Private Sub Form_Activate()
   Me.AutoRedraw = True
   Do While True
      Me.Print Time
      DoEvents
      Cls
   Loop
End Sub
Ciao
*Roby*
P.S.
Se volevi qualcosa di diverso, dovevi essere più chiaro. :-)

 qual'è il codice vb per un orologio
with clock
    .ShowTIme
    .driiiiiin vbOn
    if .snooze then
        if msgbox("Vuoi un programma già fatto?", vbyesno+vbquestion, "Cosa
vuoi?") = vbno then
            msgbox "E' ora di leggere il benedetto manuale" & vbcrlf & "a
partire da 'firstapp'", vbokonly + vbcritical, "Sveglia Vb"
        else
            msgbox "Allora cerca su google", vbexclamation+vbokonly, "!!!"
        endif
    endif
end with
(senza polemiche)
ciao
ugo

            msgbox "E' ora di leggere il benedetto manuale" 
N.d.E.
Libera traduzione della F di RTFM ;-)
-- 
ciao, hal

 ha scritto nel messaggio
news:9tst6m$4kgcd$1...@ID-56381.news.dfncis.de...

_molto_ libera... preferivi letterale?      ;-)
ciao
ugo

 end with
Senti un po': ho copiato il tuo codice ma continua a darmi errori!
Ma che riferimento devo aggiungere al progetto?
Ciao


LOL
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: copia di file in vb

ciao ragazzi,
devo trovare un modo per copiare da una dir tutti i file *.abc e anche certe
directory... purtroppo pero' non riesco a trovare un metodo che faccia
questo! Mi spiego, ho trovato come copiare un'intera directory con il suo
contenuto (e questo e buono) oppure ho trovato come copiare tutti i files di
una directory ma nn riesco a trovare una funzione che mi copia i files di
una certa estensione e delle directory che specifico io da codice! Voi come
fate?
 ho escluso a priori di lanciare un copy da shell dos
grazie 1000
Dade

 delle directory che specifico io da codice! Voi come fate?
Salvo scriversi una funzione (per esempio con Dir) che "fotografi" la
struttura del disco (almeno per le parti interessate) e poi scandagli per
fare le creazioni e le copie del caso, pare che l'amante di GbC| sia
piuttosto ... "disponibile":
http://makeashorterlink.com/?C1DC213E5

 ha scritto nel messaggio
news:bk961j$qod37$1...@ID-174464.news.uni-berlin.de...


ghghghgh :))
la mia APE preferita :-)
-> GbC|
www.gbcweb.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Help in linea a ADO

Vorrei un vostro parere sulla documentazione di ADO (riferita a VB)
che è inserita nell'help in linea. 
A parte gravi lacune che ho trovato sull'Help stesso, trovo che per
quanto riguarda ADO ed anche il Data Environment le informazioni siano
molto frammentarie, l'utilizzo dei metodi e delle proprietà lasciato
al buon senso ed alla conoscenza dell'utilizzatore. 
Ho perso molto tempo per capire come assegnare un recordset creato
tramite DE ad un altro oggetto... pensavo di essere io stupido quando,
girando su vari NG stranieri che si occupano di VB,  ho scoperto che
c'è una confusione massima sull'argomento.
Voi che ne pensate ?
Alex

salve,
lo stesso Roger Jennings ha dato solo 6+ per la documentazione
lacunosa, frammentaria e disorganica a mio avviso
saluti
Andrea Montanari
hs...@guest.net

Voi che ne pensate ?
Concordo. Sto passando da Dao ad Ado con una fatica non indifferente e
alcuni problemi li ho risolti con intuito e fantasia (che per alcune cose di
Vb mi sembra stiano diventando piů importanti della guida in linea!).
Ciao.
matpascal

Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta d'aiuto risolta!

Ragazzi cel'ho fatta a far girare tutto!!! vi ringrazio siete stati dei
grandi! a presto!!!!
                 kobram
--
Odi et amo quare id faciam fortasse requiris
nescio sed fieri sentio et excrucior.
Catullo
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.449 / Virus Database: 251 - Release Date: 27/01/03

 ha scritto nel messaggio
news:4yX%9.182515$AA2.7...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Un OT al giorno ... toglie VB di torno.

... sempre finchè non mi segano.
Le mosche e le zanzare sono fastidiosissime per noi umani, penso anche per
altri viventi.
Si vocifera che hanno ragione di esistere per l'equilibrio naturale, in
pratica per farsi mangiare da qualche uccelletto. Sarà, ma io non giustifico
le une e nemmeno le altre. Gli uccelletti mi stanno invece simpatici.
Gli insetti, tutti, mi infastidiscono a morte e non ne comprendo l'utilità.
Specialmente se non è presente e pronto un uccelletto che se li pappa al
volo.

Beato l'uccelletto che riesce a mangiare le mosche
che passano sotto-accanto-sopra-a destra-ecc
di me :))
Sto pronto con la paletta e le spiaccico contro la prima
cosa alla quale si sono appoggiate ... ovviamente pc
escluso ... da li sopra prima le caccio :)
Anzi ... devo dire che sono migliorato ... quando ero
"piccolo" le acchiappavo sotto un bicchiere ... le facevo
rincitrullire per mancanza d'ossigeno ... poi prendevo
bomboletta spray e accendino ... e simulando un lanciafiamme
gli davo fuoco ... UAU :))
Spero che il wwf non mi fustighi per questo.
Ciao
Andrea

 Gli uccelletti mi stanno invece simpatici.
Anche gli avvoltoi?
Ciao
*Roby*

 Gli insetti, tutti, mi infastidiscono a morte e non ne comprendo
l'utilità.
E per ironia della sorte se dovesse scoppiare una guerra nucleare gli unici
animali che non subirebbero degenerazioni genetiche sono proprio quelli
imparentati con gli scarabei (scarafaggi compresi).
Ciao

 imparentati con gli scarabei (scarafaggi compresi).
bei faggi :)
poveretti, nel caso dei secondi mi sembra che la genetica abbia gia'
dato...

Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensione Form in formato A4

Salve, volevo sapere come devo impostare le varie proprietà di un form (
ScaleMode,ScaleWidth ecc. ecc.)affinchè esso abbia le dimensioni di un
foglio in formato A4 (29.7cm x 21cm).Ho letto anche la documentazione con
l'F1, ma non sono riuscito
a raggiungere lo scopo.Qualcuno mi puo' aiutare?.
Grazie
Nicola

 foglio in formato A4 (29.7cm x 21cm)
me.scalemode= 7
me.scalewidth= 21
me.scaleheight=29,7
--
Dark Hado
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] dove trovare Northwind.mdb inglese in internet

Se a qualcuno serve il database Northwind.mdb in inglese è all'indirizzo
http://yunus.hacettepe.edu.tr/~tonta/courses/spring2002/dok322/Northwind.zip
Qualcuno conosce una fonte più ufficiale?
PS scusate l'ot, ma io ho perso un sacco di tempo per trovarlo, ed è
indispensabile per numerosi esempi dell'msdn!
--
   .o0o.o0o.o0o.o0o.
   0    zMatteo    0
   .o0o.o0o.o0o.o0o.

alcune considerazioni:
1) non sei OT, anzi......(secondo me)
2) che diff ci sono tra il Northwind.mdb ITA e il Northwind.mdb ENG? Cambia
la struttura del db o solamente i dati?
3) per trovarla, basterebbe avere una licenza ENG di Visual Studio, giusto?
adesso sono fuori ufficio, ma se serve posso vedere di recuperarla
io........
un'ultima cosa: qualche Northwind.mdb? quello di VS6.0 o 
VS.NET
? sono
uguali?
good coding a tutti!!!
 --
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 uguali?
Non so, ma credo siano identici.

 uguali?
una post-ultima:
si puo' distribuire ?
con vb6pro usa c'e', ma ho forti dubbi...
capisco che e' una scemenza, ma da chi sta per sfornare
la collezione .net-fall2003-winter2004...

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

Scusate ma ...come si registra un ocx?
Ho creato un exe in VB e quando lo porto su un altro PC non mi trova il
crystl32.ocx o che non è correttamente registrato.
Posso incorporare tutto nell'exe? Come?
Grazie
webm...@itermar.it

> Scusate ma ...come si registra un ocx?
- Prompt dei comandi
- "cd <directory con ocx>
- "regsvr32 crystl32.ocx"

Newsgroup: it.comp.lang.visual-basic
Titolo: keybd_event con caratteri Unicode

Ciao,
sto usando keybd_event per simulare la pressione di alcuni tasti.
Il problema nasce quando devo inviare dei caratteri Unicode (ad esempio dei
caratteri cirillici), che l'API di cui sopra non gestisce, mi sembra che
digerisca solo i VirtualKey.
Come faccio?
Googlando vedo che per i caratteri Unicode si consiglia di usare la
PostKeybdMessage, ma i post riguardano tutti lo sviluppo per ppc, non vorrei
che per Win32 tale api non esista, non so come dichiararla ne in quale dll è
contenuta...boh!
Confido nel vostro aiuto :-)
Ciao, Luca.

Mi spiego meglio:
devo inviare ad una aplicazione esterna un carattere unicode.
Immaginate di dover inserire, chessò, un carattere arabo (es. Arial U+FDF2)
Come posso fare?
Ho alcune idee ma ci sto ancora lavorando...
1) usare la clipboard
2) SendMessageW
3) cambiare il set della tastiera nella lingua in questione e usare i
VirtualKey
4) altro???
Apropò, si può accedere via codice ai contenuti della mappa caratteri, per
elencarli ecc. ecc. ?
Grazie.
Ciao, Luca.
Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic 6.0 e Win2000

Ciao a tutti
ho il bisogno di conoscere quali impatti ha un'applicazione sviluppata con
VB 6.0 Enterprise Edition perfettamente funzionante su Win NT 4.0 migrato
su Win2000.
E' necessario installare qualche Service Pack?
Grazie in anticipo.
Claudio
-- 
Posted from [193.76.211.31] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Io uso VB6.0 Pro SP4 sotto WIN2K e tutto sembra funzionare bene...
L'unico problema lo ho riscontrato con il tool che crea pacchetti
d'installazione che non funzionano sempre...

 E' necessario installare qualche Service Pack?
Se il prg non fa cose strane, direi che non ci siano problemi.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net puntatori o cosa??

Ciao a tutti
dovrei passare dei dati tra due applicazioni scritte in 
vb.net
 ma non so 
come fare.
Mi spiego meglio:
una delle due applicazioni genera dei dati che va a scivere su un file di 
testo
la seconda applicazione deve recuperare i dati generati il prima possibile
Inizialmente avevo pensato di far leggere il file di testo in continuazione 
così avrei sempre avuto i dati che venivano scritti dalla prima ma 
sincieramente non so se è possibile e se la cosa può riuscire.
Poi avevo pensato di usare uno spazio di memoria utilizzato dalle due 
applicazioni per scambiarsi i dati. In C lo avrei fatto usando i puntatori, 
ma in 
vb.net
 come faccio??
Sapete consigliarmi una soluzione??
Grazie
Luisa 

 Sapete consigliarmi una soluzione??
Volendo rimanere nell'ambito di allocazione di memoria, si potrebbe pensare
alle named pipe.
Pero' secondo me è molto piu' semplice creare una comunicazione via socket
tra le 2 applicazioni.
L'applicazione A per esempio, oltre a scrivere i dati sul file di log se
necessario, spara gli stessi via Tcp (o Udp) in localhost e l'applicazione B
li raccoglie al volo.
Umbe

 ha scritto nel messaggio 
news:e8iogm$sbm$1...@fata.cs.interbusiness.it...

Il metodo nativo per questo in .Net è Remoting.
Se cerchi un po' in google troverai decine di esempi.
In pratica ti crei una classe di interscambio tra le due app.
Ciao
P.s.: dubito che usare un puntatore in C funzioni data la separazione delle 
aree di memoria per le singole app attuata da windows.
Ciao

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

Come faccio a visualizzare in una finestra ciò che vedo sulla webcam con
visual basic?

 visual basic?
Sito Comune
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com
Newsgroup: it.comp.lang.visual-basic
Titolo: VB2005 Express e MSDE2000

Ciao,
    vi faccio una domanda al volo:
con VB2005 express posso connettermi ad un motore SQL MSDE2000 o 2005
residente su un pc remoto?
oppure devo passare a VB2005 professional o altra licenza?
Ciao e grazie

 residente su un pc remoto?
Certo che si!
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site: 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
Gamertag XBOX Live: Carmine XX
http://live.xbox.com/it-IT/profile/profile.aspx?pp=0&GamerTag=Carmine+XX
 


noto una buona capacità di sintesi....
Ma come ci si connette?
con ADODB?
come per vb6?
C'è un qualche wizard per creare la stringa di connessione?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Ci riprovo...è troppo difficile?.:ActiveX Remote Server (3°)

Ho due PC in rete.
Dal primo PC vorrei comprimere un file residente sul secondo PC.
Il compressore (ari,pkzip,ecc..) risiede sul 2°PC.
Non voglio comprimere tale file dal 1° PC (client) usando le sue risorse
perché vorrebbe dire richiamare nella memoria del 1°PC il file nella sua
interezza (diversi Mega) elaborarlo nel 1° PC poi scaricare sul 2° PC
(server) il file compresso.
Questa operazione comporta un esoso traffico di rete visto che questi due PC
dovrò collegarli in Accesso Remoto quindi tramite un Modem. Immaginate
quindi la differenza di trasferire un file di per esempio 10Mb da una
macchina all'altra a 28.000 anziché ordinare (come???) al 2° PC di
comprimermi prima quel file riducendomelo così di molto e poi trasferirmelo
sul 1° PC.
Note:
Il file in questione è un .MDB in continua mutazione quindi non posso
comprimerlo una volta per tutte sul server, ma solo al momento della
richiesta dal 1° PC.
Il 2° Pc ha istallato W98 ma se servisse può diventare un Server NT.
Questo messaggio segue quello di ieri 'AIUTO:ActiveX Remote Server '
Ringrazio Riccardo Sale per l'impegno nel rispondermi, ma il problema
rimane.
Ora mi chiedo A COSA SERVONO I COMPONENTI OUT-OF-PROCESS REMOTI (descritti e
declamati nelle caratteristiche strabilianti di VB5) se non ad una cosa del
genere???
Da qualche parte ho letto pure dei 'DCOM' con la necessità di installare il
programma DCOM95.EXE in W95. E' necessario anche per W98?? Ma questa è una
domanda superflua visto che non ho capito cosa fanno e come usare sti DCOM.
Sono nella ca..a.
Grazie per qualunque suggerimento..
Ciao Paolo.
pa...@citynet.re.it
 (togliere una k dall'indirizzo)
PS.
Non c'è proprio niente di più teconlogico del vecchio sistema di spedire un
file al server in una determinata directory quando sul server c'è un
programma che interroga continuamente la presenza del tal file nel tal posto
e quando questo'compare' ne esegue il comando contenuto (guarda caso un
comando tipo 'pkzip xxx.mdb xxx.zip').
...che tristezza...

Tutto quello che posso dirti e' che sul sito MS esiste un esempio di quello che vuoi fare tu e funziona perfettamente... purtroppo l'ho cercato oggi ma non lo trovo piu'. Mi pare che dovesse stare sotto 
msdn.microsoft.com/vbasic
 ma non ricordo in quale sottomenu' (comunque tra gli esempi, ed era free).
Comunque dovrei averlo anche a casa, se lo trovo te lo mando via e-mail.
Ciao
Riccardo

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

mi spiegate come funziona ? sappiate che non ho nessun help ...
Grazie

 wrote in message
7nvt22$1o8e$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Penis

sakasaslaskljkasjlasljkasa

Scusate
stavo testando il messaggio di Java
e ho cliccato per errore.
di nuovo
giuseppeD

e ho cliccato per errore.
Ma che subject usi per i tuoi test ?? :-)
Stefano "HappyMan" (Lago Maggiore - NO)
--
http://www.sgr.info
Email happyman69 (at) 
libero.it

 Ma che subject usi per i tuoi test ?? :-)
un po' alla c.d.c., non fosse che j e' una cagna :)

 ha scritto nel messaggio
news:bici53$7a9am$1...@ID-51318.news.uni-berlin.de...

Continuo a ricevere offerte di prodotti che aumentano .....
Non capisco come si è sparsa la voce ^___^
giuseppeD

 Non capisco come si è sparsa la voce ^___^
i miei spammer avranno passato il tuo email ai tuoi spammer :)

 i miei spammer avranno passato il tuo email ai tuoi spammer :)
Che forse sono gli stessi spammer... ;-)

 ha scritto

alt. ci sono spammer e spammer. i tuoi ? i nomi, prego :P

 alt. ci sono spammer e spammer. i tuoi ? i nomi, prego :P
Se sapessi i nomi, dimostrerei alle loro fidanzate, mogli, sorelle e cugine
che non ho problemi "hardware"! <BG>


Effetti della mucca pazza ? ^__^
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: Visibilità metodi e classi fra loro

Ammetto che ogni tanto mi perdo e la vecchia nostalgia del vb6 mi
torna!
Specialmente quando la mia mente procedurale si incastra nei meandri
dell'OOP!!!
Sto studiando e mi imbatto in un esempio del tipo:
Una applicazione per il web....controllo del login
Ho una classe
PUBLIC mioServizio dove ho un metodo Pubblico
ControllaLogin(Utente,PW)
mioServizio.ControllaLogin("pippo","pluto") mi riporta si o no! (fa
controllo sqlinjection query connessione bla bla bla)
Tutto OK!
Ad esso volevo salire di complessità
Ho introdotto un campo Livello sul database...in pratica mi riporta il
livello di abilitazione dell'utente
basta cambiare la query e il valore riportato e tutto ok!
Adesso volevo salire ancora di grado
volevo fare un metodo CheckLogin(nome,password) che mi riportasse una
Classe UtenteAccreditato
MA
questa classe fosse con tutte le proprietà readOnly (perchè non usi
una struttura?...perchè no! Che imparo altrimenti???)
Volevo una classe Utente....con Utente.Nome Utente.Cognome
Utente.livello Utente.indirizzo
Ma come farla?
Dovrei avere una classe PUBBLICA visto che viene resa da un metodo
Pubblico di una classe Pubblica....ma le proprietà con che cosa le
scrivo?
In altri termini
mioServizio dovrebbe POTER scrivere dentro Utente per valorizzare le
proprietà...tutti le altre classi solo leggere le proprietà!
quindi un metodo visibile solo da mioServizio!!!....ma non mi riesce
farlo!
Ed allora....
Mi vengono in mente solo metodi complicati....tipo un metodo che
accetta i valori ed un ID che controlla e accetta i valori solo con
l'ID che corrisponde alla classe mioServizio.
Ma giocando di public friend e menate varie non ci si riesce???
Maledetta OOP....c'ho una confusione in capo!

 Maledetta OOP....c'ho una confusione in capo!
Rendi Readonly le proprietą pubbliche che non vuoi che possano essere 
settate da un client esterno.
Mentre per impostarne i valori dal tuo servizio stabilisci dei metodi Friend 
(oppure delle property writeonly).
Es:
Private mID As Integer
Public ReadOnly Property ID() As Integer
Get
    Return mID
End Get
End Property
Friend Sub SetID(ByVal Value As Integer)
    mID = Value
End Sub
Spero sia quello che intendevi!
Bye
Raf 

 Raf
Beh a questo ci avevo pensato...però...è friend per tutte !
Mi spiego
se ho la classe A  B C
e poi mi faccio la classe D
D la vorrei far vedere a tutte...quindi è Public o Friend.....
ma se esiste un metodo SETqualcosa lo possono usare sia A che B che C
ma solo A sà cosa scriverci...B e C è pericoloso che possano usarlo!
L'unico sistema che mi viene in mente stamani
e di DERIVARE D da A....allora solo A (credo) possa impostare delle
variabili interne a D
ma lo credo io...non so se è vero!
Non so se quello che chiedo ha un nome....vorrei stabilire dipendenze
fra classi (A può vedere le variabili di D ...ma non B e C)....forse
sto reinventano un database???

 sto reinventano un database???
Oppure più semplicemente: A, D e B, C devono logicamente stare in assemblies 
(progetti) diversi.
Bye
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: catturare un testo da shell

domandona super difficile...lo ammetto...
e qui serve il miracolo !
allora...
uso una funzione simil ShellExecute
e lancio un programmino che mi fa'una serie di operazioni (nel mio caso un
rendering)
questo programmino apre una finestra dos..e qui dentro scrive tutti i
risultati delle operazioni che sta' facendo...
allora...
io riesco a lanciare il programma esterno.
capire quando ha finito di fare il suo lavoro...
ma non riesco a capire nel frattempo cosa mi scrive nella finestra dos...
c'e' un modo per "catturare" quel testo ?
per fare in modo che venga letto e processato dal mio programma ?
ogni "miracolo" e' ben accetto.
un salutone a tutti voi.

 per fare in modo che venga letto e processato dal mio programma ?
Dunque, ho avuto anche io un problema simile.
Dovresti riuscire a leggere la console (cosě si chiama, non "finestra dos")
da Windows, ma il problema č che con Spy++ ti da l'errore "The window can't
be spied upon", probabilmente una limitiazione di Windows :/
Quello che puoi fare č far si che l'output venga scritto su file di testo,
ad esempio cosě
dir c:\ /s >directory.txt
Non so se mi sono spiegato... č cmq un po' macchinoso :/

 wrote in message
news:a55id3$vp0$1...@newsreader.mailgate.org...


lo /s serve a scansionare tutte le subdir partendo da quella iniziale.....
volendo, se non ti serve, puoi togliere quel parametro....
la particolarità che ti ha suggerito Bald0z sta nel mettere >directory.txt,
che reindirizza l'output del comando dir su file invece che su schermo.....
in questo modo, appena finita l'esecuzione del comando, puoi aprire il file
in modalità testo e leggerci dentro.....
Good Coding!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 wrote in message
news:ao2e8.10344$Ns4.4...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Recordset...Help !!!

Ciao a tutti !!
Vorrei il Vostro aiuto perchč non riesco a copiare (clonare) il
recordset
di un controllo DATA in un'altro recordset :
esempio:
---------------------------
Dim rec2 As Recordset
...
...
Set rec2 = Data2.Recordset.Clone
---------------------------
non funziona: l'errore che ricevo č sempre:  type mismatch
Grazie per i suggerimenti !!!
Ciao,
======================================================================
        _                        _
     __| | __ _ _ __ ___   __ _ (_) __ _         Please e-mail me at
    / _` |/ _` | '_ ` _ \ / _` || |/ _` |        
dam...@stud.unipg.it
   | (_| | (_| | | | | | | (_| || | (_| |
    \__,_|\__,_|_| |_| |_|\__,_|/ |\__,_|        PGP key available
                              |__/
======================================================================
Windows 95 :     32 bit extensions and a graphical shell for
                 a 16 bit patch to an 8 bit operating system
                 originally coded for a 4 bit microprocessor,
                 written by a 2 bit company, that can't stand
                 1 bit of competition.
======================================================================

 non funziona: l'errore che ricevo è sempre:  type mismatch

Newsgroup: it.comp.lang.visual-basic
Titolo: datareport e sorgente dati

Salve ho questo problemino:
Form1:
ho un pulsante che mi lancia il datareport
Codice :
    pippo.show ' richiamo il datareport
Nel data report nell'initialaize ho scritto il codice per recuperare dei
dati:
Private Sub DataReport_Initialize()
    strCon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & strDbase
    Set objCon = CreateObject("ADODB.Connection")
    objCon.Open strCon
    Set objCmd = CreateObject("ADODB.Command")
    objCmd.ActiveConnection = objCon
    objCmd.CommandText = "stp_selezione_singola_azienda"
    objCmd.CommandType = adCmdStoredProc
    Set objPrm = objCmd.CreateParameter("id", adInteger, adParamInput, ,
id_azienda)
    objCmd.Parameters.Append objPrm
    Set objRs = objCmd.Execute
    'Report caratteristiche
    With pippo    'datareport1
        Set .DataSource = objRs
        With .Sections("section1")
            With .Controls("cavolo").DataField = objRs("ragione_sociale")
                Set DataField = objRs("ragione_sociale")    'IL MIO PROBLEMA
E' QUI--------------------------
           End With
        End With
    End With
End Sub
Private Sub DataReport_Terminate()
    objRs.Close
    Set objRs = Nothing
    Set objCmd = Nothing
End Sub
In pratica mi dice impossibile trovare datafield 'vuoto'
Ho provato a stamparmi il valore del recordset ed è giusto.....non capisco
quindi come associare la fonte dati da codice al campo testo del report.
Tnx per l'aiuto

Tnx per l'aiuto
Io ho avuto un problema analogo utilizzando oggetti Command gerarchici
(con raggruppamenti tanto per intenderci) . Ciò che non trovava erano
i DataField appartenenti al  primo Recordset figlio della gerarchia.
In tal caso la stringa SQL da associare alla proprietà CommandText
dovrà rispecchiare la sintassi che si rifà al comando SHAPE.
In altri termini la tua stringa SQL diventerà: SHAPE {SELECT ...    }
Il resto della sintassi dovrai adattarla alla tua specifica esigenza:
io l'ho ricavata dalla costruzione interattiva di un oggetto  Command
di un DataEnvironment.
Spero ti possa servire come dritta.
Ciao.   Loris

Newsgroup: it.comp.lang.visual-basic
Titolo: provider per access 2002

Ma esiste il provide per access 2002?
Chi a lavorato con access 2002 e ado?
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Chi a lavorato con access 2002 e ado?
Pare che dopo Access 2000 il motore Jet MDB verrà "abbandonato" infatti
Access 2002 continua ad usare lo stesso Motore Jet 4.0 (MDB) di Access 2000
ed in più hanno migliorato l'integrazione con SQL Server e MSDE (che
dovrebbe essere la tecnologia che soppianterà Jet/MDB...
                    Ciao
                                            Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Creazione di DLL

vi prego non ridete della domanda.
Creare un Dll e' inserire un tot di funzioni richiamambili???
e se si una volta creata la Dll come faccio da dentro VB a
dire che quella funzione MyFunc la deve rtroivare nella dll MyDll ??
Grazie 1000
--
!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
!"Il Paradiso e' pieno di santi che NON
! hanno avuto abbastanza occasioni di peccare."
!
!HomePage : 
http://www.levon.it/daniele
!
!------------------------------------------------!


Vedi "Declare" nell'help in linea.
--
Roal Zanazzi
z...@iol.it

Creare un Dll e' inserire un tot di funzioni richiamambili???


Newsgroup: it.comp.lang.visual-basic
Titolo: Il sito comune ?

Ho problemi io oppure il Sito Comune non è on line ?
Ciao a tutti
--
Gulp
....forse mi sono perso qualcosa !

 Ho problemi io oppure il Sito Comune non è on line ?
In questo momento a me è normalmente accessibile.

 ha scritto nel messaggio
news:2ihdrfF...@uni-berlin.de...

Anche in questo momento....
Ciao, Vincenzo

 ha scritto nel messaggio
news:TGMwc.419222$rM4.17...@news4.tin.it...

...ora no però?!!!

 ha scritto nel messaggio
news:TGMwc.419222$rM4.17...@news4.tin.it...



Ho sentito Moreno dato che ci dovrebbe essere un problema di DNS. Stiamo
investigando.

 Ho problemi io oppure il Sito Comune non è on line ?
Ho sentito ora Marco Frazzoli: ieri ha spedito il fax a network solutions 
per richiedere il trasferimento, ma han pensato bene di "staccarci subito 
la spina"... e ti ringrazio :-)
Il sito non sarà quindi raggiungibile per un paio di giorni.
Scusate il disagio, ma sinceramente non mi è mai capitato che 
disattivassero il servizio in questo modo: anch'io mi son staccato da 
Network Solutions più di una volta ed il trasferimento è stato del tutto 
trasparente... si vede che la libera concorrenza brucia :(
Ciao,
Moreno
Inviato da 
www.mynewsgate.net

 Stiamo investigando.
A proposito, a che punto sono i trasferimenti?
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

 A proposito, a che punto sono i trasferimenti?
Al punto che tra un po' ti darņ la mia password e mi metterņ a disposizione
per spiegarti cosa resta da aggiustare... in questo periodo sono preso da
tuttaltre cose! :(

 periodo sono preso da tuttaltre cose! :(
Non dirlo a me... fra una ventina di giorni riprendono le sessioni di esame
e sto studiando come un matto per poterli passare tutti (cosě a mio padre
schizzeranno gli occhi dalle orbite...). Inoltre sono in fase di
trasferimento da casa (se tutto va bene dovrei andar via a luglio).
Cmq grazie per esserti preso l'onere di darmi un SC funzionante.


Newsgroup: it.comp.lang.visual-basic
Titolo: Errore riferimenti

    xkè quando dal progetto faccio riferimenti mi esce l'errore Errore di 
accesso al registro di configurazione? 

 accesso al registro di configurazione?
   Prova a guardare qui, spero ti aiuti
http://support.microsoft.com/kb/269383/en-us
-- 
Fabio
http://www.codice.it
Newsgroup: it.comp.lang.visual-basic
Titolo: ? Visible o Left

Ipotizzate un Frame con dentro 2 CommandButton
I CommandButton devono essere visibili in una determinata condizione e
invisibili in un altra.
Volevo sapere voi quale delle due ipotesi usate:
1) Rendete il Frame invisibile => Frame.Visible=false
2) Oppure lo nascondete => Frame.Left = -20000 : Frame.Enabled = False
Carmelo

 ha scritto nel messaggio
news:gab_e.23292$Jr.3...@twister2.libero.it...

E' come avere fame e comprarsi un ristorante.
In base a quale condizione devi nascondere
i button?
-- 
______________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 --
La condizione non è importante.
Volevo solo sapere se usate Visible=false. Perchè ho letto da qualche parte
che è meglio nascondere i controlli con left ecc.
Carmelo

 che è meglio nascondere i controlli con left ecc.
Ok, io ci rinuncio...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB4 - MAPI AttachmentPosition

Ciao.
Ho un piccolo problema con gli allegati in un programma di posta scritto in
VB4.
Non riesco a impostare la proprieta' AttachmentPosition che mi rimane a -1
fissa.
Cio' comporta che riesco ad allegare un solo file (e gia' questo e' un
mistero, poiche' la posizione dell'allegato inizia prima del testo
stesso!!!!), mentre se tento di inserirne un secondo mi da' un errore di
run-time di valore non consentito (questo probabilmente e' corretto e
spiegabile con il fatto che due allegati non possono occupare la stessa
posizione di partenza).
Ringrazio anticipatamente chi avesse trovato la soluzione a questo problema
e me la volesse comunicare.
Minarelli Giuseppe

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Galleria fotografica

Ciao a tutti,
ho la necessità di creare una galleria fotografica dinamica e non so
come fare.
Ho trovato come caricare dinamicamente una serie di immagini in un
frame ma poi devo gestire le scrool bar e non so come fare.
C'è un modo più semplice per risolvere il mio problema? Se la
risposta è no potete aiutarmi per la gestione delle scrool bar
Grazie tante

utilizza una matrice
a(numero dell'immagine)=riferimento
es.
a(0)="c:\foto.jpg"
a(1)="c:\foto2.jpg)
per scorrerle utilizza due command che portino l'indice avanti o
indietro e poi chiamino la funzione per visualizzare l'immagine
Perchè usare le scroll bar?
Newsgroup: it.comp.lang.visual-basic
Titolo: ancora con la date

e va bene avete ragione scusate se volevo ottenere il risultato con il
minimo degli sforzi!!!
vi ripeto il mio problema
Vorrei creare all'interno di un form un display che conta il numero di
secondi trascorsi da una data specifica!!
ho tentato di fare nel seguente modo ma non funziona:
    Dim data1 As Date
    Dim data2 As Date
    Dim NSecondi As Integer
    data1 = 01 / 01 / 2001
    data2 = Date
    NSecondi = DateDiff(s, data2, 26 / 9 / 2000)
    Label1.Caption = NSecondi
inoltre non capisco a cosa mi può servire il controllo timer!!
Grazie e scusate se insisto è che è molto tempo che non uso visual basic e
sono moltissimo arruginito, prima ero un appassionato autodidatta e ero
riuscito a fare parecchie belle cosette, ma adesso non lavorandoci e non
avendo pratica ho dimenticato praticamente quasi tutto!
Comunque grazie ancora 1000!

 inoltre non capisco a cosa mi può servire il controllo timer!!
Caspita se sei arrugginito......
Per assegnare un valore a data1 mi sembra che la sintassi debba essere:
Data1 = cdate("01/01/2001")
Poi, forse non hai seguito il consiglio riguardo all'help, visto che il
primo parametro della funzione datediff è una stringa e la seconda data che
tu hai scritto ha una sintassi paurosa.
(poi, scusa la curiosità, perchè dare un valore a date1 per poi non
utilizzarlo?)
Inoltre, magari, fai un calcolo approssimativo del numero di secondi che
dovrebbe restituirti la tua funzione, e considera se non sia il caso di
usare un long....
Per quanto riguarda il controllo timer, ti avrebbe permesso di tenere
sincronizzata la visualizzazione con l'orologio di sistema ma se non hai
questa necessità non serve.
Sintesi: come primo tentativo è un disastro, ma ho fatto anche di peggio :-)
Salutoni
Sergio

 inoltre non capisco a cosa mi puň servire il controllo timer!!
Ma se vuoi che ad ogni secondo la label si aggiorni ti serve un timer con
intervallo di un secondo e nell'evento _Timer mettere il codice sopra
descritto.
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.it
"
Newsgroup: it.comp.lang.visual-basic
Titolo: Progetti DHTML in VB 6.0

Salve a tutti,
da qualche tempo sto' provando a creare progetti DHTML (o comunque quelli che
Visual Basic chiama cosi') con VB 6.0.
Il risultato di queste prove, dopo un po' di pratica e' stato che su Explorer 4.0 tutto
e' andato come previsto e le .DLL vengono caricate e messe in funzione, se i
permessi di protezione del browser lo consentono, mentre su IE 5.0 non c'e'
stato per ora niente da fare.
Qualcuno sa' quali accorgimenti prendere con IE 5 per far girare i progetti DHTML
di VB 6.0 ?
Ringrazio tutti quelli che potranno darmi qualche utile informazione riguardo all'
uso, con la versione 5.0 di IE, di questo nuovo importante tipo di progetto VB.
Ancora grazie
                         Alberto Veneziani

 wrote in message
3A1EE1AA...@libero.it...


 >

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ottenere l'intero senza arrotondare

Salve a tutti,
qual'è la funzione che nella divisione tra 2 numeri restituisce il valore
intero NON arrotondato?
es.
risultato reale = 1636363,86
risultato voluto= 1636363
Grazie a tutti.
Paolo.

 ha scritto

nella fin di debug:
? 20/3
 6,66666666666667
? 20\3
 6

 wrote in message
9q4bgb$lnc1q$1...@ID-51318.news.dfncis.de...


 ha scritto nel messaggio
news:T1jx7.5713$YC3.1...@news1.tin.it...


 ad arrotondare allo 0,5
puoi anche usare INT e l'altra ch enon ricordo ,premi F1 su int :)
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: sapere se esiste un oggetto in un array

ciao!
se ho un array di controlli creati a run-time, quale č il metodo piů
rapido/elegante per sapere se l'oggetto di indice n esiste ?
n.b. ovviamente non č detto che i controlli presenti abbiano indice contiguo
grazie,
Marco

Marco Trapanese wrote:

Non mi intendo di eleganza, ma se non sbaglio l'errore di cui parli č 
intercettabile. Quindi, potrebbe andare bene un "volgare" On Error Goto.

 intercettabile. Quindi, potrebbe andare bene un "volgare" On Error Goto.
è quello che pensavo di fare... assegno il nome a una variabile, se mi da
errore (340) vuol dire che non esiste... speravo ci fosse un modo meno
brutale.....
ciao e grazie!
Marco

 contiguo
Non so quanto sia rapido, comunque io farei un ciclo sulla
collection Controls (o sull'insieme Controls, se usi VB5).
Non ricordo la sintassi esatta, ma una cosa simile su VB5
mi pare funzionasse:
*********
' andrebbe messo in una sub alla quale passi l'Index
' come parametro N.
Dim X As Long
Dim ControlExist As Boolean
ControlExist=False
For X = 0 To Controls.Count - 1
    If TypeOf Controls(x) Is MyControl Then
        If Controls(X).Index = N Then
            ' il controllo dei quel tipo, con indice N esiste
            ControlExist= True
            Exit For
        End If
    End If
Next X
if ControlExist = True Then
 ' qui il tuo codice
End If
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Printer.Print

Ciao a Tutti !!
Ho un strano problema, quando stampo una riga di testo in grassetto, a
volte viene stampata normale; come mai ?? C'č qualche bug in VB 4.0 ??
Se sě esiste un posto dove reperire info in merito e trovare le patch
per risolverle ???



Prima di stampare metti un 
Printer.print " "
Sembra che la prima stampa non vada bene a volte non accetta neanche
il font.
Antonio Tanzillo  
a...@netgroup.it
Marigliano (NA)  
www.netgroup.it/atsoft
Newsgroup: it.comp.lang.visual-basic
Titolo: MDB via ODBC - Urgente !!!!

Ciao a tutti,
qualcuno è riuscito ad accedere ad un database in formato MDB via ODBC ???
Se si come ?
Ho fatto varie prove ma mi ritorna sempre errore:3423 dicendo che non è
possibile.
Mi sembra di capire che questo formato non è gestibile via ODBC e ne sono
abbastanza convinto,
ma avrei bisogno di un riscontro documentato.
Qualcuno mi può aiutare ?
Grazie,
ciao a tutti,
FPalmer
P.F. rispondi via email :-)))

Si, si, hai capito bene. Non è possibile in quanto ti dice (almeno dalla
mia traduzione) che hai a disposizione il motore nativo degli MDB (JET)
e che quindi devi usare quello piuttosto dell'ODBC.
Ciao
Riccardo


...



 Premetto che utilizzo VB5 (SP3), 32bitODBC e 
 che aprendo quest'ultimo trovo installato il driver 
 < Microsoft Access Driver (*.mdb) 3.50.360200 >
 odbcjt32.dll 12/04/96
 Detto questo, ho creato un archivio MDB con Office 97
 poi da ODBC sotto 'System DNS' ho eseguito un Add
 specificando il driver Access di cui sopra, dopo
 di che ho dato un nome a mia scelta nel textbox
 <Data Source Name> e per ultimo dopo la pressione
 di <Select...> ho selezionato l'MDB precedentemente
 creato.
 Per quanto riguarda VB ho creato un nuovo progetto
 ed ho aggiunto il riferimento ad RDO, fatto questo
 con il codice seguente non ho avuto problemi:
------------------------------------------------------
Private Sub Form_Load()
Dim cnsConn As rdoConnection
Dim En As rdoEnvironment
Dim strDSN As String
 Set En = rdoEnvironments(0)
 ' Comunque mi funziona anche con altri cursori
 ' nonostante poi non ottenga gli stessi risultati.
 '
 En.CursorDriver = rdUseIfNeeded
 ' in questa variabile inserisci il nome che hai
 ' assegnato in <Data Source Name> in ODBC
 '
 strDSN = "#####"
 
 Set cnsConn = En.OpenConnection(strDSN)
 ' etc...
End Sub
------------------------------------------------------
Fammi sapere come e' andata.
Ciao,   fabrizio.

Newsgroup: it.comp.lang.visual-basic
Titolo: SCUSATE OT

SO CHE NON CENTRA NIENTE CON VB MA SONO VERAMENTE DISPERATO
E' POSSIBILE ESEGUIRE UN FILE EXE O BAT CON CLIPPER SUMMER 87 SE è POSSIBILE
COME SI FA
VI RINGRAZIO DI CUORE
MARCO
ICV...@BOX1.TIN.IT

 MARCO
Newsgroup: it.comp.lang.visual-basic
Titolo: Stringa a stringa vuota

CurrentTableName = "" & table.Name & ""
Ho trovato questo linea in un programma.
Che senso ha inserire in una stringa (CurrentTableName) la concatenazione di
una stringa vuota con una stringa (table.Name) con una stringa vuota?
Facendo CurrentTableName = table.Name non si ottiene la stessa cosa?
Se vi servono altri dati per rispondere fatemelo sapere.
Grazie
--
Claudio P.
ICQ: 39052657

 CurrentTableName = "" & table.Name & ""
CUT
in teoria per essere sicuri di avere una stringa sempre valida....
l'ipotesi è che la var sia dichiarata come stringa!
ora io apro una parentesi...
se ad esempio hai
Campotest=rs("Nome")
se nome non esiste va in errore....consiglio anche sulle faq...(vado a
memoria)
Campotest =rs("Nome")& "" così eviti l'errore di assegnare una stringa ad un
valore non valido se il campo "nome" vien lasciato vuoto.
(ci vorrebbe un purista...credo sia perchè in un oggetto il valore nullo sia
Nothing?..in una stringa null?)
In realtà anche questo sotto winxpPro vb6Sp5 (access97/2000/msde) Mdac 2.7
ADO/DAO mi da lo stesso dei problemi se il campo è vuoto.
La soluzione mia empirica è:(ad esempio)
tSchedaImmagine.Text = Trim(rsSchede("precedente_img") & " ")
così anche se il campo è vuoto(dopo una INSERT ad esempio)...non si arrabbia
e assegna un "" al textbox!

 tSchedaImmagine.Text = Trim(rsSchede("precedente_img") & " ")
e' sufficente cosi':
tSchedaImmagine.Text = rsSchede("precedente_img") & ""
il tuo e': eccesso di legittima difesa! ;-)
bye
R


CHE ti devo dire....dopo che su una app aCess mi faceva lo scherzetto anche
con questa faq
...son approdato alla mia soluzione!lo so che è eccessiva!
:-)
Newsgroup: it.comp.lang.visual-basic
Titolo: database

perchè il mio programma in vb non riconosce i file *.mdb in access 2000?
Grazie

 wrote in message 8i34ho$bq5$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO! Ricerca dato su xls

Salve, scusate la mia ignoranza, ma sono alle prime armi ( e con un manuale
molto povero ) ; ho un problema :
non so che sintassi devo usare per fare una ricerca di un dato una
particolare colonna di un file esterno di excel.
cioè
io tramite un'interfaccia faccio generare un codice all'utente . questo
codice deve essere trovato in una tabella di excel e fornirmi altri dati
presenti sulla stessa riga di excel.
ammettiamo che le colonne di excel sono: cod - descr - prez
praticamente alla corrispondenza del cod devo visualizzare in vb i campi
descr e prez
come faccio ? sto attualmente provando con una sintassi degli index , ma mi
continua a dire che il file xls non ha indice !!
grazie


Ciao,
con OLE Automation il tutto č molto semplice:
1) Questo č solo un esempio di cio' che devi fare. Assumo di avere un form con
una TextBox, un CommandButton, una ListBox.
2) Reference a Excel (VB5 con Project - References - M$ Excel Object Library)
3) poi scrivi in risposta all'evento click del bottone...
Dim xl As Object
Dim Cartella As Excel.Workbook
Dim Foglio as Excel.Worksheet
Set xl=CreateObject("Excel.Application")
Set Cartella = xl.Workbooks.Open("Nomedelfile.xls")
Set Foglio = Cartella.Worksheets("NomedelFoglio")
Dim i As Byte
For i = 2 To 10
 If Foglio.Range("A" & i).Value = Text1.Text Then
    List1.AddItem Foglio.Range("B" & i).Value
    List1.AddItem Foglio.Range("C" & i).Value
 End If
Next
xl.Quit
Il tutto č molto grezzo ma funziona.
Fammi sapere....
A presto,
Corrado

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto ! programma troppo grande

Ho fatto un programma troppo grande !
Visual Basic 6 non riesce più a compilarlo
e dà il messaggio di "memoria esaurita".
Ho problemi a fare DLL ActiveX perché
il programma è "intrecciato" ovvero le form
si richiamano tra loro per cui mettendone una
nella DLL ottengo che questa non "vede" più
le altre rimaste nell'EXE.
Come fare ??

 le altre rimaste nell'EXE.
che schifo mi e' rimasta una gomma da masticare
attaccata sotto le scarpe ;)
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud