mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: HELP: Fase di installazione

Vi prego, ho già posto questo quesito ed ho bisogno di una risposta.
Qualcuno sa dirmi se è possibile, ed eventualmente come, fare in modo che
alla fine dell'installazione di un pacchetto ,creato con il kit di VB6,
venga eseguito un certo file che va a completare certe modifiche che mi
interessano. Inoltre, sapete dirmi dove è possibile reperire delle
informazioni, o un help sulla creazione di questi pacchetti di
installazione. Grazie per l'eventuale aiuto
Simone

...

Penso che l'unico modo sia intervenire sul prog. d'installazione.
Di questo è fornito il sorgente e si trova sotto la cartella
VB\Wizard\Setup1.
E' un po' incasinato, ma non dovrebbe essere difficile trovare il punto
d'uscita e inserire le righe che ti servono.
Attenzione: non funziona se fai un run dall'ide, lo devi compilare ed
eseguire in seguito, quindi attento a cio' che scrivi.
Ciao.
(personalmente non l'ho guardato molto, se qualcuno vede che ho detto delle
cretinate mi corregga)

Newsgroup: it.comp.lang.visual-basic
Titolo: problema con archivio mdb

salve attutti,premette di essere un tecnico hardware con poca conoscenza del vb e altri programmi di realizzazione software vi presento il mio problema:
ho effettuato un recupero dati perun clienti suu di un pc distrutto tutto ok a parte un software che seppur sembra completo mi chiede delle estenzioni ocx sono riuscito a recuperare l'mdb contenente i dati ma se tento di aprilo con acces mi chiede la password.
che soluzione posso adottare per eventualemnte far ripartire il prg ?
viringrazio semi darete qualche diritta
ciao atutti francoluis
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

 che soluzione posso adottare per eventualemnte far ripartire il prg ?
Il programma � dentro access stesso? Immagino di no, altrimenti saprebbero
la password.
Ad ogni modo:
1) Contattare chi l'ha fatto
2) Guardare se nell'installazione del programma ci fosse la password in
chiaro in qualche file, ma in quel caso il programma partirebbe gi�. Prova
a recuperare le info del registro del programma o in Doc&Settings

 
Che OCX ti chiede per essere eseguito?
Per i dati protetti da password � IMHO abbastanza normale :-)
-- 
Simone Ciamberlini
"Per rimediare ad una cazzata non bastano 10 colpi di classe"
Newsgroup: it.comp.lang.visual-basic
Titolo: CREAZIONE SERVER PER EMULAZIONE VT100

Dovrei creare un'applicazione server per connessione socket da terminalini
in emulazione VT100.
Avrei bisogno di informazioni sui comandi vt100 per l'invio di maschere ai
terminalini che saranno collegati al server in attività.
Ringrazio tutti per la collaborazione.
Paolo Ricciardi
-- 
Posted from 
webserver.nicolettisalotti.it
 [212.210.46.2] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:000501c066ac$482d24a0$140101c8@Ricc...


I terminali sono in TCP/IP, potresti consigliarmi qualche sito dove trovare
delle specifiche.
Ciao e Grazie


 sito dove trovare delle specifiche.
Prova il solito: 
http://www.faqs.org/rfcs/
ma non so come aiutarti
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle Brigate Takahashi Sez. Sud

Paolo Ricciardi
ciao
Noseda

 ha scritto nel
messaggio news:000501c066ac$482d24a0$140101c8@Ricc...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Creazione Dll in C

Ciao a tutto il ng.
Mi scuso se l'argomento non è proprio riconducibile al vb.
Un po' di tempo fa avevo fatto un post in cui chiedevo come richiamare le
dll create in c da vb. Anche guardando su msdn sono riuscito a capire + o -
come richiamare la funzione (public declare.. )
Il mio problema è che non riesco a creare la dll con il mio compilatore c
(che è il Borlandc :-> ), nel senso che io ho delle funzioni in cui sono
coinvolte stringhe e quindi (chi è un po' pratico di c lo sa) puntatori a
char. Quando setto il compilatore e il linker per creare la dll mi danno
errori come che non posso convertire un char far * in un char * (questo il
compilatore) e il linker altri errori ancora + impossibili (x me) da
risolvere.
Posso risolvere il problema? Oppure, esiste in vb un qualcosa che mi
permetta di pensare alle string come array di char (sono anche disposto a
riscrivermi le funzioni in vb se fosse possibile)?
La msdn non mi dice nulla in proposito.
Per me è importante! Grazie a chi ha avuto la pazienza di leggere fin qui e
ha ancora voglia di spremere il teschio per aiutarmi.
Ciao! Bongio

 riscrivermi le funzioni in vb se fosse possibile)?
vb passa el string anche come array di char basta dichiararle in questo modo
:
declare function......... (byval tuastring as string)
non dimenticare byval e non allocare o deallocare la stringa nella dll.Se
usi la stringa come array di char e di conseguenza il suo puntatore, non
puoi modificare la lunghezza .Nella dichiarazione della funzione in c usa un
puntatore, es:  char *
ciao :))

 > coinvolte stringhe e quindi (chi è un po' pratico di c lo sa) puntatori


Newsgroup: it.comp.lang.visual-basic
Titolo: ip address

Spero che qualcuno di voi possa aiutarmi.
Vorrei sapere come prelevare l'indirizzo ip assegnatomi
dal provider ed assegnarlo ad una variabile.
Ringrazio chiunque mi risponda.

 ha scritto nel messaggio
news:DYrm5.75423$dF5.1...@news.infostrada.it...


 ha scritto nel messaggio
news:8ne4g1$h0v$1...@sirmdpsin16.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come rilasciare le risorse!

Salve a tutti,
volevo sapere come fare a liberare la memoria allocata per un oggetto creato
nella maniera seguente:
Set fs= CreateObject("Scripting.FileSystemObject")
è sufficiente settare
fs=Nothing
?
bye
Johnny
--
Visitate il mio Sito:
http://digiland.iol.it/Superpork

 ?
si; per gli oggetti TextStream mi pare che devi chiamare il metodo
Close() prima di settare a Nothing l'oggetto
Ciao
Faber

ok x il TextStream avevo già trovato il metodo specifico per eliminare
l'oggetto
in generale comunque si può dire che dopo un qualsiasi CreateObject() per
eliminare l'oggetto corrispondente basta mettere il riferimento a Nothing?
Bye
Johnny

 ha scritto nel messaggio
news:DX077.21990$NZ6.7...@news.infostrada.it...

esatto, dopo aver [eventualmente] chiuso l'oggetto (come nei TextStream,
nei Recordset, nelle Connection, ecc...)
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: OT:Password in Win95...

Ciao a tutti e scusate la domanda forse 
un po' datata e OT.
Avrei bisogno di impedire l'accesso al mio Pc del
lavoro, dove e' installato Win95 (primissima versione).
Ho inserito la password ma, aime', se uno non
la digita correttamente, l'unico risultato e' che
non gli permettera' di andare in rete con gli altri Pc,
ma avra' comunque sempre l'accesso al mio HD
E' possibile mettere una protezione totale, in modo
tale che solamente chi conosce la password possa
utilizzare il Pc ?
Grazie anticipate delle, spero, vostre risposte.
Stefano
Albonett...@mailcity.com
Now MailCity offers forwarding so you can check your MailCity messages and other e-mail all in one place.  Go to 
http://www.mailcity.com
--
Posted from 
fes.whowhere.com
 [209.1.236.79]
via Mailgate.ORG Server - 
http://www.mailgate.org


In internet esistono sicuramente utility che permettono di "bloccare"
Windows, piu' o meno sicure...
Fai una ricerca con i soliti motori di ricerca (tipo 
www.yahoo.com
 o
www.altavista.com
).
Oppure guarda su siti dedicati al software shareware per Windows
(
www.tucows.com
, 
www.winfiles.com
, 
www.shareware.com
, etc...)
P.S. comunque questo non e' il newsgroup piu' adatto per queste richieste.
--
Roal Zanazzi
z...@iol.it


All'avvio del pc dovresti premere F2 per entrare nel setup della macchina.
Li ci dovrebbe essere (nel mio c'č, ma non so se č standard) l'opzione
password.
Ciao Bruno
Newsgroup: it.comp.lang.visual-basic
Titolo: Integer da 0 a 65000 invece che da -32... a +32...

Ciao a tutti,
per evitarmi di rivoluzionare un programma avrei bisogno di quanto in 
oggetto se esiste una possibilitŕ.
Grazie per eventuali suggerimenti 


Spiega qual è il vero problema e credo che si riuscirà a trovare una 
soluzione.
Ciao 

Ecco il mio problema
Public Type eeprom
    reporting_period As Integer
    reporting_command As Byte
    eeprom_crc As Integer
    .
    .
    .
    .
End Type
Global Const REPORTING_100MS = 63974
.
.
.
.
Dim configuration As eeprom
configuration.reporting_period = REPORTING_100MS
devo infilare la costante nella variabile di struttura configurata come 
integer ma purtroppo arriva solo fino a 32...
dandomi quindi errore.
Ciao

 dandomi quindi errore.
Il tuo problema č che ti serve una struttura con una determinata sequenza di 
bit, mentre il linguaggio che usi (VB) adotta una notazione decimale, e č 
stato deciso che la notazione dell'intero sia una word segnata, mentre tu 
vuoi una word non segnata.
Il problema in sč č banalmente risolvibile conoscendo le notazioni binarie, 
in quanto la tua variabile Integer puň essere popolata con -1 (che č 
l'equivalente segnato di 65535 non segnato), o direttamente (e forse in 
maniera piů leggibile) con &HFFFF.
Questo, limitatamente al caso in oggetto.
Se poi, in altre situazioni del software in VB, con quel valore devi fare 
dei calcoli...
Beh, allora forse devi rivedere alcune scelte di fondo.
Ciao
Alberto
-- 
E tutto mi sembrava andasse bene... 


Ho fatto un paio di prove e il problema č aggirabile cosě:
Dim MyFalseInt as integer
MyFalseInt = Cint("&H" & Hex(63974))
Ciao 

 Ciao 
Ciao :)
-- 
Quando noi ignoranti eravamo di più, tutto era più bello...
(A. Celentano)
Per rispondermi in privato, togli prima l'immondizia dalla testa ;)

 MyFalseInt = &HFE96
Giusto, la mia era solo per renderlo "dinamico" :)
Ciao 

Grazie a tutti per i consigli molto utili.
Newsgroup: it.comp.lang.visual-basic
Titolo: handle

Come si ottiene in Vb l'handle di una finestra?
e di un textbox?
e di qualsiasi oggetto al quale debba accedere ad esempio da una classe?
quindi senza poter fare nessun riferimento fisso.
Grazie
Ciao

 e di un textbox?
Un TextBox _鑏 una finestra  :)
Guarda MSDN alle voci:
GetWindow()
EnumWindows()
EnumChildWindows()
FindWindow()
In Rete trovi un sacco di esempi e documentazione.
--
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: COM, CDONTS o Excel ?

Salve a tutti.
Ho creato un piccolo oggetto COM che, ricevendo in
input una stringa SQL ed un indirizzo E-mail, ha il compito di:
1) reperire i dati dal DB con l'istruzione SQL;
2) creare un documento EXCEL dove scrive i dati;
3) inviare il file EXCEL, come attachment,  all'indirizzo email ricevuto.
Il tutto funziona bene pero' una vola ricevuta l'email
non riesco a leggere il documento excel.
Mi da questo errore :
-Impossibile accedere a 'file.xls'. Il file potrebbe essere di sola lettura, si sta tentando di
-accedere a una posizione di sola lettura o il server sul quale il documento č
-memorizzato non risponde.
Pero' il documento si apre correttamente se:
1) Apro il documento direttamente nel server;
2) trasferisco il documento dal server al mio PC con il Mouse;
Avete dei suggerimenti ?
Grazie in anticipo

 Grazie in anticipo
Butto li'.....
Secondo me, non invii il file Excel ma un colegamento ad esso!!
--
Ivan Castellaro
Mettere un punto tra nome e cognome per l'e-mail.
ivancas...@libero.it


Ho provato, invece che spostare l'attachment con il mouse, 
a fare 'Save Attachments' dal menu di outlook ed ha funzionato.
Il mio problema originario pare superato anche se la curiosità
rimane.
Grazie.
Saluti.
Newsgroup: it.comp.lang.visual-basic
Titolo: [API] SendMessage, una vera tuttofare

Windows fonda buona parte del suo funzionamento interno sui
messaggi che i vari oggetti si scambiano. I controlli di VB, ad esempio,
interpretano determinati messaggi come eventi.
Questa funzione permette di inviarli, fornendo fra l'altro la possibilità di
accedere ad alcune funzionalità "nascoste" dei controlli standard.
Naturalmente non è il suo solo uso...
Dichiarazione:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _
Integer, ByVal lParam As Any) As Long
Alcuni esempi d'uso:
*Chiudere una finestra conoscendone l'handle:
Public Const WM_CLOSE = &H10
SendMessage Finestra.hWnd, WM_CLOSE, 0&, 0&
*Aprire e chiudere da programma una ComboBox:
Const WM_USER = &H400
Const CB_SHOWDROPDOWN = (WM_USER + 15)
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&
' Per aprire
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&
' Per chiudere
*Selezionare il primo elemento di una ListBox che inizia con
    il  testo digitato in una TextBox:
' inserire nel Text1_Change
Const LB_FINDSTRING = &H18F
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, Cstr(Text1.Text))
I seguenti esempi funzionano (dovrebbero, almeno) anche con le nRichTextBox!
*Leggere il numero di linee di una TextBox:
Const EM_GETLINECOUNT = &HBA
NumeroLinee = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0&, 0&)
*Annullamento dell'ultima azione eseguita in una TextBox:
Const EM_UNDO = &HC7
SendMessage(Text1.hWnd, EM_UNDO, 0&, 0&)
*Scrollare il testo in una TextBox:
Const EM_LINESCROLL = &HB6
SendMessage Text1.hwnd, EM_LINESCROLL, 0&, Linee  'scroll verticale
' Valori positivi di Linee vanno in giù, negativi per andare in su.
SendMessage Text1.hwnd, EM_LINESCROLL, Caratteri, 0& ' scroll orizzontale
' Valori positivi di Caratteri vanno a dx, negativi per andare a sx.
*Trovare il numero della linea corrente in una TextBox:
Const EM_LINEFROMCHAR = &HC9
LineaCorrente = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, Text1.SelStart, 0&)
' Attenzione, la linea più in alto è la 0, non la 1
*Leggere la lunghezza della riga di testo corrente in una TextBox:
Const EM_LINELENGTH = &HC1
LunghezzaLinea = SendMessage(Text1.hwnd, EM_LINELENGTH, Text1.SelStart, 0&)
Alla prossima puntata...
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

Ottimo intervento
--
Posted from 
romeo.logikos.it
 [193.70.26.1]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.visual-basic
Titolo: PER ESPERTI: Come accodare una tabella Access in una SQL Server?

Puo' sembrare una domanda semplice, ma in realtà non lo è. A me occorre
accodare la suddetta tabella con un'UNICA ISTRUZIONE SQL (del tipo
INSERT INTO ... FROM ...) senza dovermi scorrere l'intera tabella con il
classico .MOVENEXT . La cosa è abbastanza semplice se le due tabelle
risiedono nello stesso DB, ma nel suddetto caso non sono riuscito a
trovare una valida soluzione, neanche con il DataEnvironment. Potreste
aiutarmi?
Grazie in anticipo.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie in anticipo.
Basta che alleghi la tebelle di SQL nell'MDB,
dopo di che' e' come se fosse una tabella del DB access.
per 'allegare' la tebella puoi usare: Access o il DataManager di VB o
inserire il codice nel tuo programma, prima pero' devi creare un DSN
di ODBC.
HTH
bye
R

 wrote in message
news:f46b1078ecce2c273e0...@mygate.mailgate.org...
Ciao Carlo,
vediamo se ho capito: vuoi inserire i records di una tabella contenuta in un
DB Access in un'altra tabella di un DB SQL Server utilizzando una singola
istruzione T-SQL, giusto?
Se le cose stanno così, puoi ricorrere allo statement OPENROWSET.
Ti allego un semplice esempio che accoda i records della tabella Categories
nel file NWIND.mdb nella relativa tabella in Northwind su SQL Server:
<Eseguire da Query Analyzer>
USE Northwind
INSERT INTO Categories(CategoryName, [Description])
SELECT CategoryName, [Description]
FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'C:\NWIND.mdb';'admin';'',
Categories)
Ciao!
--
Lorenzo Benaglia
UGIdotNET - 
http://www.ugidotnet.org

Newsgroup: it.comp.lang.visual-basic
Titolo: Programmare videogiochi

Forse è una domanda un pò troppo.... "carica"
cmq...
Si possono creare videogiochi 2D/3D con visualbasic??? come??? esistono
libri sull'argomento??? che compilatore è necessario???
grazie a tutti quelli che mi risponderanno
--
Carmine
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
Co-Webmaster di SceptilePage (
http://www.sceptilepage.altervista.org/
 )
giuseppe.giang...@tin.it
 (Togli la scritta NOSPAM)
pikachu...@gmail.com
 (Togli la scritta NOSPAM)
Account Messenger: 
thetot...@msn.com

 che compilatore è necessario???
??? Quello integrato ovviamente...

 ha scritto nel messaggio
news:fPoke.23057$795.7...@twister1.libero.it...


 ha scritto nel messaggio
news:fPoke.23057$795.7...@twister1.libero.it...


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

Vorrei sviluppare un programmino per karaoke, conoscete OCX  che fanno a
caso mio?
Bye BYe

Dovrei sviluppare un programma per karaoke, conoscte OCX che fanno a mio
caso?
Bye
Newsgroup: it.comp.lang.visual-basic
Titolo: visual basic e escaping valori

Salve a tutti, programmo in vb da qualche settimana.
Devo fare, in un programma che sto facendo, ricerche e update su campi che
inserisce l'utente da una form.
Siccome devo anche permettere l'inserimento di caratteri speciali, tipo "
e ', esiste una funzione che faccia escape/deescape delle stringhe.
Il db che uso e' access.
grazie a tutti

 e ', esiste una funzione che faccia escape/deescape delle stringhe.
Se, quando scrivi le query, usi come delimitatore dei campi stringa/testo ',
dovrai solo raddoppiare questi con Replace(stringa,"'","''") e le virgolette
" non dovrebbero darti fastidio. Il contrario ... se il contrario.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ma è possibile una gestione del tipo.....

Ciao a tutti,
vorrei sapere se è possibile ed in che modo avere una gestione di questo
tipo:
- avere un prg Principale che richiami altri prg "figli"
- avere N prg "figli" che interagiscono tra di loro passandosi variabili
(senza Shell) come se fossero dei semplici form, in modo che se devo
utilizzare una determinata finestra che svolge delle specifiche (es.
ricerche, elenchi, calcoli ecc.) in diversi prg, richiamo sempre quel prg ed
interagisco con il passagio di dati. Questo anche per poter ottimizzare il
prodotto qualora dovessi modificare quella funzionalità mi basterà
modificare SOLO quel prg.
Non penso che sia così complicato da gestire in VB.
Io non saprei proprio da dove cominciare.
Grazie a tutti.
Ciao.
Paolo

Certo che puoi fare una cosa del Genere.
O Per lo meno, potresti farlo utilizzando delle ExeDLL.


Grazie per la risposta ma ho provato con gli ActiveX EXE per altri motivi
(considerando che questi prg devono avere dei form) ma non riesco a far
passare le variabili tra i vari EXE.
Paolo.

 - avere N prg "figli" che interagiscono tra di loro passandosi variabili
"Application Server"  
http://utenti.lycos.it/lottoactivex/
---

 ha scritto nel messaggio
news:3%uz8.80903$vF6.2...@news2.tin.it...

Grazie per la risposta ma:
- c'è 1 prg di es in VB6 con un MDIForm e basta
- la guida è incompleta
- il prg di es fa riferimento ad una DLL e non ad un EXE con delle form
Grazie ancora.
Paolo.

 - il prg di es fa riferimento ad una DLL e non ad un EXE con delle form
Certo, perchč come ti ho detto il tutto fa parte di un progetto piů ampio.
Quello che devi includere č il riferimento a AX Application Server, e nella
guida quardare quanto riguarda Application Server.
Se hai problemi contattami pure in privato.
---


ExeDLL?!?!? e che roba è?
suppongo tu voglia dire  ActiveX DLL, giusto?


struttura il tuo progetto come una serie di activex DLL/OCX che un opportuno
main EXE instanzia e richiama alla bisogna; ogni DLL/OCX (o, perchè no,
activex EXE)  esporrà una o più classi, che magari implementano una
interfaccia comune;
mi rendo conto che detta così in due parole, un simile suggerimento rischia
di lasciare il tempo che trova (in effetti sull'argomento sarebbe da
spenderci un po di tempo) ma spero che possa cmq servirti di spunto per
iniziare a studiarti la cosa;
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si imposta la frequenza di un monitor???

Scusate... sono riuscito a salvare e poi modificare la risolucione del
monitor in modo che quando avvio il prog la risoluzione passa a 1024x768 e
quando lo chiudo torna a come prima di aprirlo... ho notato solo ora xo' che
richiudendo il prog mi cambia anche la frequenza del monitor passando da 85
a 60 mhz... come mai? fa tutto da solo quando reimposto la risoluzione a
800x600... come faccio quindi a impostare anche la frequenza a 85???
Mi servirebbe di salvarla in una variabile all'avvio e quando chiudo tornare
alla frequenza salvata...
Grazie!!!

francy ha scritto:

Come fai a cambiare la risoluzione? Non dovresti avere questo problema
perchè la funzione che cambia la risoluzione (ChangeDisplaySettings)
permette di cambiare anche la frequenza.
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/

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

 da cosa può dipendere sencondo voi?
nessuno mi può aiutare?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


prova con datalist1.refresh
ps il requery lo fai prima o dopo l'inserimento?
ciao Ilairo
Newsgroup: it.comp.lang.visual-basic
Titolo: Confrontare 2 record in datagridview

Ciao,
avrei la necessità di verificare se ci sono dei cambiamenti in 2 record di SQL Server. L'idea è quella di mettere questi 2 record in un datagridview per poi verificare le differenze ad esempio:
 
Data            X50    Polvere   Densità
9/5/2022    322        16          400
4/6/2021    322        18          380
 
ho delle caselle di testo che prendono il valore più recente e lo mostrano quindi l'operatore vede
 
X50 = 322
Polvere = 16
Densità = 400
 
vorrei impostare il colore del testo in rosso per Polvere e Densità in quanto sono cambiati mentre X50 rimane in nero non avendo variazioni.
qualche idea?
grazie
Marco

 variazioni. qualche idea?
 
Sulla datagridview lo puoi fare al cellformatting, psuedo codice preso
da internet, a cui manca di controllare e.ColIndex per le varie colonne
che vuoi controllare
 
| Private Sub dgv_DisplayData_Vertical_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgv_DisplayData_Vertical.CellFormatting
|         Try
| 
|             If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "6" Then
| 
|                 e.CellStyle.BackColor = Color.DimGray
|             End If
|             If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "5" Then
|                 e.CellStyle.BackColor = Color.DarkSlateGray
|             End If
|             If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "4" Then
|                 e.CellStyle.BackColor = Color.SlateGray
|             End If
|             If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "3" Then
|                 e.CellStyle.BackColor = Color.LightGray
|             End If
|             If dgv_DisplayData_Vertical.Rows(e.RowIndex).Cells("LevelID").Value.ToString() = "0" Then
|                 e.CellStyle.BackColor = Color.White
|             End If
| 
|         Catch ex As Exception
| 
|         End Try
| 
|     End Sub
 
-- 
Freccia@Bulldozer63 :D
Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire file VBSCRIPT in windows xp (urgente)

Scusate ma come cavolo si fa ad eseguire uno script ?!?
Ho scritto, col wordpad, il seguente script di prova (di nome pop.wsh)
dim whs
set whs = createobject("wscript.shell")
titolo = "benvenuto ...!" & vbcrlf & "sono le ore " & now
wsh.popup titolo,7,,vbokon + vbinformation
adesso dal prompt dei comandi scrivo :
cscript pop.wsh
ma lo stronzo mi risponde :
errore di input : nessun file di script specificato.
Ma il file c'e' e sta nella stessa directory da dove emetto il
comando !
Dove sbaglio ?

Ovvio che il cscript e' installato !
Ho controllato emettendo il comando
C:\cscript e tutto e' ok.

Radicale ha scritto:

nell'estensione innanzitutto, copia incolla del tuo file
dim whs
set whs = createobject("wscript.shell")
titolo = "benvenuto ...!" & vbcrlf & "sono le ore " & now
wsh.popup titolo,7,,vbokon + vbinformation
C:\Documents and Settings\neuromante>cscript pippo.vbs
Microsoft (R) Windows Script Host Versione 5.6
Copyright (C) Microsoft Corporation 1996-2001. Tutti i diritti riservati.
C:\Documents and Settings\neuromante\pippo.vbs(4, 1) Errore di run-time 
di Microsoft VBScript: Proprietą o metodo non supportati dall'oggetto: 
'wsh.popup'
C:\Documents and Settings\neuromante>ren pippo.vbs pippo.wsh
C:\Documents and Settings\neuromante>cscript pippo.wsh
Microsoft (R) Windows Script Host Versione 5.6
Copyright (C) Microsoft Corporation 1996-2001. Tutti i diritti riservati.
Errore di input: Nessun file di script specificato.
C:\Documents and Settings\neuromante>
Chiama il file .vbs e ti da un mex di errore del codice piu
carino per la risoluzione ora non ho tempo ne voglia di controllare che 
errore sia. Ma suppongo che da qui tu possa proseguire.
GL

 Ho scritto, col wordpad, il seguente script di prova (di nome pop.wsh)
'pop.vbs
set oShell = CreateObject("WScript.Shell")
oShell.Popup "message...",3,"title...",vbInformation+vbSystemModal
Set oShell = Nothing
  cscript pop.vbs
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
snip :   
http://snipurl.com/jtur
-- 
Fosco

 Ho scritto, col wordpad, il seguente script di prova (di nome pop.wsh)
'pop.vbs


Grazie a tutti di voi ...
Ora funziona.
Davvero molto gentili.

 > Ho scritto, col wordpad
Comunque meglio il notepad per fare queste cose
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: Numero di una matrice

Come faccio a vedere quel'è il numero più alto
presente in una matrice?
Faccio un esempio:
uso la funzione Split, la stringa che gli ho sottoposto
mi viene divisa in tante altre stringhe, che sono in una matrice
ora: come faccio a sapere quante variabili ha creato complessivamente
nella matrice?
__
energyz
www.energyz.cjb.net

Ciao, se vuoi sapere quante "celle" sono state create da una split, usa il
comando Ubound(matrice)
Ti ritorna il valore richiesto riferivo alla var. matrice.
Bye
--
Tango
www.af.mil
ICQ: 35463931

 ha scritto nel messaggio
news:9ccj5s$9r8$1...@fe2.cs.interbusiness.it...

Il comando UBound(array), dà il numero più alto, per avere sempre la
dimensione esatta dell'array io uso: UBound(array)-LBound(array)
Così se non parte da 0 sono a posto lo stesso...
--
Timothy Redaelli
timothy....@email.it

Così se non parte da 0 sono a posto lo stesso...
UBound(array)-LBound(array) + 1
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] [OT?] Grafici per funzioni 3D

Esistono in giro SW o controlli per il disegno di funzioni 3D, nella forma
cioč
z=f(x,y)?
Quando andavo a scuola usavo un prog. dos chiamato Cartesio, forse della
Borland, ma non ricordo molto, a parte il fatto che girava su monitor a
fosfori verdi...
Volevo sapere se esiste qualcosa del genere e dove reperirlo.
Grazie


--
   Dio ha il copyrigt sui miracoli,
noi li chiamiamo solo lavori difficili
     ..ooOO= MaViMo =OOoo..

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Ado DataControl e password

Il mio problema è questo:
    Aprendo un database che ha una password con gli oggetti ADO
    utilizzo le seguenti istruzioni:
   Set con = New ADODB.Connection
   con.Open "driver={Microsoft Access Driver
(*.mdb)};dbq=C:\inetpub\wwwroot\libri.mdb;pwd=pippo"
Nella mia form  c'è un controllo DataControl che setto in questo modo
data1.databasename=con.defaultdabase  'ho provato anche inserendo
c:\inetpub\wwwroot\libri.mdb
data1.refresh
Nel momento in cui viene eseguita ques'ultima istruzione ottengo il seguente
errore:
errore run-tim '3031' password non valida
Tale problema non sussiste se utilizzo DAO per aprire il database nel
seguente modo:
  ' Set db = OpenDatabase("c:\inetpub\wwwroot\libri.mdb", False, False,
;pwd=pippo;")
 e poi data1.databasename="c:\inetpub\wwwroot\libri.mdb"
 data1.refresh
Vi chiedo quindi come è possibile indicare all'oggetto DataControl quale è
la password del database ?
Grazie a chi mi vorrà aiutare

 wrote in message
8mpeco$4sq$1...@sirmdpsin16.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: devo fare un controllo su di una stringa

in pratica ho una stringa lunga e devo controllare se le prime 7 lettere
sono uguali a una stringa di 7 caratteri
spero di essere stato chiaro
grazie a chi mi risponderà

 ha scritto nel messaggio
news:b1ta7v$ktt$1...@newsreader.mailgate.org...

gurdati le funzioni:
InStr$
Mid$
oppure l'operatore Like
--
bye BlackMagic
ICQ# 85485468

 ebbe l'ardire di profferire:

If left$(StringaDaControllare,7)=StringadiControllo then
fai quel che devi
end if
-- 
The purpose of computing is insight, not numbers.  - Hamming
News 2000 [v 2.06] - 
http://www.akapulce.net/socket2000

Grazie mille troooooooooppo gentili

Newsgroup: it.comp.lang.visual-basic
Titolo: domanda su controllo activex

volendo gestire l'asssitente msagent in un programma vb ho posizionato il
controllo activex sulla form pricipale, per poterlo richiamare da qualsiasi
form come devo fare se la form con l'activex è chiusa?
devo mettere il controllo su ogni form? oppure c'è un altro modo? Grazie a
tutti.

 Grazie a tutti.
ciaociao

 ha scritto nel messaggio
news:c4ghrj$2hpt27$1...@ID-193795.news.uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Software e Garanzia

Esiste una legge che stabilisce il periodo minimo di garanzia da fornire
all'acquirente di un software ?
Se si quale?
Grazie.

 Se si quale?
Garanzia? Acquirente di un "software"?
Garanzia. A voler essere maligni, ma non troppo, bisognerebbe
dire: "la stessa che il produttore dell'ambiente di sviluppo
fornisce allo sviluppatore: nessuna". ;-))
Di norma il software non lo vendi ma concedi licenza d'usarlo.
Per essere piu` precisi bisognerebbe sapere che tipo di
rapporto intercorra tra le parti ovvero, se esiste, che tipo
di contratto.
Se vuoi documentarti in rete dovresti trovare molto materiale.
In libreria un testo "leggibile" mi sembra:
TRIPODI, E. M. "I contratti di informatica", Roma, 1996,
Buffetti, pp. XII-482, L. 59.000 (1998)
con ricca bibliografia.
Trascrivo da questo testo un passo che potrebbe esserti utile:
"Le parti possono inoltre liberamente pattuire che il
venditore si impegni a garantire il buon funzionamento della
cosa venduta per un tempo determinato (art. 1512 c.c.)".
--
Ciao.
Maurizio
--------
?SPQR(C)
 X


EULA?
Di cosa è l'acronimo? End User Licence Abort? o forse End User Licence
Acknowledgment? Confermi?
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 Di cosa è l'acronimo? End User Licence Abort? o forse End
User Licence Acknowledgment? Confermi?
Non e` un acronimo ma la tipica esclamazione del direttore
vendite quando legge i tabulati e si legge "Oila`" (yiddish?):
"Oila`... Guarda quanti ci sono cascati questo Quarter!...".


 cosa venduta per un tempo determinato (art. 1512 c.c.)".
è ovviamente il minimo, ma trattandosi di strutture logiche
che potranno diventare obsolete, ma, se corrette, continueranno
ad esserlo per l'eternità, il tempo determinato, dovrebbe
essere cambiato in < per sempre  > ? o no ?
Il funzionamento di se  5>3 allora viva woody allen,
deve sempre produrre viva woody allen, altrimenti
vuol dire che c'è qualcosa di marcio in danimarca.
o no ?
ramarro.

 o no ?
In Danimarca non so, caro Yorik. Qui i termini della questione
non son la singola istruzione ma la cosa venduta. Nella sua
complessita` e interezza. Considerando l'ambito applicativo e
l'interazione con esso. E, soprattutto, il contratto, e le
cose in questo stabilite. Pacta sunt servanda, i patti vanno
rispettati. Anche in Danimarca, credo. Forse convien leggere
"Tutto quello che avreste voluto sapere sui contratti di
informatica (e non avete mai osato chiedere)". Se e` gia`
stato scritto...


 wrote in message
8loqsu$hnl$2...@nslave2.tin.it...


 di cui tutti, a vari livelli, come è inevitabile, sono
coscienti. :))
:)
Pero`... credo che da che mondo e` mondo si stabiliscano
sempre dei termini temporali entro i quali si e` chiamati a
rispondere. Poi ci sono le prescrizioni e i condoni/giubilei.

Newsgroup: it.comp.lang.visual-basic
Titolo: Modifica di records doppi su un database

Ho un problema.
Rendere univoci records doppi giá archiviati su un database
avendo ovviamente un campo a disposizione per correggere il contenuto del
campo e rendere univoco ogni record.
Qualcuno mi sa indeicare un modo per farlo ?
ho provato con il seguente codice VB6 e ADO
ma lístruzione UpdateBatch va in errore in presenza di records doppi
quindi non riesco ad accedere ad un singolo record e modificarlo quando il
data-base presenta piú records con lo stesso contenuto
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
   On Error GoTo ErrorSection
   cn.ConnectionString = "Data Source=prova;PWD=;PSW="
   cn.Open
   cn.BeginTrans
   rs.Source = "SELECT DISTINCT * FROM tabella2"
   rs.CursorType = adOpenKeyset
   rs.CursorLocation = adUseClient
   rs.LockType = adLockBatchOptimistic
   Set rs.ActiveConnection = cn
   rs.Open
   rs.MoveFirst
   rs!campo3 = 15
   rs.UpdateBatch
   cn.CommitTrans
   cn.Close
   Exit Sub
ErrorSection:
   If cn.Errors.Count <> 0 Then
      MsgBox cn.Errors(0).Number & cn.Errors(0).Description
   Else
      MsgBox Err.Number & Err.Description
   End If
   cn.RollbackTrans
   cn.Close
End Sub

 wrote in message
86rmmo$2n60$1...@stargate1.inet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ado e utenti loggati

Ciao a tutti,
qualcuno potrebbe darmi un aiuto sulla procedura per avere una lista
di utenti loggati ad un db access? Con ado apro una connessione al db, e sul
form principale del progetto, creato in vb6, vorrei utilizzare una listview 
o similare
con controllo timer che elenca gli utenti loggati verificando ogni 5 
secondi.
Ho provato ad usare questa
Function ReturnUserRoster()
Set rst = DB.OpenSchema(adSchemaProviderSpecific _
    , , JET_SCHEMA_USERROSTER)
'Debug.Print rst.GetString ---------------------------Cos� andrebbe
MainMenu.TxtConnect.Text = ""
MainMenu.TxtConnect.Text = rst.GetString
Set rst = Nothing
Set cnn = Nothing
End Function
Ma come ho scritto sulla debug va bene, mi da il nome di connessione, ma di 
un solo utente.
C'� qualche altra procedura? o meglio...in cosa sbaglio?
Grazie a tutti
Sossio
 


Prova cos�:
rst.Filter = "CONNECTED=True"
Do While Not rst.EOF
    Debug.Print rst("LOGIN_NAME"), rst("COMPUTER_NAME")
    rst.MoveNext
Loop
Bye
Raf 

Grazie Rafunk...nel frattempo avevo provato la combinazione con una listview 
e questo codice e funzia a meraviglia
Set rs = DB.OpenSchema(adSchemaProviderSpecific, _
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
MainMenu.LvUs.ListItems.Clear
While Not rs.EOF
Set Item = MainMenu.LvUs.ListItems.Add(, "", rs.Fields(0), 1, 1)
rs.MoveNext
Wend
Aggiornando con timer a 5 secondi, ho la situazione pi� o meno sotto 
controllo!!
Grazie ancora
"Rafunk" <rafun...@NOTHANKSlibero.it> ha scritto nel messaggio 
news:hbrohh$kj6$1...@alix.livenet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] file del cestino

Salve,
qualche giorno fa ho notato che il nome con cui i file vengono memorizzati
in c:\recycle, ovvero nel cestino, è del tipo DCxxxx, cioè è completamente
diverso dai nomi originali dei file. Sapete se c'è qualche api o
qualche altro metodo per risalire al nome originale che aveva il file prima
di essere cestinato?
Grazie.


basta fare Ripristina

> diverso dai nomi originali dei file. Sapete se c'è qualche api o


 ha scritto nel messaggio
news:90558f$kkv$1...@newsserver.cilea.it...


 problema......
uff... all'interno del cestino c'e' un file di nome info2
all'interno di quello c'e' la posizione originale di ogni file
copia (o sposta) il file dal cestino alla locazione originale
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud

Newsgroup: it.comp.lang.visual-basic
Titolo: Help guida VB6

Ciao a tutti !
Ho installato da poco VB6 Prof. (di un mio amico) per creare delle piccole
applicazioni Purtroppo non riesco a fare molto perchè non ho la guida in
linea , infatti appena provo ad accedere alla guida mi compare il seguente
messaggio "L'insieme MSDN non esiste. Reinstallare MSDN".
Ho compiuto degli errori durante l'installazione ?
Grazie in anticipo per l'aiuto.


ciao l'MSDN la guida di VB6 sono due cd a parte
li hai istallati? ciao e tanti auguri
--------------------------------
Inviato via 
http://usenet.iol.it
 

Ho compiuto degli errori durante l'installazione ?
Durante il setup dovrebbe essere comparssa una schermata che proponeva
di installare MSDN. Puoi installarla anche successivamente, fatti dare i cd.
-- 
ciao, hal
Prima di mettere in giro software a pagamento, pero', vedi di prendere
la licenza, altrimenti si tratta di concorrenza sleale ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Come faccio a scatenare un evento da una porzione di testo??????

Mi interesserebbe realizzare una listbox o un textbox o un altro
controllo del genere che contenga del testo e cliccando su una
porzione di questo testo scatenare un evento.
Se qualche anima nobile e generosa puo' fornirmi un aiuto il mio
indirizzo e-mail e'                
a.ad...@mbox.ipacri.it
Grazie				Nino Adragna

porzione di questo testo scatenare un evento.
Non ti basta l'evento "click"  ?
Se la risposta e' no, spiegati meglio.
Ciao Ciao
Giuseppe

 Grazie                          Nino Adragna
  Sono anche io interessato
Gi...@usa.net

un saluto a tutta la lista,
qualcuno sa come si puo' identificare il browser di default?
so che si dovrebbe utilizzare la function ShellExecute ma mi mancano
alcune informazioni sulla sintassi della chiamata API
help
ringrazio anticipatamente chi mi vorra' rispondere con un piccolo
esempio
Mariano

alcune informazioni sulla sintassi della chiamata API
Con la funzione ShellExecute lanci l'applicazione associata ad un
file. In caso ti servisse, ti mando del codice scritto da me che
lancia il browser associato ad un file .HTM.
Sub ApriGuida(ByVal nomefile As String)
'
Dim lngRetVal As Long, strMsg As String
'
lngRetVal = ShellExecute(Main.hwnd, vbNullString, App.Path & "\Guida\"
& nomefile & ".htm", vbNullString, App.Path, 0)
'
If lngRetVal <= 32 Then
  Select Case lngRetVal
  Case ERROR_FILE_NOT_FOUND
    strMsg = "Il file " & UCase$(App.Path & "\Guida\" & nomefile &
".htm") & " non esiste."
  Case ERROR_PATH_NOT_FOUND
    strMsg = "Il percorso " & UCase$(App.Path & "\Guida\" & nomefile &
".htm") & " non esiste."
  Case SE_ERR_ASSOCINCOMPLETE
    strMsg = "L'associazione al file " & UCase$(App.Path & "\Guida\" &
nomefile & ".htm") & " è incompleta o non è valida."
  Case SE_ERR_NOASSOC
    strMsg = "Nessuna applicazione è associata al file " &
UCase$(App.Path & "\Guida\" & nomefile & ".htm")
  Case SE_ERR_SHARE
    strMsg = "Errore di condivisione."
  Case Else
    strMsg = "Si è verificato un errore nell'apertura del file " &
UCase$(App.Path & "\Guida\" & nomefile & ".htm")
  End Select
  Beep
  MsgBox strMsg & vbCr & "Impossibile visualizzare la guida",
vbInformation
End If
'
End Sub
Ciao
Nando

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6 IDE] Come si tolgono i progetti recenti dall'IDE di VB?

Ciao a tutti,
qualcuno sa dirmi come posso "ripulire" la lista dei progetti recenti
nell'IDE di Visual Basic 6?
Grazie a tutti
Ciao
Daniele

 nell'IDE di Visual Basic 6?
Dai un occhiata nel registry, ecco la chiave
HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown
Newsgroup: it.comp.lang.visual-basic
Titolo: Transaction Server

Qualcuno ha lavorato con le transaction server e visual basic???
Come si possono fare delle aplicazioni client condividendo degli activex
installate in un transaction server su un'altra macchina???
Se sapete qualcosa... in mail !! grazie!!

installate in un transaction server su un'altra macchina???
Per MTS si possono scivere normali Activex DLL monitente, un utilty di MTS
generera' automaticamente l'exe da installare sul Client per esegure
remotamente il componente.
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/


Un altro di quelli che vogliono la risposta in e-mail, magari con
anche il codice già bello e compilato...
O tempora o mores!
(Ovvero le buone maniere stanno proprio andando fuori moda)
P.S. Ma perchè c'é sempre qualcuno che si prende la briga di
rispondere a questa gente? Mi sembra che sul NG ci sia già abbastanza
disturbo: 100 messaggi al giorno di cui generalmente almeno venti
ripetuti più o meno volontariamente e altri venti che si potrebbero
evitare leggendo qualche riga di help o manuali....
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Recordset...Dov'è l'errore?

proprio non riesco a capire dove sia l'errore della prima istruzione...
qualcuno mi sa aiutare o suggerire qualcosa da controllare?
Private Sub Form_Load()
 Data1.Recordset.MoveFirst
 For i = 1 To Data1.Recordset.RecordCount
  cmbNome.AddItem (Data1.Recordset!nome)
  Data1.Recordset.movenext
 Next i
End Sub
grazie!

 End Sub
prova a cambiare il ciclo...
Data1.Recordset.MoveFirst
Do While data1.Recordset.EOF = False
    cmbNome.AddItem (Data1.Recordset!nome)
    Data1.Recordset.movenext
loop
data1.recordset.movelast
dimmi se va ;-)

Paolo C. wrote:

Poichč alludi alla prima istruzione, penso che tu ti riferisca alla: 
Data1.Recordset.MoveFirst
Se č cosi', l'errore dovrebbe dipendere dal fatto che il recordset č vuoto.

 vuoto.
oppure che in Data.Recordsource non e' ancora disponibile !
Paolo C. attento ad operare in questo modo, quell'istruzione messa li'
nell'on load non e' molto "sicura" !
Ti consiglierei due metodi alternativi,
1) spostare il codice da qualche altra parte da attivare DOPO il load
2) inserire tutto il codice necessario sempre e cmq anche se ripetitivo es:
Private Sub Form_Load()
 data1.databasename = "nomeDB"
 data1.recordsource = "nomeTabella"
 data1.refresh
 '''' Data1.Recordset.MoveFirst non serve, con dao automaticamente ti
posizioni sul primo record
 '''' For i = 1 To Data1.Recordset.RecordCount
do until data1.recordset.eof  'con l'oggetto data basta testare l'eof
  cmbNome.AddItem (Data1.Recordset!nome)
  Data1.Recordset.movenext
loop
End Sub
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

si puň essere, ma utilizzando il controllo data non dovrebbe fare uttto da
solo?se non č cosě come faccio a "riempire" il recordset con i dati del
database?
grazie a tutti


In effetti l'osservazione di Gigio2K č quella piu' probabile e, 
comunque, la prima ad essere da te verificata. Infatti, io non avevo 
notato che il tuo codice e' inserito nell'evento Load del form e dunque, 
considerato che a quel livello (come giustamente ci ricorda Gigio) il 
controllo Data non č ancora disponibile, l'errore da te lamentato 
dovrebbe essere quello di Variabile oggetto non impostata.
Peraltro, rimane valida anche la mia osservazione fatta nel post 
precedente. A te il compito di verificare (ad es., spostando il codice 
nell'evento Activate del form) e, se ti fa piacere, tenerci aggiornati.
Ciao.

ho gestito la situazione con i file sequenziali, metodo vecchio, antiquato,
ma che funziona alla perfezione :-)
però proverò a farlo anche con il database e vi farò sapere... è il minimo
per l'aiuto che mi avete dato!
cmq si l'errore è variabile oggetto non impostata


--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo di LIKE

Ho necessità di effettuare una query su un DB utilizzando SQL.
In un campo ZZ ci sono più parole.
La query dovrebbe estrapolarmi solo quei record con una specifica parola. Ho
usato LIKE ma non ha sortito l'effetto desidrato.
Qualcuna sa perfavore dirmi come risolvere il problema.
Istruzione SQL
"Select From DB AA=" & sssssss & " ' and ZZ Like ' " & parola & " ' "

 ha scritto

puoi provare
select * from [nome_tabella] where [nome_campo] like "*" & parola & "*"


Credo che la query debba essere del tipo
"SELECT campo1,campo2,.. FROM tabella WHERE campoX='" & stringa1& " ' and
campoY Like ' " & stringa2 & " ' "
Nella tua query non ho capito
- se ti sei dimenticato un * dopo la SELECT
- se la tabella si chiama effettivamente DB o se con questo intendevi il tuo
Data Base
Comunque in attesa di eventuali chiarimenti colgo l'occasione per postare
una funzioncina che risolve il problema degli apici nelle WHERE (argomento
trito e ritrito) ma soprattutto dell'uso dei caratteri jolly % e _ nelle
LIKE
Saluti
locaduck
----------------------------------------------------------------------------
--
Function SQLfix(ByVal strToFixString As String, Optional blnIsLike As
Boolean = False) As String
Dim Count As Integer
Dim strTemp As String
Dim blnDoLike As Boolean
strTemp = ""
' if the string does not countain %_' returns it as is
If Not (InStr(strToFixString, "'") > 0 Or _
        InStr(strToFixString, "%") > 0 Or _
        InStr(strToFixString, "_") > 0) Then
    SQLfix = strToFixString
Else
   For Count = 1 To Len(strToFixString)
        blnDoLike = blnIsLike And (Mid(strToFixString, Count, 1) = "_" Or
Mid(strToFixString, Count, 1) = "%")
        'insert [ in output sring
        If blnDoLike Then strTemp = strTemp & "["
        'insert current char in output string
        strTemp = strTemp & Mid(strToFixString, Count, 1)
        'if current char is ' add another '
        If Mid(strToFixString, Count, 1) = "'" Then strTemp = strTemp & "'"
        'insert [ in output sring
        If blnDoLike Then strTemp = strTemp & "["
   Next Count
   SQLfix = strTemp
End If
End Function


Scusate, ho scritto una mocrocappella per quanto riguarda la query,
domenticando  % -SQL Standard- o * -Access-: Pal docet.
Comunque mi premeva postare la rimante parte.
Saluti
locaduck

 "Select From DB AA=" & sssssss & " ' and ZZ Like ' " & parola & " ' "
... hai solo sbagliato digitando?
Non vedo la Where...    :-)
--
___________________________________________
                             Davide Deidda
URL      
http://web.tiscalinet.it/meridies
E-Mail          
davide...@tiscalinet.it
___________________________________________





grazie per i suggerimenti !!