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

Qualcuno ha idea di come si possa creare un file PDF a partire da un
DataReport?
Con una stampante virtuale PDF non sarebbe un grosso problema, salvo il
solito discorso di come si stampa un datareport su stampante diversa da
quella di sistema, che credo nessuno sappia fare bene, visto che la mia
richiesta di qualche tempo fa è rimasta senza risposte.
La mia speranza è di trovare qualcosa che mi permetta di non dover creare
una stampante PDF sulla macchina target.
Ciao
Alberto

 ha scritto nel messaggio
news:abgl98$5af$1...@newsreader.mailgate.org...

Guarda se ne è parlato qualche giorno fa ... se non ricordo male volevano
inserire le istruzioni come tips nel sito comune non so come sia finita ...
la soluzione è quella di generare una sorta di file postscript da trattare
con un sw il quale restituiva un PDF.
Cerca sul sito comune :)
--
~~~ MrOnederfull ~~~
mroned...@hotmail.com
http://www.mronederfull.it
 (coming soon!)

 con un sw il quale restituiva un PDF.
Avevo seguito con interesse il thread, ma il problema sta nel fatto che il
Datareport stampa non su Printer, ma sulla stampante di sistema.
Per poter stampare su un software PDF, di cui dispongo, devo settare la
stampante di sistema sul driver PDF, stampare il datareport, attendere la
conclusione (č asincrono), e quindi rimettere la stampante di sistema come
in precedenza.
Tuttavia, se questa operazione dura piů di qualche secondo, tutte le altre
applicazioni attive sul sistema potrebbero andare a stampare su una
stampante sbagliata.
Se qualcuno ha altre idee...
Ciao
Alberto

 wrote in message
abgl98$5af$1...@newsreader.mailgate.org...


 avevo letto qualcosa in proposito su 
www.vbdiamond.com
Il link non va :-(((
Sei sicuro che sia scritto cosě?
Ciao
Alberto

 Cerca sul sito comune :)
mi sembrava proprio quello che alberto v voleva evitare. anche un file ps ->
pdf non risolve, su una stampante condivisa, il problema degli accessi.
improbabile, visto che quando si stampa su file i tempi calano un bel po',
ma non impossibile.
tutti i link a pdf & co. che sto trovando li metto cmq da me, links.
ciao, a.
--
www.sundaysw.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con MsFlexGrid

Qualcuno sa dirmi perche' la proprieta' CoIlsVisible, che dall'Help
viene definita come 'Returns or sets a value ', quando la uso mi ritorna
un errore di assegnamento ad una costante?
Bye by Massimo 8-]

 wrote in message 3987DC34...@txt.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Regole News Outlook

Che regola devo mettere se voglio che i miei post
vengano contrassegnati con gli occhialetti in Outlook?
Ho provato con Contrassegna il messaggio, ma non funziona.
Ciao
Giulio


Il gruppo giusto per questa domanda è it.comp.software.mailreader
La prossima volta controlla meglio prima di postare.
Comunque la regola è "segna il messaggio come controllato o ignorato"
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema di visualizzazione delle form.

Salve a tutti.
Se nel programma mi trovo ad avere una form aperta in modalità "modale",
esiste un modo per la form che ha lanciato questa seconda form di aprirne
un'altra in maniera non modale?
Quest'altra form sarebbe un piccolo messaggio che deve comparire per i fatti
suoi, a seguito di certi eventi esterni a prescindere dalle altre form
aperte.
Se però quando questa appare c'è una form modale aperta il programma crasha
e questo non è bello.
Grazie per i consigli.
Michele

un'altra in maniera non modale?
No.
-- 
ciao, hal

 ha scritto nel messaggio
news:a109hp$ng6ig$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Access e Outlook Express

Cari tutti
Non riesco per quanto mi sforzi ( e anche perche' č da poco che sto
studiando il Vba) a risolvere un problema....
Question(!!)
Utilizzo per il mio lavoro un database da me interamente progettato
utilizzando Access.
Quello che non riesco a fare e che mi piacerebbe realizzare(perche'
velocizzerebbe di molto il lavoro) č questo: nella maschera(oviamente
dipendente da una tabella) una delle caselle di testo dei record č una
casella che contiene un indirizzo email, ovviamente diverso per ogni record.
Bene,
attraverso la routine con evento su click nella casella di testo
interessata:
Call Shell("""C:\Programmi\Outlook Express\msimn.exe"" /mailurl:%1 ", 1)
ottengo che si apra in automatico Outlook Express e la finestra di nuovo
messaggio.
Mi chiedo: č possibile fare in modo che, sempre sul solito evento click,
possa avvenire che venga riportato nella finestra del destinatario (A:) in
modo automatico l'indirizzo email del record in quel momento visualizzato?
Attenzione: l'indirizzo emai č diverso per ogni record!!  quindi ci vorra'
un filtro che distingua il record il quel momento
aperto....stlinkcriteria...?
In teoria bisonerebbe poter estrarre l'indirizzo Email dalla casella
associata e "incollarlo" come destinatario della stessa
Per i collegamenti tra varie maschere,tabelle ,ecc, utilizzo il filtro
stlinkcriteria, ma in questo caso non funziona per niente.
So che mi sfugge qualcosa di importante che collega le due applicazioni...
Potete darmi una mano?????
Grazie mille
Eddie

 Call Shell("""C:\Programmi\Outlook Express\msimn.exe"" /mailurl:%1 ", 1)
supponendo che hai una stringa strMailAddress con l'indirizzo di posta, puoi
fare:
Call Shell("start mailto:" & strMailAddress, vbHide)
non dovrebbe essere difficile mettere in strMailAddress l'indirizzo EMail
del record corrente (non lo so perché non uso Access & VBA)
Ciao
Faber

 > dipendente da una tabella) una delle caselle di testo dei record è una


 vbHide?...non riesco a trovarlo nella guida in linea..
è il secondo parametro della funzione Shell, determina il modo di
visualizzazione del programma lanciato (ridotto a icona, massimizzato,
normale ecc...). vbHide significa che ciò che lanci è nascosto, invisibile.
tu dici: "ok, ma la finestra del nuovo messaggio è ben visibile!"; questo
perché noi non lanciamo direttamente OE, bensì start.exe (presente
normalmente in c:\windows\command). riprova mettendo vbNormalFocus al posto
di vbHide, vedrai apparire per un attimo una finestrella DOS: è start in
esecuzione!
per maggiori info a proposito dei parametri di Shell, puoi consultare l'help
in linea alla voce (appunto) "Shell"
Ciao ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettore SmartCard

Ciao a tutti. Sono a chiederVi informazioni relativamente ai lettori di
SmartCard (suppongo si chiamino così le SIM dei cellulari) : avete info a
proposito ? Ne avete già usato qualcuno ?
Sapete indirizzarmi verso qualcuno che li tratta/produce ? Avete idea dei
costi ?
Grazie x l'attenzione
--
Fabio GRANDE
fab...@NOSPAMfileita.it

 ha scritto nel messaggio
news:9h9mm0$sfh$1...@fe2.cs.interbusiness.it...


 ha scritto nel messaggio
news:9h9mm0$sfh$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Cosa sarebbe questo SP3?

/------------------/
\Gabriele Ponzo    \
/
gpo...@wnet.it
    /
\
www.wnet.it/gponzo\
/------------------/

...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET - Nomi maschere aperte

Salve a tutti
con il seguente codice , attivato da un menù maschera MDI , dovrei rilevare
le maschere child aperte:
   Dim f As Form1
        For Each f In Me.MdiChildren
            If f.Name = "Form1" Then
               'codice
            End If
        Next
non rileva il nome della form aperta .
Diversa situazione se f.Name viene sostituito con  f.Text
Il valore della proprietà Text viene restituito.
Sia la classe (Public Class Form1) che il nome del file sono: form1
E' giusto così o il codice è errato ?
giuseppeD

 ha scritto nel messaggio
news:Am5b9.21690$ub2.3...@news1.tin.it...



Funziona.
Grazie
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto Cristal report e pacchetto di installazione !!





Quando creo un pachetto di installazione di un 
programma in cui vi e' il 
crystal.ocx
 sia creazione guidata 
pacchetti di  installazione che visual studio installer mi segnalano che 
non riescono a trovare i seguenti files:


 


crystal


u25store.dll


u25total.dll


 


Questi file effettivamente non esistono sul mio 
hard disk ma nemmeno sul cd di crystall report


Se creo il pacchetto di installazione (senza questi 
files)  generalmente va tutto bene ma alcune volte (30% dei casi sopratutto 
su NT) mi appare una segnalazione per cui non e' possibile installare 
implode.dll e poi crystal.ocx.


 


La versione di crystal report e la 7 col la patch 
per i report su access2000


Qualcuno mi sa aiutare????


 


 


Grazie


Michael


 


 


 



 
  wrote in message 
OE13kQVSdtdH2...@hotmail.com
...


 ha 
  scritto nel messaggio 
news:OE13kQVSdtdH2...@hotmail.com
...

Newsgroup: it.comp.lang.visual-basic
Titolo: Msflexgrid-mouse tasto dx

sapete come utilizzare il tasto destro del mouse su una msflexgrid per
settare la riga
e poi avere un menu popup
Ciao e grazie

...


 >e poi avere un menu popup
Ragazzi vi siete imbattuti in un bel problema!
Non capisco perchč le griglie come la MsFlexGrid e la TrueDbGrid non
supportano la selezione della riga con il tasto destro... Mha!
Eppure sarebbe molto utile questa funzionalitŕ, infatti credo sia un
esigenza molto comune poter visualizzare menů di PopUp riguardati il record
specifico.
Scusate lo sfogo... ma c'ho sbattuto la testa anch'io un bel po' su questo
problema, ma alla fine con un po' di fantasia ho risolto grazie a questo
trucchetto:
Intercetto l'evento generato dalla pressione del tasto destro sulla griglia,
poi tramite API premo e rilascio il tasto sinistro (per selezionare la riga
della griglia), quindi intercetto l'evento di rilascio del tasto destro
sulla griglia e visualizzo il menů di PopUp.
Riporto il codice necessario:
-----------------------------------
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal
dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As
Long)
Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Private Sub flex_MouseDown(Button As Integer, Shift As Integer, x As Single,
y As Single)
   If Button = 2 Then
      mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
      mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0
   End If
End Sub
Private Sub flex_MouseUp(Button As Integer, Shift As Integer, x As Single, y
As Single)
   If Button = 2 Then
      PopupMenu menů, vbPopupMenuRightButton
   End If
End Sub
-----------------------------------
Non so se esiste un metodo piů semplice per risolvere il problema, comunque
io ho testato questo codice con successo sia sulla MsFlexGrid della
Microsoft che sulla TrueDbGrid della Apex!
 __     __
<o>  <o>
      []
  \____/   ......(CIAO!)
Pasquale Minerva
mine...@libero.it

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO URGENTE

Ciao,
ho un serio problema. Devo riprodurre in VB4.0 la funzione risolutore di
Excel. Esiste una funzione che lo faccia in automatico?? E se no, esiste
qualcuno che abbia già realizzato qualcosa del genere e che possa darmi
qualche dritta.
Grazie infinite a quanti spenderanno il loro tempo per aiutarmi.
Massimo

qualcuno che abbia gią realizzato qualcosa del genere e che possa darmi

Newsgroup: it.comp.lang.visual-basic
Titolo: DataReport-DataEnvironment - XP BUG

Salve, un programma che da due anni funziona benissimo è entrato in crisi
con windows XP!! Sia home che professional.
Infatti avevo sviluppate le stampe con DataReport e DataEnvironment (in
VB6),
ed hanno sempre funzionato, anche su 2000 e Millennium. Invece su Windows XP
( ma non vorrei che fosse office XP) quando si apre un'anteprima di stampa
dice "Impossibile recuperare uno o più gruppi dalla fonte dati corrente".
E' probabilmente un problema degli ADO, allora erano i 2.0, ho provato
quindi a mettere nei riferimenti i 2.5, ma ancora niente....
Qualcuno ha già risolto il problema?
Grazie infinite, sono disperato....

 ha scritto nel messaggio
news:an1pbh$g91$1...@fe1.cs.interbusiness.it...

Il bug è noto, ed è legato alla larghezza del DataReport.
Non ricordo esattamente quale fosse il valore limite da non superare mai, ma
su MSDN era indicato molto chiaramente.
E comunque non dipendeva da XP, ma da altre cose che non ricordo.
Altrimenti, ma non hai specificato il tipo di DB, se accedi ad Access
ricorda che con XP si deve prima installare JET4.0.
Ciao
Alberto

 Alberto
Ma sugli altri sistemi funziona correttamente! Anche se larghezza del report
č
uguale. Il database č un Access '97, che sia lě il problema?
Ma le altre funzioni non danno problemi... anche perch' per inserimento,
dati ricerche ecc
non usavo il DataEnvironment...
Comunque il pacchetto di installazione installava gli ADO 2.1, poi ho
provato
coi 2.5 ma non č cambiato nulla.
Grazie Ciao
Andrea

 Il database č un Access '97, che sia lě il problema?
Quindi continua a non andare anche dopo aver installato JET4.0?
Alberto

> Quindi continua a non andare anche dopo aver installato JET4.0?
Assolutamente no! Secondo me è il msderun.dll, solo che anche se lo aggiungo
singolarmente,
non succede nulla...
Ciao
Andrea

 ha scritto nel messaggio
news:an91ii$dt8$1...@fe1.cs.interbusiness.it...

Non so cosa dirti.
Io uso il datareport senza dataenvironment, per cui se c'è qualche problema
di solito viene visualizzato in maniera molto esplicita, o almeno riesco ad
intercettarlo. Con quella roba bound lì sinceramente non ci capisco niente,
soprattutto quando cominciano a dare errori...
Ciao
Alberto

 Alberto
 Io no li uso piů da anni, infatti uso ActiveReports, che funzionano
perfettamente.
Questo č un progetto vecchio che sembra non voler sopravvivere a XP...
mah....
Potrei modificarlo togliendo il DataEnvironment e assegnare direttamente i
recordset
gerarchici ai datareport? Hai uno stralcio di cosice per fare una cosa del
genere?
Grazie
Ciao
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: help database sconosciuto

 
          salve a tutti
Ancora una volta ho bisogno del vostro aiuto
Purtroppo un programma che utilizzo in ufficio non funziona bene, l'azienda
che lo ha sviluppato ormai non esiste piu' e io non rieco a recuperare i
dati inseriti nel database.
Il punto è che non conosco con quale applicazione è stato creato il database
..infatti per ogni tabella sono associati due file tipo:
archivio nomi
nomi.001
nomi.ldb
chi mi puo' aiutare ad aprire il database e recuperare almeno i dati che ho
inserito da anni.....
grazie 1000
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 grazie 1000
prova a copiare nomi.001 -> nomi.mdb
mi sembra ci fosse un client napster che usava il sistema di ribatezzare
l'mdb, ma l'ldb e' una buona spia. in quel caso poi con access aprivi il
file.
ciao, a.

 ha
scritto:

          Ciao a.
Ho seguito il tuo consiglio e per magia il database si e' aperto.
Grazie 10000


 nomi.ldb
potrebbe essere un db access,
prova a rinominare nomi.001 in nomi.mdb


forse dovrei chiedere i diritti di autore della risposta
visto che l'avevo gia' detto io......
ma sicuramente "andrea palazzi" e' piu' bravo di "salclem2"
quindi mi astengo da qualunque azione legale! -:)


se non altro perche la risposta di andrea e' arrivata 11 ore prima ;-)

 ha scritto

pfiuuu...
temevo che il mio oe avesse perso la trebisonda.
sapete, ha una strizza teribbile di essere sostituito da 
oe.net
 :)

Newsgroup: it.comp.lang.visual-basic
Titolo: come inserisco automaticamente una stringa?

Buonasera.
Ho la necessitą di inserire automaticamente in un campo una stringa con il
seguente formato
xxxx-yyyy dove xxxx č l'anno in corso e yyyy č il numero yyyy dell'ultimo
record inserito +1 e questo  ogni qual volta inserisco un nuovo record.  Con
il cambio di anno il campo yyyy deve azzerarsi automaticamente.
Qualche suggerimento?
Grazie anticipatamente Simone.

 Grazie anticipatamente Simone.
Nel Sito Comune (vedi signature), troverai tutto sui
contatori.
Cerca la FAQ: "Cos'è un ID? Contatori, numeri, e altro."
Bye
-- 
Federico
--------------------------------------
Non si puo' compilare un .mdb in .exe
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Sito Comune di it.comp.database.access
http://members.xoom.it/it_db_access
--------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema COn Database

ciao a tutti,
ho un applicativo che tramite un controllo DATA, deve accedere ad un
database. Questo database, potrebbe non essere sempre nella stessa posizione
sul disco, quindi devo impostare la proprietà DatabaseName del controllo
Data, necessariamente da codice e questo è quello che ho scritto :
mdb_bpco =  "bpco.mdb"
connettia = "c:\Programmi\Scheda BPCO" & "\" & mdb_bpco
data1.DatabaseName = connettia
poi devo settare il RecordSource, quindi ho scritto :
data1.RecordSource = "scheda"      'dove "scheda" è una delle tabelle del
DB.
A me sembra tutto regolare, ma se vado a  fargli un
data1.Recordset.RecordCount , questo risulta sempre a 0, ma nella tabella ci
sono parecchi records .
Dove sbaglio !??!!?
grazie mille a tutti e ciao
Claudio .


Non lavoro con i data control da anni quindi non vorrei dirti una cavolata,
ma hai provato prima a fare un movelast.
Scusa trovato :
La proprietà RecordCount non indica il numero di record contenuti in un
oggetto Recordset di tipo dynaset, snapshot o forward-only scrolling finché
non si è avuto accesso a tutti i record. Quando si è avuto accesso
all'ultimo record, la proprietà RecordCount indica il numero totale dei
record.
Impara leggera la guida
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 Dove sbaglio !??!!?

 Impara leggera la guida
Mi era proprio sfuggito ...provero'
grazie e ciao
Claudio .


 ancora vuoto?
devo provare con la movelast, ecc...
Ciaoo
Claudio .

ciao
ho fatto un po di prove. ed ho notato che il problema, stava tutto nel fatto
che a quanto para, la funzione :
   Set bpco_DB = DBEngine.OpenDatabase(App.Path & "\" & mdb_bpco)
Scritta cosi' funziona ma non funziona se ad esempio, scrivo :
  Set bpco_DB = DBEngine.OpenDatabase("C:\Programmi\bpco"  &  "\"  &
mdb_bpco)
Ho anche provato a fare una cosa del genere :
Dim percorso as String
 percorso = "C:\Programmi\bpco"
 Set bpco_DB = DBEngine.OpenDatabase(percorso & "\" & mdb_bpco)
Ma nulla....ci dev'essere per forza  l' App.Path !! Come mai ??A me serve
poter aprire un database che non sia situato il App.Path. Sono sicuro che
sta cosa si puo' fare, ma non so proprio come !! Mi aiutate  !?
grazie mille e ciao
Claudio .

 mdb_bpco)
Eh eh eh!
mi sembra logico no?
fai cosě
dim MioPath as string
dim suoPath as string
suopath=App.Path & "\" & mdb_bpco
debug.print miopath ,suopath
e vedrei che forse manca un
miopath="C:\Programmi\bpco"  &  "\"  & TRIM(mdb_bpco)
o qualcosa di simile!
:o)

  miopath="C:\Programmi\bpco"  &  "\"  & mdb_bpco


 devo provare con la movelast, ecc...
Ho risolto, grazie a tutti .
Claudio .

 ha scritto nel messaggio
news:WV6M9.30353$Ou4.9...@twister2.libero.it...
CASO MAI SE CI FAI SAPERE COME......
sai un po ci hai incuriosito
Che sbagliavi??????
Newsgroup: it.comp.lang.visual-basic
Titolo: ShowInTaskbar . Come lo uso?

Ho provato ad impostare su FALSE il valore di ShowinTaskbar nelle proprietą 
di tutti i Form componenti il mio progetto ma, lo stesso, quando premo il 
bottone che mi apre il secondo From, il Form "principale" rimane visibile 
nella barra delle applicazioni!
Command1_Click()
set form1=Nothing
unload form1
cls
form2.show
Dove sbaglio?
Grazie per ogni info.
(G)

Scusate ho postato per errore.
(G)

Newsgroup: it.comp.lang.visual-basic
Titolo: cerco manuale VB 5

Sto cercando un ""MANUALE DEL PROGRAMMATORE"" per Visual Basic vers. 5 (o
eventualmente vers. 6) editore Mondadori inf.
C'è qualcuno che non lo usa più e che me lo vorrebbe vendere?
Mandatemi eventuali offerte alla  mia e-mail 
lag...@libero.it
 indicando
l'importo comprensivo di spese di spedizione.
PS. dove posso trovare l'elenco delle API complete per il VB?

 PS. dove posso trovare l'elenco delle API complete per il VB?
complete non saprei. qui ne trovi un po':
http://www.allapi.net/
http://members.xoom.it/CesareRizzi/
http://skyscraper.fortunecity.com/transmission/45/api/index.html

Newsgroup: it.comp.lang.visual-basic
Titolo: Per i più bravi...

Come faccio ad utilizzare a run-time un componente ActiveX presente nel mio
progetto (DataEnvironment), avendo (come riferimento) solamente il nome
dell'oggetto memorizzato in una variabile stringa? (non conosco a priori -a
run-time- il nome del componente... mi viene passato...)
.... č possibile?
Anticipatamente, grazie tantissimo!!!

Utilizza CreateObject("oggetto.classe")
Newsgroup: it.comp.lang.visual-basic
Titolo: stringa per copiare un file+winsock multiconnessione

Salve ng,
ho 2 problemi
1. come faccio a copiare prametro per parametro un file?
se non erro era una cosa tipo
do while eof(1)>c
get #1,x,parametro
doevents
a=a&parametro
loop
ma sembra che non vada.
2. con il winsock come faccio a far connettere più utenti?
devo mettere un array di winsock ed aprirne quanti me ne servono?
possibile che sia questa la soluzione?
Grazie per l'attenzione e sopratutto a chi mi risponderà
Cerberus

 ma sembra che non vada.
Prova questo lo split e' su  Cr/Lf
Private Sub Form_Load()
    Dim sBuffer As String
    Dim sFileLines() As String
    Dim iFile As Integer
    Dim i As Integer
    'Read the entire file in one shot.
    iFile = FreeFile
    Open "C:\Test.txt" For Input As iFile
    sBuffer = Input$(LOF(iFile), iFile)
    Close iFile
    'at this point, the entire file is in sBuffer
    'split on Cr/Lf
    sFileLines = Split(sBuffer, vbCrLf)
    'at this point, each line in the file is in
    'in its own element of the sFileLines() array
    'now, loop through the array and do whatever
    'you want to each element (including using Split
    'to create other arrays) the code below just prints
    'to the immediate window.
    For i = LBound(sFileLines) To UBound(sFileLines)
       Debug.Print sFileLines(i)
    Next
End Sub
'Ken Halter
questo e' quello che uso io (*.vbs) rabberciato un po' in fretta :
sDirectory = "C:\windows\temp"
'sLogFile = "C:\E-Mail.Log"
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
Set oFolder = oFSO.GetFolder(sDirectory)
oFile = "C:\WINDOWS\TEMP\test.txt"
'For Each oFile In oFolder.Files
 ' If InStr(UCase(oFile.Name), ".CSV") Then
    Set oStream = oFSO.OpenTextFile(oFile, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
cLine = oStream.Line
msgbox sLine
msgbox oStream.Line
'If InStr(UCase(sLine),"FROM:") Or InStr(UCase(sLine),"TO:")Then
      If InStr(LCase(sLine),"monica")   Then
        oLogFile.WriteLine sLine & oFile.Path &"  line  " & cLine
         ' oLogFile.WriteLine ""
'Msgbox sLine
      End If
    Loop
 ' End If
'Next
'oLogFile.Close
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

perfetto ti ringrazio fosco sempre pronto :D
Cerberus
"Fosco" <fa...@fake.invalid> ha scritto nel messaggio
news:SacAh.19555$K8.1...@news.edisontel.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: MSHFlexGrid senza esempi !

Ciao a tutti...
Ho appena acquistato VB 6.0 e devo dire che M$ ultimamente sta veramente
facendo schifo!
[...]
... la documentazione praticamente inesistente (io preferivo l'help in linea
che c'era nella versione 5.0) non sono riuscito a trovare neanche un esempio
decente che mi illustri i vantaggi della MSHFlexGrid !
Qualcuno di voi me ne puo' inviare qualcuno?
Vi ringrazio in anticipo !
Meno male ci sono i NG ! :-)
Mario Paracchino
mpara...@easysoftware.it


Ultimamente?


Mi rubi le parole dalla tastiera?
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: search box

Salve a tutti. Nella mia ribrica volevo mettere una search box.
in una text box volevo scrivere la parola da cercare, e con il command
button Cerca doveva cominciare a cercare nella listbox.
Qual'è il codice da mettere tra le proprietà del Command button?
Ciao a tutti e grazie

 wrote in message
99mr6v$ft6$1...@fe2.cs.interbusiness.it...

Nel CommandButton_Click inserisci questo:
    dim i as integer
    If Text1.Text <> "" And Len(Text1.Text) <> 0 Then
        for i=0 to list1.listcount
            If Text1.Text = List1.List(i) Then
                msgbox"Trovato"
            End If
        next i
    End If
Ciao
--
Fabio


 wrote in message
99mr6v$ft6$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto modulo continuo

Salve,
ho fatto diversi report con Crystal Report 8.5, e venivano stampati
benissimo su A4 con Stampante Laser.
Adesso devono essere stampati su Modulo Continuo...
come posso fare a gestire il salto pagina?
Avete avuto anche voi questo problema o mi potete consigliare qualche
link dove cercare?
Grazie 1000
Davide 

 wrote in message
news:1f9ci69.f9gdsk9i7ugwN%dad...@cippirimerlo.com...

a fine stampa, win SEMPRE invia il salto pagina

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Come posso fare?

Dovrei copiare parti del listato di un programma realizzato in Visual Basic
all'interno di OpenOffice per realizzare una tesina.
Il problema è che se le copio con "copia & incolla" perdo tutti i colori!!!
Cosa devo fare per portare parti di listato in Word o OpenOffice senza
perdere i colori?
Grazie a tutti... e scusate per l'OT!
GiAn

 perdere i colori?
potresti usare un editor avanzato, tipo cEdit
http://cedit.sourceforge.net/main.php
 che permette di personalizzare
l'output (colora pure le costanti, variabili ecc.) e salva in rich text
buono per word e OpenOffice. E va bene per tutti i linguaggi.
-- 
Ciao, Silv:o)

perdere i colori?
Se il codice è effettivamente tanto, potresti provare SciTE,
http://scintilla.sourceforge.net/SciTE.html
Si tratta di un editor di testo con funzionalità specifiche per
diversi linguaggi di programmazione, tra cui vb.
Nel tuo caso è sicuramente utile, nel menù edit, la voce "Copy as
RTF". Va detto cmq che lo stile con cui SciTE presenta il codice vb
non è uguale identico a quello standard di Visual Studio, ma è cmq
personalizzabile.
Ciao!

 
http://cedit.sourceforge.net/main.php
Oops, questo č il link di un frame, da lě non si naviga.
Togli main.php o clicca qui 
http://cedit.sourceforge.net
-- 
Silv:o)

un bel po' di anni fa avevo fatto un programmino che ti generava un rtf 
con il codice di tutti i moduli del programma. è una puttanata ma 
funzionava benino. forse c'è ancora su quel che rimane del mi vecchio 
sito (
www.msvbsite.net
)
ciao,
Moreno
Inviato da 
www.mynewsgate.net
Newsgroup: it.comp.lang.visual-basic
Titolo: consigli per realizzazione programma

salve
nell'azienda dove lavoro spesso le configurazioni di rete dei pc come l'ip
assegnato,il dns,il gateway etc...per un motivo o l'altro (vedi utenti che
fanno casini) spesso vengono manomesse e noi tecnici dobbiamo fare i sali
mortali al telefono per farci capire dall'altra parte su quali dati leggere
e come modificarli...
avrei pensato di relizzare un programmino...qualcosa da tenere sul desktop
che non necessita di installazione,un click ed appare una bella finestra con
tante caselline di testo e in ognuna di queste appare il valore
dell'ip,netmask,dns,gateway,dominio,identità insomma quello che appare in
proprieta' di rete, in questo modo l'utente non deve andare da una
sottopagina all'altra e volendo cliccando sulla casellina di testo puo'
correggere il valore errato o mancante e fare un update su un tasto...
1)per leggere queste info dovrei andare sul registro di configurazone
giusto?
2)per leggere e scrivere dal registro dove posso trovare qualche tutorial?
grazie!

 l'ip assegnato,il dns,il gateway etc...per un motivo o l'altro (vedi
da win 9x: Start -> Esegui -> Winipcfg<-|
da winnt Strart -> Esegui -> cmd <-| ipconfig /all<-|

registro? mmhh.....può essere, anzi, sicuramente.....
però ti faccio riflettere un attimo (e rifletto anche io, non credere!!)
:-))
i vari OS hanno meccanismi di rete molto diversi (pensa alle differenze tra
95, NT, XP e via dicendo). Secondo me ti conviene appoggiarti alle API,
anche se anche qui ci sono differenze....
mah, farei qualche ricerca su google per approfondire il discorso.....
good searching!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

correggere il valore errato o mancante e fare un update su un tasto...
Dovrebbe bastarti uno script che usi gli oggetti  Windows Management
Instrumentation.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Componente MAPI Controls 6.0

Salve al Ng.
ho trovato, Sbirciando, la componente MAPI Controls 6.0.
i 2 oggetti vengono probabilmente utilizzati per l'invio e la gestione dei
messaggi.
ho tentato di utilizzarli ma invano.
ho tentatto anche a visionare MSDN, ma con scarsi risultati, dato che non
c'č inserito neanche un esempio.
qualcuno ne sa qualcosa in piů?!?!?!?
ringrazio anticipatamente.
Cerber...@tin.it

 non c'č inserito neanche un esempio.
prova a cercare, sul sito comune, un progetto nomato "mailoe"
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:btb6a8$53r8r$1...@ID-173193.news.uni-berlin.de...


> prova a cercare, sul sito comune, un progetto nomato "mailoe"
Vai Cerberus! :-)
http://www.it-lang-vb.net/archivio.asp?dir=0&keyword=mailoe&typeric=AND&subMenu=Tutte&Categoria=Tutte
-- 
ciao, hal

Hal I love You.
ti farň una statua di bronzo e la metterň sulla televisione.
Cerberus
P.S. e cercherň di quotare meglio.;)
Newsgroup: it.comp.lang.visual-basic
Titolo: Ma 'sto shotgun...

Da tempo ho la mania di acquistare, usare per un po' e poi vendere, armi
corte, da usare soprattutto al campo di dinamico (anche se in realtà
sparacchio per puro divertimento, non è che abbia velleità agonistiche di
alcun genere).
Adesso, nella continua ricerca di armi usate, mi capita sempre più spesso
che l'occhio mi caschi su armi lunghe a canna liscia, semiautomatiche.
Visti i prezzi assolutamente abbordabili, mi stava venendo l'idea di
provarne qualcuna.
Chiedo a chi già ne usa:
- Le armi cal12 'magnum' possono usare anche cartucce cal.12 non magnum, o
il ciclo di riarmo rischia di fallire?
- Pompa, semiauto o misto, dilemma immagino già discusso. Ma dal puro punto
di vista del divertimento, il pompa è più 'emozionante' o è una
complicazione, in più, inutile?
- Con l'arma corta sparo le 200 cartucce ogni sessione, e ricaricandole il
costo non mi dà fastidio. Ma col 12 non ricaricherei. Quanto costano le
cartucce?
- In generale, il TDS con shotgun è bello? Da vedere sembra notevole...
Ciao
Alberto

[Albe V° = 
vaccar...@hotmail.com
 in
c154j8$1egr9d$
1...@ID-222113.news.uni-berlin.de
]
ha scritto da una parte sbagliata, credo ;-) :


Cosě ad occhio...
Cavolo, e non č neppure la prima volta...
Beh, finchč non mi scappa un post di it.hobby.trans...
Alberto

 Beh, finchè non mi scappa un post di it.hobby.trans...
Ma (e stavolta, adeguandomi, anch'io ci metto il "ma") rotfl , anzi rotfl
rotfl

 ha scritto da una parte sbagliata, credo ;-) :
e non l'ha cancellato abbastanza alla svelta...
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Cut, copy, paste

Come potrei implementare delle funzioni taglia, copia, incolla per i
file (come quelle di explorer), o usare all'interno del mio programma
proprio quelle di explorer?
Grazie e ciao.

Ci sono delle API della shell per farlo.
Sul mio sito _dovrebbe_ esserci qualcosa.
Se non trovi nulla dimmelo che cerco esattamente il link.
Umberto Meroni
umb...@vbp.it
-----------------------------------------------------
Webmaster del sito comune di it.comp.lang.visual-basic
URL Sito Comune: 
http://www.murialdo.it/it_lang_vb
-----------------------------------------------------
Sito Visual Basic: 
http://www.vbp.it
Sito Servizi Internet: 
http://www.ubi1k.com
Sito Comune VB: 
http://www.murialdo.it/it_lang_vb
-----------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: DataReport e DataEnv...

Salve a tutto il NG, ho un duplice problema nell'uso del
DataReport:
1. Il DataEnv associato ha una query parametrizzata il cui
   parametro viene impostato prima di aprire/stampare/ecc il
   DataReport. Il problema è che il datReport sembra non accettare
   il parametro passato...cioè lo ignora e presenta sempre
   lo stesso risultato; cosa sto sbagliando????
2. Ho inserito delle label nella sezione PièDiPaginaPagina che,
   però, devono essere stampate solo sull'ultima di n pagine.
   Come posso fare per non ritrovarmi quelle label su tutte le
   pagine ma solo sull'ultima????
Vi ringrazio in anticipo
deli eventuali suggerimenti...
Giancarlo.

 ha scritto nel messaggio
news:9pa8vs$lgr$1...@pegasus.tiscalinet.it...

Devi chiudere il command del report e quindi aprire il report.
es.:
TuoDEConnection.TuoCommand.Close
TuoDEConnection.TuoCommand eventuali parametri
TuoReport.Show
Ciao Roberto - Syd

Ti ringrazio funziona egr.
sai dirmi qualcosa sulle label del DataReport (punto 2.
del msg iniziale)????
Giancarlo.

Newsgroup: it.comp.lang.visual-basic
Titolo: importante su Input$

nella guida in linea del QBasic Extended 7.1, nei Details del comando
Input$, ho letto quanto segue:
"You can use the DOS redirection symbols (<, >, or >>) or the pipe symbol
(|) to redefine the standard input or standard output for an executable file
created with BASIC."
ho urgente bisogno di capire che diavolo significa. ehm... non perchè è
scritto in inglese, ma perchè non capisco cosa c'entrino i symblos <, >, >>
e | con i file esecutivi.
qualcuno può dirmi almeno di che cosa si tratta? grazie.

 wrote in message 8i8ivv$30h$1...@nslave2.tin.it...


 e | con i file esecutivi.
    Con:
    dir > c:\out.txt
    redirezioni l'output del comando dir su di un file.
    Con:
    dir | sort
    fai si' che l'output del comando dir diventi l'input del comando sort.
        Cris
Newsgroup: it.comp.lang.visual-basic
Titolo: [H] MAPI

Ciao,
ho realizzato un programma che invia mails a indirizzi pescati da un db
access e fin qui nessun problema.
Avrei però bisogno di impostare anche l'orario di invio dei singoli messaggi
e questo non sono proprio riuscito a farlo.
Qualche buon anima mi può auitare ?
Grazie in anticipo
Ciao
Francesco C.

...

Io ho avuto a che fare con i controlli MAPI ma utilizzandoli per inviare
Fax... oltre ad i vari problemi riscontrati dagli innumerevoli bachi
presenti nei controlli ho notato la difficolta di decidere l'orario di
spedizione visto che se ne impostavo uno diverso il messaggio veniva
automaticamente annullato...
Nella knowledge base di M$ ho trovato delle indicazione che però a nel mio
caso non funzionavano... ma ripeto io lavoravo sui fax e non sò se per te è
la stessa cosa...
Se come me imposti la proprietà RecipDisplayName per l'indirizzo allora
prova questo codice adattandolo alle tue esigenze...
'Fax indirizzato a Nome Cognome al numero 0039 030 123456
MAPIMessages1.RecipDisplayName = "[Fax:Nome Cognome@+39 (30) 123456]"
' in alternativa si puo` associare la piu` semplice stringa "[Fax: +39 (30)
40509]"
Oppure la cosa interessante (ma che a me non funziona)...
'[FAX:name@phonenumber]
'[FAX:name@phonenumber/AFTER=HH:MM]     'Dovrebbe indicarne l'orario di
spedizione
'[FAX:name@phonenumber/ATTEMPTS=7]
'[FAX:name@phonenumber/COVER=MYCOVERPAGE]
Comunque io ho risolto il problema creando una piccola applicazione autonoma
che prendeva i dati dei fax da spedire da un file LOG e gestiva
automaticamente la coda di fax controllando costantemente il tempo.
Spero di esserti stato d'aiuto se hai problemi posta pure altre domande...
Ciao
Maurizio Coffinardi
sec...@secoges.com

...

Ho fatto anch'io come te: il fax lo posto solo all'ora desiderata.
Tra i vari buchi che ho trovato quello più pestilenziale è quello
riguardante la proprietà
'MsgConversationID' (mi serve per controllare eventuali messaggi del sistema
di invio fallito)
Se non la valorizzi con un numero pari di caratteri, quando il sistema ti
risponde (impossibile consegnare ...),  la imposta come vuole lui e tu non
la puoi più riconoscere come risposta al tuo messaggio e qundi ritentare.
Io non ho trovato da nessuna parte documentazione riguardando i parametri
aggiuntivi che mi hai indicato tu (AFTER ,ATTEMPTS etc).
Comunque il numero del fax non lo metto in 'RecipDisplayName' ma in
'RecipAddress'.
Io ho trovato questo:
[FAX:Name@ PhoneNumber | SpecialDialing]
Come separatore non è indicato '/' ma '|' ho provato ad utilizzare i tuoi
parametri anche così ma picche.
Morale: accontentiamoci
Grazie e ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] per evitare il setup

Scusate se la domanda è idiota.
Per evitare il setup posso copiare le .dll nella stessa cartella in cui
installo il .exe?
Sto cercando di avere il programma installato su di un CD senza doverlo
installare su HD.
Grazie

 wrote in message
389AB7C8...@tiscalinet.it...



Devi comunque ricorrere ad un setup, ma se le dll di cui parli sono prodotte
da te e non sono di sistema, puoi provare a creare un setup che crea una
directory temp dove installi solo le tue dll, le registri ed esegui l'exe da
ciddě. Quando vuoi fare la disinstallazione rimuovi la famosa dir e sei a
posto. Attenzione perň stiamo facendo i conti senza  il runtime msvbvm60.dll
e le sue sorelle.
Altra possibile soluzione (tutta da provare come la prima), tieni le dll di
cui sopra nel ciddě ed il setup semplicemente le registra conservandone la
posizione. Quando disinstalli semplimente rimuovi le tue chiavi. Francamente
questa mi pare un funambolismo che potrebbe riservare brutte sorprese (tipo
che all'avvio senza il ciddě win ti pone domande imbarazzanti, nella
migliore delle ipotesi), ma potrebbe funzionare: se decidi di rischiare e la
cosa funziona, facci sapere.
Ciao
Daniele grignani
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi scaricando files da Internet

Ciao, chiedo venia se la domanda e' stupida, ma sono appena agli inizi.
Sto facendo in VB5 un programma che, tra le altre cose, si deve scaricare 
delle pagine html da Internet. Per farlo ho messo un controllo Internet 
Transfer e ho usato la funzione OpenURL. Ora, il problema e' che ho 
provato a farglielo scrivere come testo, ho provato in binario (quindi 
con l'apposito array di byte, come consigliato dalla documentazione), ma 
in nessun modo sono riuscito a convincerlo a scaricare piu' di 512 byte, 
cosa decisamente fastidiosa. Qualcuno ha idea del perche' questo accada, 
o se c'e' un modo piu' furbo per scaricarsi dei file?
Grazie
Antonio


Correzione, la cosa si fa ancora piu' intricata.
Funziona su tutti i siti che ho provato (compresi motori di ricerca, 
pagine con asp ecc) tranne quello che mi interessa, che e' si' in asp, ma 
l'URL contiene tutti i dati necessari per arrivare alla pagina giusta (e 
mettendo quello in qualunque browser/downloader funziona perfettamente). 
E' per caso la mia sfiga che regna sovrana?

 wrote in message
news:MPG.145bcccb5...@news.inwind.it...


 
Grazie per la risposta. Il problema e' che grosse configurazioni da fare 
non mi sembrava che ci fossero. Cmq, con questa versione funziona piu' o 
meno dappertutto, ma sul sito che mi interessa (
www.play247.com
) scarica 
512b e si ferma:
    [Indirizzo e' l'URL passato, Inet1 e' l'Internet Transfer Control]
    Dim TempData() As Byte
    FileNum=FreeFile()            
    TempData() = Inet1.OpenURL(strURL, icByteArray)
            Open ("c:\" & FileNum & ".htm") For Binary Access Write _
        As #FileNum 
    For Index = 0 To UBound(TempData()) - 1
    Put #FileNum, Index+1, TempData(Index)
    Next Index
    Close #FileNum
Questa, invece, l'ho fatta col GetChunk. Questasta volta mi scarica 
qualche k, ma cmq non riesce ad arrivare alla fine. La cosa piu' curiosa 
e' che i "pezzi" non me li fa tutti da 512 byte, ma li fa di dimensioni 
variabili, e quando lo rieseguo mi dice "still executing last request" 
(questo nostante gli abbia messo un Inet1.Cancel, ma non e' importante). 
C'e' un modo piu' intelligente per capire se ha finito di leggere il 
file? ho forti sospetti che sia dovuto a quello...
    FileNum = FreeFile()
    Temp = 1
    Open ("c:\" & FileNum & ".htm") For Binary Access Write _
        As #intFile
 
    Inet1.Cancel
    Inet1.Document = Indirizzo
    Inet1.Execute Indirizzo, "GET"
    TempData() = Inet1.GetChunk(512, icByteArray)
 
    Do While UBound(TempData()) > 0
        For Index = 0 To UBound(TempData()) - 1
        Put #FileNum, Index+1, TempData(Index)
        Next Index
        TempData() = Inet1.GetChunk(512, icByteArray)
    Loop
    Close #FileNum
Spero ci si capisca qualcosa.
Newsgroup: it.comp.lang.visual-basic
Titolo: Leggera la data di creazione e la data ultima modifica da un file

Ciao a tutti !!!
Chi puo aiutarmi a sapere come fare per leggere la data di creazione e
la data ultima modifica da un file?
AIUTATEMI!!!!!!!!!!
grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 AIUTATEMI!!!!!!!!!!
FileDateTime

grazie
Prego.
Andrea.

 Mettilo, per esempio, in un Command Button nell' evento Click:
...
Non ne manca un pezzettino?


ehm giusto un pezzettino:
-------------------
Option Explicit
Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Public Const GENERIC_READ = &H80000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const INVALID_HANDLE_VALUE = -1
Declare Function GetFileTime Lib "Kernel32" (ByVal hFile As Long,
lpCreationTime As FILETIME, lpLastAccessTime As FILETIME,
lpLastWriteTime As FILETIME) As Long
Declare Function CreateFile Lib "Kernel32" Alias "CreateFileA" _
        (ByVal lpFileName As String, _
         ByVal dwDesiredAccess As Long, _
         ByVal dwShareMode As Long, _
         ByVal lpSecurityAttributes As Long, _
         ByVal dwCreationDisposition As Long, _
         ByVal dwFlagsAndAttributes As Long, _
         ByVal hTemplateFile As Long) As Long
Declare Function CloseHandle Lib "Kernel32" (ByVal hObject As Long) As
Long
Declare Function FileTimeToSystemTime Lib "Kernel32" (lpFileTime As
FILETIME, lpSystemTime As SYSTEMTIME) As Long
Sub GetFileInfo(ByVal FileName As String, stCreation As String,
stModify As String, stAccess As String)
Dim fp As Long
Dim dtCreation As FILETIME
Dim dtModify As FILETIME
Dim dtAccess As FILETIME
Dim st As SYSTEMTIME
    fp = CreateFile(FileName, GENERIC_READ, FILE_SHARE_READ, 0,
OPEN_EXISTING, 0, 0)
    If fp <> INVALID_HANDLE_VALUE Then
        GetFileTime fp, dtCreation, dtAccess, dtModify
        FileTimeToSystemTime dtCreation, st
        stCreation = Format(st.wDay & "/" & st.wMonth & "/" &
st.wYear, "Long Date") & " - " & _
                    Format(st.wHour & ":" & st.wMinute & ":" &
st.wSecond, "hh.mm.ss")
        FileTimeToSystemTime dtModify, st
        stModify = Format(st.wDay & "/" & st.wMonth & "/" & st.wYear,
"Long Date") & " - " & _
                    Format(st.wHour & ":" & st.wMinute & ":" &
st.wSecond, "hh.mm.ss")
        FileTimeToSystemTime dtAccess, st
        stAccess = Format(st.wDay & "/" & st.wMonth & "/" & st.wYear,
"Long Date") & " - " & _
                    Format(st.wHour & ":" & st.wMinute & ":" &
st.wSecond, "hh.mm.ss")
    End If
    CloseHandle fp
End Sub
------------------------
Una volta si diceva:
"... mi sono rimaste le parole nella penna..."
Oggi si dice:
"...mi è rimasto un pezzo del copia-incolla nel mouse..." :-)
Andrea.
Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco Microsoft Visual Studio 6.0

Come da subject, CONTATTATEMI IN PRIVATO, NON SEGUO IL GRUPPO.
----------
Luca Davanzo -  
dav...@infotel.ve.it
Via Pordenone 52
30020 Pramaggiore Venezia  - Italy
Tel. +39-421-799108
----------
--
Posted from 
ro...@Portold.Nauta.it
 [194.21.179.179]
via Mailgate.ORG Server - 
http://www.mailgate.org

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con ListView

CIAO!
Ho usato una ListView in un programma, riesco ad inserisci dei dati ma poi
non riesco più a ripescarli!! Come diavolo si fa??
Io ho bisogno di prelevare un valore (il primo) da una colonna di una riga
selezionata (ho impostato che si selezioni tutta la riga) per poi
confrontarlo con altri dati! Solo che ho provato in vari modi e mi da sempre
errore di variabile oggetto non impostata...qualcuno mi può aiutare? Via
e-mail, grazie
--
----------------------------------------------------------------------------
--------------
Zizzo Webmaster S.R.T. Sondrio Rally Team Web Page
www.srt.nu

Prova

 wrote in message
80kd6n$ltk$1...@fe1.cs.interbusiness.it...

Devi scrivere il codice al verificarsi di questo evento:
Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
End Sub
Item rappresenta la riga selezionata.
Per prelevare i valori dalle singole colonne della riga
a=item.text ' valore della prima colonna'
b=item.subitems(1) 'valore della seconda colonna'
ecc.
Spero di averti aiutato, ciao.
--
************************************************************************
* Santini Cesare
* Via Fonda n° 7
* 50056 Montelupo F.no
* 
http://www.geocities.com/CapeCanaveral/Lab/4289/
************************************************************************
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto

Quando faccio una query con  select in un database, come faccio a sapere se
č nulla (cioč nessun record mi soddisfa) prima di assegnare il recordsource
al data (che in qsto caso mi da errore di dyvision by 0)??
Grazie
Andrea Morelli
pan...@libero.it

 è nulla (cioè nessun record mi soddisfa) prima di assegnare il


 contemporaneamente in BOF ed in EOF (cioè nessun record)


 wrote


 O sbaglio?
Non so. Probabilmente no. Proviamo a riflettere su cio' che c'e' scritto
nella Guida:
"Proprieta' BOF e EOF
I valori restituiti da BOF e EOF sono determinati dalla posizione del
puntatore del record corrente.
Le proprietà BOF e EOF consentono di determinare se un oggetto Recordset
contiene record o se durante lo spostamento da un record ad un altro sono
stati oltrepassati i limiti di un oggetto Recordset.
Se BOF o EOF restituisce True, non c'è alcun record corrente.
Quando si apre un oggetto Recordset che non contiene alcun record, le
proprietà BOF e EOF sono impostate su True e la proprietà RecordCount del
set di record è impostata su 0. Quando si apre un oggetto Recordset
contenente almeno un record, il primo record corrisponde al record corrente,
mentre le proprietà BOF e EOF sono impostate su False."
"Proprieta' RecordCount
Restituisce il numero di record ai quali si è avuto accesso in un oggetto
Recordset o TableDef.
[...]
La proprietà RecordCount di un oggetto Recordset o TableDef che non contiene
alcun record è impostata su 0.
Quando si utilizzano tabelle associate o database ODBC, la proprietà
RecordCount è sempre impostata su -1." (Ora come ora non afferro se "tabelle
associate" qui stia per "allegate"...)
La mia opinione e' che, dovendo ricordare che RecordCount puo' essere 0
o -1, sia meglio la forma, forse prolissa:
If .BOF And .EOF Then
Certo, se uno non lavora per piu' clienti e in un ambiente stabile la cosa
puo' non avere il suo peso.
Ciao.
Maurizio

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

Ciao a tutti, sapete dove posso trovare un database access o
di altro tipo con i nomi dei giocatori di tutte le
squadre del campionato italiano di serie A e B,
per fare un form in visual basic.
Grazie per le risposte
Franco

 ha scritto nel messaggio
news:anf0d8$7gv$1...@fe2.cs.interbusiness.it...

cerca nei siti che si occupano di fantacalcio
                        danilo


Ho gia cercato nn ho trovato nulla ...:(:(
---------------------------------
Franco

In una form ho messo una dbgrid che ha come datasource pippo che č stato
definito con adodb sulle odbc e come datamember la tabella desiderata.
Quando eseguo il programma i dati della dbgrid ci sono e sono corretti ma se
nel frattempo un'altra applicazione mi ha aggiornato la tabella anche se
faccio il refresh del dbgrid o apro e chiudo la tabella i dati nuovi non li
vedo.
Perchč?
Grazie



non conosco bene le dbgrid ma se sono basate un una tabella che metti in
datasource potresti chiudere il cursore e riaprirlo, la griglia dovrebbe
aggiornarsi no?