mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Multithread





Sto scrivendo un applicativo che, in ascolto sulla porta 514 di UDP (servizio syslog), vada a scrivere su un database Access le trap inviate da Router Cisco (e non solo...).


Il mio problema è che, gestendo una rete con più di 300 router, ricevo delle trap di continuo: sicchè, mentre l'applicativo si sta occupando di interpretare i dati e di inserirli nel DB, il Socket 'Droppa' alcuni pacchetti ad esso destinato. 


Posso suddividere l'applicativo in più Thread? Se si come posso realizzare ciò?




Claudio Lo Bianco
                                                                                                 
 


Cisco CCNA -
 
Certified


WIND Telecomunicazioni S.p.A.                           


RO&M - C.O.T. Centro - Data Network                                                   


Via Tuscolana 1091 - Roma                                                           


(
 :
 
+39 06 8311 5766
 - 5767
                                


È
 :
 
0329 6266726


*
 :
 
clob...@wind.it
                                       
 
                                                                   


                                                                                     


                                                                                                                                                  


                           







 wrote in message
news:8D7C99DF4EFAD311A21...@srmex08.wind...
Sto scrivendo un applicativo che, in ascolto sulla porta 514 di UDP
(servizio syslog), vada a scrivere su un database Access le trap inviate da
Router Cisco (e non solo...).
Il mio problema č che, gestendo una rete con piů di 300 router, ricevo delle
trap di continuo: sicchč, mentre l'applicativo si sta occupando di
interpretare i dati e di inserirli nel DB, il Socket 'Droppa' alcuni
pacchetti ad esso destinato.
Posso suddividere l'applicativo in piů Thread? Se si come posso realizzare
ciň?
Claudio Lo Bianco
Cisco CCNA - Certified
WIND Telecomunicazioni S.p.A.
RO&M - C.O.T. Centro - Data Network
Via Tuscolana 1091 - Roma
* : 
+39 06 8311 5766
 - 5767
* : 0329 6266726
* : 
clob...@wind.it
----------------------------------------------------------------------------
----
Visitateci e acquistate in rete su 
http://www.wind.it
----------------------------------------------------------------------------
----
Sto scrivendo un applicativo che, in ascolto sulla porta 514 di UDP
(servizio syslog), vada a scrivere su un database Access le trap inviate da
Router Cisco (e non solo...).
Il mio problema č che, gestendo una rete con piů di 300 router, ricevo delle
trap di continuo: sicchč, mentre l'applicativo si sta occupando di
interpretare i dati e di inserirli nel DB, il Socket 'Droppa' alcuni
pacchetti ad esso destinato.
Posso suddividere l'applicativo in piů Thread? Se si come posso realizzare
ciň?
Claudio Lo Bianco
Cisco CCNA - Certified
WIND Telecomunicazioni S.p.A.
RO&M - C.O.T. Centro - Data Network
Via Tuscolana 1091 - Roma
( : 
+39 06 8311 5766
 - 5767
Č : 0329 6266726
* : 
clob...@wind.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Array bi-dimensionali.

E' possibile in VB realizzare array bi-dimensionali?
Se si, come?
Grazie a chiunque risponda!!
Ciao Ciao
-- 
Posted from 
beta.dmz-eu.st.com
 [164.129.1.35] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Se si, come?
consiglio la pressione urgente del tasto F1 sulla parola Dim
Ciao
P.S. Dim dati(100, 100) o altra dimensione
--
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

Puoi crearne fino a 60 Dimensioni.....(ma a che cazz..serviranno tutte ste dimensioni!?!?) cmq..consiglio anche io F1 msu Dim :-))
Ciao simo
--
__________________
www.sasim.cjb.net


 ha scritto nel messaggio
news:002e01c0f7e2$3beb7490$d86782a4@wsloader...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerca SQL

Salve, ragazzi sto uscendo pazzo: devo fare tramite VB6 una ricerca con l'
SQL di una DataFesta, ho scritto: select ' " & Form1.txtDataFesta & " ' from
clienti; ma mi da un errore: Gli argomenti non sono di tipi valido, non sono
compresi nell'intervallo consentito o sono in conflitto.
Questo è il codice per il Comman Ricerca:
Private Sub CmdRicerca_Click()
    SQL = InputBox("Inserire la data della festa da ricercare", "R I C E R C
A")
    If SQL = Empty Then
        MsgBox "Opezazione Annullata o Ricerca Vuota!", vbInformation +
vbOKOnly, "A V V I S O"
        Exit Sub
    End If
    SQL = "select ' " & Form1.txtDataFesta & " ' from clienti"
    If MsgBox("Inizio da qui la ricerca?", vbQuestion + vbYesNo, "D O M A N
D A") = vbYes Then
        RsArchivio.MoveNext
        RsArchivio.Find ("DataFesta='" & SQL & "'")
    Else
        RsArchivio.MoveFirst
        RsArchivio.Find ("DataFesta='" & SQL & "'")
    End If
    If RsArchivio.EOF Then
        MsgBox "Attenzione! Fine Archivio...", vbInformation + vbOKOnly, "A
V V I S O"
        RsArchivio.MoveFirst
    End If
End Sub

 ha scritto nel messaggio
news:eQA39.189294$vm5.6...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno sa come aprire i file UDL?

Sto utilizzando una connessione SQL, per creare la stringa di
connessione esiste il DataLink.
ex:
Creo un file vuoto Data.udl cliccando su di esso si apre una finestra 
"Proprietą DataLink" e da questa si impostano tutti i settaggi di
connessione, alla fine si avrą un file di testo contenente la
connection string, bene come si fa a lanciare questo file da vb?
devo fare il reference a oledb32.dll o esiste qualche altro sistema?

MMM
Ho risolto da solo cmq per chi fosse interessato a questo andate qua
http://www.vbcode.com/asp/showzip.asp?ZipFile=http%3A%2F%2Fwww%2Evbcode%2Ecom%2Fcode%2FUdl%2Ezip&theID=2030
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per scrollbar

Ciao a tutti,vorrei sapere come mai nelle scrollbar,se clicco le frecce per
spostare la scrollbar il pulsante nel mezzo non si muove?
Come si fa a farlo spostare normalmente come succede in tutte le Scrollbar
quando clicchi sulle frecce?
Grazie Mille e a presto
Fabrizio

Devi catturare l'evento di click e modificare il valore di value.
Ciao.

 come succede in tutte le Scrollbar quando clicchi sulle frecce?
lo fa da solo.
Secondo me tu hai piazzato una scrollbar di prova su un form, ed hai
cominciato a cliccare sulle freccette.
Devi stare un quartodorella a cliccare per farla spostare, visto che di
default il range è 0-32767 e ogni clic incrementa di 1 (default per
SmallChange). Se nell'evento change testi la proprietà .Value ti accorgi che
funziona tutto normalmente. Se poi cambi le proprietà Min, Max, SmallChange
e LargeChange l'effetto lo vedi chiaramente.
Ciao, Silv:o)

Newsgroup: it.comp.lang.visual-basic
Titolo: intestazione di un file XML

Buon giorno a tutti,
sto combattendo un po' con i file XML e devo dire che qualche cosa sta
uscendo fuori.
Ecco subito la questione.
Creo un documento XML istanziando un oggetto di tipo MSXML2.DOMDocument26
tramite vb6; inserisco tutti i nodi e gli elementi che mi servono e salvo
il testo. Fin qui tutto ok.
Mi servirebbe anche di aggiungere, come prima riga, la specifica XML
utilizzata, e cioe' la riga
<?xml version = "1.0" encoding="UTF-8"?>
come si fa?
 p.s.
dopo qiesto, prometto che non rompo piu' le scatole per almeno 12 ore con
l'XML :-)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 come si fa?
Il modo più semplice è:
XmlObj.Xml = <?xml version = "1.0" encoding="UTF-8"?> & vbNewLine &
XmlObj.Xml
Bye,
Daniele.

 XmlObj.Xml
...
la poprieta' xml del documento mi risulta di sola lettura.


 la poprieta' xml del documento mi risulta di sola lettura.
Si, scusa:
Dim sXML as String
sXML = XmlObj.Xml
sXML = <?xml version = "1.0" encoding="UTF-8"?> & vbNewLine & sXML
XmlObj.LoadXML sXML
Ciao.
Daniele.

l'XML :-)
Ma tu gli elementi come li inserisci?
Se ti appoggi al DOM, puoi fare cosě:
Dim oPI As Object
Set oPI = oXMLDoc.createProcessingInstruction( _
	"xml", "version='1.0'  encoding='UTF-8'")
oXMLDoc.appendChild oPI
'..... e poi inserisci tutti i tuoi elementi / nodi
Ciao

 Dim oPI As Object
[...]
...
non pensare male,ma..... SMACK :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo di BitBlt o PaintPicture in particolari condizioni

Vorrei spostare il contenuto di una immagine, ad esempio, di 100 pixel a 
sinistra ed  i 100 pixel di destra devono andare a finire a destra. Per 
maggiore chiarezza provo a rappresentrare la cosa in questo modo, supponendo 
(è solo un esempio) che l'immagine sia larga 9 pixel
Prima   123456789
Dopo   456789123
Lo spostamento in questo caso è stato di 3 pixel.
Ho provato sia con BitBlt che con la funzione nativa PainPicture, 
utilizzando due PictureBox e la cosa funziona ma bisogna assolutamente che 
l'immagine sia totalmente visibile. Se essa è nasconta da una altro 
controllo, oppure fuori dello schermo oppure parzialmente visibile si ottine 
un'immagine parzialmente bianca.
Insomma:  BitBlt e PaintPicture sembrano funzionare solo se la porzione di 
immagine da trasferire è visibile.
Come ovviare a questo inconveniente ?
Dimenticavo. Dovrei poi registrare su un file il risultato finale e
SavePicture Picture2.Image, NomeFile
produce un'immagine tutta vuota.
Grazie per l'attenzione.
AlpVir

"AlpVir" ha scritto nel messaggio

Ci ho smanettato tempo fa... vado a memoria, e senza vedere
il tuo codice, ma per entrambi i problemi dovrebbe bastare che
le picturebox abbiano la .AutoRedraw attiva.
Eventualmente ci vorrà un .Refresh dopo la .PaintPicture.
Se non dovesse funzionare ancora posta il codice, anche se
probabilmente c'è da mettere da qualche parte un
PictureBox.Image=PictureBox.Picture. O forse è al contrario :-).
Bye, G. 


Ho risolto il problema che dipendeva da una errata successione delle 
istruzioni ScaleMode.
Posto qui lo spezzone di codice perfettamente funzionante che consente di 
spostare il contenuto di una immagine la quale raffigura un panorama a 360 
gradi; questo tipo di immagine richiede una particolare procedura nello 
spostamento.
Grazie comunque dell'interessamento.
AlpVir
   Me.ScaleMode = vbPixels
   PicPanorama.Picture = LoadPicture(NomeFilePanorama)
   PicPanorama.ScaleMode = vbPixels
   PicSposta.ScaleMode = vbPixels
   With PicPanorama
      .AutoSize = True
      .AutoRedraw = True
   End With
   Altezza = PicPanorama.Height
   Larghezza = PicPanorama.Width
   With PicSposta
     .Width = Larghezza
     .Height = Altezza
     .AutoRedraw = True
   End With
   HOrig = PicPanorama.hDC
   HDest = PicSposta.hDC
   '
   With PicSposta
      .Width = PicPanorama.Width
      .Height = PicPanorama.Height
   End With
   '--- prima parte
   Orig = SpostaPixel
   Dest = 0
   Larg = Larghezza - SpostaPixel + 1
   Result = BitBlt(HDest, Dest, 0, Larg, Altezza, HOrig, Orig, 0, SRCCOPY)
   '--- seconda parte
   Orig = 0
   Dest = Larghezza - SpostaPixel
   Larg = SpostaPixel
   Result = BitBlt(HDest, Dest, 0, Larg, Altezza, HOrig, Orig, 0, SRCCOPY)
   SavePicture PicSposta.Image, App.Path + "\PicSposta.jpg"
Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Connessione ad un database remoto

Ho bisogno di connettermi ad un database remoto posto su un server NT
connesso a Internet.
Qualcuno sa se è possibile e, in caso affermativo, come posso fare?
Sarei grato di ottenere una risposta (magari un semplice "Non si può"
o "Non ho idea") almeno per dormire sonni tranquilli... :-))
Grazie,
Moreno Sirri
si...@tin.it

Moreno,
Guardati tutto su RDS (remote data services) dul sito M$
Troverai cio' che cerchi. su 
http://www.eu.microsoft.com/data/ado/
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

On Thu, 05 Nov 1998 11:43:28 GMT, 
si...@tin.it
 (Moreno Sirri) wrote:
porva,
 scusate
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: DLL in C++ con VB5.

Vorrei sapere se è possibile e, soprattutto, come fare per utilizzare
una libreria DLL scritta in C++ (in particolare il Borland C++ 5.02)
all'interno di un programma scritto in Visual BASIC 5.0
Grazie a tutti coloro che potranno darmi una mano.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Creare una tabella

Da poche settimane utilizzo VisualBasic e vorrei realizzare una tabella con
la possibilità di cliccare la casella ed aprire una finestra di dialogo , un
faxsimile di agenda con la possibilità di scorrere le varie date ( le
colonne ) ed ogni riga possa indicare l'ora . il tutto memorizzabile
ringrazio anticipatamente chiunque possa aiutarmi

...

La cosa migliore è che ti appoggi ad un database (magari Access)
Per realizare queste applicazioni, anche minime, si parte sempre dalla
definizione della struttura dati (chiamale tabelle) che ci serve a
memorizzare i dati...
A quanto ho capito vuoi correlare una descrizione ("Compleanno di...",
"Appuntamento con...") ad un orario e ad una data.
I campi della tabella potrebbero essere questi (considerando che 2
descrizioni con stessa data e ora sono la stessa cosa):
-Data (chiave)
-Ora (chiave)
-Oggetto
Se hai già qualche nozione di database non ti dovrebbe essere difficile....
A questo punto poi devi popolare una griglia in VB (tipo il controllo
DataGrid) interrogando il database e mettendo gli OGGETTI nelle giuste righe
e colonne a seconda di DATA e ORA.
scusa per la fretta e ....in bocca al lupo!!!
P.S. Secondo me Access risolve questi problemini in un batter d'occhio. Si
lo so! è Access...

 ringrazio anticipatamente chiunque possa aiutarmi
Hai gia` fatto esperimenti con i progetti degli esempi?
Dovresti trovare tutto quello che ti serve gia` praticamente
pronto all'uso.
Tieni conto che e` un po' difficile rispondere in poche righe
ad una domanda come la tua. Perche' non ci informi, man mano
che hai problemi o sei incerto sulle soluzioni da adottare?
Come sono le tue conoscenze riguardo ai database?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con printer.print (urgente)

Qualcuno sa dirmi perchè nella stampa con l'oggetto printer, avendo settato
tipo e dimensione carattere, dopo qualche copia viene utilizzato un
carattere diverso da quello voluto?
Grazie.

 wrote in message
news:8esadv$2kh$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come formattare una caption con 2 decimali ??

Ciao a tutti, avrei la necessita' di formattare una caption con 2
decimali.
Questa caption mi serve per un cronometro.
Per cui deve partire da 00.00 e andate avanti di 1 centesimo alla
volta. Non riesco pero' a formattarla in modo tale da tenere i 2
decimali dopo la virgola.
in parica vorrei fare una cosa del genere.
label1.caption= 00.00
nel timer 
label1.caption=label1.caption + 0.1
... ma non ci riesco.
Ho provato anche a cambiare il formato della caption, mettendo il
formato ora, ma niente da fare.... ogni suggerimento e' ben gradito.
Ciao e buon lavoro a tutti.
Fabio

label1.Caption = Format(valore, "00.00")

devi usare l'istruzione format
        esempio........
    valore = valore+ (1+(1/valore+1))
label1.caption= format(valore,"0.00")
ciao Davide

Newsgroup: it.comp.lang.visual-basic
Titolo: Personalizzare Report

Salve a tutti
Sto facendo alcune prove con il datareport di visual basic, ma non riesco a
capire come si personalizza la dimensione della visualizzazione del report.
Vi faccio un esempio: devo visualizzare una tabella che ha dimesioni ridotte
rispetto al formato A4, come fare?
Grazie
Fabio

 ha scritto nel messaggio
news:QSpP7.1171$Sq4....@news1.tin.it...


 ha scritto nel messaggio
news:JotP7.1809$ob5....@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: DDE in dll??

Ciao a tutti,
chi si occupa di DDE, sa che per effettuare una connessione occorrono
elementi come "applicazione", "argomento" ed "elemento". In casi di
comunicazione "normale" tra due applicazioni, sono riuscito senza problemi
ad avere scambio di dati; il problema è sorto quando ho dovuto inserire una
delle due procedure di comunicazione DDE dentro una libreria ActiveX DLL.
Purtoppo non posso farne a meno, infatti la libreria costituisce una sorta
di plug-in che andrò ad aggiungere ad una applicazione non scritta in VB ma
in Delphi. Tale applicazione può accedere regolarmente entro certe Sub della
dll, e quindi vorrei che in una di queste sub potrei instaurare una
comunicazione DDE con altre applicazioni esterne che creerò in base alle mie
esigenze.
Il problema è che non sono riuscito ad assegnare l'elemento "applicazione"
con successo, ed infatti non appena lancio l'applicazione client che vuole
accedere in DDE alla mia dll, si verifica l'errore per non aver trovato
applicazioni che consentono il DDE. Come posso risolvere il problema??
Vi ringrazio anticipatamente.
Ciao
Salvo
PS: Utilizzo VB6


Vi ringrazio anticipatamente.
Ciao
Salvo
PS: Utilizzo VB6
-- 
Posted from 
mail-7.tiscalinet.it
 [195.130.225.153] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
96dr4a$css$1...@pegasus.tiscalinet.it...

Bella domanda.
Normalmente l'argomento "Applicazione" è il nome del programma senza il .exe
Ma vai te a sapere un ActiveX DLL che fa.. .
Prova ad usare il nome del file che la usa, e se non va, il nome del file
activex dll, e se non va, prova a far stampare da qualche parte la proprietà
app.Exename dell'activex dll, dovrebbe essere quello il nome da usare, e fai
delle prove anche con quel nome.
Buona Fortuna :-P
Ciao
Ettore Maronese
il Mes
http://www.maronese.com/mes

Come posso risolvere il problema??
richiedi che il programma client della tua DLL si identifichi al posto 
suo. E' un classico, come quando chiedi ad una DLL di creare una 
finestra devi passarle il tuo hInstance (le DLL non ne hano uno)
-- 
January 15, 2028 - Intel announces their new 400THz processor, which 
performs 100 billion floating-point operations in the millisecond before 
it consumes itself in a nuclear explosion. This is a step up from AMD's 
recent processor which simply fries any nearby user with bolts of plasma 
energy. Hobbyists are already looking into ways to overclock the chip.

 Buona Fortuna :-P
Grazie!!!
Ciao
Salvo
Newsgroup: it.comp.lang.visual-basic
Titolo: ma come devo fare

da due tabelle access devo eliminare i dati non corrispondenti.
ho realizzato una query che individua i record da eliminare
la cui visualizzazione sql è la seguente
SELECT tabulato_at.divis, tabulato_at.[Numero Telefono], 
tabulato_at.co
,
tabulato_at.[Ragione Sociale], tabulato_at.[Data Emissione],
tabulato_at.[tipo lav], tabulato_at.[tipo isdn], tabulato_at.consimpr,
tabulato_at.restimpr, tabulato_at.perssoc, tabulato_at.note,
tabulato_at.riepilogo
FROM tabulato_at LEFT JOIN tab_radis ON 
tabulato_at.co
 = 
tab_radis.co
WHERE (((
tab_radis.co
) Is Null));
per eliminare i dati selezionati   dalla tabella principale
sono costretto a relazionare la tabella principale con quella che ottengo
con la selezione di cui sopra
realizzando una query di eliminazione.
le tabelle originali sono costruite importando dei fogli ecxel.
la mia esigenza è quella che terminato l'aggiornamento il Database ripeta
l'intera operazione con altre due tabelle da importare.
Essendoci una relazione in essere,al momento della nuova
importazione,sebbene i campi siano gli stessi,l'operazione è inibita dalla
violazione di chiave.
Devo evitare che i miei colleghi,più imbranati di me,debbano eseguire
operazioni sulla struttura,quindi l'intero processo deve essere generato da
una macro o una function() associata ad un pulsante.
Come posso realizzare  e togliere in corso la relazione referenziale con
codice o istruzioni sql?
grazie

Non so se ho capito bene ....
Innanzi tutto elimina tute le relazioni referenziali che hai creato nel
database.
A quanto ho capito, per eliminare gli elementi non corrispondenti delle
tabelle, prima crei una query di selezione per selezionare tutti gli
elementi da cancellare, quindi crei un'altra query (di eliminazione) che ha
come tabelle sorgenti, la tabella da cui cancellare gli elementi e la query
creata in precedenza.
Se così sono le cose potresti raggruppare le operazioni con un'unica
operazione di eliminazione nel seguente modo :
DELETE tab_radis.*
FROM tabulato_at LEFT JOIN tab_radis ON 
tabulato_at.co
 = 
tab_radis.co
WHERE (((
tab_radis.co
) Is Null));
Quindi esporti le tue tabelle in Excel (giusto ?)
Quindi cancelli le due tabelle esportate con una query di eliminazione
DELETE <Nome tab>.*
FROM <Nomme tab>;
Importi le 2 tabelle da excel e riesegui le operazioni.
Se invece ti serve il codice per importare i dati da tabelle excel (usando
Access), mi cogli in castagna.
Spero di aver centrato il problema
        Davide

Newsgroup: it.comp.lang.visual-basic
Titolo: [LOOP] Listbox di tipo checkbox

Allora,
Ho una listbox di tipo checkbox
quelle con i quadratini spuntabili per ogni item selezionabile
Come faccio a fare un loop tipo
for i = 0 to (Massimo numero di item nella listbox)
    if Item(i)  è checkato (Value = true ) THEN faiqualcosa
next  ' vai al prossimo item
E poi, coe faccio a selezionare , deselezionare i checkboxes a runtime ?

 E poi, coe faccio a selezionare , deselezionare i checkboxes a runtime ?
    List1.Selected(n) = 1    'oppure 0
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Librerie Sheridan

Ho sentito parlare molto di queste librerie;
Mi sapete dire cosa fanno realmente ed, eventualmente, dove reperirne una
versione demo per valutarle?


L'azienda Sheridan ha cambiato nome ed è diventata Infragistics: vai sul
sito 
http://www.infragistics.com/

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic Uninstall

Hi,
I'd like to remove VB4.0 (16 bit version) from my PC so that I can
reinstall on another drive. Trouble is I can't find any way to uninstall
it.
Am I missing something here?
Thanks,
Neil.

...

Easy!!!
If you run again VB installation from the CD, you will see the option to
remove it.
Bye, Arianna

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

Ho visto che esiste un controllo che simula il browser in vb abbastanza
efficiente (il Webbrowser). Il problema nell'uso di tale controllo è che
oltre che indirizzarlo a url specifici tramite il navigate, dovrei anche
leggere l'HTML che si è scaricato per poter fare il parsing di una
sezione.. come posso fare?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sezione.. come posso fare?
Usa il controllo Internet Transfer Control 6.0 che trovi nella lista dei
componenti
Il controllo che ti verrà fuori si chiamerà Inet1
aggiungi una label al tuo progetto e un command
poi nell command_click inserisci
label1.caption=Inet1.OpenURL(
http://www.yahoo.it
)          'Esempio
ora nella tua label dovrebbe apparirti il codice HTML della suddetta pagina
YAHOO
Ciao
Fabio


 Il controllo che ti verrà fuori si chiamerà Inet1
Grazie, ho controllato il tutto e effettivamente ora scarica la pagina
in html ... il problema però è un altro; dovendo gestire dei cookies,
usando il webbrowser non avevo problemi di sorta (li gestiva in
automatico); con questo controllo invece pare ignorarli.. è possibile o
sbaglio qualcosa? Grazie
-- 


 sbaglio qualcosa? Grazie
Ehm...Sorry ma nn so risponderti a questa :(((((((
Ciao
Fabio


Prova con questo
Dim doc As Object
Dim HTML As Object
Dim strHTML As String
    Set doc = WebBrowser1.Document
      'tanto per essere sicuri di non aver aperto x es. una immagine
    If TypeName(doc) = "HTMLDocument" Then
      strHTML = doc.body.innerText 'il testo della pagina
    'oppure
      strHTML = doc.body.innerHTML 'l'HTML del <BODY>
    'oppure
      HTML = doc.getElementsByTagName("HTML")
      strHTML = HTML.innerHTML 'tutto l'HTML della pagina
    End If
Ciao
--------------------------------------------------------------------------
questa è la mail corretta 
alec...@tin.it
mi scuso per i precedenti post, correggero'
anche l'altro PC
Ciano
Newsgroup: it.comp.lang.visual-basic
Titolo: Embedded visual basic 3 errore!

Ho installato l'ambiente "embedded visual tools" che comprende embedded
visual basic e c++ 3.0, inoltre ho installato il pocketpc2002 SDK.
In embedded visual basic 3.0 quando avvio la creazione di una applicazione
per Pocket pc 2002 mi compare all'astante una message box di errore che
dice: "object library not registered".
Non so essere più preciso, anche perché non compare nient'altro...
Avete un'idea di cosa può essere?
Grazie!

 visual basic e c++ 3.0, inoltre ho installato il pocketpc2002 SDK.
Lavori con Windows 2000?
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 Lavori con Windows 2000?
Win XP, mi ero dimenticato di specificarlo.
Comunque ho risolto reinstallando i Visual Tools dall'inizio.

 Comunque ho risolto reinstallando i Visual Tools dall'inizio.
Mi dici cosa hai installato e x quali palm intendi sviluppare
sw? Ci sto facendo un pensierino di provare qualcosa...


Newsgroup: it.comp.lang.visual-basic
Titolo: ?compatibilita' VB6 Win 2000

Ho un' applicazione sviluppata e compilata con VB6 che funziona
correttamente su win 95/98.
Adesso avrei la necessità di installarla su una macchina cob Win 2000,
esistono controindicazioni o posso procedere tranquillamente?
Grazie a coloro che avranno tempo e pazienza da dedicarmi
Un saluto cordiale
Paolo Testi

Secondo me l'unica cosa che puoi fare è creare il Kit di installazione su
una macchina con Windows 2000... allora sarai quasi sicuro che questo
funzionerà!
Però mai porre limiti alla potenza di Windows >:-((((
--------------------------------
Inviato via 
http://usenet.iol.it
 

nessun problema da parte mia con
applicazioni in VB6 e tre tipi di setup kit
(2 di microsoft e uno SetupFactory)
su OS Win95
98
98Se
NT4
NTWS
ME
2000PRO
2000SVR
Gli unici problemi che ho avuto dipendevano
dal setup kit e precisamente nella registrazione della DAO350.dll.
Ciao.
M. Garcia


Newsgroup: it.comp.lang.visual-basic
Titolo: input box

All'interno di una subroutine VB ho un InputBox, e voglio che cliccando su
"ANNULLA" si possa uscire dalla sub, cioe' saltare fino alla linea "End
Sub".
Come posso fare?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Come posso fare?
Exit SUB!
MIk

 Come posso fare?
Testa il valore restituito: Se ="" i casi sono due: O l'operatore ha
volontariamente lasciato vuoto il campo e premuto OK o ha cliccato su
Annulla


Forse ti conviene chiudere uscire dalla Sub utilizzando Exit Sub.
If InputBox(...) = "" Then Exit Sub
Ciao
Skysurfer

Scusate la mia ignoranza!!
Grazie a tutti e tre
Mike

Newsgroup: it.comp.lang.visual-basic
Titolo: vb e registratori di cassa

Salve a tutti, un cliente mi ha chiesto se è possibile creare
un gestionale che stampa un fattura  e poi manda
i dati a un  registratore di cassa.
Qualcuno sa dirmi se è possibile inviare i dati ad un registratore di cassa,
e se è possibile farlo in vb?
Grazie

Dipende dal registratore di cassa se ha la possibilista di ricevere un
input, direi di si comunque, il collegamento dei lettori a codice a barre
dovrebbe essere qualcosa del genere, dovresti guardare qualche
registratore e vedere se supporta l'interfacciamento esterno. in genere
comunicano con porte parallele o seriali.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie
prego
ciaociao

io posso dirti che la mia esperienza con i registratori di cassa č stata piu
semplice de previsto....forse sono stato solo fortunato, comuqnue quelli con
cui mi sono interfacciato erano tutto per tutto dei pc in rete (usavano dos
5 come os) e per interfacciarsi era sufficiente scaricare in una directory
condivisa sul reg di cassa un determinato file e automaticamente veniva
caricato nel registratore.
per altri non so dirti, mi dispiace.
Devi proprio vedere i datasheet per il tuo modello
Teo

e se č possibile farlo in vb?
Dipende da marca e modello.
Possono esserci POS che utilizzano un modello Client/Server, dove
basta mettere un file formattato in un determinato modo in una
directory e lanciare uno degli applicativi (o batch) forniti con il
sistema.
I registratori piů "stupidi" si comandano tramite seriale lanciando
opportuni comandi.
Modelli evoluti:
NCR 7453, 2127....
IBM FTS
MWCR-SWEDA BrainPOS
Modelli "stupidi":
NCR 2190, 2140....
IBM entry level e altri cloni di macchine SWEDA
Ciauz!!!!
Aran Banjo
-
C'č da chiedere cosa togliere nell'indirizzo ;)
Replay to: *[[banjo]]spamdim..@**
abilene.it
**
Newsgroup: it.comp.lang.visual-basic
Titolo: Password su Database Access

 Devo distribuire su CD un software che ho fatto in VB che gestisce dei dati
archiviati in un database Access.
Essendo i dati non dico TOP SECRET ma comunque abbastanza importanti per
essere manipolati con facilita' da chiunque avrei la necessita' di inserire
una password d'accesso al Database in modo che sia accessibile (nei limiti
del possibile) solo al mio programma.
Sarei grato a chiunque mi potesse dare qualsiasi informazione in merito.
Grazie Ettore
--
EvilB...@NOSPAM.Hotmail.com
Per rispondermi togli NOSPAM dall'indirizzo.

...


E' un argomento che mi interessa particolarmente, sarei grado di
ottenere maggiori e più dettagliate informazioni.
La mia esperienza in merito è la seguente:
DALLA DOCUMENTAZIONE (VB4pro) - Visual Basic non consente di creare
database protetti in quanto non è possibile creare il file SYSTEM.MDW
necessario, è necessario modificare un database protetto di Microsoft
Access.
Se è stato specificato un file SYSTEM.MDW per attivare la protezione per
un database in formato Microsoft Access, prima di aprire tale database è
necessario impostare le proprietà DefaultUser e DefaultPassword
dell'oggetto DBEngine.
QUINDI - dopo aver recuperato il file NON PRESENTE IN VB (grave
mancanza!!!) ed attuato le necessarie istruzioni, il tutto funziona...
ma se con un altro programma punto all'archivio Pippo.mdb la protezione
pswrd va a farsi friggere. Credo (non sono un esperto) che non sia
attivabile una protezione a pswrd a livello di tabella (DAO 3.0).
----------------------------------------------------------------------------------------
E-Mail (nospam please):  
fsba...@usa.net
Personal Home Page (VB & mdB):
http://www.geocities.com/SiliconValley/Way/5013
----------------------------------------------------------------------------------------


Non puoi CRIPTARE e viceversa i dati in lettura e scrittura ??
Non è molto difficile ma forse può risolvere il tuo problema...
Se ti garba, fammelo sapere che ho un pezzettino di codice facile da
inserire!
Bye Bye


Io userei un database normale, così non hai problemi, e memorizzerei
alcuni campi testo (non indicizzati) in forma crittografata con un
qualche algoritmo, anche un semplice XOR.
In questo modo un curioso avrebbe problemi a recuperare i dati dei
record, mentre il tuo programma potrebbe de-crittografarli prima
dell'uso.
Questo non funziona con campi indicizzati perché altrimenti la tabella
verrebbe vista ordinata secondo i testi criptati e non quelli in
chiaro. Tutto sommato, però, una seek dovrebbe ancora funzionare
(basta provare).
In questo modo dovresti mantenere tutto nei limiti di una ragionevole
complicazione.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "NOSP" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "NOSP" from e-mail address to write me (spammers...)
--------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Guida

Qualcuno mi sa consigliare una guida per VB5? Qualcuno mi ha consigliato di
spenderlo un centone in libreria. io sono disposto a farlo, non inutilmente,
perņ!
Grazie 1 milione!
Apocalipse
-Combattere per la pace č come fottere per la verginitą-

-Combattere per la pace č come fottere per la verginitą-
LOL :D
-- 
ciao, hal
che la prima volta che ha letto il libro di Appleman ha dato delle testate nel muro ;-)


Ciao
Apocalipse
-Combattere per la pace è come fottere per la verginità-

Se mi dici cosa vuol dire LOL mi fai un favore
Laugh(ing) Out Loud
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: ? tipo non corrispondente

Ho un file mdb con una tabella "bolle" contenente un campo ("legame")
impostato come numerico intero lungo
 devo leggere il valore inserito in quel campo
 Dim Chiave
 Chiave = adoPrimaryRS1("legame")
ed eseguire una ricerca su un file gemello
adoPrimaryRS2.Open " Select *  From bolle where legame = " + Chiave + "  ",
db2, adOpenStatic, adLockBatchOptimistic
a questo punto mi da un messaggio di errore " tipo non corrispondente"
Forse sto facendo una domanda banale ma io non riesco a venirne a capo
Grazie a coloro che avranno tempo e pazienza da dedicarmi
Un saluto
Paolo Testi

  Dim Chiave
prova con Dim Chiave as long
Ciao, Giorgio.

 Ciao, Giorgio.
Niente mi da lo stesso messaggio di errore
Grazie
Paolo

 Paolo
Non per mettere in dubbio la tua parola, ma a questo punto sei sicuro che
nella tabella a cui si riferisce questa query: " Select *  From bolle where
legame = " + Chiave + "  ", il campo legame sia proprio intero lungo?

 legame = " + Chiave + "  ", il campo legame sia proprio intero lungo?
Si intero lungo
Quello che son riuscito  a fare è farla diventare stringa ed eseguire la
select come sotto
adoPrimaryRS9.Open " Select *  From bolle where legame = '%" + Chiave + "%'
", db9, adOpenStatic, adLockBatchOptimistic
così funziona, potrebbe essere una alternativa ma non certo la soluzione
Forse esiste un'altro modo per inserire la variabile CHIAVE ?
adoPrimaryRS2.Open " Select *  From bolle where legame = " + Chiave + "
",db2, adOpenStatic, adLockBatchOptimistic
Grazie paolo

 ", db9, adOpenStatic, adLockBatchOptimistic
Ecco cosi', se come sostieni tu il campo legame č definito come intero
lungo, ti dovrebbe dare un errore "Tipo di dati non corrispondenti" e quindi
NON dovrebbe funzionare!!!
Io piu' che dirti di controllare bene il tipo di campo nella tabella bolle
sulla quale fai la selezione non so dirti... lascio la parola a chi ha piů
esperienza di me...
Mi spiace di non poterti essere ulteriormente di aiuto.
Ciao, Giorgio.

 Ciao, Giorgio.
Grazie mille per la tua disponibilità
Ciao Paolo

 db2, adOpenStatic, adLockBatchOptimistic
Ma Chiave non era un Lungo?
E tu concateni una stringa con un long?
Meglio:
adoPrimaryRS2.Open " Select *  From bolle where legame = " & cstr(Chiave),
db2, adOpenStatic, adLockBatchOptimistic
Se non va neanche così allora c'è qualche altro problema.
Ciao
Alberto

 ha scritto nel messaggio
news:axnD9.8349$3l.2...@twister1.libero.it...
 >Non so se il tuo errore derivi da questo, ma sicuramente il tuo modo di
 >programmare è talmente impreciso che da qualche parte qualche problema può
 >nascere in maniera 'occulta':
Si hai ragione sono un autodidatta che fa programmini per uso personale
grazie per la spiegazione che mi hai dato
la select come da te impostata funziona
grazie ancora
Ciao, paolo
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa A3 orizzontale

Buongiorno!
Tempo fa avevo chiesto informazioni per la stampa di un report in formato A3
orizzontale con Datareport.
Ho fatto quanto segue:
a) ho inserito nelle proprietà del report le dimensioni relative al formato
A3 orizzontale (width e height);
b) da programma, prima del report.show,  ho inserito l'istruzione
Printer.PaperSize = vbPRPSA3 e
Printer.Orientation = vbPRORLandscape;
 Eseguo il report e mi compare il messaggio "La larghezza del report è
maggiore della larghezza del foglio"
 N.B. Ho provato a forzare, in gestione stampanti, il documento A3
orizzontale e tutto funziona! Questa scelta ovviamente è una seccatura
perchè devo egni volta settare la stampante.
Avete qualche consiglio da darmi? Vi ringrazio anticipatamente!
Claudio

 ha scritto nel messaggio
news:8sebp0$167$1...@nslave3.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Variabili numeriche

Salve a tutto il NG
Ho un piccolo problema da sottoporvi
In alcune routine devo controllare i valori massimi e minimi di matrici.
Dato che queste matrici possono essere o Double o Long o Integer, inserisco
una routine per ogni tipo di matrice.
C'è la possibilità di richiamare o una funzione o un metodo per passare ad
una sub qualunque variabile (o Double o Long o Integer ma numerica) in modo
che possa fare ciò con un'unica routine?
Grazie a tutti
Sergio

 ha scritto nel messaggio
news:9884sq$n3s$1...@hermes.unipg.it...

Dichiari i parametri della routine come variant, anzi non li dichiari per
niente:
function Massimo(num1, num2)
dim ret
    if num1>num2 then
        ret=num1
    else
        ret=num2
    end if
    Massimo = ret
end function
i parametri che puoi passare sono di qualsiasi tipo, la formattazione
all'uscita dipende dalla destinazione. Occhio agli Overflow!

Newsgroup: it.comp.lang.visual-basic
Titolo: cambio lpt1 in lpt2

Ho bisogno di stampare con due stampanti differenti che si trovano una
sulla porta lpt1 e d una sulla porta lpt2.
Non riesco a selezionare la porta lpt2 e lanciando la stampa mi va sempre
sulla porta lpt1.
Qualcuno ha idea di come si faccia? L'esempio sulla guida in linea non mi
funziona.
Grazie per l'aiuto.
Claudio
--
Automatic posted from 
mail.tin.it
 [194.243.154.49]
via Mailgate Server - 
http://www.mailgate.org

 ...
Per quanto mi risulta funzionava solo cn VB 16 bit. Con VB a 32 non funziona piu'!?!?!?!?

Ciao Ettore, sto lavorando ad un progetto che utilizza una stampante e i
dati da stampare vengono inviati
utilizando questa sintassi.
Stiamo utilizzando VB5 a 32 bit: non si hanno problemi !
Ciao Marco
Ettore Maronese ha scritto nel messaggio <01bda854$7b4b65e0$64c0c0c0@mes>...

Newsgroup: it.comp.lang.visual-basic
Titolo: Excel

Salve a tutti
E' possibile, con l'oggetto EXCEL (Microsoft Excel 10.0 Object Library) in
vb, conoscere il numero di righe presenti in un foglio excel?
Grazie

 vb, conoscere il numero di righe presenti in un foglio excel?
    Si'. Serve altro?
    >:-]
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:ahbm7o$rj7no$1...@ID-52090.news.dfncis.de...


 Si!!! Il numero di colonne!!!
    Idem.


 ha scritto nel messaggio
news:ahdqc5$sbm82$1...@ID-52090.news.dfncis.de...


 Gentilissimo!
    E' vero, sono gentilissimo a rispondere a quesiti scritti in quel modo.
    Ed ora, se vuoi che la conversazione faccia qualche utile passo avanti,
dimostra anche tu di essere una persona gentile e, soprattutto, ragionevole:
leggi il manifesto di questo ng,
 
http://www.it-lang-vb.net/
in particolare riguardo a come si posta sul ng, e riformula il tuo quesito.


Newsgroup: it.comp.lang.visual-basic
Titolo: visualizzare grafici

salve, ho la necessita' di mostrare grafici excel in una applicazione vb6
in particolare ho delle matrici contenenti i valori  e i cui indici
mi rappresentano l'ascissa (che vorrei anche far corrispondere a delle
date contenute in un'altra matrice)
e volevo creare questi grafici da codice per
metterli in delle picture box o in altro
spero di essermi spiegato, ma soprattutto che si possa fare, visto che non
ho mai affrontato il problema e non so da che parte cominciare :)

 ha scritto nel messaggio
news:b98avg$jfc$1...@lacerta.tiscalinet.it...




Aggiungi nei reference la dll "Microsoft Excel 9.0" (io ho Office 2000)
nel codice avrai
Dim ExApp as Excel.Application
da qui puoi usare tutti i metodi e le proprietą di Excel
Ora vai su Excel e fai partire la registrazione della Macro
a questo punto genera dei dati e un grafico e poi stoppa la Macro
Vai a guardare sul VBA di Excel il codice che ti ha generato
copy/paste su VB e il gioco č fatto (dovrai aggiungere ExApp. a ogni
comando)
Per visualizzare puoi usare una picture (pero da Excel devi prima
esportare il grafico) o se no puoi usare l'oggetto WebBrowser e caricare
il foglio Excel
ciao
Fabio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 lo trovi tra i controlli di VB6
lo sto guardando, pare molto carino, grazie
ti rubo un minuto visto che tu lo conosci meglio di me
come faccio a settare il numero di serie (quelle che lui chiama
C1,C2,C3 e C4). Non ci ho guardato moltissimo, ma pare
non si possano aggiungere, solo nascondere ed io
necessito di visualizzare anche 10 serie
grazie

 ha scritto nel messaggio
news:b98cq4$knf$1...@lacerta.tiscalinet.it...

usa le proprietà ROWCOUNT and COLUMNCOUNT....

> usa le proprietą ROWCOUNT and COLUMNCOUNT....
 ci sto prendendo la mano, e' molto carino,grazie...
non riesco pero' a modificare le etichette sugli assi e nella legenda da
codice, riesco
solo il titolo. come lo raggiungo da codice?
Newsgroup: it.comp.lang.visual-basic
Titolo: Come cambio il colore della barra del titolo?

Come posso cambiare , attraverso VB, il colore della barra del titolo di una
mia applicazione (magari con una chiamata alle API di Windows)?
Grazie a chiunque mi sappia dare una risposta
...a buon rendere
Alex
casella di posta elettronica: 
Al...@hotmail.com

 ha scritto nel messaggio
news:8glu5a$2pd$1...@pluto.sm.dsi.unimi.it...


operativo.(Impostazioni - Pannello di controllo - Schermo: Aspetto)
Da qualche parte ho visto un esempio che, subclassando la form e portando una picturebox all'altezza
della barra del titolo, permetteva di crearne una personalizzata.... se lo trovo lo invio al SC
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

il sistema corretto consiste nel subclassare la form e colorare via codice la barra in corrispondenza
del messaggio di repaint relativo all'area non client (barra del titolo e 3 bottoni).
con questo sistema è possibile fare anche una barra sfumata come win 98 (e word 95 prima di M$) ed
aggiungere altri bottoni sulla barra


Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione cassa RCH G2000 in VB

Ciao a tutti.
Devo integrare in una applicazione VB il registratore di cassa della RCH
G2000.
Avrei la necessitą di:
- far passare all'applicazione PC il codice a barre dell'articolo letto
dallo scanner collegato alla cassa all'applicativo
- fare stampare da questo la riga con la descrizione ed il prezzo
dell'articolo
Al momento sono gią in grado di utilizzare la cassa come semplice stampante
fiscale.
Avreste qualche esempio o qualche info ?
Grazie.
Roby

 dell'articolo
perchè non colleghi il lettore di barcode al pc, gestisci via software gli
articoli letti e poi mandi in stampa lo scontrino ...
che ne dici?
CIAO


Eh ! Questo sono già in grado di farlo !
Però non piace ad un cliente in quanto non ha lo spazio fisico per mettere
il computer in cassa e comunque non intende fare utilizzare alle cassiere la
tastiera del computer invece di quella della cassa.
Roby

 tastiera del computer invece di quella della cassa.
ehh ... sti clienti ... ;-)
immagino che sul manuale del registratore di cassa non dica quasi un cavolo
vero ? come al solito ... ti tocca telefonare al distributore della tua zona
e chiedere a lui, oppure guarda su internet se trovi il sito della ditta che
produce la cassa ...
CIAO


vedi sul sito della rch ci dovrebbero essere delle dll che praticamente
possono far tutto o almeno questo è quello che mi diciva una volta un loro
installatore.
Newsgroup: it.comp.lang.visual-basic
Titolo: cerco programma

Esiste un programma in VB per disegnare spartiti musicali?
Grazie ciao.
Bek

 Esiste un programma in VB per disegnare spartiti musicali?
Se cerchi un programma per "disegnare" spartiti non credo ti possa
interessare piu' di tanto il linguaggio in cui e' stato scritto. O stai
cercando una cosa diversa, per esempio codice VB o OCX che permettano a te
di scriverne uno?
Se chiarirai questo punto sara' piu' probabile che tu possa ricevere
risposte utili.
--
Ciao.
Maurizio

Newsgroup: it.comp.lang.visual-basic
Titolo: convertire il tipo di una variabile.

salve,
sto creando un progetto in ASP con il vbscript...
ho la necessità di convertire una variabile da testo a numerica.. come posso
fare??
ho provato ad usare le funzioni, val e value, ma senza risultato, a quanto
sembra vbscript non consente la conversione da stringa a numerico e
viceversa....
aiutooo
ciao da Beppe
-- 
Posted from 
IDENT:ro...@sirio.aqp.it
 [151.17.229.194] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Vbscript utilizza il tipo Variant. Quindi devi usare le funzioni di
conversione di tipo.
Ad esempio Cint() per la conversione in intero, Clng() per il long e cosi
via.
Ciauz
Federico Campoli
http://asp.zip.to

 ma senza risultato, a quanto sembra vbscript non consente la conversione
da stringa a numerico e viceversa....
Deduzione azzardata, non ti pare? Perche` non provi a leggere almeno una
volta, dall'inizio alla fine, il documento scaricabile dal sito Microsoft,
anche in italiano, dove c'e` scritto tutto quello che di fondamentale c'e`
da sapere su VBScript? E` anche un ottimo minicorso di programmazione Visual
Basic.
Una versione (un po' vecchiotta, forse) la trovi anche sul Sito comune del
ng:
 
http://www.murialdo.it/it_lang_vb
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------



Newsgroup: it.comp.lang.visual-basic
Titolo: Come mai?

Ecco il mio volgare problema :
il mio progetto contiene
1 command Button
1 listbox
Nel command button ho inserito il seguente script:
______
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "\frutta.mdb")
Set rs = db.OpenRecordset("Select * from tabella1")
Do Until rs.EOF
   List1.AddItem rs!Title
   rs.MoveNext
Loop
_______
Come mai mi dà il seguente errore:
Compile error: sub or Function not defined.
e mi evidenzia "Private Sub Command1_Click().
So benissimo che è un errore da principiante, e vi chiedo scusa per aver
oltraggiato la vostra intelligenza: ma aiutatemi, mi farete felicissimo.
Grazie.

franc ha scritto nel messaggio ...

Guarda che probabilmente ti evidenzia "OpenDatabase" e non "Private Sub
Command1_Click()", che vedrai in giallo perchè è la posizione del cursore
(non è entrato nella sub perchè non riesce a compilarla).
Il problema è che ti mancano i riferimenti alla libreria delle funzioni del
motore Jet dei database access.
La trovi sotto Progetto->Referimenti-> Microsoft DAO 3.51 Object lib.
Come saprai (o dovresti sapere) i DB access97 vogliono la versione del jet
(DAO) >= 3.51.
Ciao

1) prova questo:
Set ws = workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\frutta.mdb")
Set rs = db.OpenRecordset("Select * from tabella1")
- App.Path potrebbe gia' contenere lo slash finale.
- non so se hai prima dichiarato le variabile aggiungendo i riferimenti al
progetto per DAO 2.5 e compatibili
Dim ws as Workspace
Dim db as Database
Dim rs as Recordset

 Do Until  NOT rs.EOF
Perche'? EOF (End Of File) e` True se il Recordset e` vuoto o
quando viene raggiunta la fine di un Recordset contenente
record. Quindi:
Do While Not rs.EOF
-oppure-
Do Until rs.EOF
--
Ciao.
Maurizio

Vi ringrazio,
non credevo di avere tanti tutors bravissimi.
Grazie