mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Accedere a database con TCP/IP

Salve gentile newsgrouppiano!!
Il quesito che sto per porti fa parte degli interrogativi che affliggono la
mia vita (o la rendono più interessante!)
Si può con Visual Basic 5.0 implementare un' applicazione che mi permetta di
accedere ad un database tramite TCP/IP?
Mi spiego meglio con un esempio:
un'applicazione che permetta ai rappresentanti di una ditta di collegarsi
per mezzo del loro portatile ad un "server" sul quale consultare e
modificare un database, che permetta loro di capire a che punto sono le
vendite, quali sono i prodotti disponibili etc..
La risposta già la conosco: è sì! Attraverso gli Active-x document, se non
sbaglio.
Ma la/e domanda/e vera/e è/sono: è difficile?; come si fa?; dove posso
reperire le informazioni necessarie?
Grazie delle tue risposte, te ne sarò eternamente grato!!!!!!

Io ho chiesto la stessa cosa
Alessandro Scardova mi ha risposto così...
Moreno,
Guardati tutto su RDS (remote data services) dul sito M$
Troverai cio' che cerchi. su 
http://www.eu.microsoft.com/data/ado/
E' una bella lettura....
Però mi sorge un dubbio, che approfitto per condividere:
Premetto che ho appena iniziato a leggere quel bel pacco sull'RDS,
percui non vogliatemi male se la vostra risposta sarà "Continua a
leggere...": Ma senza utilizzare pagine HTML (o ActiveX) per
l'immissione dei dati, non sarebbe possibile farlo direttamente da VB?
Mi spiego: Ad esempio:
Data1.DatabaseName= 'Percorso del database in rete....
Lo so che così sarebbe troppo facile, ma lasciatemi sognare... :-)
Ciao,
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

OK, grazie, era quello che volevo sentire (Il Data Control era solo
un'esagerazione per dare un esempio)
Bene, sto leggendo il manuale sbagliato.... ti ringrazio.... :-))))


...






accedere ad un database tramite TCP/IP?
Qualsiasi database Client/Server ha un listener su TCP/IP...
Quindi se non vuoi impazzire con le ASP e Visual Interdev
 (o aspettare il rilascio di Office2000 e delle sue Active data pages
gestite da Access2000...)
basta che usi un bel DB Client/Server (peraltro obbligatorio anche con
Cesso2000 che incorpora SQLServer 7.0 runtime 25 users...). E ti scrivi
l'applicazione con quello che vuoi...
pure in VB con i data control....(ADO, DAO, RDO...)
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Il metodo migliore

ovvero, selezionando da combo1 devo riempire combo2
prelevando da un mdb.
Un classico direte voi, cmq qual'e' il medoto migliore.
Ho provato con Combo1.LostFocus ma il riempimento
di combo2 avviene in un paio di secondi mentre con
Combo1.Change blocca appunto Combo1 fino ad
operazione eseguita.
Direi che LostFocus sia quasi meglio ma, attendo lumi.
Thanks!
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)


Usa il change attivando un timer a 1 millisecondo :)
Ciaotutti,
*

 Usa il change attivando un timer a 1 millisecondo :)
1 o 10 per me pari sono :D
--
Fibia "Figaro" FBI


Mmm... spe, 1/18,5 quanto fa? 47,qualcosa*10-3?
Ciaotutti,
*

 Mmm... spe, 1/18,5 quanto fa? 47,qualcosa*10-3?
uhmm.. 1/18,5 = 54,qualcosa*10-3 :)
--
Fibia "l'uomo barattato" FBI


E allora 'sti 47 millisecondi che mi ricordavo da dove sono venuti fuori???
Boh...
Ciaotutti,
*

 E allora 'sti 47 millisecondi che mi ricordavo da dove sono venuti
fuori???
e che ne so? :)
cmq il clock va a 18.2 hz per cui
1/18.2 = 54,qlc * 10 -3
stesso risultato (quasi) :Pppp
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #26 delle Mitiche Brigate Takahashi sezione Sud


Uhm... Ricordavo male la frequenza del clock e pure il suo inverso...
Andiamo bene :P
Ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Selezione record tra + tabelle

Un saluto a tutti.
Ho un grosso problema nella selezione di piu' record tra tabelle correlate
dello stesso db.
Vi faccio un esempio:
Ho 3 tabelle: A, B, C
la tabella "A" e' in relaz. 1 a molti con la tabella "B"
la tabella "B" e' in relazione 1 a 1 con la tabella "C" (sono identificate
dallo stesso ID)
In un form ho varie textbox in cui debbo visualizzare o modificare i valori
dei campi relativi alle tabelle. Supponiamo pero' per ora di dover
effettuare solo la lettura dei record. Utilizzo ADO e nessun ADOdatacontrol.
Premetto che la connessione e' ok (in quanto la utilizzo regolarmente in
altri form della stessa applicazione). Anche la selezione sulla tabella "B"
avviene regolarmente mediante il seguente codice:
rst.Open "select * from tabellaB;", cnn, adOpenKeyset, adLockOptimistic,
adCmdText
Supponiamo ora di voler visualizzare i dati della tabella "C"
textbox.text=rst!idtabellaB
rs.Open "select * from tabellaC where campoIDtabellaC ='" &
val(textbox.Text)  &  "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText
Purtroppo pero' non funziona!!! Probabilmente l'ultima riga di codice che ho
riportato contiene degli errori!! datemi qualche suggerimento/soluzione in
merito.
Sia "rs" che "rst" sono naturalmente inizializzate!!
Ciao e grazie anticipatamente a tutti (ragazzi aiutatemi che e' veramente
urgente!!!)
e.

Ciao Elio, a occhio e croce se utilizzi Val(TxtBox):
*************** da guida MSDN **********
Returns a numeric value from a character expression composed of numbers.
****************************************
non puoi poi usare gli apici:
rs.Open "select * from tabellaC where campoIDtabellaC = " &
val(textbox.Text)  , cnn, adOpenKeyset, adLockOptimistic, adCmdText
Spero di aver centrato il problema.
Alex.
-- 
Posted from [212.141.54.102] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Scusa la curiosità, perchè Tabelle con Rapporto 1<----->1, che vantaggio
hai????


 Alex.
Ciao alex, grazie per la celerita' della risposta........ho appena risolto
da solo (mannaggia a me):
rst.Open "select * from tabellaB", cnn, adOpenKeyset, adLockOptimistic,
adCmdText
rs.Open "select * from tabellaB inner join tabellaC on tabellaB.id=
TabellaC.id", cnn, adOpenKeyset, adLockOptimistic, adCmdText
Pero' cosi' utilizzo due select altrimenti non posso estrapolare tutti i
dati (dalle due tabelle), o e'  possibile utilizzare un'unica select e con
un'unico oggetto recordset estrapolare da entrambe le tabelle( forse potrei
fare la prima select, estrapolare i dati, utilizzare lo stesso oggetto
recordset per la seconda select ed estrapolare i dati per l'altra
tabella......forse cosi' posso risparmiare un oggetto recordset....mi sa di
si....ora provo)?
ciao e grazie
e.

 Alex.
Lo so, secondo me non c'e' nessun pregio.....pero' chi ha "ordinato" vuole
cosi'. In ogni caso ora daro' un'altra occhiata e se noto qualche vantaggio
(ho i miei dubbi) te lo faro' sapere.
ciao
e.
Newsgroup: it.comp.lang.visual-basic
Titolo: CERCO tutorial - facile corso su VBScript

Per favore, sto cercando un sito, tutorial, appunti, o simili per poter
apprendere "FACILMENTE" il VBScript.
Grazie mille a chi volesse darmi qualche notizia.
fRANCESCO
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

apprendere "FACILMENTE" il VBScript.
Per apprendere "facilmente" un linguaggio (anche semplice come il vbscript) occorre leggere
e sperimentare in pratica piu' volte cio' che si legge e cio' che viene in mente in seguito alla lettura.
E come sempre, tanto tanto tanto tanto tanto allenamento.
Fonti valide sono 
http://msdn.microsoft.com/scripting/
, dove' c'e' un ottimo tutorial,
questo ng e prendere confidenza con un motore di ricerca su internet tipo altavista
o google.
Io ho imparato cosi'.
ciao, hal

Grazie ancora Hal...
Ciao
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 


HAL, hai notato che se incrementi di uno ogni lettera del tuo nick esce IBM?
:() :) :D
Mauro.
-------------------------------------------------------------
"Non č morto ciň che in eterno puň attendere,
e col passar di strane ere, anche la morte muore."
H. P. Lovecraft, The Nameless City (1921), in Weird Tales, novembre 1938.

 :() :) :D
E tu hai notato che siamo nel 2001?
;-))
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

H. P. Lovecraft, The Nameless City (1921), in Weird Tales, novembre 1938.
H.P. ---> Hewlett Packard ? 
tra l' altro, recentemente dimezzati :(
in ogni caso, Lovecraft e' stato un grande ;-)

 ha scritto nel messaggio
news:003e01c0bed4$50603380$8c3a0e97@francesc...


 in ogni caso, Lovecraft e' stato un grande ;-)
confermo. :D
troppo grande
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]Copiare la cartella di Windows su un secondo Hard disk

Salve a tutti,
qualcuno di voi sa come si puo' copiare l'intera cartella di Windows su un
altro Hard disk in modo da avere una copia di riserva?
Grazie in anticipo per una eventuale risposta.
--
Ciao
Roberto
Email:
robert...@tiscalinet.it



 altro Hard disk in modo da avere una copia di riserva?
Immaginando che tu intenda via codice... ho tolto l'OT dal subject...
Allora... cerca su MSDN:
mkdir (mi pare) che dovrebbe creare una cartella
filecopy che copia i file...
                    Ciao
                                Allanon

 roberto ledda

non so se passa. se provi con explorer da pc a pc, molti file devi
saltarli, non da' il permesso.

 Grazie in anticipo per una eventuale risposta.
usa la funzione shell (vedi guida), ad esempio cosi':
    x = Shell("xcopy c:\windows c:\ciccio /h/s/e/c/r/y", vbNormalFocus)
I file in uso verranno saltati.
Crea la cartella di destinazione prima di lanciare il
comando (vedi mkdir).
Togli vbNormalFocus se non vuoi vedere la progressione
della copia (vedi guida).
CIAO!

Grazie a tutti per le risposte!

Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione al database ORACLE

Ciao a tutti, ho bisogno di un aiuto. Non riesco a connettermi ad un
database oracle. Ho creato l'alias in oracle con SQL Net Easy
Configuration, l'ho provata e funziona, si connette. Poi ho provato a
creare un canale ODBC, effettuato il test e funziona. Ho usato il canale
odbc con access e riesco a connettermi al database, quando lo faccio in
visual basic, mi genera un errore che non riesce a connettersi all'ODBC.
Sapreste darmi un consiglio? Grazie!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 visual basic, mi genera un errore che non riesce a connettersi all'ODBC.
come esegui la connessione da VB?
ADO, DAO, data control, altro?
ciao

 ciao
L'ho provata sia con ADO che con DAO, niente da fare!


 L'ho provata sia con ADO che con DAO, niente da fare!
io normalmente faccio cosi'
dim cnn as New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=Oracle", utente, password
dove Oracle e' il DSN ODBC

Devo usare come Provider MSDAORA?


 Devo usare come Provider MSDAORA?
quello e' il provider (Microsoft) oledb per Oracle, che ti evita di passare
per ODBC
in questo caso
Din cnn as New ADODB.Connection
cnn.Open "Provider=MSDAORA.1;Data Source=servizio;Persist Security
Info=False", utente, password
eventualmente c'e' anche il provider della Oracle

In tutte e 2 i casi mi genera il seguente errore: ORA-12532: TNS:
argomento non valido


 argomento non valido
dalla documentazione Oracle
TNS-12532 TNS:invalid argument
Cause: An internal function received an invalid parameter. This message is
not normally visible to the user.
Action: For further details, turn on tracing and re-execute the operation.
If the error persists, contact Oracle Customer Support.

Grazie, sei stato molto gentile. 
Peccato, non riesco proprio a risolvere questo problema!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] NTO HA ROTTO LE P...

NTO, C'HAI ROTTO LI COGLIONI.
QUI CI SONO DELLA GENTE CHE DEVONO DA LAVORA'!

 QUI CI SONO DELLA GENTE CHE DEVONO DA LAVORA'!
vai cosi', sei tutti noi !!
grazie, j.

 QUI CI SONO DELLA GENTE CHE DEVONO DA LAVORA'!
ecco, quindi ora secondo te cosa fara' se non concentrarsi proprio su questo
ng ?
Ignorateeeeeeeeeee ! Ignorateeeeeeeeeee ! Ignorateeeeeeeeeee !
Possibile che nessuno sia in grado di capire che appena uno gli risponde
questi si ingrifano e ci si impegnano ancora d+ a rompe le palle ?
-- 
[Gigio2k]
http://www.g2kweb.it
[ it-alt.comp.hardware.modding ] - 
http://www.g2kweb.it/ichm

 ha scritto nel messaggio
news:e49cd.44761$b5.22...@news3.tin.it...


A me i new trolls non son mai piaciuti... meglio i sex pistols!

A me i new trolls non son mai piaciuti... meglio i sex pistols!
Quello e' pistol senza sex :P
-- 
ciao, un hal di passaggio
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.net conversioni di tipo

Abbiate pazienza ma io ci sto a sbattere il capo
Sto leggendo i dati exif da una immagine via pagina web....
I dati exif son individuati da una matrice di byte
poi ci son altri dati per dire CHE COSA sono e QUANTI sono i dati
Per ora con l'aiuto della guida son riuscito a decodificare il typo
2 ...ossia stringa ascii null terminata
Valore = encoding.GetString(pItem.Value)
ok....
però...
alcuni dati sono
ID 0x9207 LEN 2 TYPE 3
Ossia il tag che mi indica il metodo di misura della fotocamera
(spot , media, media pesata al centro,etc etc)
è uno short (tipo 3) di 2 Byte (len)
bene la matrice di byte me la espone in pItem.Value
MA
come faccio a convertire la matrice pItem.Value in un Numero ???
ho provato. System.Convert.toInt16(pitem.value)....ma non sembra
funzionare
"Impossibile eseguire il cast di oggetti di tipo 'System.Byte[]' sul
tipo 'System.IConvertible'."}
Sarà una bischerata...ma per ora non mi viene in mente come fare!!!

 tipo 'System.IConvertible'."}
Convert fa le conversioni "alla VB6".
Usa
int16 = BitConverter.ToInt16(pitem.value, 0)
Ciao

 ha scritto nel messaggio

PCIU'...grazie mille.....
BitConverter.....bah!
Toglimi una curiosità...io ho navigato nella guida e su msdn...e forse
(sicuramente) avrò fatto male la domanda....ma bitconverter non lo
trovavo mai come risposta!
Ma come si fa a sviscerare tutto stocaz di framework???
sigh!
mi sa che mi toccherà fare come Tigro di Winnie the pooh ...una parola
difficile al giorno!
Oggi mi tocca "Onomatopèa"....
domani
"BitConverter"
:o)
Thanks per la risposta!

 sigh!
Ninzò :)
Io mica sono uno di quelli che fa corsi del Fw.
Credo che robe come queste dipendono dal fatto che a volte le leggo da 
qualche parte e mi restano in mente.
Leggerlo tutto?
Tu sei matto :)
A volte uso Reflector per vedere se c'è qualcosa che mi interessa... ad es. 
giorni fa cercavo una collezione con gli elementi ordinati, ho aperto 
Reflecto e cercato classi con il nome composto da "Sort" o "Sorted" e ho 
scoperto che c'è "SortedList" e "SortedDictionary".
Per il tuo prob avevo trovato proprio BitConverter perchè mi ricordavo che 
in questo caso si parlava di Bit e non di array, però lo avresti trovato 
cercando "Convert".
Reflector è un grande ;)
Ciao

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

sono da poco passato a Visual Basic 6 .... vorrei tradurre i miei programmi
fatti in  quick basic ...
ma in nessun manuale in mio possesso c'e' scritto come controllare la porta
parallela... Potete aiutarmi ????
grazie
Gianluca


Prova a guardare Win95io.dll sul Sito Comune !!!
--
Ciaps
Stracca
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione appuntamenti

Devo realizzare per un mio cliente una maschera che consenta l'imputazione
di appuntamenti dello studio dentistico.
La matrice della struttura è su 6 poltrone per 6 giorni la settimana, con
una unità di tempo
di mezzora.
Inoltre mi chiede una doppia visualizzazione, giornaliera e settimanale, con
una scelta di colori
legata al tipo di appuntamento.
C'è qualche controllo già preimpostato?
Grazie per la risposta
Maurizio Fontanelle

Si esiste, è della Sheridan, si chiama Calendar Windgets. Credo che costi
quasi 2'000'000 (licenze illimitate). lo trovi su 
www.componentsource.com
 .
Li ti puoi scaricare anche un demo a tempo limitato (30gg credo).
Ciao Luciano.

 wrote in message
8cujkg$oqa$1...@pc1.spin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: somma campo

ecco il problema: in un campo di database sono elencati dei tempiES
1.12-02.20 etc .e visualizzati con flex grid + ado. Con un ciclo do while
sono riuscito ad impostare la somma dei singoli campi ma ovviamente la somma
non tiene conto del fatto che si tratta di ore + minuti
quali calcoli devo fare affinchè il risultato sia quello voluto ?
grazie 1000 x eventuali suggerimenti

Malavolta Massimiliano ha scritto:

Ipotizzando che i tempi siano espressi ore.minuti (questi su due cifre max),
traduci ogni singolo valore in minuti (se questa è l'unità di misura
minima):
minuti=fix(tempo)*60+(tempo-fix(tempo))*100
tot_minuti=tot_minuti+minuti
Quando vuoi ottenere il totale in ore.minuti:
tot_ore_minuti=fix(tot_minuti/60)+((tot_minuti-(ore*60))/100)
... da provare

Basta anche una equazione ...
tempo : 100 = x : 60
(si chiamano così che
non mi ricordo?)
Ciao
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto dbgrid

Ciao a tutti , ho un problema con una dbgrid. Io vorrei che quando si
richiami una tabella e la dbgrid si popola , vorrei che il cursore si
posizionasse direttamente su un nuovo record per l'inserimento.
Come posso
fare ?
--------------------------------
Inviato via 
http://usenet.iol.it

 fare ?
metti addnew (o un'istruzione equivalente ma piu' intelligente che ti
gestisci tu) alla fine del popolamento.
btw, non l'avevi gia' chiesto poco minuti fa ? aspettare un attimo no, eh ?
j.net
http://www.inferentia.it/netiquette/


http://www.inferentia.it/netiquette/
--------------------------------
Inviato via 
http://usenet.iol.it
 

 Altre idee ?
viva i bei modi... forse se provi a ragionarci sopra tu, te ne vengono,
altre idee...
ha qualche importanza dove stia il cursore ? con un addnew stai creando una
cosa che non c'e' e proprio per questo non dovrebbe nemmeno vedersi, e che
comunque non e' posta ne' all'inizio ne' alla fine-- sta in un suo limbo in
attesa dell'ok.
il cursorse puoi anche lasciarlo all'inizio. quando lancio addnew su una
delle mie tabelle, di solito si sposta in fondo, per poi eventualmente
riposizionarsi dopo l'inserimento, con bookmark, lastmodified e famigliola.
puoi farlo manualmente -- anche se francamente legare un addnew in
automatico dopo un popolamento non mi sembra una bella cosa. sono e
dovrebbero essere due fasi ben distinte dell'approccio a un db. se proprio
vuoi, cmq, non capisco dove stia il problema. prova qualcosa come:
    form_load
        dim rs as recordset
        'popoli il rs, via sql o leggendo la tabella
        set data1.recordset = rs
        with rs
            .movelast
            .addnew
        end with
    end sub
piuttosto che l'addnew secco io aprirei almeno un secondo form con i campi
da compilare, e con ok / cancel. seno' se uno anche solo sfiora il primo
pulsante / menu, e hai un contatore o altri campi a riempimento automatico,
si trova una riga inserita comunque.
forse se spieghi piu' in dettaglio cos'hai e cosa vuoi fare ci vengono altre
idee...
j.

Newsgroup: it.comp.lang.visual-basic
Titolo: Ping da VB

Dovrei fare un programmino che, nella rete della azienda dove lavoro, mi
segnali i computer che sono accesi. Avevo pensato di fare un ping su tutti
gli indirizzi e vedere quelli che mi davano risposta quindi accesi. Ho
provato ad usare il controllo winsock ma non ne sono venuto fuori. C'e'
qualcuno che sa come fare?
Grazie 1000

 ha scritto nel messaggio
news:9j987s$jdb$1...@fe1.cs.interbusiness.it...

Ti ho mandato una possibile soluzione direttamente al tuo indirizzo.

 ha scritto nel messaggio
news:9j9cim$1cark$1...@news02.it.net...


Non mi e' arrivato niente????
L'ho rispedito. L'indirizzo usato č 
new...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo di SDK .Net Framework con l'IDE SharpDevelop

Come si fa una volta installato SharpDevelop a settare l'SDK di Vb.NET
Framework per poterlo utilizzare?
--------------------------------
Inviato via 
http://usenet.libero.it


L'idea è che _prima_ installi microsoft .net framework sdk e _poi_ installi
SharpDevelop, che si "collega" automaticamente ad esso e funziona...
Ma forse non ho capito quello che intendi...
Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare una picturebox senza scrollbar

Ho un'immagine più grande del form che la ospita e mi piacerebbe dare la
possibilità all'utente di trascinarla sull'area del form con un drag del
mouse. Tenete presente che il rilascio del mouse non necessariamente avviene
nel form, ma anche in una posizione qualsiasi all'interno della picture. So
che il problema sarebbe facilmente risolvibile con delle scrollbars, ma la
visualizzazione a scatti e la necessità di spostare il cursore ai lati dello
schermo mi rendono questa soluzione antipatica.
Secondo voi si può fare?
Grazie a tutti

 ha scritto nel messaggio
news:ozJO7.228758$sq5.11...@news.infostrada.it...


 wrote in message
news:ozJO7.228758$sq5.11...@news.infostrada.it...

vuoi dire una cosa del genere?
Option Explicit
Private m_myPicture As StdPicture
Private m_orgX As Single
Private m_orgY As Single
Private m_startDragX As Single
Private m_startDragY As Single
Private Sub Form_Load()
    Set m_myPicture = LoadPicture( _
        "C:\Program Files\Windows NT\Pinball\Table.bmp")
    ' mettici l'immagine che vuoi....
    m_orgX = ScaleLeft
    m_orgY = ScaleTop
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    m_startDragX = X
    m_startDragY = Y
    MousePointer = vbSizeAll
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
    Dim offsetX As Single
    Dim offsetY As Single
    offsetX = m_startDragX - X
    offsetY = m_startDragY - Y
    m_orgX = m_orgX - offsetX
    m_orgY = m_orgY - offsetY
    Refresh
    MousePointer = vbDefault
End Sub
Private Sub Form_Paint()
    PaintPicture m_myPicture, m_orgX, m_orgY
End Sub

Grazie a Hellboy per la pronta risposta.
In rete ho trovato anche questo, semplice ma efficace:
' Start dragging.
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'    If Shift And vbShiftMask Then
        m_Dragging = True
        m_StartX = X
        m_StartY = Y
'    End If
End Sub
' Continue dragging.
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    If m_Dragging Then
        Picture1.Move _
            Picture1.Left + (X - m_StartX), _
            Picture1.Top + (Y - m_StartY)
    End If
End Sub
' End dragging.
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    If m_Dragging Then m_Dragging = False
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Compatibilità VB6 e WIN2000

Salve a tutti,
scusate se approfitto di voi per chiedere aiuto.
Ho realizzato una applicazione in VP6 pro utilizzante ADO, abbastanza
semplice, senza controlli aggiuntivi di terze parti.
Ha funzionato bene sotto Win98/95 ma adesso, installata in un PC con Win2000
non funziona più. Si installa regolarmente con il suo disco di
installazione, ma si "pianta" mentre visualizza la "splash window". L'ultimo
service pack che ho installato è il 3. Qualcuno ha qualche idea?
Grazie
Marco Sabatini

 
A me non ha mai dato problemi...
Ciao.

Qualcuno ha qualche idea?
Hai utilizzato qualche chiamata a funzioni dell' API ?
ciao, hal

 Mi pare di ricordare che il _non_ farlo provocasse problemi.
No, assolutamente.
Te lo assicuro... con tutte le volte che ho reinstallato windows dopo
formattazione :PPP
Ciao

 Roal Zanazzi
Si si, certo. Del resto il CD di installazione creato si installa
perfettamente su vari PC. E' solo quello con win2k che crea problemi.
Marco Sabatini

 ciao, hal
Grazie per l'interessamento. Devo aggiungere che, pur possedendo VB6 pro
originale non ho mai fatto molti programmi e comunque utilizzo un PC
"pulito" proprio per creare dei dischi di distribuzione che non attingano a
DLL od a controlli di cui non ho i diritti di distribuzione.
Quindi, sia i controlli ADO, sia il Jet, sia tutto il resto, è solo quanto
compreso nei CD originali + SP3.
Grazie di nuovo, saluti
Marco Sabatini
Newsgroup: it.comp.lang.visual-basic
Titolo: Data grid e controllo ado

Buon giorno a tutti!
Ho fatto un form con un datagrid e un controllo ado e come stringa di
connessione ho scritto
Provider=MSDASQL.1;Persist Security Info=False;Extended
Properties="DSN=Database di Microsoft
Access;DBQ=\\sbsserver\applicazioni\bolle\DDT.mdb;DefaultDir=bolle;DriverId=
25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
Malgrado la tabella all'interno del file mdb sia indicizzata sul campo "ddt"
quando mi viene presentata la tabella viene in un'ordine che non capisco
neanche con quale criterio!
Come posso fare per avere la tabella ordinata?
Grazie
-- 
MArco G.

Come posso fare per avere la tabella ordinata?
usa una select con una order by ..

"comugiu" <com...@NOSPAMEERSSSPAMinterfree.it> ha scritto nel messaggio
news:chn3se$um6$1...@newsreader.mailgate.org...

Dove la metto?, devo andare nelle proprietą del controllo? scusa ma č la
prima volta che uso un controllo Ado!
Ho gia provato ad inserirlo nel  form load
    Set db = Workspaces(0).OpenDatabase("ddt.mdb")
    Set rs = db.OpenRecordset("select * from testata order by ddt")
    Set Adodc1.Recordset = rs
ma all'ultima riga mi da errore "13- Tipo non corrispondente")
Grazie

 ma all'ultima riga mi da errore "13- Tipo non corrispondente")
perchè tu dai un recordset dao a un controllo che vuole un recordset ado
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:2q8jnmF...@uni-berlin.de...


 ok ma dove la metto sta maledetta query?
boh.
è una vita che non utilizzo i controlli adodc, e non mi ricordo più le loro
proprietà.
però, immagino, che da qualche parte tu abbia detto al controllo qual è la
tabella che deve aprire, e forse quello è il posto giusto.
anzi, facciamo così, faccio un giro su msdn on line, e vedo che cosa
dicono...
waiting for connection....
ecco qui:
http://www.msdn.microsoft.com/library/default.asp?url=/library/en-us/adodc98/html/vbprorecordsourceproperty(adodatacontrol).asp


 ha scritto nel messaggio
news:2q8l7sF...@uni-berlin.de...


 ha scritto nel messaggio
news:RKD%c.83363$1V3.2...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Timer ogni 3 minuti

Salve a tutti!!
Mi occorre un timer che mi faccia dei controlli ogni 3 minuti!!!
ho provato con il timer standard!! ma č troppo instabile!
C'č qualcuno di voi che mi sa dire dovvo posso trovare qualcosa di piů
decente per standire in modo piů preciso i miei controlli?
Vi ringrazio anticipatamente!

Esempio
Principale:
'------------------------------------------------------------------
EOra(0)
do while EOra<=TempoDaAspettare    'In millisecondi
	doevents
loop
... continua
Funzione accessoria:
'------------------------------------------------------------------
Public Declare Function GetTickCount Lib "kernel32" () As Long
Funzione timer:
'------------------------------------------------------------------
Public Function EOra(ByVal Pausa As Long) As Boolean
    Static Inizio As Long
    Dim t As Long
    If Inizio = 0 Then        'In questo caso azzera
        Inizio = GetTickCount
    End If
    t = GetTickCount
    If (t - Inizio) >= Pausa Then
        EOra = True
        Inizio = 0              'Azzera
    Else
        EOra = False
    End If
End Function

 wrote in message
news:8skok1$s7i$1...@pegasus.tiscalinet.it...


 wrote in message
8slgpv$khtii$1...@ID-56381.news.cis.dfn.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Terrarium - Iniziativa Microsoft per .NET

Volevo segnalare il sito 
www.terrarium.it
, un sito Microsoft che implementa
una sorta di gioco per sviluppatori con la piattaforma .NET. In pratica, da
quello che ho capito in questi pochi minuti, si tratta di programmare
organismi usando 
vb.net
 o c#, specificando comportamento, intelligenza
artificiale, riproduzione, tattiche di sopravvivenza, etc......
Questi organismi dovranno essere poi inseriti in un ecosistema, dove saranno
presenti animali creati da altri sviluppatori.....non so perchè, ma mi ha
fatto venire in mente CRobots, a voi no?
ciao e buon lavoro!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 una sorta di gioco per sviluppatori con la piattaforma .NET.
Certo che 'sta gente tutto fa meno che finire ADO. Bleah!


 :-)))))))
CIAnO

Newsgroup: it.comp.lang.visual-basic
Titolo: [ CGI ]: leggere lo standard input

Come fare per leggere lo standard input da VB 5 ?
Reperire l'handle è semplice, basta usare l'apposita chiamata all'API, anche
scrivere sullo standard output è un gioco... allora perchè non riesco a
leggere dallo standard input con la chiamata ReadFile dell'API ?

Grazie a tutti... ho già risolto.
Newsgroup: it.comp.lang.visual-basic
Titolo: foto meetings

sto caricando adesso nella sezione sundaysw le foto che mi sono ritrovato
dei vari meeting.
se ci sono errori nelle attribuzioni fate sapere.
ciao, a.
--
www.sundaysw.com

 ciao, a.
perche' non ci metti anche qualche nome?
:)
ciao. buc

 :)
davanti a me 3 limpide possibilita':
- ribattezzare i file tipo:
vb20010928-stracca-moreno-gbc-wodka-java-lordrayden.jpg. esclusa. max 254
caratteri ( se i file stanno in root :). possibile forse se gli interessati
si autoassegnano una lettera dell'alfabeto. poi pero' ci vuole una tabellina
di decodifica.
- appena ho un po' di tempo, andare a manina.
- spiegare al programma che genera i thumbs e le pagine di capire lui di chi
si tratta.
mi sa la seconda...
ciao, a.

 mi sa la seconda...
LOL! :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: help errore sistema!

Ciao.
Ho un sistema NT con visual studio 6.0.
Lancio VB 6 ......
Quando cerco di aggiungere un componente mi da un messaggio di errore
        "errore di sistema &H80004002
(-2147467262
) interfaccia non
supportata"
Devo reinstallare VisualStudio o basta che aggiungo un  qualcosa ????
Secondo me l'ideale sarebbe reinstallarlo ma ho delle difficoltà a ritrovare
(probabilmente perso!) il cd nascosto in ufficio chissà dove!
Indi se c'è una soluzione diversa..
Grazie.
Corrado.

 wrote:
Prova con il Service Pack (se non hai avuto problemi in precedenza)
FDS


Newsgroup: it.comp.lang.visual-basic
Titolo: (ACCESS) Funzione

 
          Ciao
in dbIII esiste una funzione TOTAL che indicizzando per un determinato campo
somma tutti i campi numerici del db lasciando sui campi testo quello che
trova sul primo record.
Esiste un analogo in access?
grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Esiste un analogo in access?
Non mi è chiarissimo, ma immagino tu possa risolvere con Group By, Sum, 
e First (ma quest'ultimo è non deterministico, nel senso che te ne 
riporta uno qualunque per ciascun gruppo).
Ciao
Alberto
-- 
Autore di
"Petting for Dummies"
Newsgroup: it.comp.lang.visual-basic
Titolo: HO BISOGNO DI URGENTE AIUTO !!!!!

ho bisogno di implementare un algoritmo in visual basic in microsoft excel
che mi cancelli le righe del foglio di lavoro in uso che presentano
ripetizioni nel contenuto di un unico campo.
Si tratta di un anagrafica di persone e mi serve avere un unico record in
corrispondenza di ciascuno indirizzo.
chiedo scusa per la eccessiva rapidità della mia richiesta ma ho un problema
in ufficio e vi sarei molto grato si riusciste ad aiutarmi!!!!
alessandro.
-- 
Posted from 
mail1.galactica.it
 [212.41.208.18] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:000501c0ca5b$929a6300$0b00a8c0@MARCO...


 Ho una banca dati su foglio excel (nomi, cognomi, indirizzi, etc..) però
parecchi nominativi sono doppiati, c'è un modo veloce per eliminare i
doppioni?
Un esempio:
A1: Nome
B1: Cognome
C1: Indirizzo
D1: Città
E1: Chiave
F1: Conteggio
A2: Pippo
B2: De' Pippis
C2: Via Topolinia
D2: Paperopoli
E2: =B2&", "&A2
F2: =
CONTA.SE
($E:$E;E2)
Ricopi in basso le formule dei campi "Chiave" e "Conteggio" per quanti sono
i record poi metti in ordine decrescente per "Conteggio" in modo che
"vengano a galla" i nominativi ripetuti quindi decidi quali eliminare.
*** FINE *****************************************************
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

agazzi grazie mille per l'aiuto, adesso vi sto scrivendo da casa e.... VI
DEVO UN FAVORE! :))
- marco ITALCONSULT -
i|Vcc|×_!!!
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 

Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare un prog prima di tutto

Come faccio a lanciare un programma in win98
PRIMA del caricamento di Explorer e della Systray
e facendo in modo che il sistema non proceda al 
caricamento di nulla fino a che non chiudo il 
programma stesso?
In pratica mi serve per creare un programma che, lanciato
all'avvio, obblighi l'utente all'introduzione di 
nome e password, un po' come il login di WinNt.
(Questa legge sulla privacy mi sta' facendo impazzire ... !)
Grazie
	Luigi
JoC...@spiderlink.it
(rimuovere Canc dall'indirizzo )





... Chiedo umilmente scusa per il mex multiplo ...


 Grazie  Luigi
luigi, se vuoi che qualcuno *davvero* non acceda senza pswd forse ti
conviene pensare a nt, non ai 9x...
e gia' li' non sarei cosi' sicuro: tieni presente cmq che a smontare un
disco ci vogliono 5 minuti, poi basta aggiungerlo in un altro win...
ciao, a.

ciao, a.
Ok, ma il problema e' piu' che altro "fiscale".
La nuova legge sulla privacy prevede che per elaboratori 
in rete locale non basti una pw di bios, ma e' necessaria
una pw differente per ogni utente. Nel caso in questione 
i due computer sono in rete (e sulla stessa scrivania)
ed anche se sono sorvegliati "a vista" dal titolare di uno
studio di consulenza del lavoro, e quindi i dati sono al sicuro,
sia lui che l'impiegato devono avere pw differenti, e a scadenza
semestrale automatica se non usate. Ed il tutto e' un reato penale !
Ho gia' scritto il programma che inibisce desktop, systray
e tasti ctrl ed alt e gestisce le pw, ma non riesco a lanciarlo
SENZA che per alcuni secondi mi compaia il desktop o il pulsante
start attivi. Cambiare sistema operativo, poi, potrebbe provocare
grossi problemi (applicativi dos con chiamate dirette alle porte  ...)
grazie
	Luigi

 
Potresti provare a cambiare la shell di sistema, inserendone una tua che
dopo digitazione di password e id ti lanci quella di sistema.
Per modificare la shell di sistema:
Apri il file System.ini che trovi in c:\windows.
Nella sezione BOOT sostituisci il valore della chiave SHELL con il nome
(+ percorso, nel caso) del tuo programma.
Ciao
	   :-) Hd (-:
-^- Verso l'infinito e oltre... -^-

dopo digitazione di password e id ti lanci quella di sistema.
E' una ottima idea, ma mi sono arenato su come lanciare,
alla fine del programma, la shell di sistema.
Ho provato lanciando alla fine del mio programma
explorer.exe, ma mi apre "esplora risorse" e non c'e' la barra
delle applicazione, pulsante start e le cartelle del desktop.
Forse c'e' qualche switch o qualche api ....
Qualche suggerimento ?
Grazie comunque


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

Ciao a tutti,
avrei bisogno di informazioni per sapere come ordinare alla Microsoft il
SP3 di VB5.
Grazie a tutti quelli che vorranno rispondere.
Andrea

SP3 di VB5.
Prova qui:
http://www.microsoft.com/msdownload/vs97sp/vb.htm
Ciao
--
Paolo Bernardi - Piazza Scotti, 17 ROMA
p.ber...@XXXsintecom.com
Home Page: 
http://space.tin.it/scienza/iivbe/




...
_______________
Lo trovi anche sul cd di Dev di maggio 98
;O)
emiliano
Newsgroup: it.comp.lang.visual-basic
Titolo: Apice in textbox

Esiste un modo per non fare accettare gli apici nelle textbox (Che causano
errori nelle query) senza andare a risettare  gli eventi Keypress di tutte
le form (Circa una 50ina...) o di evitare il suddetto errore?
Es. :
.findfirst "codice='"+Codice+"'"
Se codice è "L'automobile"
L'apice contenuto genera un errore perchè la richiesta diventa
.findfirst "codice='L'automobile'"
AIUTO!

 le form (Circa una 50ina...) o di evitare il suddetto errore?
Una soluzione rapida: setta il Form.KeyPreview = True,  poi filtri
il carattere nell'evento KeyPress _del form_.
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 39 Then KeyAscii = 0 ' se il carattere è apice, lo annulla.
End Sub
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

AIUTO!
... devi rivedere la query in questo modo:
.findfirst "codice=""" & txtext.text & """"
Ciao MArco

Se stai scrivendo in VB6, e' stata introdotta la funzione Replace; l'apice
singolo va sostituito con un apice doppio (non con le virgolette !!); se non
stai scrivendo in VB6, Ti puoi scrivere una semplicissima funzione che fa lo
stesso lavoro.
Saluti.
Alfredo.


dove textbox.tex= " l'automobile "
Replace(textbox.text,"'","''")
Replace (<variabile>, <dopie apici><singolo apice> <dopie apici>, <dopie
apici><singolo apice><singolo apice><dopie apici>)
--
# Name: Riccardo Solei
# Mail:    So...@ReteItalia.Net
# ICQ:    39959480
Newsgroup: it.comp.lang.visual-basic
Titolo: Textbox a RunTime

Ciao,
è possibile creare delle Label o delle TextBox a RunTime?
Se si come?
	Grazie
		Lore.

 wrote in message
39D8A216...@agip.it...

Leggiti un recentissimo thread del 01/10/2k  11.46 di Alessio Degani

 Leggiti un recentissimo thread del 01/10/2k  11.46 di Alessio Degani
Grazie,
mi era sfuggito.
	Lore.

Newsgroup: it.comp.lang.visual-basic
Titolo: [un po' OT] regola personalizzata Outlook

Salve a tutti, scusatemi se posto qui, ma non ho trovato un NG per VBA. Ho
postato sui NG di Outlook italiani e internazionali, ma non ho trovato
risposta.
Dunque, vorrei creare una regola di Outlook (2000) che intercetti i messaggi
in entrata quando nel loro contenuto è presente la stringa "<script>"
(astuto, noh?...)
In tale caso il formato del messaggio è HTML, e tale tag esegue del codice,
tipo reindirizzamento automatico, download di dialers, insomma, conoscete il
problema, vero?
Purtroppo, le regole di Outlook non intercettano il contenuto "nudo e crudo"
di una mail HTML, ma ne controllano solo il testo estrapolato dal codice
html.
Outlook non consente di disabilitare il formato HTML dei messaggi entranti,
altrimenti l'avrei già fatto. Qualcuno conosce come si può creare una regola
personalizzata, o meglio un criterio personalizzato per le regole? Oppure
una soluzione alternativa, se necessario anche utilizzando VBA?
Ogni commento o suggerimento sarà largamente apprezzato. Grazie a tutti.
--------------------------------
Inviato via 
http://usenet.libero.it

 entranti, altrimenti l'avrei già fatto.
Outlook Express lo permette, credo dalla versione 6.
Strumenti-->Opzioni-->lettura--> "Leggi tutti i messaggi in testo normale".
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Show Slide

Ciao,
sto gestendo una form che consente di far 'passare' una immagine dopo
l'altra in base al tempo (Controllo Timer) stabiliti. Fin qui tutto
bene. Il problema è che io a RunTime dovrei impostare il numero di
slide, perchè possono essere 3, 10, 20, ogni volta cambia. Come fare?
Posto di seguito il codice che uso:
-------------
Dim aPicturePages(10)       'an array to hold HTML page names
Dim iPictureIndex           'an index into the above array
Dim iPictureCount           'a count of how many pictures to display
------------
------------
Sub Timer1_Timer()
   'increment the index
 
   iPictureIndex = iPictureIndex + 1
   'perform some bounds checking; if out of bounds, reset index
   If iPictureIndex > iPictureCount Then
      iPictureIndex = 0
   End If
   'fill in location of contents of frame, causing picture to be
displayed
''   Parent.frames("slides").location = aPicturePages(iPictureIndex)
   Image1.Picture = LoadPicture(aPicturePages(iPictureIndex))
End Sub
----------------
---------------
Private Sub Form_load()   
    'initialize vars
    aPicturePages(0) = "F:\AnswerLogo.bmp"   'initialize URL array
    aPicturePages(1) = "F:\Copy of AnswerLogo.bmp"   '
    aPicturePages(2) = "F:\AnswerLogo.bmp"   '
    aPicturePages(3) = "F:\Copy of AnswerLogo.bmp"   '
    aPicturePages(4) = "F:\AnswerLogo.bmp"   '
    iPictureIndex = 0                 'set index to first entry
    iPictureCount = 4                 'store URL count
    Timer1.Interval = 1000           'set timer interval
End Sub
--------------
Come rendere il tutto dinamico? Grazie.
Andrea.

On Thu, 22 May 2003 12:46:37 GMT, 
andrea....@libero.it
 (Andrea)
wrote:
[SuperCuttone]
Con un pň di For e giů di lě ho risolto.
Grazie lo stesso.
Andrea.
Newsgroup: it.comp.lang.visual-basic
Titolo: cambio ip

E' possibile cambiare l'indirizzo ip della macchina?
Grazie!


Si.
--
Ciao!
Luca Menegotto

 Si.
Come?
:-O
lol
-- 
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel
bestiario! :-)

 Si.
Codice?
Rotfl
:-O


 Si.
Anche a pc connesso?
oppure prima di connetterlo?
oppure prima che il gatto giochi col file del pc?
ihihih!
:-)
lol e pure rotfl
-- 
Il Wodkino Nazionale č a : 
www.martek.it


> oppure prima che il gatto giochi col file del pc?
COL "FILE"??????
 Questa si che è deformazione professionale!!!!
-- 
Il Wodkino Nazionale è a : 
www.martek.it


 lol e pure rotfl
Niente da fare oggi Wodka?! ;-))
Ciao, Vincenzo

 Come?
Quella č la parte facile: lo cambi nel registro e riavvii.
Poi devi vedere se:
a) č quello che l'OP voleva fare :-)
b) il pc si connette ancora a quello a cui doveva connettersi
c) hai i diritti necessari per farlo
d) la versione del SO
e) varie ed eventuali
Bye, G.

 oppure prima che il gatto giochi col file del pc?
Wodka, credo che con questa frase ti meriti di entrare
DRITTO FILATO nel bestiario :-)
eheheheheheheh
Andrea

 ha scritto nel messaggio
news:qoI5d.2476$
35.2...@news4.tin.it

Non si auto-metterŕ mai nel bestiario... č come se un boia eseguisse la pena
capitle su sč stesso! :-)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sč...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/public/SinapsiAntispam-Setup.exe
email spamtrap: 
spam...@nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Ecovillaggio:cerco partecipanti

Per prima cosa chiedo scusa ai partecipanti di questo newsgroup per 
l'argomento non in tema ma in questo caso credo che il fine molto onorevole 
giustifichi i mezzi.
Sto realizzando un progetto per la FONDAZIONE DI UN ECOVILLAGGIO 
(ecocomunità) in Italia che diventi un'esempio concreto di vita sana, felice 
e serena alternativo ai modelli della società odierna.
CERCO PERSONE che vogliano partecipare attivamente al fine di formare un 
GRUPPO DI LAVORO per realizzare il progetto.
Alcuni dei principi di base sono:
1. Alimentazione dei partecipanti senza uccisione o sfruttamento di esseri
   viventi sezienti con tendenza principale al crudismo
2. Autonomia e autosufficenza totale (acqua, cibo, energia, materie prime
   per tutte le necessità della vita quotidiana)
3. Visione olistica della vita ovvero forte attenzione al benessere 
fisico-psichico
4. Metodi di coltivazione naturali (Fukuoka, permacoltura, biodinamica)
5. Partecipanti preferibilmente areligiosi e apolitici
6. Non solo impatto ecologico zero ma anche tutela e difesa del proprio 
territorio senza alterare i regimi selvatici naturali del luogo
7. Assenza di danaro all'interno dell'ecovillaggio
Se siete interessati a partecipare attivamente al progetto contattatemi 
direttamente sulla mia casella e.mail 
rubens....@yahoo.it
NON RISPONDETEMI SUL NEWSGROUP perchè non leggerei le vostre risposte.
Grazie per l'attenzione e porgo nuovamente le mie scuse per l'argomento non 
a tema.
-- 
Rubens Gardelli
Firenze
"Sii il cambiamento che vuoi vedere nella società"
 (Mohandas Karamchand Gandhi) 

http://www.signoraggio.com
http://www.colimo.org
http://www.disinformazione.it
http://www.effedieffe.it
http://etleboro.blogspot.com/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]SQL QUERY

I campi NumeroPezzi e Costo della seguente query, sono di tipo Testo.
"SELECT SUM(NumeroPezzi * Costo) as Totale FROM Pezzi;"
Come posso convertire NumeroPezzi in INTEGER e
Costo in CURRENCY senza modificare il tipo dati nella tabella?
Ciao
P.S. così com'è, mi dà l'errore "tipi di dati non corrispondenti
        nell'espressione criterio."

 Costo in CURRENCY senza modificare il tipo dati nella tabella?
Dipende dal db che usi, e tu non lo specifichi.
Ciao
Alberto

 Costo in CURRENCY senza modificare il tipo dati nella tabella?
se usi access vanno bene quasi tutti i comandi vb quindi:
"SELECT SUM(val(NumeroPezzi) * CCur(Costo)) as Totale FROM Pezzi;"
su SQL Server si usa la cast (o la convert mi pare...)
"SELECT SUM(Cast(NumeroPezzi as Int) * Cast(Costo as Money)) as Totale FROM
Pezzi;"
ciaociao

Ma a parte questo prenderei in serie considerazione il fatto
di riproggettare la base dati ...
-- 
Saluti
Andrea Moro

 di riproggettare la base dati ...
In effetti dovevo completare il post con questa considerazione.... ;D
ciaociao

Sģ uso access. Il tuo esempio č Ok!  :-)
Ciao e GRAZIE
Newsgroup: it.comp.lang.visual-basic
Titolo: calcolo data

ciao,
passando una data composta da mese ed anno come faccio ad ottenere i
sei mesi successivi?
Es:
092005
devo ottenere
102005
112005
122005
012006
022006
032006
Grazie

 sei mesi successivi?
Tenterei con l'addizione.
Oppure puoi spippolare coi Mid$, i DateSerial, i DateAdd e poi di nuovo 
i DatePart e i &, ma credo che un + e un If sia più semplice.
Alberto
-- 
Autore di
"Petting for Dummies"

 ha scritto nel messaggio
news:1122643281.5...@g43g2000cwa.googlegroups.com...

Domanda "entry-level"... risposta "canonica"!
Presupponendo che tu parta da una stringa che esprime la data iniziale devi:
- trasformare la stringa in una variabile Date (in cui il giorno sarà
ininfluente) tramite le funzioni Mid, Val e DateSerial
- incrementare di volta in volta la variabile Date utilizzando la funzione
DateAdd
- riconvertire i Date così ottenuti in stringa usando la funzione Format
Naturalmente dovrai documentarti un po' sulle funzioni citate, se già non le
conosci.
Bye
Raf

OK!!
ora ho convertito la stringa in una variabile Date
solo che non riesco ad implementare la variabile con la funzione
DateAdd
Ho scritto una Sub che si blocca:
Sub MIA(dte As Date) As Date
    MIA = DateAdd("mmmm", 1, dte)
    MsgBox MIA
End Sub
ora due domande:
la data che passa in che formato deve essere? mmddyyyy o ddmmyyyy
nella funzione DateAdd è corretto il parametro "mmmm" per speficicare
che l'intervallo è mensile?
Grazie

Scusate ho trovato
DateAdd("m",1,ladata)

Grazie
siccome non ho il compilatore su questa macchina spero che il codice
scritto funzioni (puo' darsi che abbia sbagliato nella digitazione) :
dim datasel as string
dim ris(5) as string
datasel="092005"
call GeneraMesi(datasel, ris)
e di sotto il codice della function
public sub GeneraMesi(sdata as string, ris() as string)
dim mese as integer
dim anno as integer
dim d as date
dim x as integer
mese= cint(left(sdata,2))
anno= cint(right(sdata,4)
for x= 1 to 6
	d= dateserial(anno, mese,1)
	d= dateadd("m", 1, d)
 
	ris(x-1)= format(d, "mmyyyy")
next x
end sub

 wrote:
errata corrige:
la trasformazione della data va messa prima del ciclo :)
public sub GeneraMesi(sdata as string, ris() as string)
dim mese as integer
dim anno as integer
dim d as date
dim x as integer
mese= cint(left(sdata,2))
anno= cint(right(sdata,4)
d= dateserial(anno, mese,1)
for x= 1 to 6


 che l'intervallo è mensile?
A memoria, direi proprio di no.
Credo sia "M".
Ma MSDN aiuta.
Ciao
