mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ... (Set XX = Createobject) = (Dim XX As New object) ???

Ciao,
...  ma, esattamente,  che differenza c'e' tra queste righe di codice?
a)       Dim cnn As ADODB.Connection
          Set cnn = CreateObject("ADODB.Connection")
          cnn.ConnectioneString = MiaStringaDiConnessione
          cnn.Open
b)       Dim cnn As New ADODB.Connection
          cnn.Open MiaStringaDiConnessione
c)      Dim cnn As ADODB.Connection
         Set cnn = New ADODB.Connection
         cnn.ConnectionString = MiaStringaDiConnessione
         cnn.Open
1000 grazie anticipatamente
Roberto Bergonzini

 wrote in message
7r6gb0$pbk$1...@fe1.cs.interbusiness.it...


Fanno effettivamente la stessa cosa e sono tutte e 3 oggetti in early
binding (anche se qualcuno pensa di no)
La differenza sta in quello che avviene 'under the hood'.
a) VB cerca nel registry la chiave "ADODB.Connection" la quale contiene un
GUID che punta all oggetto che effettivamente espone l' oggetto, quindi c'è
un pò di lavoro a livello di registry e quindi un po più lento
b) Appena utilizzi un metodo/proprietà di cnn, VB crea l'oggetto prima di
utilizzarne il metodo o la proprietà, il problema vero sta nel fatto che
tutte le volte che accedi all'oggetto VB prima verifica se l' oggetto è già
stato istanziato (quindi più lavoro da parte di VB, quindi più lentezza)
senza considerare il fatto che l'oggetto può, a causa di un involontario
accesso alle sue proprietà venire ricreato anche se non volevi.
c) La soluzione migliore, sei tu che decidi esattamente quando VB crea
l'istanza del tuo oggetto.
Nota: La soluzione 'a', visto che non richiede l' utilizzo di riferimenti
nell'IDE di VB si presta molto bene per la creazione di moduli plug-in.
Ciao,
Corrado

accesso alle sue proprietà venire ricreato anche se non volevi.
[SNIP]
Infatti uno degli effetti collaterali piu' fastidiosi di questa soluzione e' che
non puoi settare l'oggetto cnn=Nothing e quindi si possono verificare delle
apparenti incongruenze:
Dim cnn As New ADODB.Connection
Set cnn=Nothing
If cnn Is Nothing Then
    MsgBox "Nothing" 'non ci passa mai!!
End If
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

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

Posso fare un eseguibile che fa lo Shutdown dei componenti COM+ , senza
andare in servizi componenti e stopparli manualmente ?
Se si come ?


Molto brutalmente puoi farli partire con
Shell ("net start " + NOMESERVIZIO)
e fermarli con
Shell ("net Stop " + NOMESERVIZIO)
--------------------------------
Inviato via 
http://usenet.libero.it

Ma COM+ mica è un servizio?
Se si quale?


OPS, scusa non avevo letto bene la tua richiesta


Quando dereferenzi l'oggetto, SCM in automatico viene rimosso il componente.

Non ho compreso bene, spiegati meglio!!
Newsgroup: it.comp.lang.visual-basic
Titolo: problema import Visual basic - DTS di SQL Server

Salve ho un problema di import DTS da Visual Basic, precisamente :
DTSPackage.LoadFromStorageFile "C:\file.dts", ""
DTSPackage.SaveToSQLServer NomeServer, "SA"
NON MI FA LA COPIA IN MODO CORRETTO, NEL SENSO CHE MI METTE ALTRI DATI CHE
IO NON HO, ad esempio ALTRE CONNESSIONI :
ESEMPIO :
1 CONNESSIONE SQL SERVER
1 CONNESSIONE DBASE III
4 ATTIVITA TRASFORMA DATI
----------------------------------------------------------------------------
-----------
RISULTATO DOPO L'IMPORT TRAMITE VISUAL BASIC :
5 CONNESSIONI DBASE III
5 CONNESSIONI SQL SERVER
COME MAI?
DEVO IMPOSTARE ALTRE COSE?

DEVO IMPOSTARE ALTRE COSE?
Il capslock :-(
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: da vb6 a excel

in vb6 è possibile esportare una tabella(più precisamente un adodc che
prende i dati da una decina di tabelle oracle, ne fa una select e mette
i dati in una datagrid) in excel97?
in che modo?
Vi ringrazio veramente tanto
ciao

 in che modo?
Non ho capito: il destinatario dei recordset è un foglio excel o una
datagrid?
ciao
ugo
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

Per prima cosa grazie er avermi risposto
I dati all'interno di vb vanno in una datagrid ed io li vorrei esportare
così come sono in excel
ti ringrazio e spero tu possa aiutarmi a risolvere il problema
ciao


 ti ringrazio e spero tu possa aiutarmi a risolvere il problema
Vedi il codice che ho postato al thread "Esportare in excel" poco sopra.


 > cosě come sono in excel



Ripeto: leggi il thread sopra.
Il codice che ho postato è codice vb.
L'unica specifica di access è la connection, che ovviamente
deve essere una connection ado aperta.
ciao
ugo

ok, grazie
anche se il codice che hai postato è molto complesso per me
adesso lo provo ul mio progetto vb6
ciao e grazie ancora

Newsgroup: it.comp.lang.visual-basic
Titolo: Trasformare e Track da CD a MP3

Come si fa a trasformare una canzone che ho sul cd a farla diventare mp3?
Penso che Esista qualche programma ma non so quale
bye Roberto

 Penso che Esista qualche programma ma non so quale
se intendi non da vb, ci voleva un [ot] davanti al soggetto. l'ultimo o
penultimo microcomputer (#207) aveva a 7mila un cd in gran parte
sull'argomento.
se intendi da vb, non ne ho la minima idea.
ciao, a.

 wrote in message 38444...@news.megasys.it...


 ha scritto


 wrote in message 38463...@news.megasys.it...


 non penso proprio!
gia'...

 wrote in message 38464...@news.megasys.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di I/O

Io capisco che la periferica PRN non si possa usare
poichè è una periferica che si usava in DOS,
ma VB non mi permette neanche di fare questo:
Open "PRN.TXT" For Output As #1
Print #1, "QUEL CHE VI PARE"
Close #1
Mi dice "Errore 57: Errore di I/O periferica"
Ma dimmi te che ca..ate !!!
Ciao
Sir Jo

 Close #1
E' la dimostrazione che Windows si appoggia ancora pesantemente al Dos.
Prova ad aprire una finestra Dos e scrivere:
Echo > prn.txt
e vedrai che ti da lo stesso errore.
Ciao
*Roby*

 ha scritto nel messaggio
news:9lj1i8$qqn$1...@pegasus.tiscalinet.it...


> Prova con "copy nomefile.txt LPT1"
Si, grazie, ma io voglio creare un file che si chiama PRN.TXT,
non volevo stampare niente.........
Ciao
Sir Jo


PRN e' un nome di SISTEMA, RISERVATO, non si puo' creare un file con quel
nome esattamente come non si puo' creare un file che si chiami NUL.
Non e' un limite di VB, e' un limite di windows.
E ringrazia, perche' fino a poco tempo fa provare a leggere/scrivere su un
nome riservato faceva crashare il sistema.
Ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: Form Position on Screen

Hi All,
I was wondering how you position a form in a certain co-ordinate on the
screen. I have 3 forms and I want them to all line up horizontaly. Any help
would be well appreciated.
Thanks in advanced!
Chris
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp
   Create Your Own Free Member Forum

screen. I have 3 forms and I want them to all line up horizontaly. Any help
hi, give a look at the properties .top, .left, .width, .height on the
online help.  they are expressed in twips, an arbitrary absolute
measure unit, I think it's a 1440th of an inch.
I think you should first check how many twips your screen is
width/height: those properties also apply to the screen object.
then you divide this width by 3 and you have the forms' width value.
for the left value, the first will be 0, then width, then width*2.
check also in this ng the thread "risoluzione dello schermo", in
italian but you should guess what they say.
il tizio chiede come puo' fare a mettere tre maschere in riga
orizzontalmente.  gli ho suggerito di cercare sull'help top, left,
width, height, poi di controllare la screen.width e dividerla per tre,
e questa sara' la width di ciascuna maschera.  per la left, la prima
e' zero, la seconda e' pari a width, la terza e' width*2.
======================================================
my opinions do not necessarily have to be true.
======================================================
per rispondermi rimuovere NOSPAM. dall'indirizzo email
to answer me remove NOSPAM. from email address
======================================================

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

Salve,
scusate la domanda ma, mi farebbe piacere sapere ogni quanto,durante la
giornata, la lista dei messaggi viene aggiornata.
Saluti
R.Zanni
-- 
Posted from root@[212.13.17.7] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
001601c1102d$ad4be710$ca010a0a@pctric2...


 giornata, la lista dei messaggi viene aggiornata.
? Sai come funge usenet ?
Ciao,
Moreno

 ha scritto nel messaggio
news:001601c1102d$ad4be710$ca010a0a@pctric2...

                                                    ^^^^^^
Se intendi mailgate non so aiutarti, dovresti invece mandare
una mail a chi se ne occupa per avere maggiori informazioni,
se invece intendi il newsgroup in sè, beh, quello viene aggiornato
ad ogni messaggio nuovo.
ciao, Assa.

Grazie per le risposte, cmq non sono molto pratico...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Invertire una stringa

Ciao a tutti !!
Qualcuno conosce un metodo rapido (sempre che esista) di invertire una
stringa ?
...o perlomeno piu' rapido di fare un ciclo con Mid() , Left() , Instr() o
altre cavolate..
Io dovrei invertire una stringa, ad esempio :   123abc  e farla diventare
cba321
Mi sapreste dare un consiglio ?
Grazie mille !!
DaVe

 wrote in message
891hg1$799$1...@bw107zhb.bluewin.ch...


...


In VB6 c'e' la funzione StrReverse(stringa)
--
Posted from 
relay.infogroup.it
 [195.103.148.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 stringa ?
in VB6 esiste la funzione StrReverse.
sStringaInvertita=StrReverse(sStringaSorgente)
Ciao
*Roby*

 wrote in message
891sc7$c9a$1...@news.mclink.it...


Ma va!? Era talmente banale che continuo a usare quella in C che uso da
dieci anni. Chiisà perché alcune funzioni tardano così tanto ad essere
inserite nel linguaggio. Eppure sono scemate.


 wrote in message
894epl$7f4$2...@news.mclink.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Access - Array

Dim ElePart(1 To 2000, 1 To 14) As String
<cut>
'Apertura DataBase
Set ele = OpenDatabase("uc.mdb")
Set ana = ele.OpenRecordset("AnaDitte", dbOpenDynaset)
'
<CUT>
If ana![Partita Iva] <> Null Then ElePart(1, 1) = CStr(ana![Partita
Iva])
Per piacere, mi spiegate perché, ana![Partita Iva] ha come valore
"
12345678910
" mentre questo valore non viene attribuito a ElePart(1, 1)
????
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ????
Prova questo:
If Not IsNull(ana![Partita Iva]) Then
   ElePart(1, 1) = CStr(ana![Partita Iva])
End If

 End If
Esatto!
Grazie mille!


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

Salve a tutti!
E possibile annullare l'esecuzione di un evento al verificarsi di una
determinata condizione?
come per esempio č possibile fare in ACCESS impostando cancel =false
Vi ringrazio anticipatamente

 come per esempio č possibile fare in ACCESS impostando cancel =false
quello e' un parametro che ricevi e che internamente funziona proprio cosi'.
-- 
hth, hal

 ha scritto nel messaggio 
news:cs96jo$j0m$1...@balena.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Excel da VB6

Come modificare le proprietà di una colonna?
con worksheet.columns(i).Width
mi dice che è impossibile impostare la proprietà per la classe
range! Ma devo per forza specificare un range??? Ma se devo
modificare tutta la colonna???
Grazie
pEIO

> con worksheet.columns(i).Width
prova con :
    Columns("H:H").Select
    Selection.ColumnWidth = 25
Tante volte basta usare il registratore di macro di Excel e fare
l'operazione per sapere come fare!
Ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6]  cerca file

hello
 come fare ad usare il "cerca" di windows ed avere i nomi dei file in un 
array
grazie1000
 

 array
Parti da qui..
http://www.internettrash.com/users/fdb/apifile.htm
Newsgroup: it.comp.lang.visual-basic
Titolo: Acquisizione immagini con telecamera

Sono alla ricerca di qualche OCX o VBX che consenta la visualizzazione in
una finestra dei video e la cattura di immagini (freeze) provenienti da
telecamera/videoregistratore.
Mentre sono a conoscenza di prodotti tipo ImageMan per scanner o sorgenti
TWAIN, non conosco se esiste l'analogo prodotto per immagini in movimento.
Grazie per eventuali segnalazioni.
============================================
                      CYBER Hardware & Software
                         di Albani Ettore Massimo
                           Via Scapacchiò, 48/B
                 35030 Selvazzano Dentro (PD) - Italy
                         Tel./Fax: 
(+39) 049-638681
 
http://www.protec.it/cyber
                           E.mail: 
cy...@protec.it
============================================

Newsgroup: it.comp.lang.visual-basic
Titolo: Proteggere dalla copia

Ciao a tutti!
Vorrei proteggere dalla copia un programma che ho creato. Ma come?
Grazie

 wrote in message
8nhh2v$1a6$1...@pegasus.tiscalinet.it...


 ha scritto nel
messaggio news:8nhh2v$1a6$1...@pegasus.tiscalinet.it...


 wrote in message


prova NmKit3 o NmKit4, gratis, da me o nel sito comune (la 3)
sono OCX
http://www.chiappori.net
---
GbC
---

ciao GbC
non è pertinete...
ma mi spiegheresti come realizzare un ocx???
Grazie
aga
GbC <-...@O-O.OOO> wrote in message
knan5.86987$dF5.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Emule...e ...vb

Salve a tutti....ho creato un applicazione in vb che mi permette di
spegnere o riavviare il pc...ma dato ke e x uso personale vorrei
aggiungere anke la funzione di uscire da emule....Sapete dirmi come
fare?....x favore


Usa le classi di System.Diagnostics.Process e butta giù il processo di 
emule.
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site: 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 emule.
Non viene chiuso in modo brutale?
In ogni caso non ha specificato se vb6 o vb2005 (la tua ad occhio non l'ho
mai vista in vb6)
-- 
DBMS Firebird
VB6 + Ado

®Svito® ha scritto:

Ciao, secondo me con le API risolvi brillantemente: prova a dare uno
sguardo a ExitWindowsEx, in base ai parametri prima manda una chiusura
di applicazione a tutti i programmi, poi chiude il sistema...emule alla
chiusura mi sembra che chieda la conferma, in questo caso se vuoi fare
una cosa pulita rintracci la finestrella e confermi la chiusura (cerca
findwindow e sendmessage)
Spero ti sia d'aiuto, ciao

 l'ho mai vista in vb6)
Infatti è per vb2005, mi ero dimenticato di specificarlo.


 Infatti č per vb2005, mi ero dimenticato di specificarlo.
Non dovevi specificarlo tu, ma l'autore del post, che a quanto pare non č
davvero interessato...

Newsgroup: it.comp.lang.visual-basic
Titolo: stampare un form

Salve a tutti.
E' mia intenzione di utilizzare un Form con delle etichette, textbox e
qant'altro di utile per aquisire delle informazioni per poi stampare il
tutto su un foglio A4, chiaramente completo delle menzionate etichette,
frame etc, un pò come......... avete presente una maschera di access
collegata ad un report, ecco questo è quello che intendo.
E' possibile? O bisogna perforza appoggiarsi ad Access?
In ogni caso potreste darmi un indicazione su come fare?
Spero di essere stato chiaro.
Nella attesa, ringrazio.
Ciao

 wrote in message
9kmk7u$98q$1...@lacerta.tiscalinet.it...
| Salve a tutti.
| E' mia intenzione di utilizzare un Form con delle etichette, textbox e
| qant'altro di utile per aquisire delle informazioni per poi stampare il
| tutto su un foglio A4, chiaramente completo delle menzionate etichette,
| frame etc, un pň come......... avete presente una maschera di access
| collegata ad un report, ecco questo č quello che intendo.
| E' possibile? O bisogna perforza appoggiarsi ad Access?
| In ogni caso potreste darmi un indicazione su come fare?
Se non ricordo male e sopratutto se non ho capito male, la tua soluzione č
lě, sě proprio lě, a portata di mano anzi di tasto: F1 per la precisione!!
Cmq, scherzi a parte cerca Printer nella guida.
Bye,
Enrico.

Seguimi con attenzione...
prima di tutto mi serve sapere l'area di foglio che ti serve.
Se devi stampare un form di dimensioni superiori allo schermo, non potresti,
ma mai dire mai:)
Esistono due metodi per occupare tutto lo schermo uno idiota e uno bello.
Il primo consiste nel creare un MDI Form e un secondo normale definito come
figlio
setti la dimensione del form figlio a seconda di quanto ti serve, in questo
caso può essere grande quanto vuoi.
Altra soluzione più fica...ti disegni il form in una picture box
dai alla picture le dimensioni del foglio e te la stampi.
Se non hai capito come fare me lo dici che ti uploado due esempi sul web, in
modo che chiunque se li possa scaricare.
Davide Cerbo
www.e-salerno.it
www.e-salerno.it/clippy

 ha scritto nel messaggio
news:9kp9fo$53b$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: installazione vb6

Scusate se sono forse ot, ma non riesco proprio ad installare il vb6 pro sul 
mio xp sp2, che voi sappiate c'è qualche possibilità che vi sia 
incompatibilità con un software qualsiasi. Ho installato il tutto su win2k e 
funziona alla perfezione!
Ho provato di tutto tranne che format c: e vorrei evitarlo!
grazie per le eventuali risposte 

" <shitspam<novalid-f.e.m.> ha scritto nel messaggio 
news:436e6aa7$0$22289$4faf...@reader1.news.tin.it...



Si è verificato un errore in vs60wiz.exe. L'applicazione verrà chiusa


Basta cercare nella knowledge base Microsoft:
"PRB: "Invalid Command" or "Installation Wizard" Errors During Setup After 
the CD Key Prompt"
http://support.microsoft.com/kb/250343/en-us
Nell'articolo si parla di Windows 2000, ma la soluzione proposta è valida 
anche per XP SP2
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca


Guarda, ho fatto tutto quello che era scritto negli articoli, ma nulla da 
fare!!! Penso sia un problema legato a qualche installazione precedente ma 
nn riesco a capire cosa fare! 

 nn riesco a capire cosa fare!
Miiii ci sono riuscito, ho sostituito i file PERFC010.DAT e PERFC009.DAT con 
quelli originali et voilŕ!!!!
Grazie davvero per la dritta!!!
ciao 

 ciao
Lieto di averti aiutato ;)

Newsgroup: it.comp.lang.visual-basic
Titolo: PrinterRightToLeft

Devo stampare dei dati di calcolo incolonnati con allineamento a destra.
Vorrei usare PrinterRightToLeft ,ma non posso usare CurrentX, altrimenti
tutto mi riparte dall' angolo sup. sin.
C'è un modo semplice per stampare con allineamento a destra?
Grazie
--
Gulp ! Forse mi sono perso qualcosa !
Per rispondere via E-mail togli la x da 
xd...@cyberjunkie.com

 C'č un modo semplice per stampare con allineamento a destra?
Prima ipotesi: Usi un font a passo fisso e aggiungi spazi in testa, tanti
quanti ne bastano per occupare il numero totale di battute previsto per il
campo
Seconda ipotesi: Usa tranquillamente, ma correttamente (cosa significa che
"tutto parte dall'angolo sup.sin."?) e adotta la stessa tecnica facendo
partire la stampa dalla posizione finale della colonna - il TextWidth di
quanto devi stampare.

 quanto devi stampare.
OK. Così ci sono riuscito:
Printer.CurrentX = Printer.Width - Printer.TextWidth(Text1) - 9000
Sembra impossibile eppure, nessuno tra i manuali che ho si dilunga
troppo sulla stampa.
Devo effettuare la stampa su modulo continuo.
Sul computer di casa non ho modo di provare, così funzionerà ?:
Printer.PaperSize = vbPRPSFanfoldUS
Oppure sono fuori strada ?
Grazie
Ciao
-- 
®Gulp ! Forse mi sono perso qualcosa.

 Oppure sono fuori strada ?
Non sei fuori strada, ma il mondo delle stampanti combinato con i drivers e
i vari SO Windows è uno sporco mondo. Garantisco e posso provarlo.
Cerca di usare solo le cose indispensabili e consenti la massima libertà
all'operatore sulla scelta della stampante e delle caratteristiche del
modulo. Usa CommonDialog e fai fare tutto al sistema, non assegnare mai (se
non è indispensabile per altri scopi) una proprietà in programma. Quindi,
per esempio, quel PaperSize, se puoi, dimenticalo. Fai un
CommonDialog1.ShowPrinter e, nella maggioranza dei casi, sei a posto. Vedi
la guida per i vari parametri e modalità.

 Vedi la guida per i vari parametri e modalità.
Mi ci sto applicando.
Grazie Lupo
ah, dimenticavo, giusto per la precisione, con
Printer.CurrentX = Printer.Width - Printer.TextWidth(Text1) - 9000
sono riuscito in una prova,ma nel programma che sto sviluppando ho
fatto:
9000 - Printer.TextWidth(Text1.text) come da te suggerito... e i conti
tornano meglio :-))


 tornano meglio :-))
Avevo notato il codice di prima, non ero entrato nel merito perchè non ne
conoscevo il contesto.
Comunque, sì, xxx.CurrentX = posizione di estrema destra - area fisicamente
occupata dal testo
dove (sto anticipando la prossima domanda) xxx può essere anche il Form, o,
meglio, una Picture con le opportune dimensioni e l'anteprima è fatta. ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Come utilizzare dll ActiveX?

Ciao a tutti,
ho un problema che non riesco a risolvere e vi sarei grato se potreste darmi
qualche soluzione. Vorrei creare una libreria DLL ActiveX in cui includere
una funzione, per esempio "Raddoppia", quindi scrivo nel modulo di classe:
Public Function Raddoppia (numero as integer) as integer
    Raddoppia=2*Numero
End Function
Fatto questo apro un nuovo progetto EXE standard, inserisco un nuovo modulo
(normale, non di classe) e dichiaro la funzione:
Public Declare Function Raddoppia Lib "prova.dll" (numero as integer) as
integer
Vado poi sul form, vi disegno un CommandButton e associo al suo evento Click
il seguente codice:
Label1.caption= Raddoppia(3)
Avvio il programmino e appena l'evento Click va a richiamare la famosa
funzione ottengo un errore che dice più o meno così: "Impossibile
localizzare il punto d'entrata della funzione Raddoppia nella DLL prova.dll"
Cosa ho sbagliato? Lo so, forse la soluzione è banale, ma sono giorni che
non riesco a capire perché non debba funzionare..
Grazie a chi mi saprà dare una mano (spero molti)
Ciao
--
Marco Anelli
E-Mail: 
e.an...@flashnet.it

Puoi fare cosě
sub command1_click()
dim obj as object
set obj=createobject("miadll.lamiadll")
doppio=obj.raddoppia (3)
end sub
perň attento a settare i nomi del progetto e dell'oggetto dell'activex.
miadll corrisponde al nome del file
lamiadll corrisponde al nome dell'oggetto
Enjoy!

...


 [...]
All'ottima risposta di Massimiliano potrei aggiungere che, se tu non vuoi
creare un'istanza di una classe ogni qualvolta devi richiamare la tua
funzione, puoi implementare la classe con la proprietą Instancing settata a
GlobalMultiUse (6).
In questo modo, all'avvio del tuo prg. viene creata un'istanza implicita
della classe come globale, e tu puoi richiamare le funzioni (metodi della
classe) senza far riferimento all'istanza stessa, ma come se fossero
effettivamente funzioni globali
Bye
-- 
Ale...@tiscalinet.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Lunghezza di una stringa in un DataGrid

Problema:
    In un campo di un DataGrid posso inserire stringhe più lunghe del campo.
In questo caso vorrei aumentare l'altezza del rigo in modo da visualizzare
la stringa per intero.
    Esiste uno strumento preconfezionato o mi devo arrangiare?
    Francesco

 ha scritto nel messaggio
news:IE3%5.123876$hk4.4...@news.infostrada.it...

Ho appena letto una risposta sul newsgroup microsoft.public.vb.database.ado
data da Chris Petchey (oggetto: MSHFlexGrid Question) a un quesito simile,
se non ho capito male dice di mettere una label sul form con Autosize=True e
WordWrap=True e Visible=False poi metti il testo della cella nella label,
imposti la larghezza della label alla larghezza della colonna, a questo
punto puoi impostare l'altezza della riga uguale a quella della label,
questo puoi farlo o per tutta la griglia o, se questa è troppo grande, solo
per la parte visibile.
Spero di esserti stato utile.
CiaoVB

Ti ringrazio. L'idea mi sembra ottima.
Newsgroup: it.comp.lang.visual-basic
Titolo: NUMERI DECIMALI!!!!

Salve a tutti,
è la seconda volta che mando questo messaggio, ma finora non ho avuto un
grande aiuto.
 - come faccio a diminuire il numero di decimali di un numero?
es: 0,
9375656484
 ===> 0,9375
 - come faccio a trasformare un numero del tipo 4,4546 E-03 in 0,0044546?
P.S. I numeri sono in doppia precisione (double)
grazie a chiunque abbia la pazienza ed il tempo di rispondere.
Ciao


non lo so...
ciaoooo

 wrote in message
97m91u$h5m$1...@nreadA.inwind.it...


  - come faccio a trasformare un numero del tipo 4,4546 E-03 in 0,0044546?
A che situazione alludi? Perchè con text1.Text= 0.044546  ottengo 0.044546
  e cosi anche se a=0.044546,  debug.print a
Se invece ti riferisci, come credo, alla visualizzazione in una tabella di
un database, devi impostare le proprietà di visualizzazione della colonna in
questione.
Ciao
G.C.


 ha scritto nel messaggio
news:97m91u$h5m$1...@nreadA.inwind.it...

Veramente ti ho gia' risposto io il 28/02/01 alle 11.52 consigliandoti di
utilizzare ROUND. Perche', il VB5 non ha la Round?

 wrote in message
Ifxn6.33151$Yx4.1...@news6.giganews.com...


 Ciao!
Ho VB5 comprato circa tre anni fa e attualmente disinstallato, ma
sinceramente non ricordo sulla ROUND. Pero', pensa che una funzione analoga
esiste in Clipper Summer '87!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report & interruzione di pagina

Come si inserisce una interruzione di pagina in un
Report CRYSTAL REPORT per far sě che per
ogni record venga stampata una sola pagina.
  Grazie
Salvatore

Report CRYSTAL REPORT per far sģ che per

Newsgroup: it.comp.lang.visual-basic
Titolo: DoEvents...

Vorrei al caricamento di un form oppure in occasione di un'elaborazione
complessa visualizzare un progressbar.
Ho impostato il progressbar variandone il valore con un timer, quando però
carico il form non vi è verso di passare il controllo al progressbar.Ho
provato con DoEvents() ma niente allego porzione del codice...satete
consigliarmi?
Private Sub MenuItem2_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem2.Click
        Dim xfrmScarico As New frmScarico()
        Cursor.Current = Cursors.WaitCursor
        xProgressione = 0
        xfrmScarico.MdiParent = Me
        ProgressBar1.Maximum = 30
        xfrmScarico.Show()
        DoEvents()
        TimerCaricamento.Enabled = True
    End Sub

     End Sub
dove è "TimerCaricamento" ? nella form in cui è contenuto questo codice, o
in xfrmScarico?
Non dire che sono la stessa form.
Salutoni
Sergio

 Non dire che sono la stessa form.
Il menù l'evento che carica il form e il timer sono in una form
conteninitore la form da caricare è un'altra.

 conteninitore la form da caricare č un'altra.
Bene.
La situazione č:
Una form che contiene un timer e una progressbar
Una form che contiene il codice di "scarico"
Non č bello (come fa il primo form a sapere a che punto č lo scarico?), ma
puň funzionare.
A questo punto serverebbe sapere:
1) Cosa avviene nell'evento tick (o come diavolo si chiama) del timer
2) cosa intendi esattamente con "Passare il controllo al progress bar"
Salutoni
Sergio

> 2) cosa intendi esattamente con "Passare il controllo al progress bar"
Quando carico il form scarico (che popola un dataset collegato con sql
server) vorei fare partire un timer che contemporaneamente al caricamento
facesse avanzare un progressbar che è posto sul form contentitore(chiamante)
. tutto questo perchè essendo lungo il caricamento (20" circa) informerebbe
l'utente che il programma stà elaborando

 elaborando
ok, ma nell'evento tick del timer, che cosa c'hai scritto?
Salutoni
Sergio

> ok, ma nell'evento tick del timer, che cosa c'hai scritto?
Nonostante che l'attivazione del Timer la metta prima o dopo la chiamata di
caricamento del form la progressione del progressbar avviene sempre quando
il form è caricato definitivamente
 Private Sub TimerCaricamento_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TimerCaricamento.Tick
        xProgressione = xProgressione + 1
        If xProgressione >= 30 Then
            TimerCaricamento.Enabled = False
            Exit Sub
        End If
        ProgressBar1.Value = xProgressione
    End Sub

 avviene sempre quando il form è caricato definitivamente
ah, ecco.
E' che il codice contenuto nella form di caricamento si "ciuccia" tutte le
risorse, e quindi il programma non riceve gli eventi del timer
Prova a postare la parte di codice con cui carichi il dataset, per vedere se
è possibile introdurre un doevents in quel pezzo.
Salutoni
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: Sheridan Data Widgets

Saluti a tutti.
Ho un problema con il controllo in oggetto. Se ho attivato o l'oggetto
ComboBox oppure la Dbgrid e muovo la rotella centrale del mouse
l'applicazione mi si chiude attivando la odiata finestrella DR. Watson
per Win-NT.
Sapete aiutarmi a risolvere il problema ?
Grazie in anticipo
Fabio

 wrote in message
39462122...@paini.com...

Non ne ho idea ma la cosa mi preoccupa molto visto che le uso anch'io.
(Scaricati gli aggiornamenti dal sito della Sheridan ? 
www.shersoft.com
)
Ciao
Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: array salvato in campo access

sono alla ricerca della soluzione di un problema che mi toglie il sonno.....
Devo (mi farebbe tanto comodo!!) salvare su un database access 97 un array
di n stringhe.

 ha scritto nel messaggio
news:Yb_H5.61118$Nz.16...@news.infostrada.it...


 ha scritto nel messaggio
news:8sqela$coa$2...@lacerta.tiscalinet.it...


Ti ho risposto più sopra
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Me ne vado anch'io... :-))

Yahoo... č arrivato il momento di staccare per qualche giorno...
Bachi, decompilatori, nubifragi, code... vade retro! Lasciatemi qualche giorno di relax...
Ci rivediamo Lunedě 19...
Buon Lavoro, buon ferragosto e Buone Ferie!!!
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
---------------------------------------------------------------------------

 Buon Lavoro, buon ferragosto e Buone Ferie!!!
MO - RE - NO
MO - RE - NO !!
forza con le ferie!
Faber

 Yahoo...  [<--QUALE?? :)]  č arrivato il momento di staccare per qualche giorno...


 Buon Lavoro, buon ferragosto e Buone Ferie!!!
Buone Ferie!!!
p.s. :
il prossimo Lunedi 19 capita di novembre... alla faccia di "qualche giorno"
di relax.. ;PP

 di relax.. ;PP
Va alle Maldive...
Stride

 Ci rivediamo Lunedì 19...


 Ci rivediamo Lunedě 19...
buon divertimento Moreno
quando torni me lo porti un regalo? magari un bel depilatore, pardon
decompilatore, andrebbe bene :)
--
Fibia "Sakamoto" FBI

 > Ci rivediamo Lunedì 19...



anche a te! :-))



Azz... magari! Anche se l'acqua cristallina non aveva nulla da invidiare alle Maldive, purtroppo
sono già tornato... :-((( Vabbé...



Volevo augurarti Buone Ferie...
Ma vedo che anche tu sei tornato in fretta...
allora... Buon lavoro!
:-)
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: grafici :-(

ciao a tutti sono proprio un novellino di vb :-)
qualcuno puo' essere cosi' gentile da dirmi come si puo' fare a creare
grafici in vb?
grazie :-)
hiz

 ha scritto nel messaggio
news:8pjbps$opo$1...@nslave2.tin.it...


 grafici in vb?
Con il graph32.ocx

 Con il graph32.ocx
dove lo trovo??????????????????????

provo.. ma se no dovessi riuscire posso stressarvi un po'?
grazie sky e grazie duedipicche ;-)

> Con il graph32.ocx
occhei... ma come si usa... cioe' potresti darmi un briciolo di spiegazioni?
:-)
metti che debba fare un grafico con tot barre... come faccio per dare a
ciascuna barra il suo valore?
grazie
hiz :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: OFFERTA TELELAVORO

Se volete guadagnare dei soldi pubblicizzando un sito
da casa vostra chiedete informazioni a:
ser...@MAIL.COM



Newsgroup: it.comp.lang.visual-basic
Titolo: Compattazione MDb

Salve,
ho il seguente problema:
come faccio a compattare un DB Jet da codice senza dover ricorrere ad
Access?
Ho una tabella su cui faccio molti inserimenti e cancellazioni di record e
mi ritrovo con un Db di 30Mb in cui ci sono 20 record!!
Grazie a tutti!
--
Alessio

 ha scritto


Io ho fatto così   :
 Dim vecchiodb, nuovodb, OldName, NewName As String
    Screen.MousePointer = vbHourglass
    vecchiodb = App.Path + "\nomedb.mdb"
    nuovodb = App.Path + "\nomedbnew.mdb"
    OldName = vecchiodb
    NewName = nuovodb
'Controllo se esiste già un db con lo stesso nome di "nuovodb", in
questo cso lo cancello
    If Dir(nuovodb) <> "" Then Kill nuovodb
 
    DBEngine.CompactDatabase vecchiodb, nuovodb, , , ";pwd=passwdeldb"
    Kill vecchiodb
 
    Name NewName As OldName
    Screen.MousePointer = vbDefault
Se non mi sbaglio il DBEngine crea un nuovo db compattato, ecco perchè
poi io elimino il vecchio e rinomino il nuovo db.
Spero di esserti stato utile e gradirei che se qualcuno conoscesse una
soluzione migliore e magari + corretta, di farmela avere, perchè non
si finisce mai di imparare! :)


Scusate la puntualizzazione, ma mi succede spesso di incontrare
dichiarazioni simili a questa, e ho spesso scoperto che gli autori volevano
dichiarare quattro stringhe. Ebbene, solo NewName č una STRING, le altre tre
variabili sono VARIANT.
La modifica di DIM in modo che la riga quotata dichiari invece quattro
variabili STRING sarebbe, secondo me, una delle piů auspicabili migliorie
che si potrebbero apportare a Visual BASIC. Quasi come la gestione dei
puntatori...
--
Lunga vita e prosperitŕ
Joshua
mailto://
jos...@mclink.it

 wrote:
Porca paletta, ma veramente???
Io avevo dichiarato le 4 variabili una a una,  ma poi ho pensato (per
quello che mi ricordavo di aver letto in un manuale) che se le
dichiaravo come ho scritto nel reply, era la stessa cosa.
Mah... grazie di avermelo detto... eheheh, come dicevo, non si finisce
mai di imparare! ;)
Cmq secondo me è una rottura... che scatole doverle dichiarare a una a
una.
Ciiiiiaaaaaauuuuuuzzzzz
Maisen
Newsgroup: it.comp.lang.visual-basic
Titolo: (x Moreno...ma non solo!) Icona SysTray

Ciao a tutti,
ho preso quel sorgente da sito del mitico Moreno,e a parte un po' di fatica
per piazzarlo nella giusta posizione senza che desse errori,tutto fa tranne
che aggiungere l'icona del programma lanciato sulla barra delle
applicazioni!!!
In pratica,nel load del form ho popolato la struttura typeNOTIFICONDATA ,ho
inserito la chiamata di aggiuynzione icona, ma alla funzione
Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal
wParam As Long, ByVal lParam As Long) As Long
    If iMsg = UM_SYSTRAY Then
        Select Case lParam
            Case WM_MOUSEMOVE
                'movimento del mouse sull'icona
            Case WM_LBUTTONDOWN
                'pressione del tasto sx del mouse sull'icona
            Case WM_LBUTTONUP
                'rilascio del tasto sx del mouse sull'icona
            Cetccccccccc .........etccccccccc
quell'if iMsg è sempre falso.
ma non solo: Di icone non se ne parla...
'A Morè...Dove sbaglio?
Ho messo male le tue informazioni?
Non ho rispettato l'ordine?
Aiutino??
Cordialità
Johnny Spoon



Tutto quello che c'è nella sezione dichiarazioni va in un modulo .bas.
Prova a popolare la struttura e a aggiungere un'icona in risposta all'evento Load del form (come
prova) e verifica che la picturebox contenga un formato icona valido.
Se non funziona ancora, mandami in e-mail un esempio zippato...
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Compatibilità

Ciao a tutto il NG!
Una domanda semplice ma importantissima.
Un proramma che giri correttamente sotto Win2000 avrà problemi sotto il
nuovo Win XP ?
Sarebbe un po seccante !!!!
Ciao e grazie

 ha scritto nel messaggio
news:9rv4nm$su2$1...@fe1.cs.interbusiness.it...


 numero di cellulare. ;-)))))
Cacchio grazie!!
Infatti avevo chiesto a Silvan ma lui non era stato in grado di darmi una
risposta, vorrà dire che farò come hai detto.
Non è possibile che debba fare un programma, con il sudore della fronte
distribuirlo in internet e poi sentirmi dire da qualche simpatico utente che
non funziona una mazza!
Vorrà dire che farà così.
Tanks

 nuovo Win XP ?
Il presentatore M$ allo stand SMAU diceva di sì.
Non credo gli convenga ritornarci il prossimo anno  :-P
Ciao
---
--
-
Mix
-
--
---
Newsgroup: it.comp.lang.visual-basic
Titolo: stampare

Ciao a tutti
Ho sviluppato un'applicazione in VB6, adesso, avrei la necessita di stampare
i risultati ottenuti da ricerche ma non ho la più pallida idea da dove
incominciare.
Premetto che dovrei stampare i sopraccitati risultati come se fosse una
tabella di Excel e dovrei anche cambiare (per alcuni) il colore ed il tipo
di carattere.
Qualche amico mi potrebbe dare una 'dritta' ??
Grazie a tutti Giancarlo

 di carattere.
Non so se corrisponde alle tue esigenze ma considera che, di questi tempi,
il formato HTML dovrebbe essere quello piu' interessante. Peccato che se non
si ha pratica non e' molto semplice da gestire con VB. Penso pero' che valga
la pena provare, che ne dici?
--
Ciao.
Maurizio

 > i risultati ottenuti da ricerche ma non ho la piů pallida idea da dove


 Il 'famigerata CRYSTAL REPORT è integrato al VB6 o si deve acquistare ??
Non so. Non lo sopporto proprio: ho smesso di usarlo ai tempi di VB3.
--
Ciao.
Maurizio

Newsgroup: it.comp.lang.visual-basic
Titolo: subclass richtextbox


e funziona tutto perfettamente se uso un form alla volta.
nel momento in cui il mio form principale crea due o più form con due 
rispettive richtextbox, quando vado a chiudere un form la cpu schizza al 
100% ed ovviamente il programma si blocca
Qualcuno sa spiegarmi perchè ?
i form con le richtextbox li apro con qeusto codice:
Set Var = New FormRichTextBox
Var.identificativo = blablastr
Var.Show
e nell'evento unload di ogni FormRichTextbox ci ho inserito
DisableURLDetection RichTextBox1.hwnd
DisableURLHook Me.hwnd
come da esempio del link sopra.
non capisco perchè se apro un solo formrichtextbox alla volta funziona 
tutto bene e se ne apro due o più, quando ne chiudo uno si pianta tutto.
Grazie per i suggerimenti

 tutto bene e se ne apro due o piů, quando ne chiudo uno si pianta tutto.
curiosamente ho notato che se chiudo il secondo formrichtextbox mentre 
si trova posizionato SOPRA un altro formrichtextbox la cpu va al 100% e 
si blocca tutto. Se invece il form che chiudo non si trova sopra ad un 
altro il programma si blocca lo stesso ma la cpu non va al 100% !!!!
come potrei risolvere ? :-(

Newsgroup: it.comp.lang.visual-basic
Titolo: come modificare il "breve intervallo" del ToolTip text ?

Salve, si può modificare il tempo di attesa prima che appaia il Tip?
[F1] su ToolTip text....restituisce o imposta [cut] per un breve intervallo
di tempo sul controllo.
Grazie

Sul sito comune c'è un modulo per tooltiptext (credo di Moreno Sirri), puoi
impostare anche il tempo di attesa
Newsgroup: it.comp.lang.visual-basic
Titolo: Common Dialog con file non associati

Ciao,
ho utilizzato come sempre un CommonDialog per aprire un file. Il codice
che uso da mesi e' il seguente:
<Codice>
 On Error GoTo ErrHandler
 ApriFile.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
 ApriFile.Filter = "File Word (*.doc)|*.doc|File di testo" &
(*.txt)|*.txt|File fcg (*.fcg)|*.fcg |File rtf (*.rtf)|*.rtf"
 ApriFile.FilterIndex = 1
 ApriFile.FileName = ""
 ApriFile.ShowOpen
 filenum = FreeFile
 FileName = ApriFile.FileName
 ChDir App.Path
Exit Sub
ErrHandler:
    ChDir App.Path
    Exit Sub
</Codice>
Il tutto funzionava benissimo su Windows NT. Ora l'ho provato su
Win2000, con VisualStudio 6 SP5 e non funziona con i file con estensione
.fcg, nel senso che non mi viene visualizzato tale tipo di file nella
finestra di ShowOpen.
Ho pensato che il problema fosse dovuto al fatto che quell'estensione
non e' associata a nessun programma. Ho quindi associato i file .fcg a
un editor di testo, ma il problema persiste!
Come mai!!!!!!!!!!
Ciao
Donatella :)

 Come mai!!!!!!!!!!
Prova a togliere lo spazio dopo la g.
Ciao
Alberto

 Alberto
--
****************************************************************
Donatella Corrado
Laboratorio di Epidemiologia Assistenziale e Sistemi Informatici
Centro di Ricerche Farmacologiche e Biomediche "Mario Negri Sud"
via Nazionale 66030 Santa Maria Imbaro (CH)
Tel.: 0872570329
e-mail: 
cor...@negrisud.it
*****************************************************************
Newsgroup: it.comp.lang.visual-basic
Titolo: Dannate QUERY NON AGGIORNABILI... come si fanno?

Salve, sapete dirmi per quale motivo questa query di aggiornamento non 
mi riesce? Ho fatto una cosa del tipo:
UPDATE Temp T LEFT JOIN
  (
    SELECT ...(((SELECT ...)))
  ) AS Mom
ON T.UserID=Mom.USERID
SET T.CampoDaAggiornare=Mom.Somma
WHERE Mom.Somma IS NOT NULL
ma mi dà sempre l'errore: per l'operazione è necessaria una query 
aggiornabile.
Mi pare che questo errore nei miei casi compaia sempre quando tento di 
aggiornare una tabella facendo un join con una tabella derivata.
Sottolineo che se tolgo l'update e cerco di visualizzare la tabella 
derivata da sola, ottengo una tabella in maniera corretta.
Quando però aggiungo uno strato di query + esterno per fare l'UPDATE, mi 
genera questo errore.
Come risolvo?
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 WHERE Mom.Somma IS NOT NULL
Forse ho capito:
la tabella Mom contiene un GROUP BY e a quanto ho letto (Goooooogle è 
mio amico) l'intera query ne risulta non aggiornabile (GROUP BY rende 
inaggiornabile una tabella).
Devo per forza di cose creare una tabella temporanea per metterci i dati 
di Mom e poi fare il left join con questa?



Ma nella sottoquery (quella del grouping) utilizzi ancora la tablla Temp? in
caso contrario la tabella Temp dovrebbe essere aggiornabile.
Saluti

 Saluti
Uhm... non ricordo piů... ce l'avevo in sospeso in Access ma ora ho 
cancellato tutte le query e l'ho riscritta usando delle tabelle di 
appoggio...
Thx lo stesso! Appena mi ricapita una situazione del genere vi dico come 
risolvo.
-- 
Quando noi ignoranti eravamo di piů,
tutto era piů bello...
(Adriano Celentano)
Newsgroup: it.comp.lang.visual-basic
Titolo: CreateQueryDef, SQL, FlexGrid

Ciao a tutti.
Serie di domande che spero trovino risposta.
- come posso creare una query temporanea da codice (cioè senza
assegnarle un nome) e poi passarla ad una SELECT SQL. Attualmente
faccio:  Set TmpQ = db.CreateQueryDef("Nome", " SELECT ertc.") ma poi
mi devo preoccupare di cancellarla. 
- altra domanda che renderebbe inutile la precedente: 
se su una tabella ho più campi relazionati con diverse tabelle, come
posso con una SELECT sola e con varie INNER JOIN a creare un Recordset
completo? Io ho capito che le INNER JOIN possono solo essere
nidificate (ovvero una seconda INNER JOIN si riferisce alla tabella
della INNER JOIN precedente) ma non posso fare più di una INNER JOIN
sulla stessa tabella dichiarata nella FROM
es:  TabCD:  CodArtista, Titolo, CodEtichetta, CodSupporto
       TabArtisti: CodArtista, Artista
       TabEtichette: CodCtichetta, Etichetta
       TabSupporti: CodSupporto, Supporto
      Recordset desiderato: Supporto, Artista, Titolo, Etichetta
- cercando di dimensionare le colonne di una FlexGrid all' elemento
con lunghezza massima presente, faccio: maxsize * FontSize * 15
(twips). In realtà la colonna mi si dimensiona sempre più grande in
maniera direttamente proporzionale alla lunghezza massima. Pensavo che
ciò avesse a che fare con i font proporzionali ma ho visto che mi
succede anche con CourierNew. Cosa mi sfugge?
- domanda già fatta ma io la rifaccio... non si sa mai. 
Come assegnare ad un controllo image un'immagine JPG contenuta in
campo OLE di una tabella Access?
Forse mi sono allargato. Grazie a tutti... soprattutto a quelli più
esperti che mi sembra che non si risparmino a rispondere.
Ciao.
Daniele

campo OLE di una tabella Access?
Imposti i campi DataField e DataSource


Grazie mille.
Ciao
Daniele
Newsgroup: it.comp.lang.visual-basic
Titolo: Risultato query

Ciao a tutti, sono inesperto di Db e chiederei un vostro aiutino per una
questione. In una tabella (Tabella) ho due campi, uno "Nome" (stringa) e
l'altro "revisione" (integer, [1..100]). Vorrei selezionare, tra tutti i
record, quello che ha il nome uguale a quello scritto in una textbox e come
"revisione" quello con revisione massima.
Ho utilizzato (come gentilmente suggerito dal ng) la query SQL:
StrSQL = "SELECT Max(revisione)as maxRev  From Tabella WHERE Nome='" &
Replace(frmMain.TxtName.Text, "'", "''") & "'"
In particolare ho scrito il seguente codice:
----------------------------------------------------------------------------
----------------------------------------------------------------
Public Function CtrlPresence() As PresenzaGen
Dim DB As Database
Dim DBR As Recordset
Dim Qr As QueryDef
Dim i As Integer
Dim RevAux As Integer
Dim StrSQL As String
StrSQL = "SELECT Max(revisione)as maxRev  From Tabella WHERE Nome='" &
Replace(frmMain.TxtName.Text, "'", "''") & "'"
Set DB = OpenDatabase(App.Path & DBPath & DBName)
Set DBR = DB.OpenRecordset("Tabella", dbOpenDynaset)
Set Qr = DB.CreateQueryDef("", StrSQL)
.
.
----------------------------------------------------------------------------
----------------------------------------------------------------
Adesso però vorrei recuperare il valore (che pensavo fosse immagazzinato in
maxRev) ma non ci riesco.
Se guardo  Qr.Fields(0).name mi dice che è maxRev, quindi mi aspetterei che
Qr.Fields(0).value sia il valore cercato ma non è così.
Quancluno può aiutarmi?
Grazie mille.
Giuseppe


Ciao Giuseppe,
Puoi farlo direttamente dal recordset, a cosa ti serve la QueryDef  se non
devi memorizzarla nel database ?
---------------------------------------
Public Function CtrlPresence() As PresenzaGen
Dim DB As Database
Dim DBR As Recordset
Dim i As Integer
Dim RevAux As Integer
Dim StrSQL As String
StrSQL = "SELECT Max(revisione)as maxRev  From Tabella WHERE Nome='" &
Replace(frmMain.TxtName.Text, "'", "''") & "'"
Set DB = OpenDatabase(App.Path & DBPath & DBName)
Set DBR = DB.OpenRecordset(SrtSQL, dbOpenSnapshot)
Debug.Print DBR.Fields("maxRev").Value
...........
...........
------------------------------------------
Ciao Giorgio

 Ciao Giorgio
Grazie mille per il tuo aiuto, la soluzione è semplice ma non banale per chi
come me è alle prime armi con i DB.
Grazie ancora.
Giuseppe