mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Insert Into, ADO, DAO e ... olio di gomito.

ADO è stato fatto da sfaticati, DAO è stato fatto con maggior cura, questa
non è una novità.
Dimostrazione:
Ipotizzando che Tabella_Destinazione si già esistente e identicamente
strutturata come Tabella_Origine e che entrambe abbiano un indice con chiave
univoca, il comando:
Insert Into Tabella_Destinazione Select * From Tabella_Origine
funziona (sia in ADO che in DAO) e provvede a mettere in
Tabella_Destinazione tutti i records di Tabella_Origine.
Ripetendo l'identico comando, ADO si arrabbia perchè trova chiavi duplicate
e, secondo logica, mi sta bene, ma DAO non si arrabbia affatto e si limita,
senza errori, a inserire solo i records non già presenti, basandosi,
suppongo, sulla chiave univoca prevista dalla tabella.
Ora, che cosa costava a quelli di ADO fare esattamente come han fatto quelli
di DAO? Olio di gomito, e basta!
Lo devo fare io (magari rinunciando al comando e inserire record per
record), ok, ma intanto che lo faccio dico e urlo SFATICATI!
Bastava che quelli di ADO, scrollandosi un po' di merda di dosso e
limitandosi, con modestia, a copiare dai fratelli poveri, aggiungessero (ci
sono arrivato persino io...) un:
... Where chiave_univoca Not In (Select chiave_univoca From
Tabella_Destinazione)

 Tabella_Destinazione)
In questo caso ADO ti ha obbligato ad attivarti e trovare una soluzione
elegante.
Con DAO il piatto è pronto.
Considera che la soluzione trovata sicuramente sarà utile in altre occasioni
.
giuseppeD

 Considera che la soluzione trovata sicuramente sarà utile in altre
occasioni
Certo, si impara sempre, ma ... l'olio di gomito ... ;-)

 Se esiste una anomalia . mi sembra corretto l'avvertimento.
Non so se in ADO esista un qualche flag per fagli fare le cose in silenzio,
però sono d'accordo con lupo.
In DAO si limita a inserire i record mancanti (comodissimo! metti di voler
inizializzare una tabella con dei dati nuovi senza cancellare tutto quello
che il cliente aveva inserito: 1 riga di codice!) e mi pare ti dica anche
quanti ne ha inseriti (forse è possibile anche avere un recordset con quelli
inseriti, o forse questo è ado, non ricordo).
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

che il cliente aveva inserito: 1 riga di codice!)
Non comodissimo, ma scandaloso!
Con ADO tratti i database per come devono essere non quelle pastette
inventate col DAO che insegnano solo a fare casino con i dati.
Adesso capisco perche' ogni tanto i dati su Access vanno a farsi
benedire!
-- 
ciao, hal 

*hal1961* ha scritto:

|!"£$%&/()=?^\'ìé*è+[]ç°§òàù@#;:_,.-
Bene, questo è quel che si poteva dire, il resto ...omissis... ;-)
Eddai, hal, se dai in mano Access a uno che non sa cos'è un db ti può far
qualsiasi cosa... Non esageriamo, su.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] duplicare un controllo da un form ad un altro..

Ciao,
volevo sapere se è possibile clonare un controllo (esempio una toolbar)
da un form ad un altro, in modo che il controllo sul nuovo form si comporti
esattamente come il primo, ovviamente il tutto da codice...
l'ideale sarebbe creare un riferimento.. in modo che gli eventi generati dal
nuovo controllo si ripercuotano sul vecchio...
ciao
Davide

 eventi generati dal nuovo controllo si ripercuotano sul vecchio...
umm umm , io passerei per un modulo es:
Form1
    button1_click()
        Call Button1Click()
su form2 e seguenti copio pari pari i comandi e il codice
Form2
    button1_click()
        Call Button1Click()
sul modulo bas avro' :
 public sub Button1Click()
   msgbox "CIAUZ"
poi se vuoi riferire i controlli al form che lo chiamano basta che passi
come parametro la form stessa !
 miasub(Form1)
 public miasub(myFrm as Form) ....
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 umm umm , io passerei per un modulo es:
ci avevo pèensto ma non è possibile in quanto alcuni controlli sono creati
da una dll activex e io non so a priori cosa verrà creato...
comunque forse sono vicino ad una soluzione... un pò drastica :) ma dovrei
esserci
Ciao e grazie
Davide
Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensioni oggetti

Ciao a tutti,
una domanda di stile:
le dimensioni e la posizione di un oggetto in VB (height, width, top, 
left...) possono essere immesse tramite la tabella posta di solito 
sulla destra, oppure tramite riga di codice
object1.top(.left,....)
Il risultato è lo stesso, ma dite che è meglio scrivere riga per riga 
tutte le dimensioni/poizioni?
Il progetto risulta molto più chiaro, no?
E' come indentare, non è fondamentle per l'esecuzione di un programma, 
ma ne aumenta la chiarezza...
Volevo sapere come la pensate...
-- 
P. IAFo #219
Clark Kent rappresenta la critica di
Superman alla razza umana.
Bill

 Il progetto risulta molto piů chiaro, no?
ehm...
piů chiaro che vedere in design time la disposizione dei controlli sulla
form, non direi proprio.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

"Niggle" <catc...@alice.it.invalid> ha scritto nel messaggio 
news:mn.8a707d538...@alice.it.invalid...

                                            ____ oo_____
L'assegnazione dei valori degli oggetti può avvenire,come tu sai, in due 
modi :
1) In fase di progettazione selezionando il valore desiderato nella 
finestra Proprietà dell'oggetto.
2) In fase di esecuzione usando il codice con sintassi
oggetto.proprietà = valore
Io prediligo il primo modo perché è assai rapido, scrivo meno codice e mi è 
sempre possibile richiamare l'oggetto sullo schermo per variare i valori 
delle sue proprietà. Direi che lo stile non c'entra. De gustibus....
Ciao :-)
e.b.

Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere URL sito web

Vorrei creare un software che legge tutte le url e sottourl del mio sito web
www.miosito.it
al fine di creare una mappa del sito.
Su internet ho trovato vari servizi che creano un file di testo con tutte le 
url, ma vorrei avere un software mio.
Idee? Una linea guida?
Grazie mille
Monkey 


dimenticavo ... uso VB6 + SP6 



Puoi utilizzare inet:
crei una funzione ricorsiva che partendo da un url scarica l'html della
pagina in una stringa, fa il parsing in cerca i tutti gli href e li
salva in un array, poi per ogni elemento dell'array chiami la funzione ...
però occhi con le ricorsioni ...
poi per creare la mappa puoi tirar fuori quel che c'è nel tag title ...
tempo fa avevo fatto una cosa simile... appena zompo in win la cerco e ti
posto un brandello ....
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: LINQ lista univoca da lista generale

VB.net FW 3.5
 
Ho una stringa csv
            Dim ret As New List(Of String)
            ret = Tags_String.Split(","c).ToList
in ret adesso ho una lista molto probabilmente con parole ripetute
 
Vorrei costruire una lista T con i nomi univoci
...so che con il LINQ si fa bene!
Solo che mi incarto in maniera incredibile!
mi date qualche dritta???
 
-- 
----- Italliaaaaa 3227! -----
Come ti senti oggi???
 
Giano Geminus Bifrons Bepop Flowers
http://youtu.be/Wk_gyLo0i-c
 
minuto 3:14
 
(Un uomo un mito: Luciano Lupoletti)
 
 


Questa va bene?
 
http://www.linqitalia.com/script/26/Rendere-Univoci-Elementi-Lista-Clausola-Distinct-LINQ.aspx
 
 
ciao
stefano
 

 mi date qualche dritta???
 
        Dim s As String = "Pippo, Pluto, Paperino, 
Paperino,Paperoga,Pluto,Pippo,Paperone,Gastone"
        Dim ret As List(Of String)
        ret = s.Split(","c).ToList
 
        Dim lista = From dato In ret
                    Select dato
 
        Stop
 
 
e poi? come faccio a farglielo prendere univoco?????
 
-- 
----- Italliaaaaa 3227! -----
Quando vedi la tua verità fiorire sulle labbra del tuo nemico, devi 
gioire, perché questo è il segno della vittoria.
(Giorgio Almirante)
 
 

 stefano
 
        Dim lista = From dato In ret.Distinct
                    Select dato
 
si vero....non carburo stamani
 
se invece volessi ANCHE catalogare le occorrenze? Group BY mi immagino 
e count?....mo ci provo!
 
-- 
----- Italliaaaaa 3227! -----
Ho trovato una città di mattoni, ve la restituisco di marmo.
(Imperatore Augusto da Epistole)
 
 

 Wodka40° scriveva il 15/11/2011 :
zac
ce l'ho fatta...ma gli esempi in rete son diversi...sigh....alal fine 
il buon vecchio msdn
      Dim s As String = "Pippo, Pluto, Paperino, 
Paperino,Paperoga,Pluto,Pippo,Paperone,Gastone"
        Dim ret As List(Of String)
        ret = s.Split(","c).ToList
 
        Dim lista = From c In ret Select c
                    Group By c Into gruppo = Group, Count()
 
-- 
----- Italliaaaaa 3227! -----


                     Group By c Into gruppo = Group, Count()
 
Mi rimane uno scoglio più grande adesso
la mia lista come la trasformo in un dizionario?
C'ho messo fino ad adesso....prova e riprova....leggo leggo tipi 
anonimi trasformazioni, comparere...tanti esempi in C# che non 
funzionano in vb.net...vecchie versioni....stavo per mollare poi ho 
provato!
...ed  era solo una cazzata: bisogna dire alla nostra funzione dove 
trovare i dati! E' anche logico porca paletta!
 
 
        Dim lista = From tag In s.Split(","c) Select tag
                    Group By tag Into gruppo = Group, occorrenza = 
Count()
 
 
        Dim tt As Dictionary(Of String, Integer)
        tt = lista.ToDictionary(Function(p) p.tag, Function(c) 
c.occorrenza)
 
 
ma vaffanbagno....quando tempo perso!
:o) :')
 
-- 
----- Italliaaaaa 3227! -----
Guerrieriii....giochiamo a fare la guerraaa!.... 
Guerrieriii....giochiamo a fare la guerraaa!.... 
Guerrieriii....giochiamo a fare la guerraaa!....
 
I guerrieri della notte (1987)
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora problemi con ado

Salve a tutti
Putroppo non riesco ancora ad andare avanti...
Volevo fare una ricerca all'interno di una tbella senza usare una queri
,francamente non sò usarla : - ) , sono comunque riuscito tramite cicli for
e condizioni if ad effettuare la ricerca
adotrova.Recordset.MoveFirst
Do
   testo = adotrova.Recordset!cognome
   If testo Like txtcerca.Text & "*" Then
       controllo = True
   End If
   adotrova.Recordset.MoveNext
Loop Until controllo = True Or adotrova.Recordset.EOF
dove testo è variabile string e txtcerca il textbox inserito dall'utente
La ricerca anche se un pò grezza funziona il problema è che una volta
trovato il primo si ferma(come volevo ) e con i tasti next e previus
(command button) l'utente si sposta avanti e indietro fino  a trovare quello
effettivamente cercato.
Così sarebbe se la tabella fosse in ordine alfabetico... da Access lo è ma
per VB NO lui si basa sul numeratore (sigh) qualcuno non conosce una riga di
codice che faccia mettere in ordine la tabella prima di lanciare la ricerca
!!
Scusate se i mie metodi di programmazione sono un pò rudimentali ma sono
partito solo ora .
Grazie in anticipo Adriano

 wrote in message
news:3x5W5.3421$bP.1...@twister2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come recuperare l' ip e l' host di un pc in rete?

Salve,
ho trovato un progetto in rete che recupara ip e host di una macchina,
solo che...ho preso i pezzio che mi servivano e li piazzato in un
modulo, ho buttato il progetto e mi sono tenuto il modulo funzionante.
Non è che abbia capito molto cosa ha fatto quello che scritto il
progetto, però il modulo funziona :))
Qualcuno sa se esiste una funzione api o qualcosa che permette di
recuperare l' ip in modo semplice e veloce?
Saluti...

 wrote in message
news:3a63295f...@news.enter.it...

Traccia i post di Jimi degli ultimi mesi: sono una miniera d' oro. :-)
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema difficile...

Ho girato e rigirato e non so proprio dove sbattere la testa:
Dovrei acquisire immagini da scanner e da web cam tramite codice di VB.
Come si fa?
Qualcuno puo aiutarmi?
Grazie di cuore.


Personalmente non saprei, ma ti consiglio di visitare il sito di GbC:
http://gbc.homeip.net/
 per quanto riguarda la web cam: ricordo vecchi
messaggi che parlavano anche di sorgenti.
Ciao, Marco.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Mandare file col WINSOCK

Ciao a tutti il mio problema č mandare i file e riceverli con winsock,
ovvero io ci sono riuscito ma con un meccanisco bovino, ovvero aprio
il file in locale, e mando 5k alla volta al client che ogni volta che
ha finito di scriverli mi manda un msg che mi dice di continuare a
mandare gli altri 5k, cosě via fino a che il file non finisce. A
funzionare funziona ma il pro. si pone quando devo mandare tipo 1Mb,
li di cilci da 5k ne fa  e come!
Insomma se qualcuno mi sa suggerire come mandare col winsockvia TCP/IP
un file gliene sarei molto grato.
Io ho provato anche questo codice preso dal DEJANEWS:
Questo per mandare il file
        Dim FileNum As Integer
        Dim baSendFile() As Byte
        tcpClient(0).SendData "##EIF##"
 
        FileNum = FreeFile
        Open txtSource.Text For Binary As FileNum
            ReDim baSendFile(1 To LOF(FileNum))
            Get #FileNum, 1, baSendFile
        Close FileNum
        tcpClient(0).SendData baSendFile
e questo per riceverlo:
            Dim FileNum As Integer
            Dim baRecv() As Byte
            ReDim baRecv(1 To bytesTotal)
 
            tcpClient.GetData baRecv, vbByte, bytesTotal
            FileNum = FreeFile
            Open "C:\tcp.exe" For Binary As #FileNum
                Put #FileNum, LOF(FileNum) + 1, baRecv
            Close FileNum
P.S. Calcolando che ho fatto  2 progetti, uno fa da client e uno da
server, il sever deve mandare al client il file e il client lo deve
creare in locale............
Ciao e grazie a tutti
Liga97
E-Mail: 
lig...@alo.it
ICQ: 11362849

 mandare gli altri 5k, così via fino a che il file non finisce. A

Newsgroup: it.comp.lang.visual-basic
Titolo: trovare una stringa in DB

Salve a tutti,
premetto che questo codice aveva sempre funzionato con VB4.
Ora (con VB6) quando lo lancio, se inserisco il dato corretto, trova la
stringa
senza problemi, mentre quando è diverso invece di uscirmi il messaggio
"Non trovato", mi da errore.
Ho sbagliato qualcosa ? Uso DAO.
Ecco il codice:
Private Sub Command8_Click()
prompt$ = "Immettere l'anno desiderato"
' acquisisce la stringa da usare per la ricerca del campo Anno
StringaCercata$ = InputBox$(prompt$, "Anno")
Data1.Recordset.Index = "Anno"  ' usa la tabella Anno
Data1.Recordset.Seek ">=", StringaCercata$ ' ed esegue
                                          ' la ricerca
If Data1.Recordset.NoMatch Then ' se non trova corrispondenza
 MsgBox ("Non trovato")
 Data1.Recordset.MoveLast     ' va al primo record
End If
End Sub
Grazie
ilpav

 End Sub
Di che tipo e` il campo Anno? (Testo, Numero, Data...)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


Testo


 Testo
Non capisco. E su quale riga segnala l'errore?
Io ho fatto il seguente test con vb6, mdb access 2000, campo "Anno" in
formato testo con indice "Anno" non univoco e non ho riscontrato problemi.
Vedi se ti puo` essere utile:
Option Explicit
Sub main()
  Dim d As DAO.Database
  Dim r As DAO.Recordset
  Dim s As String
  Set d = DAO.DBEngine.OpenDatabase("c:\progetti\db1.mdb")
  Set r = d.OpenRecordset("Tabella1", dbOpenTable)
  r.Index = "Anno"
  s = Year(Date)
  Do
    s = InputBox("?", , s)
    If Len(s) Then
      r.Seek ">=", s
      If r.NoMatch Then
        MsgBox "NoMatch"
      Else
        MsgBox "Found"
      End If
    Else
      Exit Do
    End If
  Loop
  r.Close
  Set r = Nothing
  d.Close
  Set d = Nothing
End Sub


Newsgroup: it.comp.lang.visual-basic
Titolo: API Reference

Qualcuno sa dirmi quale è editore e titolo in italiano del libro:
"Dan Appleman's Visual Basic guide to WIN32 API?
E' meglio la versione originale o puo' andare bene anche quella tradotta
in italiano?
Ciao, Angelo

Visual Basic 5.0 Win32 API - Guida del programmatore.
Se non ti piace la traduzione, assieme al libro ce'è un CD con la versione elettronica inglese...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: Costruzione di una query

Salve,
volevo sapere in che modo posso andare a capo nella costruzione di una
query, cioč per non avere tutto su una riga. Ovviamente utilizzo l'operatore
di concatenazione & fra stringhe:
strq= "select * from Tabella where campo....." & "and  ...." & " and
........"
Se č molto lunga, per chiarezza č opportuno scriverla su piu' righe.
Come posso fare?
 Grazie

 Come posso fare?
Newsgroup: it.comp.lang.visual-basic
Titolo: VB, ADO e AS400

Con un programma VB, che fa uso di oggetti ADO, devo accedere ad alcuni file
su AS400 e leggerne i record (un file ne ha 30000) tramite stringhe DSN (non
ne so molto). Risultato: un'estenuante attesa di 20 minuti, in cui tutto si
blocca fino alla fine del programma (non funziona nemmeno il refresh sui
controlli del form e l'animazione che rappresenta il trasferimento dati).
Esiste una soluzione più efficiente ?
Ho meglio qual è il metodo più veloce per accedere a file sull'AS400 tramite
ADO e VB ?
Ringrazio in anticipo per eventuali risposte.
Ciao
Giovanni (Le x nel mio indirizzo sono fittizie)

 wrote in message 7ltl24$cq7$2...@nslave1.tin.it...



Hai toccato un argomento che andrebbe approfondito non con poche righe su un
NG... comunque :
Realizzo da tempo applicazioni VB che vanno ad interrogare/Aggiornare
database presenti su AS400.
Il tempo di risposta e' dipendente in modo particolare al tipo di AS400 che
hai, ed a come il PC e' collegato all'AS. In Twinax i tempi sono quelli che
sono anche se debbo dire che tramite DAO con connessione ODBCDIRECT non ho
mai avuto problemi particolari. Certo leggere 30.000 record non e' una
sciocchezza in termini di tempo. Cmq come ti dicevo, con connessione
ODBCDIRECT su connessione Twinax, impiega in genere qualche secondo per
stabilire la connessione, dopodiche' interrogazioni che trasferiscono sotto
a 100 records sono quasi immediate.
Se sei collegato all'AS tramite TCP/IP il tutto dovrebbe viaggiare con
tempistiche decisamente migliori.
Molte volte cmq devi lavorare bene sull'AS per ottenere tempi di risposta
accettabili. Se vai ad interrogare un archivio molto grande, controlla se ci
sono delle viste logiche che ti permettono di ottimizzare le tue
interrogazioni da PC, se non ci sono tali "viste"  creale.
Stesso discorso se la query che lanci da VB ha piu' tabelle e che quindi
pregiudicano che l'AS debba eseguire delle JOIN. Anche in questo caso ti
consiglio di operare dal lato AS creandoti dei file logici "Joinati".
Insomma, devi crearti delle buone basi dati dal lato AS se vuoi che tutto
vada a vantaggio delle performance.
Spero di esserti stato di aiuto.
Fammi sapere.
Ciao
Ven.






l'accesso ai dati AS/400.
Peccato che funzionano solo con l'as400.

 Sul CD dell'ultima versione del Client Access c'è l'ADO400 sviluppato da


...


Grazie !
--
@lf
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Creare links nel setup di un programma

Ho modificato il  setup wizard in modo da creare all'installazione
sotto Windows 95 una cartella con all'interno il link all'eseguibile
del mio programma ( per default sotto Windows 95 creava solo il
collegamento)
Ma dato che vorrei aggiungervi anche i links per un file di testo e
l'help del programma volevo sapere come fare.
Basta modificare il file setup.lst o mi tocca modificare il setup ?
Grazie
Paolo

...

----------
Ciao!
Per fare quello che vuoi, devi modificare il progetto Setup1.vbp. Ecco cosa
devi fare.
Apri il progetto su citato e portati nel codice del form Setup1. Ora cerca
la prima occorrenza della stringa
CreateOSLink frmSetup1
Dovrai aggiungere qui le istruzioni per creare i collegamenti ai file
desiderati. Ad esempio, se vuoi creare un collegamento al file
"WinLock.txt", nel gruppo chiamato "WinLock", dovrai utilizzare la seguente
istruzione:
    CreateOSLink frmSetup1, "WinLock", gsDest.strAppDir & "WinLock.txt", "",
"Informazioni"
Se hai altri problemi, fatti sentire. AUGURI DI BUONE FESTE
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

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

Ciao a tutti,
    dunque io avevo un programma con alcuni controlli FlexGrid e tutto
funzionava regolarmente. Ho dovuto sostituire le Flexrid con le Hierchical
Flexgrid e da allora on funziona più per il semplice motivo che quando
cambio il valore di Col o Row da codice, il programma non scatena più gli
eventi LeaveCell e EnterCell come invece faceva regolarmente prima. Questi
eventi continuano a essere scatenati solo quando l'utente col mouse
seleziona una cella ma per me non è sufficiente. Qualcuno sa dirmi perché il
MSHFlexGrid ha questo handicap e come posso fare per risolverlo?
Ciao e grazie, Luca.

 questo handicap e come posso fare per risolverlo?
ho avuto il tuo stesso problema, sono ritornato alle MSFLEXGrid ed ho
simulato la "Gerarchia" con il mergecell, e' un po articolato ma almeno ho
tutti gli eventi a posto !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: Da file di testo a mdb qualcuno mi aiuta con VB6

Ciao ragazzi e buona domenica,
qualcuno mi darebbe qualche dritta di quanto in oggetto.
Premetto che il file txt e' un file che raccoglie articoli di magazzino con
campi ben predefiniti, e mi chiedevo se ci fosse qualche metodo per creare
un file mdb e quindi salvarlo.
Con Access ci sono riuscito ma con VB6 non saprei come iniziare.
Grazie per l'aiuto
Paolo

 un file mdb e quindi salvarlo.
Un pň pochino quello che ci dici... raccontaci un pň di piů su questo
file... magari postane un pezzettino piccolo...
Ciao.
Francesco

 ha scritto nel
messaggio news:2a_r8.57537$pT1.1...@news1.tin.it...


3FF3FINE11ZL3      11ZL3 TUBO ALLUMINIO 1,5M B/CO
3FF   NR200000001520000000100000000000000000000000000
3FF3FINE13SN2      3FINE 13SN2 SOSPENSIONE 1M         3FF
NR200000000790000000100000000000000000000000000
Ecco due riche di esempio
I campi sono i seguenti:
precodice     da 1 a 3
codice          da 4 a 19
Descriz.        da 20 a 54
cat.sconto    da 55 a 60
um                da 61 a 62
iva                da 63 a 64
prezzo          da 65 a 77
q.t prezzo     da 78 a 81
prezzo netto da 82 a 94
per sconti     da 82 a 82
sconto  qt     da 82 a 82
sconto1        da 83 a 87
sconto2        da 88 a 92
sconto 3       da 95 a 99
varrame        da 100 a 107
Per quanto riguarda il file generato (es.tabella.mdb) verrà cercato e
gestito poi dal programma vero e proprio.
spero di essere stato chiaro xche' ho poca conoscenza su generazione di file
e database.
Grazie cmq per l'aiuto
Paolo
Newsgroup: it.comp.lang.visual-basic
Titolo: VB NET e.HasMorePages

Salve.
Ho questo problema.
Uso il metodo PrintDocument per stampare. Setto la proprieta HasMorePages a 
True per stampare sulla seconda pagina.
Ma il programma continua a stampare sulla prima pagina.
Credevo che  "HasMorePages=True" bastasse per continuare a scrivere su una 
pagina nuova.. Invece....
Grazie..

 pagina nuova.. Invece....
invece dice solo che il documento ha ancora pagine.
Intanto PrintDocument è una classe e non un metodo.
L'evento PrintPage viene eseguito ad ogni pagina, quindi dovrai controllare 
su che pagina sei (tieni il conto delle pagine stampate) e stampare di 
conseguenza.
Ciao 

 ha scritto nel messaggio 
news:467a7f61$0$37202$4faf...@reader3.news.tin.it...

Scusa non riesco a capire.
Ho un bottone di stampa:
Private Sub Stampa()
Try
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
Catch exp As Exception
MsgBox(" ERRORE DI STAMPA. ", MsgBoxStyle.Critical, "ERRORE")
End Try
End Sub
e poi :
Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As 
System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'Qui dentro ho le istruzioni di stampa. Se supera un certo numero di righe 
imposto
e.HasMorePages=True.
.
.
End sub
Come faccio a controllare su che pagina sono e stampare di conseguenza.?
Grazie per ulteriori spiegazioni.

 Come faccio a controllare su che pagina sono e stampare di conseguenza.?
Ma possibile che nessuno capisca come si tiene un contatore???
Dim _pagineStampate As Int32
...
' Nell'evento PrintPage
' tengo conto delle pagine stampate
_pagineStampate += 1
' Ninna nanna ninna oh, su che pagina sarò?
Select Case _pagineStampate
Case 1
    ' stampo
    e.HasMorePages = True
Case 2
    ' stampo
    ' basta pagine!
    e.HasMorePages = False
End Select
Ciao

 ha scritto nel messaggio 
news:467a860a$0$37195$4faf...@reader3.news.tin.it...

Faccio proprio cosi.
Conto le righe.Se superano un certo numero si incrementa la pagina. Poi 
e.HasMorePages=True.
Scusami. Fai finta come se non ti avessi chiesto niente.

Newsgroup: it.comp.lang.visual-basic
Titolo: Numerare i records

Avrei un piccolo e stupido problema..........
come posso fare per numerare un campo, esistente o meglio nuovo, secondo
l'ordinamento corrente.
in poche parole dovrei fare quello che fa il campo (Contatore) in Access o
qualcosa di simile.
Qualche suggerimento vi prego!
Grazzzzzzzie
Ciao
max

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Inserimento di parti di codice in automatico,come?

Quello che vorrei fare io è inserire in automatico del codice all'interno 
dell mia form.
Mi spiego meglio. Questa cosa mi servirebbe per il salvataggio.
Vorrei prendere per esempio 4 Dati che inserisce l'utente tramite TextBox.
A questo punto quando clicca sull'opzione salva, il programma (macro) in 
automatico mi va ad aggiungere per esempio sentro un
combobox_c
..add "primo dato"
end sub
 e dentro un combobox_click
..
if "primo dato">90 then
fai queste cose
..
end sub
E' possibile quindi l'inserimento iutomatico di alcune parti di codice per 
esempio prima della end sub di un certo combobox?
Grazie
PS:Se avete altre idee, sono sempre ben disposto ad accettarle 

Se ho capito bene quello che vuoi fare, quello che ti serve e'
semplicemente di imparare ad utilizzare il Microsoft Script Control
http://www.microsoft.com/mind/0799/script/script.asp
Cerca su Google "vb script control" o simili, troverai un sacco di
informazioni utili (sempre se ho capito quello che vuoi fare)

Thommino ha scritto:

I tuoi post sono molto utili in un ottica di "pensiero laterale". Tra un po' 
arriviamo alla macchina di Turing.
A parte gli scherzi, la riga "fai queste cose" da dove viene? Il codice viene 
"scritto" dall'utente? No vero? Quindi sarebbe il caso che il tuo codice già 
prevedesse tutto quello che deve fare.
Poi per salvare le scelte dell'utente si usa il registro di windows, o un file 
INI, o normali file binari, ma devi salvare solo le scelte (contenuti delle 
textbox, combobox, flag vari) non il "codice".
Ciao
Daniele

 delle textbox, combobox, flag vari) non il "codice".
Vediamo se riesco ad essere più chiaro. Ricordo che sto lavorando un VBA e 
quindi non tutto è permesso.
Faccio un sempio più puntuale. Io ho:
------------------CODE-----------------------
Private Sub ComboBox12_Click()
If MultiPage1.Tecnologia.ComboBox12.Text = "Pippo1" Then
    MultiPage1.Tecnologia.ComboBox15.Text = "ciao"
    MultiPage1.Tecnologia.TextBox29.Text = "15"
    MultiPage1.Tecnologia.TextBox26.Text = "13"
    CheckBox18.Value = Checked
    CheckBox19.Value = Checked
    CheckBox20.Value = Checked
    CheckBox23.Value = Checked
End If
If MultiPage1.Tecnologia.ComboBox12.Text = "Pippo2" Then
    ...
END SUB
------------FINE CODICE------------------------------------
Vorrei che mi inserisse, senza ovviamente cancellare il resto, dentro la 
ComboBox12_Click il seguente codice. Ovviamente il codice è inserito dal 
programmatore. Solo scelta utente nella textbox1 verrà scelta dall'utente, e 
quindi il dato verrà letto da una textbox10.Text tanto per fare un esempio.
If MultiPage1.Tecnologia.ComboBox12.Text = "scelta utente nella textbox1" 
Then
    MultiPage1.Tecnologia.ComboBox15.Text = "scelta utente nella textbox2"
    MultiPage1.Tecnologia.TextBox29.Text = "scelta utente nella textbox3"
    MultiPage1.Tecnologia.TextBox26.Text = "scelta utente nella textbox4"
    CheckBox18.Value = Checked
    CheckBox19.Value = Checked
    CheckBox20.Value = Checked
    CheckBox23.Value = Checked
End If
Spero di essere stato più chiaro.
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Formattare una textbox

Hi qualcuno č cosě cortese da dirmi come faccio a bloccare un textbox in un
formato data??
io ho provato con
txtbox = format ("  /  /  ",date)
all'apertura appare ma poi e possibile cancellarli cosa che non dovrebbe
essere possibile!!!
Esiste un'altro comando??
Thanks a lot

 wrote in message
9g5nb2$67u$1...@serv1.albacom.net...

Ti consiglio di usare una MaskEditBox
Ciao
Sir Jo

 ha scritto nel messaggio
news:9g5p6i$mch$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Form che si chiude automaticamente

come faccioa fare un form che si chiude automaticamente dopo esempio 5 sec.?
grazie

% sec. dalla sua apertura? Tipo le figurine di benvenuto quando lanci
un'applicazione MicroSoft?
Metti sul form un controllo Timer
Imposti l'intervallo a 5 secondi
Sull'evento "timer" (mi pare si chiami cosě) fai chudere il form.
ciao
Oberti Manuel ha scritto nel messaggio ...


>come faccioa fare un form che si chiude automaticamente dopo esempio 5 sec.?
In questo modo hai un form con un bottone e un timer, se spingi il
bottone passati 10 secondi appare un messaggio e poi si chiude il
form. La proprietą enabled del timer, selezionala su "false". Il
concetto č questo; si apre il form ma non parte il timer, quando
spingi il bottone il timer comincia a contare fino a 5 secondi,
passati appare il messaggio e fine dei giochi :))
Private Sub Command1_Click()
    'avvia il timer
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    'se passati i 10 secondi visualizza un messaggio
    'e chiude il form
    MsgBox "scaduto il tempo"
    Form1.Hide
    End
End Sub

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

non riesco a creare una query con parametri...
se metto come criterio del query designer ? o il nome di un parametro, mi dà
un messaggio indecifrabile di errore senza spiegazione apparente...
cosa può essere? come posso  aggirare il problema e avere a disposizione
delle query che posso personalizzare nei criteri ad ogni chiamata?
grazie
oly...@spm.it

Costruisci la query con access e poi nella riga parametri metti tra
parentesi quadre un nome ad esempio [IDFATTURA].
Se provi ad aprire questa query Access ti chierà : immettere il valore del
parametro IDFATTURA.
Dal codice di VB pui richiamare questa procedura con il metodo
Set Param.
Se non riesci scrivimi che io sono fresco di un programma appena fatto con
decine di query con parametri.......
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetti: Tanta teoria poca pratica !

Ho letto tante cose sugli oggetti e sul loro uso nelle applicazioni
gestionali, ma purtroppo non ho ancora trovato una piccola, chiara,
applicazione di esempio che mi consenta di capire bene l'uso degli
oggetti personalizzati.
Se qualcuno ne avesse una o mi indicasse dove trovarla gliene sarei
molto grato.

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Anomalia grafica dentro un MDI?

In un MDI ho dei form, in uno di questi ho un SSTAB che contiene una
MSFLEXGRID e accidenti a lui non mi disegna la barra di scorrimento della
griglia, se ci vado sopra comunque allora la visualizza ma non perfetta.
La cosa strana  che quando il progetto era tutto su un form questo non
succedeva e ora che ho messo tutto dentro mi dà questa anomalia.
Come posso fare ?
Tra l'altro ho dovuto inserire l'MDI xchè VB (io non lo sapevo) non mi
lasciava + inserire altri oggetti, ma è possibile ?
grazie

 lasciava + inserire altri oggetti, ma è possibile ?
???
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: [Forse OT] API Windows

Ho trovato un'API non documentata di Windows.
Mi sembra strano che avevo sotto gli occhi una cosa così ovvia e che non me
ne fossi mai accorto.
Fate riferimento al link in basso.
www.nicolaottomano.it/ApiWindows.zip
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 
www.nicolaottomano.it/ApiWindows.zip
Spiritosone.
Saluti.

Newsgroup: it.comp.lang.visual-basic
Titolo: Device[urgente]

Come faccio a leggere lo stato di una device, in vb6. Che api 
devo suare ?
Grazie.
--  
Postato da Virgilio Newsgroup: scopri i nuovi gruppi 
Eros, foto e video a 
http://newsgroup.eros.virgilio.it

nessuno ti ha risposto, chissà mai perchè
provo io:
se il device è una macchinetta del caffè usa l'api
CoffeeMakkinett.DLL
è tardino e mi va di scherzare...
ma la prossima volta magari dicci di che cavolo di device parli
engioi.

Newsgroup: it.comp.lang.visual-basic
Titolo: Con Win2000 il PC non si spegne!

Ho un'applicazione che dopo certe elaborazioni deve spegnere il PC ma sulla
mia macchina "Arresta il sistema" non spegne effettivamente il computer ma
visualizza il messaggio "E' ora possibile spegnere il computer".
Ho installato Windows 2000 (Mentre con Win ME si spegneva) qualcuno sa il
motivo?
Grazie a tutti!

 wrote in message
news:kFyi7.21326$%a4.8...@news.infostrada.it...

Prova ad attivare il Supporto APM in Pannello di controllo/Risparmio energia
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Simultanea su due Text

Ciao!
Esempio pratico:
Scrivendo su un Text1 come faccio a far compaarire la scritta
simultaneamente al Text2 che è sito nello stesso form?
Grazie in anticipo!!
Mauro

 wrote in message 7v6snu$s6m$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Elenco Comandi API

Salve
Averi la necessità di avere qualche informazione sulle API di win.
Dove è possibile trovare l'elenco dei comandi da fornire alla funzione?
Per comandi intendo ad esempio, la stringa "status cd2 position wait" 
relativamente alla prima funzione o la stringa "PLAY " + Alias + " FROM 0" 
nella seconda
R = mciSendString "status cd2 position wait", s, Len(s), 0
R% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
Ho cercato su internet, ma si tova solo l'elenco di tutte le API con 
relative istruzioni sull'utilizzo, ma in nessun caso è spiegato dove o come 
creare/utilizzare la stringa di comando.
Sapreste indicarmi un sito o un libro che contenga queste informazioni?
Grazie 1K per l'help 

 Sapreste indicarmi un sito o un libro che contenga queste informazioni?
MSDN?
Cioè il posto più ovvio dove cercare per chi vuole usare l'API di windows.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_multimedia_command_strings.asp
e in generale
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sdkintro/sdkintro/contents_of_the_platform_sdk.asp
segui "Windows Multimedia" -> "MCI"
Ciao 

 ha scritto nel messaggio 
news:445f9774$0$36938$4faf...@reader3.news.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Finestre invisibili (un po' OT)

Solo per curiosità:
su un PC collegato a una rete AS/400 mi è capitato, premendo ALT e freccia
in giù sul desktop, di vedere apparire il classico menù Sposta delle
finestre non ridimensionabili.
MA NON C'ERA NESSUNA FINESTRA VISIBILE!
Provando a muovere le frecce si vedeva solo il tratteggio dello spostamento
della finestra sul desktop che puntualmente spariva premendo Invio.
Che tipo di finestra è quella che ho visto?
Ciao
P.S. non avevo bevuto  ;-)
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://www.tempolibero.com/user/mix/
http://space.tin.it/computer/gaais/
-
--
---

P.S. non avevo bevuto  ;-)
Male, potresti disidratarti! :-)
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: disabilitare tasto destro del mouse

Sapete dirmi come posso disabilitare l'uso del tasto dx del mouse in modo
semplice su un form?!?

 semplice su un form?!?
Se il click avviene sul form puoi intercettarlo nell'evento MouseDown (usi
un if Button = vbRightButton etc.).
Se l'evento vuoi intercettarlo su ogni controllo del form, puoi scriverti
una sola sub (a livello di MODULO! Vero Maurzio Borrelli, Roby, java,
Paperino - e chi piu' ne ha piu' ne metta - ?) tipo
sub IntercettaTasto(Tasto as Integer)
if Tasto=vbRightButton then
etc.
Se invece ti serve intercettare la pressione a livello di SO, allora devi
rivolgerti all'hook (cerca sul sito comune).
Ciao,
- SonicBom -
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con ado

salve mi succede una cosa strana ?!?!?!? per il collegamento ad un server
mysql utilizzo l'oggetto ado, le istruzioni che scrivo sono...
.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
Private adors As ADODB.Recordset
Private cn As ADODB.Connection
Private Sub Command1_Click()
    Set cn = New ADODB.Connection
    cn.ConnectionString = "DSN=proxy_log;uid=root;"
    cn.Open
    riga = "C:\WINDOWS\Desktop\prova_ado\W3010201.log"
    Set adors = cn.Execute("LOAD DATA LOCAL INFILE '" & riga & "'" & " INTO
TABLE proxy_log.Tmp_w3 FIELDS TERMINATED BY ','")
End Sub
.-.-.-.-.-.-.-.-.-.-.-.-.-.
succede che il server mi ritorna un errore del genere
[TCX][Myodbc]file 'C:WINDOWSDesktopprova_adoW3010201.log' not found
(errcode: 2)
notate che il percorso del mio file viene passato senza barra retroversa
"\".
come mai succede questo.... chi mi puo' dare una mano ????
esiste un altro metodo per collegarsi con ado ad un server mysql ??
grazie

 wrote in message
news:99mvf3$hcb$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:4EDv6.24646$lT1.4...@news2.tin.it...


 wrote in message
news:99n38n$idt$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:SKEv6.24787$lT1.4...@news2.tin.it...


 wrote in message
news:99n60k$idp$1...@pegasus.tiscalinet.it...


 wrote in message
news:99n60k$idp$1...@pegasus.tiscalinet.it...


 > > > č solo una supposizione... quindi "JUST TRY"


 wrote in message
news:99n38n$idt$1...@lacerta.tiscalinet.it...


perche' queste righe di codice mi danno 'errore run-time'429' il comonente
ativexnon puo' creare l'oggetto'
Private Sub Form_Load()
    Dim myconn As New ADODB.Connection
    Dim myrs As New Recordset
    Dim mySQL As String
    Dim myrows As Long
    myconn.Open "DSN=proxy_log;uid=root;"
    mySQL = "SELECT * from tmp_ws"
    myrs.Source = mySQL
    Set myrs.ActiveConnection = myconn
    myrs.CursorLocation = adUseClient
    myrs.Open
    myrows = myrs.RecordCount
    For i = 1 To 10
        List1.AddItem (myrs.Fields("iputente"))
    Next
    myrs.Close
    myconn.Close
End Sub

Dimenticavo....controlla che ci sia un riferimento nel tuo progetto alla
libreria di ado.
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
 

     Dim myrs As New Recordset
Prova con
     Dim myrs As New ADODB.Recordset

Su che riga ti da errore?


 ha scritto nel messaggio
news:7n1w6.83575$yl2.6...@news1.tin.it...


     myrs.Open "SELECT * from tmp_ws", myconn, adOpenKeyset,
adLockOptimistic, adCmdText

Newsgroup: it.comp.lang.visual-basic
Titolo: Separatore decimali per stringa SQL

Un saluto a tutti i partecipanti al NG.
Dovrei passare delle variabili con separatore decimale virgola ( es. 2,55)
ad una stringa SQL che mi accetta solamente il separatore decimale punto
(es. 2.55).
Esiste una funzione che mi formatti il numero cambiando il separatore
decimale?
Grazie per l'aiuto.
Saluto tutti.
Ciao Daniele

 ha scritto nel messaggio
news:94palr$jtm$1...@fe1.cs.interbusiness.it...


 ha scritto nel messaggio
news:94pevk$qaf$1...@serv1.iunet.it...


 Esiste una funzione che mi formatti il numero cambiando il separatore
decimale?
Fai esperimenti con le seguenti funzioni:
Option Explicit
Sub Main()
Dim dblNum As Double
dblNum = 2.55
Debug.Print dblNum
Debug.Print CStr(dblNum)
Debug.Print Str$(dblNum)
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 strStringa = "1,000,000.52"

 ha scritto nel messaggio
news:94pi75$eme8e$3...@ID-52090.news.dfncis.de...


 wrote in message
94pi75$eme8e$3...@ID-52090.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: sapete come si crea una cartella vuota con innosetup

Grazie a tutti. 

 Grazie a tutti.
Leggendo la guida di InnoSetup (questa sconosciuta) nella sezione [Dirs]
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 

 Luca Dormio - 
luca....@tin.it
ok grazie risolto se vi serve si fà cosi
[Dir]
CreateDir("c:\miacartella"):false;


Hai preso il giro largo ;-)
Puoi fare a meno di scomodare le funzioni in Pascal e utilizzare 
semplicemente
[Dirs]
Name: {app}\cartellavuota
Ciao
-- 
Luca Dormio - 
luca....@tin.it


 ________________________________
ha ok, grazie mille per la precisazione
Newsgroup: it.comp.lang.visual-basic
Titolo: VBA cerco qualche sito dedicato

Qualcuno sa indicarmi qualche buon sito che parli di VBA?
Sono agli inizi (anzi sono a zero) ed ho bisogno di qualche buon esempio di
applicazione su Excel.
Grazie 1000 a tutti e scusatemi per il doppio post riguardo al msg. sul
refresh
Cyb99

 Sono agli inizi (anzi sono a zero) ed ho bisogno di qualche buon esempio
di applicazione su Excel.
Potresti cominciare dal sito italiano di Microsoft Office. Troverai
moltissimo materiale ed anche un corso.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: griglia con dati senza database

Ciao a tutto il NG...
magari quello che sto chiedendo è una fesseria, ma non sono riuscito a
trovare un componente che faccia questo: mi serve una griglia (tipo dbgrid)
che faccia vedere dei dati che inserisco mano a mano, ma senza che questa
griglia sia associtata a nessun db. Ossia, una griglia che memorizzi i dati
che l'utente inserisce mano a mano e che solo in un secondo momento li
trasferisca ad un db...... il trasferimento non dovrebbe essere cosa
difficile..... è che non riesco a fare in modo di far vedere i dati nella
griglia mano a mano che si inseriscono senza associarla ad un db.... avete
qualche idea?
Grazie

 senza che questa griglia sia associtata a nessun db.
uhm... la griglia non deve essere associata ad un db per funzionare, deve
essere associata ad un recordset.
sembra una precisazione stupida, ma se scopri che puoi avere recordset senza
avere db... (è un po' macchinosa la cosa, perchè devi aggiungere i vari
campi al runtime, ma si può fare)
In alternativa esistono le grid "vecchie" che, non essendo data-bound, non
hanno bisogno proprio di nulla (mi viene in mente un FlexGrid ma non ci
giurerei)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto non mi somma le variabili!!!

SAlve a tutti,
da poco mi sono avvicinato al mondo di VB 6, e come normale mi sono
scontrato con alcuni problemi.
Uno in particolare mi sta dando del filo da torcere.
Arrivo al dunque:
ho due caselle di testo nel quale inserisco dei numeri. chiamiamo le caselle
A e B.
essendo delle stringhe ho usato A1 = CSng(A), e B1 = CSng(B).
Ho un label nel quale voglio che appaia la somma di A1 + B1, ma invece di
fare la somma dei numeri me li affianca, come se fossero delle parole con il
collegamento _&....
mentre le altre operazioni aritmetiche (- / * Mod) funzionano perfettamente.
Perchč????
Qualcuno puň spiegarmi dove sbaglio?
PS: ho creato un modulo dove dichiaro:
Dim A as Single
Dim B as Single
Forse l'errore č qua???

 ha scritto

puoi postare il codice esatto che usi ?

Forse l'errore è qua???
Ci sono delle incongruenze in quello che dici, ma a occhio e croce non hai
l'Option Explicit.
Se  è vero fai così:
1) te lo cerchi sulla guida e ne trai da solo le conclusioni.
2) spunta la casellina "Dichiarazione obbligatoria delle variabili" nel menu
Strumenti->Opzioni.
    Equivale ad un Option Explicit automatico.
3) Premi di nuovo f5 e tutto ti sarà molto più chiaro.
    Come ad Esempio il fatto che dici di usare A1 e B1 e poi dichiari A e B
(che tra l'altro non erano già le caselle di testo?)
Ciao

 ha scritto nel messaggio
news:91llkj$cer$1...@fe1.cs.interbusiness.it...

L'operatore + concatena due stringhe o somma due valori.
Se tu gli passi due stringhe giustamente lui le concatena.
Gli devi passare due valori con la funzione val(String)

 Gli devi passare due valori con la funzione val(String)
Il problema non č la funzione usata. CSng va bene perchč converte un valore
in Single. D'altra parte chi fa la domanda afferma che con le altre
operazioni aritmetiche (- / * Mod) non ha problemi.
Comunque, il codice seguente funziona.
Private Sub Command1_Click()
   Dim A1 As Single
   Dim B1 As Single
   A1 = CSng(A.Text)
   B1 = CSng(B.Text)
   Label1.Caption = A1 + B1
End Sub

"
news.interbusiness.it
"
Cambia Nick
(Menu strumenti>Account...>Proprieta'>Nome)
Mettici il tuo nome, soprannome o quello che ti pare, non ha senso pero'
metterci l'indirizzo del tuo news server

 wrote in message
91llkj$cer$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: l'Api Viewer di VB.NET

ho installato da poco di 
VB.NET
 e non riesco a trovare l'Api Viewer,
dov'č?

 dov'č?
Non esiste, puoi usare questa alternativa
http://www.activevb.de/rubriken/apiviewer/index-apiviewereng.html
Anche se conoscendo PInvoke puoi tradurre le API autonomamente...
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog

Newsgroup: it.comp.lang.visual-basic
Titolo: post n° 2: Utilizzo di controlli scaricati da www.vbaccelerator.com

Riposto la domanda perchè magari vi è sfuggita.
Rispondetemi pure "NO" ma per favore rispondetemi ...
Grazie
    Davide

 ha scritto nel messaggio
news:8qs2vq$g48$1...@fe2.cs.interbusiness.it...

ok, qual è il problema?

 wrote in message

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda su Access

Salve,
qualcuno sa perchč dopo aver installato Office smallBuibess 2000 su
WinXP, se installo Access 97, avendo regolare licenza, mi dice che su
questo computer non ci sono i diritti per eseguire access?
Mentre Un access 2000 pirata funziona normalmente.
Il fatto č che io ho SmallBusiniss con Licenza e Office 97 con
Licenza.
Sapete per caso come devo fare per far funzionare Access 97?
Grazie
Robin

 ha scritto nel messaggio
news:dikuiucivdh9289lt...@4ax.com...

How to Install Access 97 and Access 2000 on the Same Computer
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q241141
Access 2000/Access 97 Coexistence FEPs
http://www.trigeminal.com/usenet/usenet019.asp
--
HTH
Karl

Newsgroup: it.comp.lang.visual-basic
Titolo: IMPARARE REPORT

chi mi sa dire dove trovo qualcosa sul crystal report
di molto esauriente in italiano>
manuali in formato file.
Grazie a tutti per la cortese attenzione!!!!

 wrote


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]: Cerco VBDOS Ed.Professional.

Salve, scusate ma avrei indispensabile bisogno di poter provare il Visual
Basic DOS Ediz. Professional.
Io ho la Ver. Standard, ma non supporta i Database, mentre nell'help dice
che la ver. Pro lo fa.
Scusate se vi chiedo questo, ma non riesco più a trovarlo neanche a
vendere!!!!
Grazie
(Piombini L./Vigna F./Bondi D.)

 ha scritto


DOS!
Ma esiste ancora per chi programma?
Io la Professional di VB DOS non l'ho mai vista...
Ma se posso un consiglio, usa Btrieve con il normale, se proprio non
ne puoi fare a meno.
--[GbC]--

> dos ?
yes!
E funziona anche bene! (la ver. Standard....)

Dalla Ver. Standard, dici di usare il Btrieve? E come?
(scusa ma brancolo nel buio circa Btrieve....)
--
------- CED L'Abbondanza -------
http://www.labbondanza.it
Email: 
in...@labbondanza.it
(Piombini L./Vigna F./Bondi D.)
--------------------------------------------
GbC <mac...@ti.importa> wrote in message 8ivfhj$dep$1...@nslave1.tin.it...


 E funziona anche bene! (la ver. Standard....)
la curiosita' aumenta... io sapevo che ne era uscita solo una versione,
abbastanza anni fa...
produttore ? dove si trova ?
ciao, a.

 ha scritto nel messaggio
news:383a3...@news.megasys.it...


 E funziona anche bene! (la ver. Standard....)
Non lo metto in dubbio che funziona bene! Io ho scritto il mio "programma"
in VBDOS 1.0.
E' bello sapere che vive ancora.
A dir la verità avevo rimediato anche la versione Professional... e ricordo
che aveva la possibilità di creare dei controlli personalizzati anche se è
una funzione che non ho mai usato. Poi ricordo anche che la professional era
solo ed esclusivamente in inglese al contrario della Standard!
Bei ricordi.
Goldrake - 
goldr...@hotmail.com