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

devo usare una combo con una key di tipo string
ma lui vuole un integer
c'e' un modo per risolvere il problema?
Grazie

 ma lui vuole un integer
Quel 'lui' suona tipo "Grande Fratello" di Orwell, o stile "Lui ti vede..."
Alberto

 ha scritto nel messaggio
news:Z88c8.16314$8F6.6...@twister2.libero.it...


 wrote in message
news:a4r645$69i$1...@newsreader.mailgate.org...



Potresti convertire (se sono solo due caratteri come nell'esempio) i
caratteri in numero:
Dim TXT as String
Dim NM as Long
TXT="AC"
NM=Asc(Left$(TXT,1))*256 + Asc(Right$(TXT,1))
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: ?Arrotondare allo intero successivo

Come si fa per arrotondare un numero decimale al suo intero successivo???
ad es la miaVar mi restituisce 1,3 ed io devo forzarlo a 2
Grazie per l'aiuto che sono certo non mancherà!!!
Ciao

ad es la miaVar mi restituisce 1,3 ed io devo forzarlo a 2
VarEccesso=Fix(miavar)+1
Ciao
Daniele




...


Numero=Int(Numero+0,999)
Ciao

VarEccesso=Fix(miavar)+1
In questa maniera:
miavar=1
VarEccesso=2 !
E' + corretto
VarEccesso=fix(miavar+0.5)
oppure int.....

oppure int.....
Come hai scritto te:
miavar=1.3
VarEccesso=1
Il mio metodo serviva per arrotondare i numeri all'intero successivo, quindi
che senso  ha passargli un intero?
Se proprio vogliamo potergli passare numeri interi la linea di codice
diventa:
a=Variabile da arrotondare al numero successivo
If Fix(a) <> a Then a = Fix(a) + 1
Ciao
Daniele

Ciao, pure io ho dovuto fare un programma con una funzione simile
Text1.text = 1,3
text2.text = CINT(text1.text)
If text2.text < text1.text then
  text2.text = val(text2.text) + 1
end if
per qualche informazione in più puoi contattarmi a 
gen...@tin.it
ciao Fausto

Visto che non mi pare di aver visto soluzioni completamente corrette, mi
pare che la soluzione sia:
Function Ceil(ByVal x As Double) As Long
    Ceil = -Int(-x)
End Function
P.S. La soluzione non e' mia, non ricordo chi l'abbia avuta. E' comunque di
un frequentatore di questo NG.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Videogames

Salve, mi chiamo Marco Malentacchi e ho 17 anni.
Credo che VB sia un ottimo strumento per lo sviluppo di videogames, ma prima
di cimentarmi nella programmazione di un bel videogame devo conoscere alcune
funzioni di base.
Vorrei pertanto fare alcune domande (che suppongo siano di interesse
generale):
1)  Qual č il modo piů semplice di ottenere bitmap trasparenti con la
chiamata alla funzione BitBlt? (senza dover costruire una maschera per ogni
immagine).
2)  C'č un modo per ruotare le immagini?
3)  E per dar loro un effetto di trasparenza? (in modo che si veda lo sfondo
attraverso esse).
4)  E' possibile deformarle in qualsiasi modo (come si fa ad esempio con
iPhotoPlus 4) ?
5)  E' possibile riprodurre piů effetti sonori wave contemporaneamente?
6)  Si puň scegliere il bilanciamento di un effetto sonoro wave (il suo
volume nel canale destro e sinistro)?
So che sono tante domande e forse anche difficili da rispondere, ma a mio
parere sono funzioni molto utili.
Ringrazio chiunque abbia la pazienza di rispondermi.
Marco Malentacchi (
ludwi...@libero.it
)

 funzioni di base.
Per tutte le tue richieste la risposta migliore è usare le DirectX che dalla
versione 7 in poi sono richiamabili anche da Visual Basic (anche prima a
dire la verità, tramite la chiamata ad alcune dll di wrapper).
 Prova a dare una occhiata a questo sito:
http://www.chez.com/scribe/index.htm
Ciao
*Roby*

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTOOOO!!! DATAREPORT!!!

AIUTTOOOOOOOO!!!
Ciao Ragazzi
Il mio problema e' questo....:
Ho  connesso il mio datareport al programma che ho fatto via
codice..passando la stringa sql al command del dataenvironment..fino a qui
tutto Ok!!
Il problema sorge quando voglio inserire nel report dei calcoli tipo : somme
di dati di alcuni campi ..che posso generare da codice sul report...
Ossia come posso passare dei dati dalla form al datareport senza passare
attravero un dbase?
Grazie e ciao!!

DataReport1.Sections("IntestazioneReport").Controls
("lblNomeC").Caption = Valore
Section - Identifica la sezione del report
Controls - Nome del controllo a cui fare riferimento
Caption - Una delle proprietą del controllo
Ciao Bodo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come fare ad mettere piu' oggetti contemporaneamente nella clipboard

Siccome devo registrare su un file BMP una picture box con delle label
che ho messo sull'immagine, volevo sapere come si possono mettere
entrambi gli oggetti contemporaneamente nella clipboard in modo da
salvarli in unico grafico.
-----------------------------
Ciao a tutti da FEliX 73
EMail:f.fas...@NOSPAMflashnet.it

 wrote in message 38971df3...@news.tin.it...


Spero di esserti stato utile
Ciao Davide, mi sei stato utilissimo!
Infatti ora non utilizzo nemmeno la clipboard, ma registro
direttamente la picture con savepicture.
Grazie!

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 ed Access2007 con ADO: error

Salve,
il seguente codice mi da errore x la modifica di un record con ADO:
Dim sPath As String
    sPath = App.PATH & "\" & anno_chiesto & ".accdb"
    PATHMDB = sPath
    Dim Cn As New adodb.Connection
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & PATHMDB & 
";Persist Security Info=False;"
    Dim rs As New adodb.Recordset
    'rs.CursorType = adOpenStatic
    sSql = ""
    sSql = "SELECT tbl_Pagamenti.* FROM tbl_Pagamenti" _
            & " WHERE tbl_Pagamenti.mesi <> 0" _
            & " ORDER BY tbl_Pagamenti.desc"
    rs.Open sSql, Cn
    rs.MoveFirst
    rs.Fields("mesi") = 0    'QUI' DA ERRORE...
    rs.Update
-------
Errore 3251: il set di record non supporta l'aggiornamento...
Come mai?
Ho guardato se era dovuto al "'rs.CursorType = adOpenStatic" ma nulla.
Suggerimenti?
Grazie,
S&C

 ha scritto nel messaggio 
news:4a0c33f3$0$1111$4faf...@reader4.news.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Mi controllate queste poche righe...

Salve,
stò leggendo dal mio libro magico il capitolo dedicato ai parametri,
in particolare "come usare argomenti con nome..." ho provato questo
semplice esempietto ma già non mi funziona...mi date un occhio please.
Questo è quanto:
Private Sub Command2_Click()
    draw blu:=0.3, green:=0.5, red:=5
    Shape1.FillColor = prova
End Sub
Private Sub draw(red, green, blu)
    prova = RGB(red * 256, green * 256, blu * 256)
End Sub
quello che mi aspettavo era il quadrato (shape1) che cambiava colore
quando io spingevo il bottone, invece qualunque valore do a blu, green
e red mi si colora sempre di nero...humm, me sa che non và :) Perchè?
Saluti, ciao ciao.


dovrebbe essere
Private Sub Draw(red, green, blu)
     Shape1.FillColor = RGB(red * 256, green * 256, blu * 256)
End Sub
oppure
Private Sub Command2_Click()
    Shape1.FillColor = Draw(blu:=0.3, green:=0.5, red:=5)
End Sub
Private Function Draw(red, green, blu) As Long
    Draw = RGB(red * 256, green * 256, blu * 256)
End Sub
Ciao
Faber

 wrote in message
MS1x5.32558$XZ4.3...@news.infostrada.it...
Newsgroup: it.comp.lang.visual-basic
Titolo: Velocita di esecuzione !!!!

Devo fare un programma che confronti il contenuto dei files di una
directory con un'altra uguale e verificare se ci sono differenze
in Borland C per Windows il programma impiega circa 7 sec per una
specifica directory, il programma fatto in VB ne richiede 24
Chi mi sa dire se esiste un metodo per avvicinare le prestazioni del
VB al C in questo tipo di software (lettura files e confronto di dati
in memoria)
Ciao a Tutti
Marco Tozzini
Un neo-programmatore di VB
Marco Tozzini
Home Page > 
http://www.geocities.com/MotorCity/3906
E-Mail    > 
marcot...@geocities.com
Reply     > without NON_MI_ROMPERE in the E-Mail
Qualcuno ha visto passare DIO? avrei un paio di domande da fargli!
(dedicato a Romina)

 in memoria)
Guarda, ti faccio diventare le prestazioni del VB Uguali-Uguali a quelle
del
Borland C.
Basta che con la funzione fatta in "Borland C" ci fai una DLL, e la
richiami dal
Visual Basic.
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes


Se hai VB5 potresti provare a compilare il programma in modo nativo (non
P-CODE, che e' interpretato a runtime), basta che scegli le opzioni di
compilazione quando crei l'EXE. Ma anche in questo caso non credo che
arriverai alla performance di Borland C.
Se vuoi un consiglio, per certi programmi (beh, direi tutti...) lascia
perdere VB, torna al Borland C o, se vuoi qualcosa di piu' facile, passa a
Borland Delphi.
In entrambi i casi non c'e' paragone, sono moooooolto meglio di VB.
(parere personale ma non troppo)
--
Roal Zanazzi
z...@iol.it


Probabilmente il problema sta nel modo in cui confronti le strighe che
leggi dai files. VB5, se compilato, non dovrebbe discostarsi molto dal
C.
Certo che se per recuperare il quinto carattere di una riga in VB usi
Mid$( Riga, 5, 1) le cose diventano eterne rispetto al Riga[4] che
useresti in C.
Insomma, credo che sia quella la parte da ottimizzare. Ho paura che
potresti finere a doverti scrivere una DLL in C, cosa che tra l'altro
non è neanche terribile per problemi di questo genere.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

arriverai alla performance di Borland C.
Ti ringrazio ma PURTROPPO lo stavo gia' facento!!!!!!!!!!!!!!!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot]crystal report e condizione " STAMPA SE "

Possibile che con CR non si possa impostare nei campi dei report una
condizione "stampa se "  ?
E' possibile solo impostare una condizione "non stampare se " ? ( sarebbe il
SUPPRESS )
Questo è un problema , perchè alcuni campi da stampare contengono valori
oppure possono essere  vuoti (blank) , e non riesco quindi a dire "stampa se
non è vuoto "  !
Potrei dire "se vale X "  stampalo , ma appunto non riesco a trovare a
impostare la condizione "stampa se" .
Grazie e saluti

Dispongo della versione CR7, ma la logica dovrebbe essere la stessa anche 
nelle versioni successive.
Nel menu Formato/Sezione... seleziona la sezione in cui è presente il campo.
Poi, abilita l'opzione "ometti sezioni vuote" eventualmente indicando con il 
pulsante affianco (editor formula) quale condizione desideri.
-- 
Ettore Massimo Albani 


purtroppo nella sezione ci sono anche altri campi , per cui non posso 
attuare questa soluzione.
Alla fine casualmente  ho trovato la funzione ISNULL :
non stampare se  ISNULL ( campo da testare  ) č true ,  e cosě non mi stampa 
il campo quando il test č positivo.
PS : Non c'č un elenco di funzioni , cosě evito di cercarle ?
Nell' editor la funzione ISNULL non compare nell'elenco funzioni 
disponibili.
Trovo comunque strano che un prodotto come CR non abbia la condizione PRINT 
IF  , probabilmente non la trovo io .
ciao 

 impostare la condizione "stampa se" .
Non uso CR da tempo, ma non ti basta negare la condizione?
Cioè se metti
Suppress: x=5
Suppress: Not (x=5)

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio news:1k2t0z6kha4s3$.1esjugl4d438k$.dlg@40tude.net...

non sempre si può negare una condizione .
Ad es. :
stampa se il campo contiene il valore   X   ( il campo può contenere , 
x,y,x,etc,,.......  e anche NULL )
ma se il campo contiene NULL  , non si può dire :
stampa se il campo NON contiene il valore NULL  , perchè non saprei come 
indicare quaesto valore NULL .
Allora per fortuna c'è la funzione ISNULL(campo)  ,  ma è una complicazione.

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel
messaggio news:1k2t0z6kha4s3$.1esjugl4d438k$.dlg@40tude.net...

non sempre si può negare una condizione .


Newsgroup: it.comp.lang.visual-basic
Titolo: [2? Data Grid] Before Update

Ho bisogno di un consiglio ...
Ho una Data Grid legata ad un recordset su cui consento l'effettuazione
di inserimenti,modifiche e cancellazioni (VB6 Sp3 e Ado 2.1).
Voglio effettuare alcune verifiche prima di propagare i valori dalla
Data Grid al recordset correlato, ed ho individuato nell'evento della
griglia "Before update" il luogo ove effettuare le verifiche.
Ho un bottone da cui effettuo recordset.Update ... scatta l'evento
before update,
setto Cancel = True, ma il focus si sposta dalla griglia comunque ...
Quindi non so come fare ...

 wrote in message
38EC3663...@deagostini.it...


FAcE wrote:

Si, ma da quale evento devo richiamarlo  ?

 wrote in message
38EC5FE3...@deagostini.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Editare la ListView

Salve a tutti
in una listview č possibile intercettare la colonna e la riga (quindi il
subitem) sul quale clicco con il mouse, in modo tale da poter poi editare
direttamente il subitem anziche l'item principale?
Qualcuno ha qualche idea interessante?
grazie
ciao

>direttamente il subitem anziche l'item principale?
No. By design come direbbe Microsoft.
Antonio

 direttamente il subitem anziche l'item principale?

Newsgroup: it.comp.lang.visual-basic
Titolo: Finestra Popup

Ho creato una finestra che fa vedere il contenuto di una cartella con le
seguenti righe di comando:
Dim OShell as Object
Set OShell=CreateObject("Shell.Application")
OShell.Open("C:\Documenti")
La domanda è se è possibile creare la finestra come Popup.
La funzione API SetWindowLong non prevede la possibilità di modificare
questo parametro a posteriori che io sappia.
Il tutto per evitare di usare la complicatissima funzione API CreateWindowEx
con cui non sono riuscito a creare una finestra che faccia vedere il
contenuto di una cartella.
Se qualcuno mi può mandare un esauriente esempio in merito a quest'ultima
possibilità provo ad applicarlo.
Grazie

Ungi wrote:

Scusami, ma non riesco a comprendere esattamente cosa vuoi ottenere...
Infatti, potrebbe anche esserti utile una banale FileListBox oppure un 
FileDialog.
Pertanto, la mia contro-domanda è: a quale scopo devi visualizzare il 
contenuto di una cartella?
ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

OShell.Open("C:\Documenti")
[cut]
perche' non adoperi semplicemente explorer ?
al posto del WSH  .. dopo per il resto non so cosa vuoi
fare esattamente .. ma l'explorer e' IMO un miglior
approccio che non lo scripting
Private Sub Form_Load()
Shell "explorer.exe c:\documenti", vbMaximizedFocus
End Sub
--
Fosco

"Fosco" <fa...@fake.invalid> ha scritto nel messaggio
news:TGQke.12157$TR5....@news.edisontel.com...

Innanzitutto vi ringrazio per l'attenzione, detto questo specifico che:
In questo NG sono "abusivo" nel senso che quello che mi serve lo svilupperò
in Vba di Access, ma ho scritto anche qui per avere più riscontri.
In Access non sono riuscito a trovare i controlli DriListBox e FileListBox
che forse potrebbero fare al mio caso.
In dettaglio ecco cosa mi servirebbe:
Ho creato un applicativo per la gestione di appuntamenti (convegni,
dibattiti, lezioni ecc).
Ad ognuno di questi appuntamenti possono essere collegati dei file (per
esempio i lucidi di una lezione).
Per ogni appuntamento l'applicativo crea una cartella nominandola con un
numero progressivo.
Per l'utente quindi non è agevole, volendo vedere i file collegati
all'appuntamento aprire la cartella corrispondente.
Ho creato una Listbox che elenca gli appuntamenti: quando si selezionano uno
o più appuntamenti il programma dovrebbe aprire in finestre separata le
cartelle corrispondenti.
Il suggerimento di Fosco va benissimo perchè è proprio quello che mi serve,
solo che le finestre dovrebbero essere Popup  e dovrei poterle distruggere
quando la selezione degli appuntamenti cambia. Esiste la API DestroyWindow e
sono anche riuscito a trovare gli Handle delle finestre aperte tramite
FindWindow solo che in che in questo modo il comando DestroyWindow non
funziona.
Riassumendo devo poter creare una o più finestre Popup posizionate su
determinate cartelle che il programma conosce e con la possibilità di
distruggerle quando non servono più.
Sono sicuro che CreateWindowEx completa come è potrà fare tutto ciò ma la
sua sintassi mi spaventa.
Grazie
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: aspettare la fine copia di un file

Salve a tutti.
Sto scrivendo una cazzabubbola che deve lavorare su dei files creandone
una copia nella cartella temporanea di sistema da un disco del server.
La durata del processo di copia non è fissa (ovviamente) e spesso
l'esecuzione del programma continua anche se il file non è completamente
copiato.
Avrei bisogno di una dritta su come attendere la fine della copia.
Uso l'istruzione FileCopy e se riuscissi a capire come farmi restituire
il ProcessID potrei usare una cosa del tipo:
FileCopy(bla,bla)
If Wait Then
        Do While IsProcessRunning(ProcessIDdelFileCopy)
            DoEvents
        Loop
End If
--------
con 
Function IsProcessRunning(ByVal idProc As Long) As Boolean
Dim hProc As Long
Dim iExit As Long
    ' Get process handle
    hProc = OpenProcess(PROCESS_ALL_ACCESS, False, idProc)
    If hProc = 0 Then
        IsProcessRunning = False
    Else
        GetExitCodeProcess hProc, iExit
        IsProcessRunning = (iExit = STILL_ACTIVE)
    End If
    CloseHandle hProc
End Function
avete suggerimenti?!?!?!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 If Wait Then
non capisco: FileCopy non e' sincrona?
-- 
ciao, hal

 ha scritto

per una scopo simile, ma non mi serviva l'id, solo la copia, ho usato
shfileoperation.
puoi guardare l'esempio in:
http://www.gbcdepot.com/free/vb_esempi/
ciao, a.

 non capisco: FileCopy non e' sincrona?
Scusa l'ignoranza, ma cosa intendi con sincrona?
Buon weekend
P.


 Scusa l'ignoranza, ma cosa intendi con sincrona?
Nel senso che non ritorna finche' non ha finito di
fare la copia.
-- 
ciao, hal

 fare la copia.
A quanto pare sembra di no... o almeno a me! Come ripeto sono una
pippa...
Ciaux


 A quanto pare sembra di no... o almeno a me! 
Siccome mi hai messo il dubbio, ho fatto un test,
con vb6 sp5 su win2k sp4.
Ho compilato in codice nativo quanto segue:
<CODE>
Option Explicit
Sub Main()
     Dim src As String
     Dim dst As String
     Dim inizio As Single
     Dim fine As Single
     src = <percorso_di_rete_ad_un_file_di_16_MB>
     dst = <alto_percorso_di_rete_come_destinazione>
     inizio = Timer()
     Call FileCopy(src, dst)
     fine = Timer()
     MsgBox CStr(fine - inizio), vbInformation, "Test FileCopy"
End Sub
</CODE>
La message box ha risposto cosi':
---------------------------
Test FileCopy
---------------------------
19,15625
---------------------------
OK
---------------------------
Mi pare quindi che la chiamata sia sincrona.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP! Chi mi aiuta

Sto cercando un controllo vb5 che ni permetta di stampare su etichette
codici a barra di diverso standard e che io posso decidere come
costruirli.
Vorrei qualche indirizzo web di costruttori di controlli aggiuntivi per
vb.
Grazie a tutti quelli che risponderanno.

in tin.it.comp.visbasic c'è un msg che fa al caso tuo:
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)

fai prima su 
www.activex.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Come iniziare?

Ciao a tutti,
spero che la mia domanda non vi dia noia, so che rispondete spesso a
questo genere, ma sono nuovo in Visual Basic :(
Ho acquistato una guida in libreria e vorrei cominciare.
Ma non riesco a capire sul sito della Microsoft qual'è il frameword
per Vb. Mi aiutate?
Grazie

 per Vb. Mi aiutate?
Ti direi di leggerla un po' la guida...

 Ti direi di leggerla un po' la guida...
Salta questo punto e passa direttamente a programmare :(

 
Prova qui
http://beta.visual-basic.it/default.aspx?tabid=91

 
http://beta.visual-basic.it/default.aspx?tabid=91
Visual Basic 2005 Express Italiano (ISO File), vero?


...
Ma che guida hai comprato?
E poi, intendi 
vb.net
 vero?
E poi... si chiama frameworK non frameworD...
Scaricati la ISO di vb2005 express a questo punto.
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 ha scritto nel messaggio 
news:1154358789.5...@i42g2000cwa.googlegroups.com...

Ciao
vorrei cominciare anche io, ma e' una versione limitata? come mai 
gratuita(mi son chiesto tra me e me)?
grazie
Alf

 Alf
Sarà gratuita, per invogliare a passare all'edizione superiore, vecchissima 
mossa di mercato, credo si facesse così anche ai tempi del baratto :-)
Ciao !

Mirko ha scritto:

si iso, li masterizzi li hai sempre a portata di mano
Newsgroup: it.comp.lang.visual-basic
Titolo: SQL cominciamo male...

Ragazzi sto cercando di capire SQL ma mi sa che comincia male.
Uso VB6 e access 97, i record nel db ci sono....
perchè non funziona?
ho anche visto che l'EOF e BOF sono entrambi veri... quindi sembrerebbe
vuoto !!??
gli errori li ho descritti in corrispondenza delle righe che li generano
dove sbaglio?     Per favore fatemi capire, grazie
---------------
Private DB As Database
Private RS As Recordset
-----------------------
Private Sub Form_Load
  Set DB = OpenDatabase(App.Path & "\allievi.mdb")
end sub
----------------------
Sub controllaIdonei()
    Dim MySel As String
   MySel = "SELECT * FROM ALLIEVI  WHERE Benef=true ORDER BY NOME"
   Apridb (MySel)
End Sub
---------------------
Private Sub Apridb(Filtro As String)
    Dim trova As Integer
    Set RS = DB.OpenRecordset(Filtro)
    RS.MoveFirst  ' **** a questo punto mi da errore "Nessun record
corrente" ****
    For trova = 1 To RS.RecordCount ' **** Qui mi da RS.RecordCount = 0 ****
        'List1.AddItem RS!Nome
        RS.MoveNext
    Next trova
End Sub
-- 
Posted from 
mail-5.tiscalinet.it
 [195.130.225.151] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

probabilmente il problema è che i campi che access considerava booleani non
sono tali in SQL oppure in Access il valore -1 è = true mentr in SQL no
In soldoni: i booleani secondo me dovrbbero essere definitivamente banditi
dai db a
favore dei piu' semplici 'S' o 'N'
Comunque tutti i problemi derivano dal fatto che la query non ritorna nessun
record.
infatti non si può fare un movefirst se non ci sono record e chiaramente
recordcount torna 0
Se togli la clausola where vedrai che funziona.
PS: I booleani non sono l'unica differenza di cui tenere conto nelle query
per access e per sql...






Ciao Paolo,


 


Nella tua select sql, puoi semplicemente 
sostituire il True
 
con -1 ed il False con 
0.


 


P.S. Visto che sei agli inizi lascia perdere 
DAO o RDO ormai abbandonati ed utilizza ADO.


 


Ciao Giuseppe.


 



Grazie a tutti
Verchero' materiale su ADO
-- 
Posted from 
mail-4.tiscalinet.it
 [195.130.225.150] 


 wrote in message
000901c0b6e1$e6f3ad40$07690b3e@vegettossj...

devi inserire gli spazi prima e dopo '='
Newsgroup: it.comp.lang.visual-basic
Titolo: Passare una matrice di collection/garbage collection

Salve! Ho un problema che spero si possa risolvere.
Nel mio progetto c'e' una dll scritta in VB che dopo alcune computazioni
restituisce una matrice bidimensionale di collection. Quando il metodo
che richiama la dll arriva al End Sub il computer entra in loop
impallandosi, portando l'occupazione della cpu al 100% e costringendomi
a chiudere manualmente il visual basic, cosa potrebbe essere? Forse VB
ha problemi a deallocare la matrice quando deve rilasciare le variabili
locali? C'e' qualche cosa che posso fare per evitare questo?
Avrei pensato a questo punto di non usare le collection , bensi far
restituire alla dll la matrice numerica semplice, pero' non so come si
fa a restituire una struttura matriciale a VB da una dll, qualche
suggerimento?? grazie in anticipo!! ^_^
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

fa a restituire una struttura matriciale a VB da una dll
La dll e' scritta in vb, ho capito bene? Puoi restituire la matrice in
un colpo solo o come ritorno di funzione (eventualmente contenuta in
un Variant, poi fai il cast) o come argomento in/out della funzione
o come proprieta' indicizzata (una specie di indexer), o come
collection di collection o come un oggetto che la incapsula o come...
vabbe', spero tu abbia capito, dipende un po' dalle varie situazioni
specifiche e dalla tua fantasia.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestire la LPT

Come si fa a gestire la porta LPT pin per pin in VB5?
Nel buon vecchio QBasic c'erano i comandi OUT e INP.
Qualcuno mi sa dire dove sono finiti?
Ciao.

...

Sono interessato anche io all'argomento, a me interessa anche la gestione
delle COM.
MarcoG.

...

In Vb non credo che si possa fare, bisogna usare una dll o una ocx !
Ciao Luca
lm...@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Microsoft Agent

Ciao A tutti!
Qualcuno sa come recuperare il TTS Engine in italiano per Microsoft Agent?
Grazie.

...


Ciao A tutti!
Qualcuno sa come recuperare il TTS Engine in italiano per Microsoft Agent?
Grazie.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: ?)shell e freefile

Vediamo se riesco a spiegarmi...!
Se dal programma A (dove apro un file col Numerofile = #2 ), lancio con
Shell il programma B.exe che apre lo stesso file con Freefile#nn  oppure con
Nfile#3 perchč (dopo averlo elaborato...) quando lo chiudo dal programma B,
Close #3,  me lo trovo richiuso anche nel programma A?
Come posso evitare questo?
Grazie ciao a tutti

 A?
Non mi risulta che i canali siano trasferibili (nel senso di disponibili in
area comune) fra piů exe, non lo sono nemmeno per una normale dll linkata
allo stesso progetto.

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

Buonasera a tutti.
Vorrei creare un form con un combobox ed una serie di textbox.
Ho un dataset con due tabelle collegate tra loro da una relazione.
Ho impostato come datasource del combobox la colonna chave della tabella
padre e vorrei che alla selezione di un item alcuni textbox venissero
riempiti con dei valori correlati nella tabella figlia.
Ho provato con i databindings ma non sono riuscito.
Come devo fare?
grazie

 ha scritto nel messaggio
news:NTDX9.35381$ZE.9...@twister2.libero.it...

Ciao, io userei un datacombo in cui imposterei
1)Datasource = tabella1
2)Datafield= ID_campo che mi interessa (di tipo sicuramente numerico visto
che è
in relazione con la  tabella figlia
3)Rowsource = Tabella 2 (la figlia)
4)BoundColumn = ID_Campo (della tabella2) in relazione con tab1
5)Listfield = il campo che contiene i valori che vuoi visualizzare
(es nella tabella 2 tu hai  la struttura id-nome: 1-pippo , 2-pluto,
3-paperino)
con le impostazioni che ti ho dato nel data combo ti appare pippo,pluto o
paperino ma nella tab1 registri l'Id 1,2 o 3
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Data e ora

Ciao,
sono alle prime armi e avrei un problemino: non trovo da nessuna parte una
spiegazione fatta bene sulla manipolazione delle date e orari....faccio un
esempio...se voglio inserire in un database in un campo Data/orario un
giorno e un orario a mia scelta (magari presi da due textbox) come si fa?
Nella query che manipolazioni devo fare in modo che non mi dia errori
riguardanti i  tipi?
Grazie 1000

 ha scritto nel messaggio
news:RbS9d.26263$eb.1...@tornado.fastwebnet.it...

nei db le date vengono salvate nei campi data in formato anglosassone
quindi quando farai le varie query sulle date dovrai tener conto di questo
ci sono vari metodi per ovviare a questo "inconveniente" ed ognuno ha i
suooi vantaggi e svantaggi
io personalmente uso i campi data dei db e poi effettuo la conversiuone del
formato direttamente nella stringa sql
altri invece salvano il giorno, il mese e l'anno in 3 campi distinti di tipo
int e poi ricompongono la data
ps
nell'inserimento la data viene inserita correttamente, non la devi
convertire te

Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare un file

Come faccio a cancellare un file, DELETE FILE non mi funziona.
Grazie

 ha scritto nel messaggio
news:8qt9a0$7c6$1...@fe2.cs.interbusiness.it...


>Come faccio a cancellare un file, DELETE FILE non mi funziona.
Non è delete ma...KILL :)) Certo che comando è proprio cazzuto
questo..kill!! Hehehe
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampa di campi memo con l'oggetto printer!

Ciao a tutti
Devo stampare dei campi memo ad una posizione specifica del foglio!
Quando ci provo, se il memo e' di più righe, dalla seconda riga in poi, mi
stampa in posizione zero del  margine sinistro.
Qualcuno mi da una dritta?
grazie
BluPegaso
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.314 / Virus Database: 175 - Release Date: 11/01/2002


wrote:

Uso questa mia funzione che speri ti vada bene...
Esempio:
NuovaPosizioneY=Stampa_Paragrafo(Printer,Testosupiurighe,100,100,1500,1500)
In pratica stampa sull'oggetto selezionato (Printer, oppure un
PictureBox) alle coordinate 100,100, ma senza superare le coordinate
1600,1600 (100+1500).
Tale funzione ritorna la posizione successiva di CurrentY, in modo da
stampare altri paragrafi in successione.
Public Function Stampa_Paragrafo(ByRef OBJ As Object, TXT As String, X
As Long, Y As Long, pX As Long, PY As Long) As Long
Dim WRD As Variant
Dim aWORDS() As String
Dim TW As Single
Dim TH As Single
Dim SERR As Boolean
SERR = False
TW = OBJ.TextWidth("X")
TH = OBJ.TextHeight("X")
TXT = Replace(TXT, vbCrLf, " " & Chr$(10) & " ")
aWORDS = Split(TXT, " ")
OBJ.CurrentX = X
OBJ.CurrentY = Y
For Each WRD In aWORDS
    If (OBJ.CurrentY + TH) > (Y + PY) Then
        SERR = True
        Exit For
    End If
    If Asc(Left$(CStr(WRD), 1)) = 10 Or (OBJ.CurrentX +
OBJ.TextWidth(WRD)) > (X + pX) Then
        OBJ.CurrentX = X
        OBJ.CurrentY = OBJ.CurrentY + TH
        If (OBJ.CurrentY + TH) > (Y + PY) Then
            SERR = True
            Exit For
        End If
    End If
 
    If SERR = False And Asc(Left$(CStr(WRD), 1)) <> 10 Then OBJ.Print
WRD & " ";
Next
If SERR = False Then
    Stampa_Paragrafo = OBJ.CurrentY + TH
Else
    Stampa_Paragrafo = -1
End If
End Function
Ciao e Buon Lavoro

grazie per la risposta,
adesso provo e' poi ti dico.
Speriamo che funzioni!


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

Quesito:
Ho per esempio tre stampanti nel mio sistema
1) Pippo
2) Pluto
3) Topolino
Se Pippo è la stampante predefinita nel sistema, come faccio
a cambiarla momentaneamente in Pluto? Una volta che ho stampato
con Pluti la stampante predefinita deve tornare in Pippo.
La proprieta Printer.DeviceName è di sola lettura e allora
come faccio?
Grazie.

Grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Password di accesso remoto

c'è un modo per ottenere la pwd che viene utilizzata per l'accesso a
internet (quella che appare con gli asterischi nell'accesso remoto) e/o
modificarla?
grazie
Francesco Mapelli (
mape...@tin.it
)
| --> 
http://members.xoom.com/Francesco
  <-- |
visita anche
http://members.xoom.com/it_lang_vb
Tutto su Visual Basic!

Tutto su Visual Basic!

 
Se c'e' il modo di ottenerla, e' sicuramente un BUG di Windows....
Comunque se qualcuno lo sa...
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Con l'esempio in VB32RAS che trovi in 
ftp.microsoft.com
puoi fare tutto quello che vuoi sulle connessioni di accesso
remoto, compreso l'enum delle con lettura delle
password ;)
non ho sottomano la dir precisa ma dovresti trovarla
facilmente; ev. cerca nella KB
ciae
    Maure

...

scusa se ti chiedo cose forse banali, ma...
cos'e' VB32RAS?  e cosa vuol dire "fare l'enum delle con lettura delle
password"?
gente, facciamo cosi', il primo che trova il file (penso sia un file) lo
dice a tutti... io ieri h cercato sotto kb, ma non ho trovato nulla...
stasera riprovo...
ciao ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: D+

qualcuno mi sa dire come fare le carte D+ pirata?
Grazie
hb9...@datacomm.ch


Gia' che ci siamo, c'e' qualcuno che ha un piano per "ripulire" i Musei
Vaticani senza dare troppo nell'occhio? :-(

 Vaticani senza dare troppo nell'occhio? :-(
Oppure entrare a Montecitorio vestiti solo di un cartello con su scritto
"GIOCONDO" !!!
Ciaps
Stracca

>qualcuno mi sa dire come fare le carte D+ pirata?
Ieri ho rapinato due banche, ho assaltato 4 porta-valori e borseggiato 10 vecchiette, ma se sapevo che si possono fare
le carte D+ pirata.....
Ma sparati!
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 qualcuno mi sa dire come fare le carte D+ pirata?
Sě, ma č un rituale lungo e non facile.
Prima di tutto devi dare via il culo ai giardinetti in una notte di luna
"comanche" (trad. "piena").
Appena lo hai fatto postami un altro messaggio che ti spiego il passo
successivo... ^__^
Zeross
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire un file un Rich text box

Come si fa ad aprire un file di testo in una Rich text box
Grazie

 ha scritto nel messaggio
news:89jr0l$13p$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: matrici con nome variabili?

C'e' qualcuno che sa dirmi se e' possibile definire matrici con nome
variabile? 
Piu' precisamente se e' possibile definire un numero di matrici
condizionato da un ciclo di For...next ??????
Es:  for x = 1 to 3
	Redim "pippo"&x(x)
      next x
il risultato sperato (NON OTTENUTO) pippo1(x),pippo2(x),pippo3(x).
Grazie a tutti e .... scusate l'ignoranza!	

Se ho ben capito tu avretti necessità di una sorta di metaistruzioni un pò
come nel Clipper. Beh, non è possibile , comunque mi sembra di aver letto
qualcosa in comp.lang.basic.misc ma sinceramente non si poteva definire un
"elegante artificio" ma
piuttosto un bel ritorno ai tempi degli "spaghetti code".  Se vuoi un
consiglio spassionato, prova a riesaminare il problema, o meglio
quello che desideri ottenere, sicuramente esiste il modo di ottenere lo
stesso risultato, magari  potresti utilizzare un array di variant o una
collection.
                    Ciao , Antonello
sist1 ha scritto nel messaggio <01bd4e57$4b255120$2c4c11ac@pippo>...



Perche non usi una matrice bidimensionale ??
es:
dim Pippo() as integer
for x = 1 to 3
    redim Pippo(x,x)
next x
risultato: Pippo(1,x)   Pippo(2,x) ecc...

il risultato sperato (NON OTTENUTO) pippo1(x),pippo2(x),pippo3(x).
  Non hai ottenuto il risultato perche' una cosa del genere non si
puo' fare. Invece, perche' non crei una matrice con un'ulteriore
dimensione, ovvero una cosa tipo:
  redim pippo(3,x)
  e poi ti gestisci i dati tutti assieme? Non conosco le tue esigenze,
ma a occhio e croce un'unica matrice dovrebbe andare bene quanto tre
matrici distinte e forse pure meglio.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] LCID

Qualcuno sa spiegarmi cosa sia esattamente l'LCID?
MSDN sembra si divida su due definizioni simili ma apparentemente
differenti:
1) Language ID ottenibile con GetThreadLocale()
2) Locale ID ottenibile con chissà cosa.
Ecco, a me servirebbe sapere come ottenere il secondo che dovrebbe avere a
che fare con questo:
// MIDL
#define RTCALL _stdcall
[
uuid(C6799410-4431-11d2-A7F1-00A0C91110C3),
lcid (0), version(6.0), helpstring("VarPtrStringArray Support for VB6")
...
Cioè lcid(0).
Ma perchè tutto questo? :)
Perchè in seguito al post di Moreno in risposta al mio
"[?] Versione OCX/DLL ActiveX"
Il file fisico del componente registrato lo trovo sotto
HKCR\typelib\{clsid}\<versione.typelib>\0\win32
Ecco, l'unico pezzo mancante è quello "0" prima di win32 che non so come
recuperare e *sembrerebbe* essere il LCID.
Qualcuno ha qualche info a proposito?
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Ciao
  Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 ByVal cchData As Long) As Long
 Cmq non credo ti siano utili.


Qualcuno ha qualche info a proposito?
Dai un'occhiata alla funzione GetLocaleInfo.
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 Dai un'occhiata alla funzione GetLocaleInfo.
Già fatto, ma non mi dice molto a parte il fatto che vuole un LCID come
parametro e cita una non meglio identificata macro per ottenerlo.
Ciao, grazie ancora

 registrato sotto 0 piuttosto che sotto 1033, ammesso che questo avvenga.
Anche perchè adesso che ci guardo la GetThreadLocale mi da 1040, giustamente
sono con impostazioni italiane.
Però tutti i componenti che vedo registrati sono sotto "0".
Ciao

 Però tutti i componenti che vedo registrati sono sotto "0".
E dove vivi ?... Al polo sud ?... :-)))
--
Er Roscio.

 E dove vivi ?... Al polo sud ?... :-)))
Forse è ora di iniziare a usare i componenti "pinguino" >:)
Ciao

 Forse è ora di iniziare a usare i componenti "pinguino" >:)
Ehehehe... ottima risposta !...
--
Er Roscio.


wrote:

Ipotizzo che siano stati compilati come "Language neutral" e non
dovrebbero tenere conto ne' del linguaggio predefinito di sistema,
ne' di quello dell'utente.
-- 
ciao, hal

Perň tutti i componenti che vedo registrati sono sotto "0".
La domanda č: č possibile localizzare una versione specifica di un
componente? Se sě, č possibile farlo in VB?
Se scopri la risposta, fammi un beep...

Newsgroup: it.comp.lang.visual-basic
Titolo: Appena arrivato, in cerca di suggerimenti

Salve, sono uno sviluppatore "dell'altra sponda" (solitamente uso Delphi, e
finora mi sono limitato a piccole applicazioni database su macchine
stand-alone o su lan, usando tabelle in formato paradox, e il Borland
Database Engine per accedere ai dati; questo è il mio "background culturale"
...)
Ora mi hanno commissionato un'applicazione database c/s da sviluppare con
VisualBasic, ambiente che praticamente non conosco ...
Mi rivolgo quindi a chi ne sa di più (voi che state leggendo) sperando che
possiate darmi qualche suggerimento ... quantomeno "instradarmi" ...
Allora: ci sarà un computer host su cui risiederanno i dati, e dei computer
client che si connetteranno a questi dati.
Già qui mi sorge un primo dubbio, perché secondo me la soluzione più
semplice è una connessione via internet, invece i miei committenti
ventilavano l'ipotesi di una connessione telefonica diretta ..
Posso appoggiarmi al tcp/ip con una connessione telefonica diretta, e quindi
senza passare per internet ?
Quali motivazioni posso addurre per far scegliere invece una connessione via
internet ? (più semplice configurazione, spese telefoniche minori ... ??)
Ma veniamo al sodo: come dovrà essere impostato il tutto ?
Il server dovrà avere un IP fisso ?
Bisognerà installarvi un sql server ? Dovrà girarci winNT ?
Oppure posso metterci un semplice database Access e configurare odbc ?
I client, per accedere ai dati remoti, useranno il componente Adodc ?
Vabbé .. spero di non aver detto troppe banalità/bestialità .. :)
Cordiali saluti,
Crism


Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: ritorni a capo nelle variabili e nei txt

salve a tutti,
ho una stringa che deve essere unita ad altre, cosě:
a = b & c & d & e
ma mi serve inserire tra le variabili anche un ritorno a capo, visto che la
stringa cosě ottenuta
deve essere salvata in un file.
il risultato che trovo nel .txt č:
Stringa_a, Stringa_b, Stringa_c, ecc.
mentre mi serve:
Stringa_a,
Stringa_b,
Stringa_c,
ecc.
avete qualche idea ?
grazie e ciao
| Ace |

 il risultato che trovo nel .txt è:



Riprova cosi:
a = b & vbCrLf & c & vbCrLf & d & vbCrLf & e
-- 
Sidewinder  
---------------------------------------------------------------------
A Linux machine!  Because a 486 is a terrible thing to waste!
	-- Joe Sloan, 
j...@wintermute.ucr.edu
---------------------------------------------------------------------

 wrote in message
slrn92skh0...@aegis.in.ilsole24ore.it...


 >


 avete qualche idea ?
No. Solo domande, visto che di vbCrLf gia` ti e` stato detto da altri.
Per esempio: perche' unire in una stringa *prima* di scrivere su file?
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Dopo il riavvio...

Come faccio a far continuare l'applicazione anke se si resetta il pc o viene
brutalmente spento mentre e' in funzione il programma???
Mi spiego mejo... il mio programmino lavora nascosto e monitorizza quello
che succede sul pc... il fatto è che ogni volta lo devo attivare
manualmente... come faccio... una volta avviato manualmente a farlo
continuare a far funzionare anke dopo che il pc viene spento brutalmente o
che si blocca il pc... ecc... insomma x farlo riprendere dallo stesso punto
in cui si è fermato...
Se lo metto in esecuzione automatica ogni volta ricomincia dall'inizio e non
va bene...
Avete qualche idea???
GRAZIE!!!
--
The mistery of love is greater than the mistery of death.
Oscar Wilde

 ha scritto nel messaggio
news:BsUj7.3465$MO.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Shutdown Windows

Salve a tutti,
ho creato un programma (Agent) che funziona come Service su differenti PC. 
Il programma riceve dei comandi da una console anch'essa scritta da me.
Eventualmente, questo Agent riceve il comando di fare uno shutdown.
Tutto funziona molto bene, però.....
Se installo il programma Agent come Service con un logon as Local System 
account e con Desktop Interaction, tutto funziona benissimo. E il systema fa 
uno shutdown che ci sia o no qualcuno loggato.
Se il Log On As utilizza un account particolare (anche Administrator), 
allora lo shutdown funziona solo se c'é qualcuno loggato in quel PC. Quindi 
se si fa il logoff il comando di shutdown non funziona.
Da notare che tutto il resto funziona bene e che la console comunica 
perfettamente con l'Agent.
Pensavo che fosse una questione di Rights appropriati, ma lo stesso problema 
rimane se utilizzo Administrator.
Forse questo non é il newsgroup più appropriato però visto che il programma 
é scritto in VB6.....
Se qualcuno ha lavorato su programmi VB installati come Service forse mi 
potrà dare delle idee.
Grazie
Sal


Prima di effettuare lo shutdown bisognerebbe chiamare l'API
AdjustTokenPrivileges per abilitare il privilegio "SeShutdownPrivilege", questo
viene fatto?
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
469 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!
Newsgroup: it.comp.lang.visual-basic
Titolo: NTSVC.OCX + VB con SP6 (lungo)

Ciao a tutti,
che voi sappiate programmi trasformati in servizi grazie a NTSVC.OCX su un
VB con SP6 sotto W2K Pro creano qualche sorta di problema ?
Quello che mi accade è che al momento dell'avvio del servizio parte
inspiegabilmente MSI senza installare niente ma ritardando l'avvio del
servizio fino a far si che questo non si avvii.
Ho creduto dapprima che il problema riguardasse Install Shield Express
Edition che abbiamo acquistato e installato recentemente per fare setup
decenti e funzionanti ai nostri prodotti e questo perchè il prodotto è
basato appunto su MSI.
Poi ho creduto che il guaio fosse appunto il mio pc incasinatissimo visti
tutti gli esperimenti e ho comprato Registry Mechanic che ha trovato circa
1000 incongruenze nel registro che ha sistemato e risolto senza però
risolvere il mio problema.
Alla fine per uno dei  programmi che voglio trasformare in servizio ho
provato a cambiare Microsoft Windows Common Control 6.0 (SP6) con Microsoft
Windows Common Control 5.0 (SP2) e misteriosamente ha cominciato a
funzionare perfettamente, ovvero si avvia e si arresta solo il servizio
senza invocare MSI.
Ora altri programmi che devo trasformare usano l'oggetto Winsock e/o
MSFlexGrid dei quali ho ormai solo la versione SP6.
Prima di passare ore a reinstallare VB6+SP5 o 2 giorni a formattare l'HD
(cosa che odio) e reinstallare tutto vorrei sapere se c'è una remota
possibilità di uscirne.
Grazie in anticipo
Ciao a presto
Stephen

 remota possibilità di uscirne.
Se avviando l'applicativo con doppio click funziona regolarmente, è 
ovviamente un problema di utente.
La soluzione 'accrocchio' sarebbe quella di avviare il servizio come utente 
(AdminTools->Services), ma perdi l'interactive (se non ti serve, può già 
andare bene così).
La soluzione 'pulita' è quella di indagare su come mai il componente non 
funziona. Crea un servizio che non faccia niente, ma che abbia sopra 
qualcosa del CommonControl, e sperimenta ad oltranza.
Saluti
Alberto
-- 
E tutto mi sembrava andasse bene...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB Programming group

I would like to start a "Home Based" programming group. Get about 25+
programmers working to gather.
The group would produce "Software" that we can sell over the internet, pay
would be divided on the total money we make. This is just for and and to
make a little money on the side. It is not "Microsoft" so will have to hold
off the monopoly for a few years, but I think we should take out Microsoft.
If you have any Ideas for me or would like to sign up, please e-mail me.
It's just starting hope you will join and help get it started. I would like
to be productive by the end of may.
Thanks. Don't forget to e-mail.
--
SnapDragon
E-Mail
coo...@concentric.net
Oh by the way, VB, C++ and all the others are welcome. I just know VB that's
why It's posted here. I hope you'll join me.


wrote:


>
-- 
Ivan Imiolek

It sounds pretty good!

Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornamento SQL

Salve, sto facendo un Db in SQL, ma c'è un problema: quando inserisco un
nuovo record e clicco su salva, quest'ultimo non si inserisce nel DB, ma
appena chiudo e riapro il prog il record inserito compare nell'archivio.
Come devo fare per aggiornare il DB SQL senza chiudere e riaprire il
programma? ho provato anche a fare un select * from clienti ma con nessun
successo.
GRAZIE

 ha scritto

Ma, scusa, la mail che ti ho inviato, l'hai guardata?

Newsgroup: it.comp.lang.visual-basic
Titolo: perche' WinSock mi avvia Accesso remoto?

Ciao,
ho un problema con WinSock: quando avvio la prima volta un collegamento UDP
tra due computer in rete locale mi appare la finestra di connessione con
accesso remoto, se premo annulla tutto funziona regolarmente e se riavvio il
programma non riappare. Come posso evitare che succeda?
Nella guida sembra che con il metodo winsock.Bind posso indicare quale
dispositivo di rete usare ma se inserisco un valore diverso da 0 mi appare
il messaggio: errore 10049: "L'indirizzo non e' disponibile dal computer
locale" eppure ci sono ben tre dispositivi nel pannello di controllo per le
comunicazioni.
Cosa posso fare?
Grazie a tutti
Marco Rossi
With Winsock1
    .Protocol = sckUDPProtocol
    .RemotePort = 1001
    .Bind 1002,1
    .RemoteHost = "Servizi"
End With

 wrote in message
news:8onpc6$7ud$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8oo0li$2coo$1...@stargate1.inet.it...



Ciao,
Alessandro

Grazie per le risposte,
Marco Rossi