mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: DAO OpenDatabase AIUTO !!!!!!

Peraprire un database faccio
dim miodatabase as dao.database
set miodatabase = OpenDatabase("c:\documenti\clienti.mdb")
cosi funziona il problema č che il database devo proteggerlo con password se
la password č ddd qualč il comando per aprirlo
ho provato cosě ma niente da fare
set miodatabase = OpenDatabase("c:\documenti\clienti.mdb",,,"pwd=ddd")
Grazie a chi mi salva .....
Daniele

 wrote in message
8366f7$e5f$1...@nslave2.tin.it...


Devi usare questa sintassi:
set miodatabase = OpenDatabase ("c:\documenti\clienti.mdb",,,";pwd=ddd")
Devi stare attento a mettere il segno ; prima di pwd, altrimenti non
funziona.
Ciao.


ho provato e mi da password non valida , eppure la password e quella giusta
Dim dbdaniele As DAO.Database
Set dbdaniele = OpenDatabase("c:\documenti\clienti.mdb", , , ";pwd=ddd")
chi ci capisce ??????
Fai una prova crea con access un database vuoto e imposta la password di
ingresso  ddd   poi prova a collegarti e vedrai che
con il codice sopra descritto ti dice password non valida
AiUtO..........................

Nel caso di password devi passare tutti i parametri alla chiamata di
apertura
Set dbdaniele = OpenDatabase("c:\documenti\clienti.mdb",False ,False ,
";pwd=ddd")
Bye

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa la divisione in migliaia dei numeri?


Usando Text1=Format("15000000000","###,###,###,###"), Text1.text diventa
"15.000.000.000"
Il numero di "#" nel Format dipende dall'ordine di grandezza delle cifre che
intendi trattare (se il numero e' piu' piccolo viene comunque formattato
correttamente, se contiene piu' cifre di quelle previste no), e' importante
invece l'uso della virgola; in questo caso VB recupera dalle impostazioni
internazionali del PC il separatore di migliaia in uso e lo sostituisce alla ","
Per avere un'idea delle altre possibili formattazioni cerca sulla guida "Format"
e quindi vai su "Vedere Anche","Formati numerici definiti dall'utente"
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

come faccio a far apparrire nei numeri la divisione in migliaia??
dalla guida non e' chiaro dove si trova il menu formato numeri....
ciao
grazie

e quindi vai su "Vedere Anche","Formati numerici definiti dall'utente"
E' Sufficiente Text1=Format("15000000000","#,###"), se si vuole separare lo
si fa per tutte le cifre a gruppi di 3, non serve specificarlo per tutta la
possibile lunghezza.
Ciao
Max
Newsgroup: it.comp.lang.visual-basic
Titolo: [meeting] qualcuno va al ristorante un po' in anticipo?

io sono libero nella tarda mattinata e se ci sara' qualcuno
relativamente presto --cioe' a qualsiasi ora, basta che me lo faccia
sapere: io devo rientrare verso faenza circa sul mezzogiorno e mezza--
passo a fargli un saluto al ristorante.
ciao
-- 
Gianni Rondinini
Icem s.r.l.
Tel: 
+39 0545 78036
Fax: 
+39 0545 78727

 passo a fargli un saluto al ristorante.
Io questa volta vengo in treno (Panda.Fear(itNebbia)= True), prevedo
l'arrivo in stazione per le 11.20... data la difficoltà di parcheggio
immagino che non ci vederemo questa volta... peccato alla prossima.
Ciao

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

Avete presenti le chiavi di protezione per i programmi.
Vorrei sapere se è possibile usarle con exe vb e nel caso se è complicato
farlo.
Ciao e grazie

io uso quelle della eutron ed è , oserei dire, "banale" implementare l'so di
queste chiavi (funzionano sia con 95 che con NT)....
Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net implementare un watchdog

Salve a tutti,
ho un'applicazione che per una serie di motivi di forza maggiore, potrebbe 
andare in errore e rimanere cosi' bloccata. Siccome � un processo schedulato 
ogni 60 minuti, ed � poco male se una schedulazione fallisce, pensavo di 
implementare un watchdog che se l'applicazione rimane in esecuzione per piu' 
di 15minuti la "killa". Purtroppo pero' non so da dov'� meglio partire ed ho 
alcuni dubbi:
- Uso un timer impostato ad esempio a 60secondi e dopo 15 tick uccido 
l'applicazione? Il problema � che l'applicazione non lavora in background e 
i processi sono lunghi, ho timore che un approcio di questo tipo mi generi 
non pochi problemi
- Come posso fare per auto-killare l'applicazione?
 
grazie 1000 a tutti,
 
D. 
 

 D.
 
Se va in errore non puoi pensare di farla auto-killare
Devi accopparla dal di fuori
Ma non potresti chiuderla solo se la trovi attiva quando tenti di avviarla?
Intendo ogni 60 minuti, prima controlli se e' ancora attiva, se si la butti 
giu' e poi avvii la nuova istanza
Se no, avvii semplicemente la nuova istanza come gia' adesso fai 
 
 

 ha scritto nel messaggio 
news:k8cp06$7pd$1...@tdi.cu.mi.it...

Ciao Roberto,
in effetti a questa cosa non c'avevo pensato, e mi andrebbe piu' che bene... 
come posso killare la precedente istanza pero'? Ciclo i processi in cerca 
del titolo della mia app? Devo verificare se le operazioni pianificate 
eseguono il processo la seconda volta se il primo è ancora in esecuzione... 
e su questo non sono molto sicuro.....
 
grazie 1000 
 

 
 
lo schedulatore di windows lo fa di suo; perche' reinventare la ruota?
 
imposti un tempo massimo di esecuzione e se il processo 'sfora' il sistema 
lo accoppa.
 
http://technet.microsoft.com/en-us/library/Cc507860.aa906020_figure5_big%
 
28l=en-us%29.gif
 
 
-- 
Paolo opg
 
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--


Si, penso si faccia cosi'
Onestamente non mi e' mai capitato da dentro codice
Per coppare processi bloccati, da riga comando, uso questo
 
%windir%\system32\taskkill.exe /F /FI "STATUS eq NOT RESPONDING"
 
Penso si possa usare anche nel tuo caso
Solo che non hai feedback dell'azione avviata

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Proxy su LAN

deV<

 ha scritto

sei un po' ot...
sul lavoro uso wingate, share. sembra andare bene. pero' con 20 macchine che
lavorano molto non l'ho provato.
prova magari 
www.analogx.com
. - mi sembra ce ne fosse uno free di cui
parlano bene.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: riceviamo e pubblichiamo


Newsgroups: it.fan.marco-ditri
Subject: Re: Una risposta appropriata
Marco d'Itri wrote:
 > rm -rf /bin/laden
Bisogna vedere se e` nel path di ricerca, o si e` spostato.
---------------------------------------------
j.usr

 wrote in message
news:9nnumn$8ifes$2...@ID-51318.news.dfncis.de...
J, di' all ozio che e' sempre un grande :)
Ciaotutti,
*

Bisogna vedere se e` nel path di ricerca, o si e` spostato.
ROTFL! Ma mi sfugge il "-rf"... Sai, sono ancora un niubbino...
Ciao!
Davide
-- 
Volontario Anti-Troll (TM) 
SecurFaq: 
http://members.nbci.com/gouldukat/
DocTrolls: 
http://it.geocities.com/roccopapaleo/faq/italiano/Troll.html
Netiquette: 
http://www.inferentia.it/netiquette/dis.html

 ROTFL! Ma mi sfugge il "-rf"... Sai, sono ancora un niubbino...
RTFM!  rm(1)
-r = recursive
-f = forced
Ciao, Lanfranco

> RTFM!  rm(1)
meglio ancora se man rm  :)
oppure rm --help
--
Fibia "Sakamoto" FBI

 --


RTFM: Read The Fine Manual :P
Politically correct: se lo conosci lo eviti, se lo conosci non ti uccide :P
Cmq vedo che ti sei tenuto in forma, direi che siamo tre volte OT :P
Ciaotutti,
*

Newsgroup: it.comp.lang.visual-basic
Titolo: Installazioni Install Shield e VB

Sapete per caso se è possibile utilizzare l'install shield per i programmi
di vb.
C'è un programma che crea il pacchetto
d'installazione,possibilmente personalizzabile, che non sia quello fornito
con vb6?
Ho visto in giro x la rete che c'è qualcuno che ha delle
installazioni personalizzate tipo: la possibilità di inserire il serial x
la registrazione, alcune immagini di sfondo durante la copia dei file, un
logo nella form del welcome etc...
Grazie x l'aiuto 
Ciao
--------------------------------
Inviato via 
http://usenet.iol.it

 con vb6?
Si... install shield, oppure wise, o innosetup per dirne alcuni...

 Ciao
C'è l'ottimo SetupFactory, arrivato alla versione 6, oppure
InstallMaker, che mi sembra disponga di una versione
free con l'unica limitazione che il tuo cliente, alla fine
dell'installazione, si becca una advertisement page
con un button per connettersi al sito della Clickteam.. puoi provarlo
e se ti piace puoi passare alla versione senza advertisement ( $39)
o alla versione Pro ($99).
Questo il link :   
http://www.clickteam.com
Ciao
 Valter

 con vb6?
si, con install shield express o install shield developper 
ti permette di fare praticamente tutto (un po' di piů con il secondo)
puoi creare il pacchetto da un progetto vbasic, puoi eseguire 
una scansione di un file exe, e l 'Ishield ti inserisce tutte le
librerie utilizzate
durante la scansione.
se vai su 
installshield.com
 puoi scaricare le evaluation version
e provarle.
ciao ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

Ciao,
non ho trovato nessuna proprietą nella Listview che somigli alla TopRow
della MSHFlexGrid per far si che all'apertura mi venga visualizzato ad
esempio l'ultimo record .
Qualche idea?
Grazie mille.
                 Symi.

 Qualche idea?
EnsureVisible
Newsgroup: it.comp.lang.visual-basic
Titolo: Getautoscalesize

Ciao
ho dei problemi con il ridimensionamento del form quando cambio risoluzione
video, ho impostato autoscale su true ma si scala solo il form, il contenuto
( bottoni immagine di sfondo ecc) rimane dimensione normale quindi una buona
parte di questi  scompare.
Cercando nella guida ho trovato Getautoscalesize(font che rappresenta il
tipo di carattere da utilizzare per determinare le dimensioni di base per il
ridimensionamento del form) ossia?? che cosa devo mettere come font? è la
strada giusta o avete altri suggerimenti?
Grazie
Ciao
Dav

...Getautoscalesize
Linguaggio?

 ha scritto nel messaggio
news:c39j1t$24ef0g$1...@ID-174464.news.uni-berlin.de...


 vb net
Ah, ecco... Cos'è? :-P
Newsgroup: it.comp.lang.visual-basic
Titolo: [FW 2.0] Variabile molto precisa

Ciao a tutti,
Devo sviluppare una calcolatrice un pò particolare e mi serve un altissima 
precisione.
In pratica, mi serve una variabile per interi e float(quindi variabili 
integer *non* vanno bene) con una precisione di almeno 256bit... mentre la 
Double arriva solo a 8 bit.
Come posso fare?
Bye,
P.s.: Importante, mi serve che supporti indistintamente numeri positivi e 
negativi in quanto devo implementare delle funzioni algebriche.
P.p.s.: Uso il framework 2.0.
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
Athlon X2 3800+@2500mhz, DDR500 1Gb GeIL One S 2.5-3-3-5
7800GTX, Aureon Universe 7.1, DFI nf4 UT Ultra-D 

 Come posso fare?
Cosa intendi con "precisione di 256 bit"? Il tipo numerico del .NET 
Framework dotato di massima precisione (96 bit) è il Decimal consigliato, ad 
esempio, per calcoli finanziari.
-- 
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://blogs.ugidotnet.org/pape
 

 consigliato, ad esempio, per calcoli finanziari.
Come posso fare per avere maggiore precisione?
Bye,



Se Decimal non ti basta, non puoi che ricorrere alla implementazione di un 
nuovo tipo: in pratica, ti crei una classe chiamata (ad esempio) 
"MyNumericType" implementandone (visto che usi VB2005) gli operatori. Dico 
"classe" e non "struttura" perchè un footprint di 256 bit (8 byte) eccede la 
dimensione massima consigliata da MS per la definizione di value type


 la dimensione massima consigliata da MS per la definizione di value type
Ma se è una classe non è un ValueType, come lo sarebbe invece qualsiasi 
altro tipo di dato di base, e si comporterebbe in modo differente.
Ciao 

 "MyNumericType" implementandone (visto che usi VB2005) gli operatori.
Ma...
In che senso implemento gli operatori?
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
MariokartDS Codice Amico: 532639027909 

 In che senso implemento gli operatori?
Carmine!
Un programmatore "smaliziato" come te, ancora non sa che una delle tante 
novità di VB 2005, è l'override degli operatori???
http://msdn.microsoft.com/vbasic/default.aspx?pull=/library/en-us/dnvs05/html/vb2005_overview.asp#vbnet2005_preview_topic13
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

"classe" e non "struttura" perchè un footprint di 256 bit (8 byte) 
256 bits sono 32 bytes oppure 8 Dword
--
ciao
  Stefano

 In che senso implemento gli operatori?
Che devi definirti il comportamento degli operatori + * - / il che potrebbe 
rivelarsi più complesso del previsto
ciao 

 In che senso implemento gli operatori?
Che devi definirti il comportamento degli operatori + * - / il che potrebbe 


 tante novità di VB 2005, è l'override degli operatori???
Ahh capito come in C++ no?


 Ahh capito come in C++ no?
si


  Stefano


 Ciao
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: ancora ActiveX

Per prima cosa un grazie a Igor Damiani per il preziozo suggerimento di
ieri.
Il mio problema è ora: se il controllo ActiveX lo creo io, come faccio a
creare delle mie proprieta'?
Scusate la banalita' della mia domanda, ma uso VB da poco tempo e quindi
sono tutt'altro che pratico.
Grazie a tutti.
Alberto De Angelis

creare delle mie proprieta'?
Implementando delle routine Property Let/Get/Set.
Sai cosa sono le classi? Se sì, inizialmente puoi comportarti allo
stesso modo, facendo attenzione che il ciclo di vita di un ocx è un po'
diverso da quello di una dll o da quello di un oggetto definito
all'interno di un exe standard. Se no, tra i vecchi post trovi delle
spiegazioni (mi ricordo di averne postata una, circa due settimane fa).
Maggiori info e diversi esempi li puoi trovare su MSDN: se non ricordo
male c'è anche un esempio di come creare un OCX passo passo... ti
consiglio di provarlo!
(Se non c'è su MSDN, allora c'è di sicuro sui manuali di VB: se non li
hai, se non ricordo male li trovi in formato elettronico su
ftp.areacom.it/vb32
 o qc del genere)
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura e scrittura registry

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{AF586D7C-D54C-4D19-A345-A7C83BC90CCD}
In tutti i percorsi il valore della chiave è IPAddress.
Ora.. mentre in genere non ho mai avuto problemui a leggere/scrivere nel
registry (DWORD), questi valori, che sono inseriti come REG_MULTI_SZ, non
so nè come leggerli (da qyuanto ho capito è un array, ma come tirarlo
fuori?) nè come editarli.
Mi scuso per eventuali imprecisioni, sono un novellino, quindi se qualcuno
conosce una via più breve o migliore per il mio scopo.. bè ogni consiglio
è ben accetto.
Altresì sarebbe interessante capire come gestire questa tipologia di
valore nel Registry via VB.
Saluti a tutti!
Andrea
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 andare ad agire sui registri del sistema. E qui viene il problema....
[cut]
Su Win2000?
Alur...
Short and working way:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from
Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("XXX.XXX.XXX.XXX")
strSubnetMask = Array("XXX.XXX.XXX.XXX")
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    If errEnable = 0 Then
        MsgBox "IP cambiato"
    Else
        MsgBox "IP non cambiato"
    End If
Next
La strada alternativa, come hai visto tu, e' quella di cambiare l'IP
direttamente da registro. Ho i miei forti dubbi che poi Windows se ne
accorga, ma tant'e'...
Le REG_MULTI_SZ sono stringhe divise da caratteri /0, in VB Chr$(0).
Puoi usare la Split() per dividere automaticamente la stringa letta, ed un
semplice ciclo per costruirne una nuova. Ah, non ricordo cosi' al volo se le
REG_MULTI_SZ finiscono con un solo Chr$(0) o con due.
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare della grafica in Vb senza usare l'oggetto PRINTER

Salve, vorrei sapere come posso Stampare della grafica in Vb senza usare
l'oggetto printer.
Mi spiego, sto realizzando delle routine di stampa per un programma tipo CAD
ora vorrei catturare l'immagine realtiva al controllo dove sto disegnando e
satmapre il tutto come faccio??
grazie a tutti!

...

Se vuoi sfruttare tutta la risoluzione della stampante ti tocca memorizzare
tutti i comandi che hai utilizzato sul controllo e replicarli sull'oggetto
printer.
Newsgroup: it.comp.lang.visual-basic
Titolo: [VS 2005] Classe FTP

Salve,
mi sapreste indicare dove posso trovare una buona classe FTP in VB o C# 
possibilmente free?


La classe WebClient del FW 2.0 supporta anche il protocollo FTP.
Hai provato a vedere se ti sono sufficienti le sue funzionalità?
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
 


Qua sta un esempio di come utilizzare quella integrata nel framework 2.0 :
http://www.dotnethell.it/articles/FTP.aspx
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
NUOVISSIMO SITO!!! The Total Site 4 : 
http://www.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] orari nel datagrid

Ciao,
in una tabella del mio db Access ho un campo "Ora", impostato con valore
"data/ora" e con formato "ore brevi 24ore".
Nel codice VB.net, quando vado ad inserire il valore, ho:
dr("dOra") = Format(Now, "HH:mm")
Quando carico un datagrid per visualizzare la tabella del db, in tutti i
record, nel campo "ora", trovo:
20/07/2004 18:31   (esempio)
cioč sia la data che l'ora!
Come mai c'č anche la data? Io ho risolto comunque impostando il formato
della  colonna del datagrid, ma non so sč l'unica cosa da fare....
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 della  colonna del datagrid, ma non so sč l'unica cosa da fare....
Certo che si fa cosě.
Ciao
P.S.: eccheppalle! ogni 2 giorni sempre la stessa domanda!
Dopo tanti anni č ora che scriva un manualetto per l'uso delle date.
--
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Dopo tanti anni è ora che scriva un manualetto per l'uso delle date.
magari!


 Dopo tanti anni č ora che scriva un manualetto per l'uso delle date.
Hmmm, personalmente ho tagliato la testa al toro: mai piů campi di tipo
data nei miei db, ma solo stringhe in formato YYYYMMDDHHMMSS...
Basta problemi di localizzazione, versioni di DLL, etc etc etc...
Ciao.
Paolo.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Basta problemi di localizzazione, versioni di DLL, etc etc etc...
Questi sono i workaround dei programmatori mediocri (ecco, l'ho detta).
Gestire bene le date è banale, certo bisogna sapere di cosa si tratta,
altrimenti meglio cambiar mestiere: un programmatore più bravo è già in
attesa del posto di lavoro.
Al contrario il "vostro" sistema di usare le date porta a un mucchio di
complicazioni, ma contenti voi...
Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: Velocità DAO

C' è qualcuno ingrado di dirmi se il DAO 3.51 in ambiente WNT si più lento
che in ambiente W98 a parità di PC?

 wrote in message
news:8t4k65$h4f$1...@nslave2.tin.it...


 che in ambiente W98 a parità di PC?
impressione molto personale e non suffragata da nessuna conoscenza teorica:
si', e' piu' lento. almeno, da vb5+98 a vb6+2000, sulla stessa macchina,
direi che alcune cose siano decisamente piu' lente (non solo dao),
nonostante nt debba teoricamente (credo e spero) sfruttare meglio la
macchina. non ho capito se ascrivere questa evoluzione a vb o a nt, ma
propendo per il sistema, permessi, mica permessi, ecc.
Newsgroup: it.comp.lang.visual-basic
Titolo: Per chi conosce "MS Access 9.0 Object Library" ho un piccolo problema

Ho inserito questo componente nei miei programmi, e per stampare un report
presente nel database utilizzo il seguente codice:
Dim Appl As Access.Application
Private Sub CmdStampa_Click()
    Set Appl = New Access.Application
    Appl.OpenCurrentDatabase (App.Path & "\" & "DB1.MDB")
    Call Appl.DoCmd.OpenReport("indirizzi", acViewNormal, , "indirizzi.nome
= 'rossi' ")
End Sub
Funziona tutto correttamente, pero' nel momento in cui installa il SW in una
macchina senza ACCESS nascono i problemi... infatti non e' in grado di
stampare!
Che voi sappiate questo puo' funzionare solo su macchine con installato
ACCESS oppure sto sbagliando qualcosa?
Vi ringrazio per l'attenzione.
Ilie

Piu' nel dettagli l'errore che restituisce e':
Il componente ActiveX non puo' creare l'oggetto....
Dopo molte prove ho provato a prendere un PC con solo il sistema operativo e
VB installati... e in effetti nel momento in cui (da codice) cerco di
utilizzare il componente mi appare la finestra "QUESTO PROGRAMMA HA FATTO UN
OPERAZIONE NON VALIDA ecc ecc"
A questo punto vi chiedo come posso fare per stampare un report che e'
presente in un file di Access quando dal cliente non e' installato access
stesso!
Avete delle alternative? mi sembra impossibile che non si possa fare?
Grazie ancora
Ilie

 ha scritto nel messaggio
news:a04o25$vgh$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere indici di una tabella con ADO

Qualcuno mi puņ postare un'esempio ?
Grazie, Alberto


Vedi Adox
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare moduli

Ho il problema di stampare dei moduli prestampati in VB nel senso che ho dei
moduli (tipo quelli per le fatture) e devo stamparci sopra i nominativi ed
altre cose del genere.
Qualcuno sa come posso posizionare esattamente una scritta su una stampa o
darmil'indirizzo di dove trovare del codice d'esempio?
    Grazie
        Cobra


non l'ho mai fatto, ma credo che basta che utilizzi Printer.CurrentX e
Printer.CurrentY (e tanta pazienza per trovare le giuste coordinate...)
Ciao
Faber



...Oppure, se usi un report, ti armi di righello, prendi le misure di dove
dovranno essere stampati i dati (x ed y iniziali), le converti in twips o
pixel ecc.(dipende dall'unità di misura che usi) ed imposti i textbox con
precisione...
--
Ciao a tutto il NewsGroup
Alex
alm...@tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] MSDE e Win98

E' possibile creare un web service con VB .NET e MSDE utilizzando come
server un PC con Windows 98? Quali difficoltà potrei incontrare utilizando
win98 anzichè win2000?
Ringrazio in anticipo,
Adriano

 win98 anzichè win2000?
Se non erro è necessario avere installato almeno IIS 5 altrimenti non
funziona...
IIS 5 = Windows 2000
IIS 5.1 = Windows XP Pro
IIS 6 = Windows .Net server
Personal Web Server =Windows 98/ME
Ma anche se funzionasse non sarebbe una buona idea far fare da server a W98.
Ciao

a parte che Win98 non è l'ideale per fare da server.......
comunque se lo fai con il framework .NET è necessario che il sistema
operativo supporti .NET, e Windows 98 è tra questi....al massimo, portando
tutto sotto Win2000, dovresti incrementare terribilmente le prestazioni,
data la migliore affidabilità di Win2000 in senso generale.......
comunque, non credo che dovresti trovare grosse difficoltà, appunto perchè
.NET parte dal presupposto che usando le sue classi, il livello sottostante
(OS) è ininfluente......
questo, ovviamente, in teoria......
good coding!!!
--
Igor Damiani
ig...@igordamiani.it
http://www.igordamiani.it
ICQ : 11847262

Secondo me non ce la fai, e
anche se andasse non avrai mai "garanzie" di tempi di risposta decenti, per
la
questione della gestione dei processi!!
Se è un'esperimento prova, se è una soluzione ripensaci!
CIao

Newsgroup: it.comp.lang.visual-basic
Titolo: Assegnazione condizionale di costanti/variabili.

E' possibile fare qualcosa di simile, a livello di modulo ?
#IF SonoInDebug THEN
    GLOBAL CONST Pippo AS BYTE = 1
#ELSE
    GLOBAL Pippo AS BYTE
#END IF
Grazie a tutti.
Ciao.
Alfredo.

...



Sì puoi farlo.
Devi dichiarare una
#Const SonoInDebug = True
ricorda che gli #IF valutano solo espressioni puramente Booleane.
Io addirittura ho fatto una cosa del genere:
#Const VB_Version5OrAbove = True
#If (VB_Version5OrAbove) Then
    Function DS_GetInfoInteger(ByVal What As TDSInfo, ByVal FileIdx As Long,
ByVal DiskIdx As Long) As Long
#Else
    Function DS_GetInfoInteger(ByVal What As Long, ByVal FileIdx As Long,
ByVal DiskIdx As Long) As Long
#End If
[...funzione...]
End Function
E funziona senza problemi
Ricordati:
1) Usa Public anzichè Global: è lo stesso ma Global esiste solo per
compatibilità.
2) Ricorda di cambiare la const SonoInDebug quando compili realmente il
progetto :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Processore di espressioni booleane

Ciao Ragazzi,
ho un grosso problema:
Vorrei sapere se esiste una funzione predefinita o qualche riga di codice
per valutare una espressione booleana.
Mi spiego meglio.
Ho una variabile stringa del seguente tipo:
a$="(((1 AND 0) OR 1) AND 1)"
...ma potrebbe essere molto + complessa...
cercando di utilizzare la funzione Cbool di VB questa non accetta come
argomento il tipo stringa.
dim Esito as boolean
dim a$ as string
a$="(((1 AND 0) OR 1) AND 1)"
Esito=CBool(a$)                             (DA ERRORE)
invece se scrivessi direttamente l'espressione in questa maniera funziona:
Esito=CBool((((1 AND 0) OR 1) AND 1))
Non vorrei dover inventarmi del codice ad hoc per farlo !!!
GRAZIE in anticipo a chi mi vorrą aiutare.
Roby

 ha scritto nel messaggio
news:ddGP7.3351$Sq4.1...@news1.tin.it...


 ha scritto nel messaggio
news:dxGP7.3325$ob5....@news2.tin.it...


 ha scritto nel messaggio
news:gDGP7.3360$ob5....@news2.tin.it...


 maschera...il metodo EVAL non è supportato !!!
non ho capito che OCX hai inserito, comunque per usare la funzione Eval devi
aggiungere "Microsoft Scripting Runtime" nelle Reference. Attento che in VB
le Reference le trovi nel menu Project/Progetto, in VBA per Access nel menu
Tools/Strumenti.
Ciao, Silv:o)

 ha scritto nel messaggio
news:9unfqj$9j8fd$1...@ID-49224.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: PORCO BUE AIUTOOOOOOOO!

Il mio problema è questo:
Devo eseguire la ricerca di un articolo all'interno di una data
collegato con una grid.
Per facilitare la scelta ho previsto due criteri di ricerca ovvero per
codice o per descrizione (come fanno tutti i programmi del mondo del
resto).
Quindi ho due caselle combinate collegate al data la cui proprietà
listfield è impostata appunto sui campi codice e descrizione.
Una volta selezionata la voce che mi interessa di ricercare la seleziono
con il mouse e con un click la ricerco nel data.
La ricerca funziona, ma non capisco perché se seleziono la voce
dall'elenco list muovendomi con il mouse mi seleziona una voce diversa
da quella che volevo, mentre se digito da tastiera la list non si
aggiorna in base a quello che scrivo.
Non sono sicura di essere stata chiara, ma fornirò tutti i dettagli
necessari a chi me li chiederà.
Aiutatemi.
Grazie mille.
Elisa.

 wrote in message 37D7B947...@tin.it...

Io non ho capito veramente un'acca !!!!!!!!! ;-)) sara' la stanchezza della
dura giornata lavorativa ?? Bho !!
Ciao
Ven

 wrote in message 93689655...@fab-srv.fastnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: DTPicker differenza date

Devo calcolare la differenza di date tra due o più giorni
Utilizzo due controlli DTPicker1 e DTPicker2  per il controllo date
con questo format dd/MM/yyyy HH:mm:ss
e un controllo Text1 dove viene visualizzata la differenza di date
utilizzando questa routine
tutto OK  se la differenza oraria avviene entro le 24 ore
se invece superiamo le 24 ore non funziona
Sbaglio qualcosa, che devo fare, non so dove sbattere la testa
Private Sub Comando1_Click()
    Dim Data_Entrata As Date
    Dim Data_Uscita As Date
    Dim Ora_Entrata As Date
    Dim Ora_Uscita As Date
    Dim Ora_24 As Integer
    'Dim Ore_Tot As Double
    Dim Differenza As Date
    Data_Entrata = Format(DTPicker1.Value, "dd/MM/yyyy")
    Data_Uscita = Format(DTPicker2.Value, "dd/MM/yyyy")
    Ora_Entrata = Format(DTPicker1.Value, "HH:mm:ss")
    Ora_Uscita = Format(DTPicker2.Value, "HH:mm:ss")
   '* Se il giorno entrata < giorno uscita
    If Data_Entrata < Data_Uscita Then
        Ora_Entrata = Format(24 - Ora_Entrata, "HH:mm:ss")
        Ora_Uscita = Format(Ora_Uscita - 0, "HH:mm:ss")
        Ora_24 = (Data_Uscita - Data_Entrata) * 24
        Differenza = Format(Ora_Entrata + Ora_Uscita + Ora_24, "HH:mm:ss")
       ' Differenza = CDate(CDbl(Ora_24) + CDbl(Differenza))
    Else
     '* Se il giorno entrata = giorno uscita
    Differenza = Format(Ora_Uscita - Ora_Entrata, "HH:mm:ss")
    End If
    Me.Text1.SetFocus
    Text1.Text = CStr(Differenza)
end sub
ciao, grazie il pizz

     Ora_Uscita = Format(DTPicker2.Value, "HH:mm:ss")
Non entro neppure nel merito del resto.
Ti consiglio vivamente di studiare i tipi di dati, in particolar modo la
differenza fra la visualizzazione di un dato e la sua memorizzazione...
Ciao
Alberto

     Data_Entrata = Format(DTPicker1.Value, "dd/MM/yyyy")
DTPicker1.Value restituisce una data (come tipo date) o un testo (tipo
string)?
Io non lo conosco, ma se restituisce una data usa quella nei conteggi, non
il testo che vai a formattare.

 wrote in message
c27c3a$1pirvd$1...@ID-174464.news.uni-berlin.de...


 un aiutino in più me lo potete dare
Se cerchi in 
groups.google.it
 nei vecchi post di questo NG l'argomento è 
stato sviscerato approfonditamente molte volte.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema tasti direzionali e VisualBasic 6

Ho un grosso problema con VB6 quando sono nel codice e voglio scorrere
il listato non me lo fa ma scorre le proprietà a destra della finestra
di VB6.
Quando sono nel codice le frecce dovrebbero funzionare come se fossi in
WORD.

MacGyver ha usato la sua tastiera per scrivere :

Chiudi la finestra grafica di design degli usercontrol.
Alberto
-- 
Max Beerbohm: Tutto ciò che è degno di essere fatto è stato fatto 
ripetutamente. Dalle cose mai fatte bisognerebbe tenersi, sospetto, 
molto alla larga.

Per finestra grafica intendi la finsetra dove modifichi lo usercontrol
vero? quella dove di solito vedi il form e inserisci i vari controlli?
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB .NET]stampare contenuto datagrid

Ciao a tutti!
Ho trovato il seguente articolo che speiga come stampare il contenuto di una
datagrid
http://www.codeproject.com/vb/net/datagridex.asp
solo che non capisco bene come funziona, nella parte intitolata  "using the
custom DataGrid".
Qualcuno mi puň aiutare?
Grazie!


Mi sembra che li crea solo un controllo datagrid personalizzato.. e poi spiega come usare il print preview
-- 
Prendi in mano le redini del TUO destino e nessun ostacolo riuscirą a rallentare la tua corsa!

 Prendi in mano le redini del TUO destino e nessun ostacolo riuscirà a
rallentare la tua corsa!

> 
Ma ti serve in .net o in vb6?


 ha scritto nel messaggio
news:20061714353.022...@DDmind.com...


> 
In effetti il cristal report è ottimo per queste cose.. ma volendo puoi vedere nel codice della pagina che hai messo prima.. li c'e' scritto come fare..
qui..
Private Sub mnuPrintPreview_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles mnuPrintPreview.Click
  Dim obj, obj2 As Object
  obj = objDataGrid.DataSource
  If TypeOf (obj) Is DataView Then
   obj2 = CType(obj, DataView).Table
  Else
   obj2 = obj
   obj = Nothing
  End If
  Me.objDataGrid.PageSettings = CustomControls.PageSetup.PageSettings
  objDataGrid.PrintPreview(CType(obj, DataView), CType(obj2, DataTable), _
   CType(Me.BindingContext(objDataGrid.DataSource), CurrencyManager), _
   25, "Do you wish to continue?")
End Sub 
Private Sub mnuPrint_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles mnuPrint.Click
  Dim obj, obj2 As Object
  obj = objDataGrid.DataSource
  If TypeOf (obj) Is DataView Then
   obj2 = CType(obj, DataView).Table
  Else
   obj2 = obj
   obj = Nothing
  End If
  Me.objDataGrid.PageSettings = CustomControls.PageSetup.PageSettings
  objDataGrid.Print(CType(obj, DataView), CType(obj2, DataTable), _
   CType(Me.BindingContext(objDataGrid.DataSource), CurrencyManager))
End Sub


Il problema è
Me.objDataGrid.PageSettings = CustomControls.PageSetup..
che non so come ottenerlo, perchè in DataGrid1 non trovo .PageSetting! e poi
c'è CustomControl che non so cosa sia!

Ho fattocosě:
Dim rep1 as new CrystalReport1
rep1.setDataSource(DS)
CrystalReportViewer1.ReportSource = rep1
ma quando si apre la finestra di crystal report non vedo nessun dato, solo
l'intestazione che ho aggiunto a mano...Ho provato, nella finestra
CrystalReport1.rpt a fare aggiungi database dando il mio file mdb, cos'
funziona, solo che ovviamente dopo che installo l'applicazione con il setup,
mi memorizza sempre i dati di quel database, e non di quello presente nella
cartella di installazione!
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo di indici Fox

Ho l'esigenza di accedere tramite DAO a delle tabelle Fox collegate ad un
database Access. VB permette di utilizzare gli indici Fox (formato CDX)
tramite comando SQL mediante i files di informazione .INF presenti
fisicamente nella directory contenenti le tabelle. Ma se esiste un altra
applicazione i files .INF vengono sovrascritti.
Come è possibile configurare da VB6 l'accesso ai file .INF generati in una
directory personale che non sia quella di sistema del driver Fox o delle
tabelle Fox in questione ?
Trovo la documentazione ufficiale carente e la proprietà SelOption
dell'oggetto DAO non mi permette questa configurazione.
Grazie a tutti.


Io usavo i database FoxPro con DAO (ma non collegati ad Access) e non ho MAI
avuto bisogno di usare i file INF per la gestione di indici CDX
I file INF li usi solo se hai gli indici IDX
Ciao
Sirjo

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa ad impostare il colore ad un rettangolo create con l'api?

Utilizzo la seguente Api:
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1
As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Come faccio a impostare il colore?
Ho provato con setcolorspace e setcoloradjustment ma non funziona.
Poi ho modificato il fillcolor della maschera ma niente da fare!
Un grazie a chi mi risponde
Ciao
Oz
--
Carč Walter SIA SOFTWORK S.R.L.
Via Zanardelli, 13/A - 25062 Concesio (BS) Italy
Tel. 0039-30-2008135/0039-30-2091057  Fax. 0039-30-2004911
Web: 
http://www.siasoftwork.it
 - E.mai:- 
ca...@siasoftwork.it

 ha scritto nel messaggio
news:8kjtan$mb8$1...@fe1.cs.interbusiness.it...


Come faccio a impostare il colore?
Un paio di anni fa ho fatto un programma in VB4 che creava disegni su
una Picture Box: creava la line a di contorno e poi gli "versava" il
colore in un punto interno (come il comando paint dell'
"indimendicato" Quick Basic)
L'ho provato con VB5 e funzia ancora: ecco il listato della funzione
che allora avevo trovato da qualche parte
Public Declare Function DeleteObject& Lib "gdi32" (ByVal hObject As
Long)
Public Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long,
ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Public Declare Function SelectObject& Lib "gdi32" (ByVal hdc As Long,
ByVal hObject As Long)
Public Declare Function CreateSolidBrush& Lib "gdi32" (ByVal crColor
As Long)
Public Sub VersaColore(ByVal clr As Long, x As Single, y As Single)
    Dim hBrush As Long      '// Handle del brush
    Dim res As Long         '// Valore di ritorno di FloodFill
    '// Creaiamo un brush con sfondo uniforme (cioč senza quadrati,
linee, ecc.)
    hBrush = CreateSolidBrush(clr)
    '// Selezioniamo il brush creato nel nostro Device context
    SelectObject frmDisegno.pctDisegno.hdc, hBrush
    '// Ora chiamiamo la funzione
    res = FloodFill(frmDisegno.pctDisegno.hdc, x, y, vbBlack)
    '// E ora, importantissimo, distruggiamo l'oggetto.
    DeleteObject hBrush
End Sub

Grazie
Ciao
Oz
Newsgroup: it.comp.lang.visual-basic
Titolo: VB e Server NTP

Ciao a tutti...
come posso prelevare, con l'aiuto del winnsock.ocx, l'ora esatta da un 
server ntpd?
Grassie e ciao.
Red
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
.
Share information about yourself, create your own public profile at 
http://profiles.msn.com
.
-- 
Posted from [212.141.56.8] by way of 
f56.law4.hotmail.com
 [216.33.149.56] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

http://www.thescarms.com/VBasic/SyncClock.htm
On 23 Oct 2000 14:42:20 +0200, 
ciu...@hotmail.com
 ("Red *******")
wrote:


Newsgroup: it.comp.lang.visual-basic
Titolo: Aggoirnare vs 2002 alla versione 2003

salve a tutti, 
ho visto su internet che si può aggiornare la versione 2002 di vs alla
2003 pagando 31 euro.
purtroppo è necessaria la carta di credito, che io non ho.
secondo voi come posso fare?
vi ringrazio
Alex88

sfrutta il fratello!!! anche io non ho carta di credito, e quando ne ho
bisogno, ripeto, sfrutto mio fratello!!!
a parte scherzi, non puoi pagare alla consegna?
di solito, almeno, MS permette anche questo metodo, no???
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

di solito, almeno, MS permette anche questo metodo, no???
bho, ora vedo...
grazie

di solito, almeno, MS permette anche questo metodo, no???
niente da fare :'(((
o paghi con la carta di credito o ti attacchi;
io non ce l'ho e mio parde non la sgancia (oh oh, lui non si fida
(grrrr))
saluti
alex

di solito, almeno, MS permette anche questo metodo, no???
grrrrrrr:
la micro$$$oft ha trovato il modo per farmi andare dal marocchino.
e poi si lamentano della pirateria....
grrrrrrr.
scusa lo sfogo

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

Redhat Linux, Debian, FreeBSD, Windows, Mandrake
Fast Servers in Germany !
Agent wanted in Italy !
http://www.italiaserver.net

*Starlandz* ha scritto:

Mavaffanculo!

Newsgroup: it.comp.lang.visual-basic
Titolo: come si fa a...

come si fa a cambiare il numero seriale dell'hard disk ?
esiste un comando dos che scrive questo numero,con quale criterio
lo scrive?
grazie a quanti mi risponderanno.

...

Nel sito comune dovrebbe esserci un esempio.
Ciao lele.

con quale criterio lo scrive?
ehm... interrupt, blocchi, boot sector, strutture FAT...
Potresti spiegare perche' vuoi cambiare il numero di serie di un HD?
--
Roal Zanazzi
z...@iol.it

posseggo un programma di lotto registrato ma se io formatto devo uscire 50k
per avere un'altra chiave dopo che comunico il seriale.
Premetto che un programma che cambia il SN c'e lho e posso formattare quante
volte voglio
ma volevo capire come funzionava.
Il programma in mio possesso non fa altro che leggere il SN e ti chiede se
vuoi cambiarlo,se io lo cambio non perdo dati e tutto funziona
regolarmente..
Booooooooooo!
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare Copie di Oggetti

Ciao a tutti come posso fare per creare copie di un oggetto già esistente
come una label già in versione matrice ?
Ciao a tutti ...
            bruce

 come una label già in versione matrice ?
supponendo che sia Label(0)
    Load Label1(1)
    Load Label1(2)
    Load Label1(3)
    .. .
    .. .
ed ovviamente
    Unload Label(1)
    ..
    ..
/\/\/\/\/\/\/\/\/\/\/\/\/
|  Qui sul NG è nata una iniziativa:
|  Partecipa alla stesura di progetti VB sviluppati in team,
|  informati sul Sito Comune sezione Leonardo. Io
|  partecipo al progetto Data Raptor, alleati con noi.
\/\/\/\/\/\/\/\/\/\/\/\/\
Ciao
Ettore Maronese, il Mes
http://www.maronese.com/mes
Sito Comune di questo NG
http://www.murialdo.it/it_lang_vb

 wrote in message
news:oTQq6.9083$x3.1...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Accesso Remoto e VB

E' possibile creare una connessione da VB?
Come?
Simo


Beh, per far partire il wizard per creare una connessione puoi usare il 
comando shell "c:\windows\rundll32.exe rnaui,rnawizard",vbhide
E poi con qualche sendkeys....
Non è proprio un metodo pulito comunque...
Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Ricrca Scadenza

Ciao Ragazzio sono Rino
 Sto sviluppando un gestionale videoteca .
volevo sapere come posso fare a far visualizzare tutti i giorni le tessere
che scadono .
Tenedo presente che uso una tabella access con questi campi:
Nome
Cognome
Tel
Citta
Tipo Tessera
Documento
Cell
DataInizio
DataScadenza Tessera
Grazie Rino.

 ha scritto nel messaggio
news:0av2a.110079$YG2.3...@twister1.libero.it...

Una bella ricerca in cui recuperi le schede con data odierna
Ado.recordsource= "SELECT * FROM TabelleTua WHERE DataInizio = #" &
DataOggiInformatoamericano & "#"   //(tutto su un solo rigo)
poi fai un bel refresh...
p.s Fai attenzione che la data deve essere del tipo mm/dd/yyyy

 ha scritto nel messaggio
news:Xdv2a.172776$0v.47...@news1.tin.it...

Scusami ma devi scrivere DataScadenza e non DataInizio...piccoli abbagli
dopo ore di studio!!!

select * from tabella where [DataScadenza Tessera] <= #" &
datadioggiformattata & "#"
Ma mi sa che č meglio che ti guardi un po' di SQL prima di andare avanti...
Ciao
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: Come ottengo l'elenco delle tabelle da un database MDB?

Ho un file MDB al quale accedo o via controllo visuale oppure via DAO
Come diavolo faccio a leggere i nomi delle tabelle?
Pensavo di affidarmi alla "parolina magica" recordsets ... ma ho solo i
metodi count e refresh e il count mi restituisce un valore sbagliato :(
Ciao

 wrote in message
10jdb91$1st$1...@fe2.cs.interbusiness.it...


 metodi count e refresh e il count mi restituisce un valore sbagliato :(
se vuoi vedere in azione la routine qui sotto, dbstru sul mio sito.
hth, pal
--
andrea palazzi
xday at libero dot it
free sw - 
http://www.comune.modena.it/cittadini/apal/html/
Private Sub cmdStructure_Click()
    On Error GoTo errman
    If DbName = "" Then Exit Sub
    Dim conf As Long
    Dim db As Database
    Dim td As TableDef, prp As Property, fld As Field, idx As Index
    Dim J As Long
    Dim vval, txt
    Set db = OpenDatabase(DbName)
    List1.Clear
    List1.AddItem UCase(DbName)
    List1.AddItem "==========================="
    For Each td In db.TableDefs
        If Left(td.Name, 4) <> "MSys" Then
            List1.AddItem "TABLE: " & td.Name
            For Each prp In td.Properties
                vval = ""
                vval = prp.Value
                txt = IIf(vval <> "", prp.Name & ": " & prp.Value, prp.Name)
                List1.AddItem "---" & txt
            Next
            For Each fld In td.Fields
                List1.AddItem "------FLD: " & fld.Name
                List1.AddItem "---------Type: " & fld.Type & Chr(9) & "(" &
TipoCampo(fld.Type) & ")"
                List1.AddItem "---------Size: " & fld.Size
                List1.AddItem "---------Required: " & fld.Required
            Next
            For Each idx In td.Indexes
                List1.AddItem "------IDX: " & idx.Name
                For Each fld In idx.Fields
                    List1.AddItem "---------" & fld.Name
                Next
            Next
'ExitFor:
            List1.AddItem "==========================="
        End If
        Status.Panels(3) = List1.ListCount: DoEvents
    Next
    List1.SetFocus
    db.Close
    Exit Sub
errman: MsgBox Error: Exit Sub
End Sub

 Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Componete per fare la preview di documenti

Salve gente sapete se esiste da qualche parte un componente che mi permetta
di fare la preview a video del contenuto di un documento word ?
Grazie
ZeroCool

 ha scritto nel messaggio
news:72Jxa.193278$K35.4...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Evento su ComboBox quando cambio valore

Salve a tutto il NG
vorrei sapere, quale evento usare su una combobox nel momento in cui cambio 
il valore?
Al momento ho usato GotFocus, ma mi genera l'evento anche solo se ci clicco 
e non cambio valore. A me interessa solo se cambia valore per potermi andare 
a recuperare il nuovo valore
Ringrazio tuti per le info 

 il valore?
Click ?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Click ?
Rivoluzionario.
Alberto
-- 
Ma noi no


Grazie mille...
Non lo avevo provato pensando ke funzionasse già soltanto in cui cliccavo 
sulla combo box 

 ha scritto:

su "Change" va meglio :o)
Ciauz
-- 
'gnurant come una cucuzza


Per poter catturare solo il caso in cui il valore cambiato è diverso da 
quello precedente, c'è qualche metodo sulla combo che mi può aiutare, oppure 
devo per forza recuperare in qualche altro modo il precedente valore e 
confrontarlo con il nuovo? 

 ha scritto:

"Change"! oh! uffa! mi sono offeso! eheh... 


 "Change"! oh! uffa! mi sono offeso! eheh...
Ammetto...era banale...
 scusatemi...ma sono alle prime armi con VB6 

 ha scritto:

Ma figurati! Ho fatto la parte di quello che non si sentiva considerato visto 
che ti avevo già risposto in precedenza...eheheh...
Ciauz

Newsgroup: it.comp.lang.visual-basic
Titolo: A few questions...

Hi there.  I am interested in possibly getting into programming/development
and I am presently in the midst of doing my "homework" in finding out what
this field is really all about and how the people who are actually doing it
right now feel about their work.  If you have a moment, I would greatly
appreciate if you could answer some of the questions I have.  Any input you
have will help me out tremendously in making a wise, well-informed decision
about my possible future endeavor.  Thanks for taking the time to help.
Aysegul
· What kind of programming/development do you do? · Which is the best
language to use - the most enjoyable? · Which programming language is in most
demand now?  Which do you believe will be in most demand 2 years from now? ·
Are Web Developers as in demand as Software Engineers? · Which is a better
field to get into programming or web development? · Is programming/developing
enjoyable? · What are the benefits? · What are the drawbacks? · What do you
do in a given day? · Do you use analytical thinking? - Do you get to figure
things out? · Do you have much human contact in a given day or are you mainly
in solitary? · Where do you envision yourself 2 years from now, 5 years from
now and 10 years from now?
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp
   Create Your Own Free Member Forum

 Where do you envision yourself 2 years from now, 5 years from now and 10
years from now?
2 years: president of IBM
5 years: emperor of the world
10 years: I wake up.... auch! I was just dreaming :-(
As a last advice (my opinion):
don't start writing code!! Buy some books on programming, take a look (if
you can) at the most used development environments (MS Visual C/C++, Borland
C++Builder, Borland Delphi, MS Visual Basic)
and programming languages (C/C++, basic, Pascal, Java), and study, study,
study...
No one can consider himself a "good" developer without such a background.
The path to become a Software Engineer is even more complex; it means:
university and some years of on-field experience.
Hope this helps.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Sfondo desktop

Come faccio a cambiarlo?

 Come faccio a cambiarlo?
option explicit
dim s
set s = CreateObject("Shell.UIHelper")
s.AddDesktopComponent "c:\pagina.html", "website", 0, 0, 640, 480
oppure scarica >>> adt.dll  e
Set oWp = CreateObject("adt.wp")
oWp.SetActiveDesktopWallpaper "C:\WINDOWS\Web\Wallpaper\Ascent.jpg", 0, False
' 0 centered
' 1 tiled
' 2 stretched
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: mapi?

Ciao a tutti,come faccio a creare un programma che verifichi ogni 5 minuti
se mi č arrivata posta ed in caso affermativo mi faccia comparire un MSGBOX?
Devo usare l'oggetto mapi?Con quali funzioni?
Grazie

 comparire un MSGBOX? Devo usare l'oggetto mapi?Con quali funzioni?
Sito Comune, cerca POP3. 
http://www.it-lang-vb.net/
Bye, G.