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

Ciao a tutti gli amici del ng
sono disperato e vorrei chiedervi una cosa.
Sto sviluppando un sw in 
vb.net
 con la base dati in firebird
ho scaricato tutto ciò che mi occorre come il net provider ecc.
Devo creare un form login dove verificare l'user e la password 
nel db firebird. Non so dove sbattere la testa.
Ho provato anche la connessione DSN di sistema
dove ho messo il db firebird.
AIUTO!!!! AIUTO!!!!

 dove ho messo il db firebird.
Non ho utilizzato il firebird, ma nella pagina
http://firebird.sourceforge.net/index.php?op=files&id=netprovider
ho notato:
12th Apr 2005 Data Provider for .NET Framework 1.0 (.exe) (925kb)
12th Apr 2005 Data Provider for .NET Framework 1.1 (.exe) (931kb)
Sicuro dell'abbinamento tra il Framework  e
The .NET Data provider/Driver  ?
Ave
giuseppeD
---
La felicità è ascoltare un bambino che ti parla. 

...

In verità non ho capito cosa vuoi dire con il tuo aiuto e cmq ti ringrazio.
Se qualcun'altro mi può aiutare!!!!
Saluti e baci agli amici del NG.
Newsgroup: it.comp.lang.visual-basic
Titolo: timer e unload della form

Salve, ho scritto un programma che utilizza due form(che chiamerò
FormIniziale e SecondaForm) strutturato come segue:
FormIniziale
-------------------------------------------
Private Sub Form_Load()
   Timer1.Enabled = True
   MiaFunzione
End Sub
Private Sub MiaFunzione()
   Istruzione1
   DoEvents
   Istruzione2
   DoEvents
   Istruzione3
   DoEvents
   IstruzioneN
   DoEvents
End Sub
Private Sub Timer1_Timer()
   If UnaCertaCondizione = True then
      Timer1.Enabled = False
      SecondaForm.Show
      Unload Me
   End If
End Sub
Mi succede un casino!
Praticamente succede che quando il Timer1 verifica che
UnaCertaCondizione = True, MiaFunzione() non è ancora terminata (è
ancora in esecuzione, ad esempio sta ancora elaborando l'Istruzione2).
Quindi succede la seguente cosa:
- SecondaForm si carica
- Unload di Me (cioè FormIniziale)
- FormIniziale si ricarica!!!!!!!!!!! per terminare l'esecuzione di
MiaFunzione()
Non so come fare. E' possibile fare in modo che quando il timer
verifica la condizione, oltre all'unload il programma termini
l'esecuzione di tutte le routine (per evitare che mi ricarichi la
form!) ?
Grazie mille
Saluti
Stefano

 form!) ?
Lo statement IF e una variabile 'semaforo' sono dalla tua parte.
Ciao
Alberto
PS: l'uso di DoEvents è una cosa delicatissima. Da come posti, ho 
l'impressione che tu li abbia messi un po' dappertutto senza ben 
valutare cosa potesse accadere...
-- 
Ma noi no

Mi potresti fare un esempio di codice di come potrei utilizzare un
semaforo nel mio caso?
Grazie!
Ciao

 semaforo nel mio caso?
Capisco la poca voglia di arrangiarsi, però...
Private Semaforo as Boolean
...
If condizione then Semaforo=True
...
Timer1_Timer
If Semaforo then exit sub
Ciao
Alberto
-- 
Ma noi no

Hai ragione, scusa, avrei potuto fare qualche tentativo, però quello
che mi hai suggerito tu (se l'ho interpretato bene) l'avevo già
provato.
Il risultato sarebbe:
Dim Semaforo as Boolean
Private Sub Form_Load()
   Semaforo = False
   Timer1.Enabled = True
   MiaFunzione
End Sub
Private Sub MiaFunzione()
   If Semaforo = True then
      Exit Sub
   Else
      Istruzione1
      Istruzione2
      Istruzione3
      IstruzioneN
   End If
End Sub
Private Sub Timer1_Timer()
   If UnaCertaCondizione = True then
      Semaforo = True
      Timer1.Enabled = False
      SecondaForm.Show
      Unload Me
   End If
End Sub
Ma questa soluzione non risolve il problema, perché se ad esempio
Semaforo diventa True dopo l'esecuzione di Istruzione2 in MiaFunzione,
FormIniziale esegue l'Unload ma comunque si ricarica immediatamente
dopo per eseguire Istruzione3 e IstruzioneN.
L'unica soluzione sarebbe controllare lo stato di Semaforo per ogni
istruzione di MiaFunzione, ma questa non mi sembra certo la soluzione
ideale e più pulita.
Se qualcuno ha idee migliori si faccia avanti.
Saluti al NG!

 ideale e più pulita.
In realtà quella *è* la soluzione più pulita.
Quasi.
La più pulita in assoluto è che Istruzione2 compia DUE operazioni:
- Semaforo=True
- Exit Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione DB : consiglio

Devo creare un'applicazione DB con VB6...
1) Visto che l'applicazione sarą multiutente mi conviene usare ODBC oppure
creare nel codice una stringa di connessione al DB del Server ?
2) Per la gestione dei records: mi conviene usare delle Forms direttamente
connesse via ADO alla tabella (tramite l'autocomposizione Form Dati...)
oppure delle Forms non connesse che gestiscono
l'aggiunta,modifica,cancellazione tutto tramite codice ADO (del tipo
rs.addnew,rs.Fields("Nome")=nome.text etc.etc.)
Grazie.

 (del tipo rs.addnew,rs.Fields("Nome")=nome.text etc.etc.)
Mio malgrado, ancora la seconda.

rs.addnew,rs.Fields("Nome")=nome.text etc.etc.)
Personalmente e' il metodo che preferisco perche' cosi' mantengo il
controllo su tutto e non devo subire tutti i problemi che vengono
spesso lamentati s questo ng da parte di chi usa i controlli bound.
-- 
hth, hal

 butta dentro ;-)
ci ho provato. generare, genera.
solo che poi con f5 non riconosce il suo codice :)

solo che poi con f5 non riconosce il suo codice :)
LOL

Newsgroup: it.comp.lang.visual-basic
Titolo: Possibile che nessuno mi da un aiuto

Davvero come mai nessuno mi da un aiuto?? Vi ho fatto qualcosa......
Non so i do' sempre una mano appena posso ...
forse sarà il mio problema troppo irrisolvibile....beh almeno ditemelo....
Cmq il problema è che devo stampare dei dati di una flex grid...
Come posso fare....?
Grazie...uso dataReport senza controllo data

 ha scritto nel messaggio
news:9puppt$67u$1...@fe2.cs.interbusiness.it...


 Davvero come mai nessuno mi da un aiuto?? Vi ho fatto qualcosa......
Cut!
No!
...però ragionando puoi trovare mille soluzioni diverse....ragiono un po per
te...
Versione 1.0
se i dati sono nella flex grid è perchè io ce li ho messi ...se li ho messi
nella flexgrid li posso inviare ha una function che usa l'oggetto printer...
Versione 2.0
se i dati sono nella flex grid è perchè io ce li ho messi ...se li ho messi
nella flexgrid devo aver avuto una query SQL che li recupera...la potrei
usare con il data report
Versione 3.0
se i dati sono nella flex grid è perchè io ce li ho messi ...se li ho messi
nella  flexgrid ed ho la query e voglio complicare il modulo di stampa
potrei usare crystal report che trovo sui cd di visual studio
Versione 3.1
Uso Apex/ComponentOne truedbgrid che hanno collegato un semplice generatore
di report
Versione 4.0...trovala te ora eh?
Ciao!
:-)
Newsgroup: it.comp.lang.visual-basic
Titolo: gif animate in VB

devo inserie delle gif animate in VB...... qulacuno tempo fa mi aveva
consigliato di usare l'ocx ANIGIF che perň non riesco a trovare......... Mi
potete aiutare?
Al massimo sono riuscito a trovare Recovery Pic Anigif ma che perň č un
programma a parte....
Se avete questo ocx me lo potete inviare nella mia e-mail: 
dd...@libero.it
o almeno dirmi un sito dove trovarlo!!!!!!
2° Domanda.....
Se io voglio visualizzare un'immagine su visual basic come faccio a fare in
modo che lo sfondo di questa immagine sia trasperente?
Es. Giochino di navicelle spaziali....
La mia astronave si muove su uno sfondo vario.......
HELP ME!!!!!!
Wallace

 wrote in message
yJoe8.21175$v7.8...@twister1.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Errore sintassi SQL

Scusate il disturbo ma sono un principiante e sto cercando di imparare.
In VB mi da quest'errore dopo aver riportato una stringa SQL da access.
"Errore di compilazione: previsto: fine istruzione"
Grazie di qualunque informazione.
Probabilmente e' una cazzata e io non me ne accorgo.
Questa e' la routine all'evento click su cmd_ric_ok
Private Sub Cmd_ric_ok_Click()
    Apre_dtb
    Dim chiave_1
    Dim chiave_2
    Dim chiave_3
    txt_chiave1 = chiave_1
    txt_chiave2 = chiave_2
    txt_chiave3 = chiave_3
   Dim query  As QueryDef
        Set query = dbsbiblio.CreateQueryDef("")
   Dim Cerca1            As Recordset
   Dim Cerca1_final    As Recordset
        Set Cerca1 = dbsbiblio.OpenRecordset("Tbl_cerca1", dbOpenDynaset)
   Do While Not Cerca1_final.EOF
        Cerca1_final.Delete
        Cerca1_final.MoveNext
      Loop
    With query
    '''''''''' QUI PROVOCA L'ERRORE ''''''''''
    .SQL = "SELECT LIBRI.[chiave 1] From LIBRI WHERE (((LIBRI.[chiave
1])="ARCHITETTURA"))"
    Set Cerca1 = .OpenRecordset()
    End With
    Do While Not Cerca1.EOF
            Cerca1_final.AddNew
            Cerca1_final! = Cerca1!Chiave 1
            Cerca1_final.Update
     Duplicati.MoveNext
     Loop
     Cerca1_final.Close
     Cerca1.Close
End Sub

non vorrei sbagliare ma l'errore si trova su "Architetture"
non va con apici doppi ma uno singolo
saluti


SQL = "SELECT LIBRI.[chiave 1] From LIBRI WHERE (((LIBRI.[chiave
1])=" & "ARCHITETTURA" & "))"
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Era per colpa degli apici...
Grazie a tutti !
Techno

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

Ciao a tutto il NG
Per favore,potreste aiutarmi a risolvere un grave problema?
Ho importato tutti i miei software nel computer di casa ma ogni progetto mi
dice di non poter caricare il controllo
crystl32.ocx
Cio' significa che non posso compilare nessuna applicazione dei miei
clienti.Il problema è angosciante e chiedo aiuto urgente.Datemi qualsiasi
idea e possibilità di tentativo,meglio se mettete per conoscenza il mio
indirizzo email
john...@tin.it
Grazie a tutti.

 ha scritto nel messaggio
news:T8996.1629$pr5.1...@twister1.tin.it...


 > idea e possibilitŕ di tentativo,meglio se mettete per conoscenza il mio

Newsgroup: it.comp.lang.visual-basic
Titolo: colori lampeggianti ?

Come faccio ad impostare un colore lampeggiante ?
in qbcolor () non lo trovo eppure e' strano esisteva al tempo di "gwbasic"
?!
ciao a tutti Joe 
goo...@tin.it
e grazie

 in qbcolor () non lo trovo eppure e' strano esisteva al tempo di "gwbasic" ?!
Quello usava le funzioni dei caratteri del DOS. :-)
L'alternativa più semplice è di usare un timer e ad ogni intervallo
invertire i colori dello sfondo e del carattere, per esempio. Brutto
ma funziona.
P.S.: a me personalmente le scritte lampeggianti danno un
fastidio incredibile... poi tu fai quello che ti pare, ovviamente :-).
Bye, G.

"Paperino" <non...@lo.dico> ha scritto nel messaggio
news:acts07$4fna$1...@stargate1.inet.it...

Ti ringrazio ... anche a me' il lampeggio da fastidio ma devo evidanziare un
button command importantissimo cosa mi suggerisci  al posto del lampeggio ?!
joe

 button command importantissimo cosa mi suggerisci  al posto del lampeggio ?!
Una cornicetta colorata :-) ? Oppure usa il tasto in modo
grafico e mettici un'immagine.
A parte questo, se č tanto importante che l'utente lo clicchi
fai in modo che il programma non possa andare avanti se
prima non lo fa, per esempio.
Oppure esegui quelle operazioni e basta, senza aspettare
l'utente, oppure... boh !
Non posso essere piů preciso senza altre info.
Bye, G.

 l'utente, oppure... boh !
[> format c: to z: ? y/n <]
[> are you sure ? y/n <]
<font size=.5>default: y
<br>seconds before default op: .0009
</font>
</hd's>

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB:NET] Record attivo dopo istruzione SQL "INSERT"

Salve, sto faticosamente passando da VB6 a 
VB.NET
, e mi sorge questo 
problema:
Devo inserire un unovo record in una tabella ed eseguo correttamente 
l'istruzione SQL "INSERT" tramite commandObject (cmd.ExecuteNonQuery()), 
dato che il primo campo della tabella, di nome "id" è un contatore che uso 
come chiave, avrei bisogno di sapere questo valore per effettuare altre 
operazioni, in VB6 una volta inserito un record esso era quello attivo e 
tramite RecordSet andavo a leggere l'id ma ora come faccio?
Grazie mille...
zoodany.. 

Nella procedure di INSERT al termine della sua dichiarazione devi
inserire lo statement SELECT SCOPE_IDENTITY(): questo ti rende
disponibile il valore della chiave del record appena inserito;
succesivamente dell'oggetto cmd devi eseguire il metodo ExecuteScalar
che esegue la procedura e restituisce un valore che nel nostro caso
sarà proprio il valore di chiave..
zoodany.. ha scritto:

Newsgroup: it.comp.lang.visual-basic
Titolo: Autorun

Scusate l'argomento di basso profilo.
Vorrei creare un eseguibile da inserire in un Cd per farne un autorun:
dovrebbe lanciare un file .pps.
Con la funzione Shell riesco a lanciare il file in PowerPoint ma non ad
eseguirlo direttamente ossia viene aperto PowerPoint stesso, cosa che vorrei
evitare.
Ci sono parametri da inserire dopo il nome del file oppure sapreste
indicarmi una strada alternativa?
grazie
Nicola da Verona

 indicarmi una strada alternativa?
alternativa : mettere il visualizzatore di pps dentro il cd e poi "prova" a
passarla in stile : esegui " ..../visualizzatore.exe file.pps"

Newsgroup: it.comp.lang.visual-basic
Titolo: MANUALE VB IN ITALIANO DOVE?

MANUALE VB IN ITALIANO DOVE POSO SCARICARLO?


                                    ERORE   ^
                                                |

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] esiste un formato standard per file effetti banca

Salve a tutti,
chiedo se qualcuno ha informazioni sui formati usati per memorizzare su
dischetto le distinte effetti da presentare in banca, esiste un formato
standard (header, formato dei record, ecc.)?
Se si qual'e'?
Grazie a chi mi rispondera', un saluto a tutti.
Claudio G.

 wrote in message 7sohjd$8as$1...@nslave1.tin.it...

Esiste un formato STANDARD utilizzato da tutte le banche indistintamente.
Procurartelo non dovrebbe essere difficile, qualsiasi banca te lo puo'
fornire.
Ciao
Ven.

Ven.

chiedo se qualcuno ha informazioni sui formati usati per memorizzare su


Newsgroup: it.comp.lang.visual-basic
Titolo: Dialog stampante

sto usando il controllo comm dialog per visualizzare la finestra stampa,
ho visto sull'help la proprieta flags, ma ho un problema come faccio a
sapere se l'utente ha premuto il tasto ok o annulla? Sull'help c'è un flags
che indica il ritorno o meno di un errore alla pressione del pulsante
Annulla... MA è solo quello il modo per intercettare la pressione del tasto
annulla (e di conseguenza dell'ok)? Mi sembra un po' una porcata!
Ciao e grazie!
-- 
Andrea Fabbrucci (da internet)
anfa...@tin.it
--
Posted from 
mta03-acc.tin.it
 [212.216.176.34]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
news:20000207091551.P...@fep11-svc.tin.it...


Confermo, vale anche per open e save.


Ci sarebbe il subclassing, cioè prendere tu il controllo della dialog... ma
questo lo puoi fare solo se sei tu a chiamarla... per quelle chiamate dal Common
Dialog non vedo altra soluzione...

Newsgroup: it.comp.lang.visual-basic
Titolo: pwd mdb + novita' oe...

 E' solo scemo e inguardabile.

 personalmente non mi attrae il suo modo di porsi, ma lo rispetto.
Sì, anch'io lo rispetto. Ma giro canale appena lo vedo.
Ovviamente e contestualmente, tolgo 100 punti a chi
(conduttore/rete/editore) lo ospita.

 (conduttore/rete/editore) lo ospita.
:> -- io non saprei proprio dove trovargli quelli da togliere...
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] usare le dll activeX e la compatibilità binaria/progetto

Salve a tutti,
ho un problema con un progetto che è scomposto in moduli (DLL ActiveX)...
in pratica ho:
1 Exe standard
5 dll ActiveX
in fase di sviluppo ho un "gruppo di progetti" che contiene i 6 vbp.
Nei riferimenti del progetto dell'exe ho inserito le Dll activex (non i loro
vbp).
le dll sono compilate tutte con compatibilità binaria...
il probelma:
se  deregistro e registro una diversa versione (+ nuova) di una dll non
funziona più nulla (errore 429/430, impossibile creare l'oggetto).
dove sbaglio? (sicuramente sto facendo una p*****a)
Grazie
Davide


Il problema probabilmente e' che hai usato sempre la prima DLL per mantenere
la compatibilita', mentre ogni volta che cambi l'interfaccia devi anche
sostituire la tua DLL di riferimento con quella nuova.
Ciaotutti,
*

Newsgroup: it.comp.lang.visual-basic
Titolo: come inserire form di stampa

Ciao a tutti,
sapreste dirmi se è possibile in un programma in VB, inserire una box
di dialogo per la stampa?
Come?
Grazie
Tommaso

 di dialogo per la stampa?
VB6 o 
VB.NET
 ?
Cosa intendi con "box di dialogo per la stampa" ?
- Anteprima ?
- Preferenze ?
-- 
Ciao Fede
By Chicco Production
http://bcp.freetools.it

sapreste dirmi se è possibile in un programma in VB, inserire una box
di dialogo per la stampa?
***************************************************
Guida del vb
Utilizzo della finestra di dialogo Stampa
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

On 25 Ott, 09:18, "Mauro Gamberini"

non capisco come mai vedo solo ora il messaggio che ho postato ieri.
Sarà qualcosa al mio browser?
Sto facendo un software di grafica e devo risolvere il problema della
stampa delle tavole grafiche che già ho a video.
Per la gestione della stampa devo iniziare da una finestra di dialogo.
Cosa offre VB? Non lo so e chiedo a chi ne sa più di me.
Se Vb ha una finestra di dialogo per la stampa, dove la trovo?
Nel mio Vb non la vedo.
Ciao e grazie
Tommaso

 Nel mio Vb non la vedo.
In VB456 l'hanno mesa nei componenti aggiuntivi, devi prima selezionarla per 
farla apparire nel pannello degli strumenti. Se non ricordo male si chiama 
CommonDialog e tramite un flag funziona per stampare, aprire un file, 
scelgiere un colore e un'altra cosa che non ricordo
-- 
Greg 

 Nel mio Vb non la vedo.
Se stai usando VB6, apri la guida e in 'Sommario' clicca il tasto destro del 
mouse,
nel menù a tendina che ti si apre seleziona 'Passa a URL...' e inserisci la 
seguente stringa:
/Html/vbconprintingwithprinterobject.htm


Per quanto riguarda invece la finestra di dialogo del controllo:
Microsoft Common Dialog Control 6.0(SP6) <--- l'ultimo aggiornamento
Stessa procedura dell'altro post, ma con questo indirizzo:
/html/vbctlcommondialogcontrolprintdialog.htm



il primo non si collega e questo
scusami ma non ho capito dove mi porta
ciao
Tommaso

 Microsoft Common Dialog Control 6.0(SP6) <--- l'ultimo aggiornamento
OK, grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Erreur lors de la lecture du son via le exe généré...

Erreur lors de la lecture du son via le exe généré...
Bonjour,
     J'ai créé un projet en vb4 ainsi que son exe qui est dans le même
dossier que le projet. J'ai vb4 32bits avec WindowsMe.
Via le projet il n'y a pas d'erreur lors de la lecture du fichier son wave,
mais via le exe de ce projet il y a erreur en exécutant le Msgbox de l'avant
dernière ligne ci-dessous, et le son ne se fait pas entendre; mais le son se
fait entendre quand c'est par le projet sous vb4.
Quel est le mystère à ceci?
a+
Raymond H.
logi...@netrevolution.com
=======================================================
-Dans le fichier .bas :
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal
uReturnLength As Long, ByVal hwndCallback As Long) As Long
-Dans form:
Public Sub MoteurFichierSonDeFond()
    On Error Resume Next
    Dim i As Long, RS As String, cb As Long
    RS = Space$(128)
    i = mciSendString("stop sound", RS, 128, cb)
    i = mciSendString("close sound", RS, 128, cb)
    i = mciSendString("open waveaudio!" & App.Path & "\FichierSon.wav" & "
alias sound", RS, 128, cb)
    If i Then MsgBox "Erreur!"
    i = mciSendString("play sound", RS, 128, cb)
End If
=======================================================

 a écrit dans le message news:
2Kop8.23195$VR6.1...@wagner.videotron.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aiuto per Api SHFileOperation

Accidenti! Proprio non riesco a capire!
Allora ho scritto una sub per copiare una dir. Per fare questo ho utilizzato
l'API SHFileOperation però all'atto della copia mi viens segnalato il
seguente errore:
Impossibile copiare B2:impossibile trovare il file specificato.
Verificare che il percorso e il nome del file siano corretti.
Il file B2 (in realtà B2.Tif) è il primo file della cartella di origine ed
esiste!
Se qualcuno è così gentile da darmi una mano posto un pò di sorgente.
Ciao e Grazie.
Franco
nel modulo BAS
Global DirSfoglia As String     ' Dir selezionata
Global CopyTo As String         ' Drive per esportazione dati
Global CopyFrom As String       ' Drive per importazione dati
Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Long
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String
End Type
Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA"
(lpFileOp As SHFILEOPSTRUCT) As Long
Nella sub
Sub CopiaCartella(Origine, Destina)
    Dim result As Long
    Dim fileop As SHFILEOPSTRUCT
    With fileop
        .hwnd = Me.hwnd
        .wFunc = FO_COPY
vbNullChar
        .pFrom = Origine
        .pTo = Destina
        .fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
    End With
    result = SHFileOperation(fileop)
    Select Case result
    Case 117
        Risposta = MsgBox("Operazione annullata dall'utente", 0)
    Case Is > 0
        Risposta = MsgBox("ATTENZIONE: si è verificato un errore (" &
Err.LastDllError & ")", 0 + 16)
    End Select
    'Cmd_Annulla_Click
End Sub
prima di richiamare la function SHFileOperation i parametri passati sono
Origine=C:\tw\K0353555\*.*
Destina=C:\K0353555\*.*

Mi sono aiutato da solo:
l'errore è proprio nella dichiarazione della destinazione, non ci vuole
\*.*.
Errato
Destina=C:\K0353555\*.*
Corretto
Destina=C:\K0353555
Ciao e grazie lo stesso
Franco
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione a db whois con winsock

Sto provando a connettermi al database whois (
whois.nic.it
) porta 43 per
richiedere i dati relativi ad un dominio internet.
Private Sub Form_Load()
TCPclient.RemoteHost = "
whois.nic.it
"
TCPclient.RemotePort = 43
TCPclient.Connect
End Sub
Poi ho inserito ovviamente anche una sub "TCPclient_DataArrival(ByVal
bytesTotal As Long)"
Ma non viene mai richiamata.
Avviene la connessione ma TCPclient.state rimane su 6
Con il telnet subito dopo la connessione il server da del testo:
Trying 193.205.245.10...
Connected to 
whois.nic.it
.
Escape character is '^]'.
Quindi dovrebbe richiamare DataArrival.
In cosa sto sbagliando?

Adesso mi connette, TCPclient.state e' 7
Invio per esempio
TCPclient.SendData "
tin.it
"
ma non ricevo risposta o almeno TCPclien_DataArrival non viene richiamato.
Invece con telnet riesco correttamente

OK mi sono reso conto che non inviavo il fine linea per questo non
ricevevo una risposta.
La risposta l'ho diretta in TextBox multilinea, ma non interpreta
correttamente i caratteri di fine linea infatti il testo appare confuso e
ad ogni fine linea c'e' un carattere in neretto, come un rettangolo nero.
Come risolvo?

 Come risolvo?
genericamente, cercando di capire qual è il codice ascii del carattere che
viene riprodotto con il quadratino nero...
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 che viene riprodotto con il quadratino nero...
Ma poi come faccio a sostituire il carattere con vb_CrLf prima di
indirizzare il testo alla textbox ?

 ad ogni fine linea c'e' un carattere in neretto, come un rettangolo nero.
Risposta = Raplace$(Risposta, vbCr, vbCrLf)
    Ciao
        Allanon
-- 
- SPAMKILLER
 lasciate il NOSPAM nell'indirizzo: 
itlangv...@michele.sytes.net
 e lasciate la parola SPAMKILLER nel corpo dell'email

 
Niente,
Continuano a comparire i caratteri neri, evidentemente non li interpreta
come vbCr. Inoltre se ne copio uno e lo incollo nel codice mi risulta come
un fine linea, cioe' appena incollo il testo va a capo.
Suggerimenti?


Il carattere era vbLf
Grazie.

 un fine linea, cioe' appena incollo il testo va a capo.
Metti la casella di testo in multiline.
-- 
IBM: Idiots Being Mental
News 2000 [v 2.06] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net
Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare programmi

Scusate ma potreste dirmi come faccio da un mio programma ad aprire
altri programmi, magari assieme a parametri?
Ad esempio avviare Netscape con un'inidirizzo URL di una pagina?
Grazie

Ad esempio avviare Netscape con un'inidirizzo URL di una pagina?
Questo vorrei saperlo anch'io! Aspettiamo con fiducia che i santoni del NG
ci aiutino.
Ciao
Cesare Nicola

 Grazie
Qui di seguito ti riporto un'esempio di come aprire un'indirizzo nel browser
di Default, poi se proprio vuoi netscape usa la funzione Shell() ma se sul
computer non c'e'?!?!?
Ciao ciao
Stracca
Apri un nuovo modulo ed inserisci questo codice:
' Dichiarazione costanti
Public Const SW_SHOW = 1
' Dichiarazione API
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
_
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
' Funzione che richiama automaticamente il browser predefinito
Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
   Dim hBrowse As Long
   hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub
Crea un form con un command-button chiamato 'Command1':
Private Sub Command1_Click()
   Call Navigate(Me, "
http://www.murialdo.it/it_lang_vb
")
End Sub
P.S. Visita anche il sito comune, secondo me li' c'era quest'esempio !!!
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto x Gestione Immagini...

Ciao a tutti,
volevo porre alcune domande su dei problemi che ho incontrato
nel programmare un semplice visualizzatore di immagini.
Dunque i problemini sono:
1)Come <una volta caricata un 'immagine in una picturebox,tramite una
   filelistbox> poter fare uno zoom sull'immagine.
2)Come inserire due scrollbars una V. e una O. che siano in grado di farmela
   visualizzare.(oppure andrebbe bene anche come muovere l'immagine
   col mouse ,se si puň fare.)
3)E' possibile creare un pulsante in grado ,una volta premuto,di impostare
   il BorderStyle del form a 0:None cosi da togliere la barra quando voglio
   ricavando un po' di spazio in piů...
   (Ho provato ma mi da il 2 di picche! :  command1_click()
form1.borderstyle=0
   a questo punto avrei voluto vedere scomparire il bordone blu e invece...)
Grazie in anticipo ,  ciao
JBS

    ricavando un po' di spazio in piů...
'Per il Refresh della finestra
Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long,
lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Private Const RDW_INVALIDATE = &H1
'Restituisce il vecchio stile della finestra
Public Function TogliCaption(Handle As Long) As Long
    Dim Res As Long
    Res = GetWindowLong(Handle, GWL_STYLE)
    TogliCaption = Res
    SetWindowLong Handle, GWL_STYLE, Res - WS_CAPTION + WS_DLGFRAME
    RedrawWindow Handle, ByVal 0&, ByVal 0&, RDW_INVALIDATE
    DrawMenuBar Handle
End Function
va chiamata cosě:
TogliCaption Form1.hWnd
Ciao!
Faber
P.S.: le dichiarazioni e le costanti che mancano dovresti trovarle con
immediatezza nell'API Viewer


Ciao sono anche io interessato allo stesso problema. Potresti girarmi la
risposta che hai avuto
grazie e a buon rendere
renato....@tin.it

   a questo punto avrei voluto vedere scomparire il bordone blu e
invece...)
borderstyle che io sappia e' di sola lettura in esecuzione con VB5
(purtroppo non ho modo di controllare) e non so se e' cambiato con VB6
Ciao stefano

 come posso associare una scrollbar a una picturebox, in modo che quando
schiaccio su un pulsante della scrollbar si mova l'immagine all'interno
della picturebox??
devi usare due picbox, una dentro l'altra.
qui si chiamano picFields e picParent.
quando cambiano le dimensioni di picFields, la vscrollbar consente di
muoverla in verticale.
eventualmente metti anche una hscrollbar.
ciao, a.
Private Sub Form_Load()
VSC.Height = picParent.ScaleHeight
VSC.LargeChange = picParent.ScaleHeight
End Sub
Private Sub picFields_Resize()
VSC.Max = IIf(picFields.Height > picParent.Height, picParent.Height -
picFields.Height, 0)
VSC.Value = 0
End Sub
Private Sub VSC_Change()
picFields.Top = VSC.Value
End Sub
Private Sub VSC_Scroll()
picFields.Top = VSC.Value
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: ABC Casella Combinata

Salve sono alle primissime armi, diciamo una paginetta di A una di B ecc.
Quando sono arrivato alla paginetta di " Casella Combinata" ho trovato i
primi problemi, in particolare non so come far uscire nell'elenco a discesa
i valori dei record.
Es. nella casella Clienti quando faccio click sulla freccietta devono uscire
i clienti gia registrati.
Cosa che con Access mi riesce facilmente.
Dove si trova il collegamento con il campo ?
Grazie

Prova a settare le propietą RowSource e ListField dell'oggetto dbcombo
Ciao
Tuareg ha scritto:


Prova a settare le propietà RowSource e ListField dell'oggetto dbcombo


Newsgroup: it.comp.lang.visual-basic
Titolo: Sfogliare la rete, come?

E' possibile inserire in un form un controllo per poter sfogliare la rete
e vedere tutti i computer connessi in quel momento?
(Un pò come esiste la DirListBox e cose simili...)
Se si sapreste dirmi qual'è?
Esiste anche un'istruzione per collegare unità di rete?
(attualmente faccio una chiamata al dos con cui lancio il comando "net
use")
Grazie a chi vuole rispondere!
P.S. Sto lavorando in VB6, ancora non ho fatto il grande passo verso .NET,
magari con .NET sono migliorate e/o aumentate le funzionalità per
programmi che lavorano su reti locali?
In pratica sto realizzando una procedura con un programma "server" che
gestisce funzioni basi ed archivio generale e vari programmi "client" che
lavorano sia su database locali che su quello generale in rete, e siccome
il sistema che ospita i client è win98 vorrei implementare connessioni e
disconnesioni automatiche visto che i precedenti con win98 mi hanno
insegnato a diffidare dalla gestione delle connessioni da parte del
sistema operativo...
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Cerca sul sito comune il progettino "Aprire la finestra di selezione di una
directory" (č il file dirselector.zip). E' una chiamata ad api per aprire la
finestra standard di windows per la scelta di una cartella (comprese le
risorse di rete) Magari ti fa comodo!

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

Devo far spostare una picture su un form, come se si muovesse.
Siccome questo applicativo deve girare su pc non proprio potenti(p100-p166),
qual' è il modo più veloce per farla camminare (lavorando oltre le proprierà
left e top)
Ciao e grazie

 wrote in message 7qgika$81d$1...@news.mch.sbs.de...

Usa il metodo Move, è molto + efficiente che utilizzare left+top.
Saluti, Massimo.
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Dubbi su seriale

PortaCom.Output = OutBytes
E' essenzialmente la stessa cosa, il buffer di MsComm č una
successione di bytes come la matrice di bytes.
Di solito si usano le stringhe perchč sono piů semplici da gestire
delle matrici.
ciao
  Stefano

Ciao,
scusate la domanda banale, ho cercato nei vecchi post ma non ho trovato 
un risposta...
Fino ad ora ho inviato e ricevuto dati dalla seriale in formato stringa.
Secondo voi, usare una matrice di bytes è più veloce/efficiente visto 
che VB usa la codifica Unicode?
Mi spiego.
Devo parlare con dell'hardware, e devo inviare, per es., la seguente 
stringa esadecimele:
02 04 CD F4
Mi conviene fare così:
PortaCom.Output = Chr(&H02) & Chr(&H04) & Chr(&HCD) & Chr(&HF4)
oppure così (se si può fare):
dim OutBytes(4) as Byte
OutBytes(0) = &H02
OutBytes(1) = &H04
OutBytes(2) = &HCD
OutBytes(3) = &HF4
PortaCom.Output = OutBytes
Tnx.
LeleB.
-- 
Free As In Fredom
www.fsf.org
Newsgroup: it.comp.lang.visual-basic
Titolo: Pulsante di chiusura

Con Vb 5 dovrei realizzare un Pulsante2 che mi chiuda
contemporaneamente alcune applicazioni (app1.exe,
app2.exe, app3.exe etc. ) precedentemente avviate da
un Pulsante1 che esegue :
 
shell "C:\app1.exe
shell "C:\app2.exe
shell "C:\app3.exe
etc.
Quale sarà il codice del Pulsante2  ?
Grazie a tutti
Togliere un 3 per Email

 wrote in message
379be6c...@newssrv.ita.tip.net...




Gasp !!!!!
Con Visual script è sufficiente :
Window Close,  App1, App 2, App3 etc.
dove App1 etc. è la caption della finestra !!
Pensavo fosse più semplice !!!
Grazie comunque, penso che rinuncerò, poichè di Visual Basic
non so quasi nulla.

Newsgroup: it.comp.lang.visual-basic
Titolo: Query di aggiornamento su database dBASE

VI PREGO AIUTATEMI!
Ho un problema nella esecuzione di una query di aggiornamento.
Effettuo la connessione in questo modo ad un database dBASE (utilizzo DAO)
Dim wksTEST As DAO.Workspace, conTEST As DAO.Connection
Dim strConn as String, strSQL
'strConn è la stringa di connessione al database, è corretta e ne sono più
che certo, per brevità non la inserisco.
Set wksTEST = DBEngine.CreateWorkspace ("PROVA", "ADMIN", "PWD", dbUseODBC)
Set conTEST = wksTEST.OpenConnection ("PROVA", dbRunAsync, strConn)
'Quando vado ad eseguire la query...
strSQL = "UPDATE [TAB1] SET [TAB1].[DATA1]='Pippo' WHERE
([TAB1].[RIF1]='Topolino')"
conTEST.Execute strSQL
Mi genera uno dei seguenti errori:
"ODBC chiamata non riuscita"
"Esecuzione impedita da un'altraoperazione"
Boh???
Se avete qualche suggerimento fatemelo sapere.
Se avete una soluzione che utilizzi altri strumenti FATEMELO SAPERE, VI
PREEEEGOOOO!!!
Grazie
Giubodi

Che versione usi di dao?
dall'installazione delgli Ado 2.1, quindi di dao 3.6, non è più supportato
l'aggiornamento su dbase.
Devi connetterel la tabella some foxpro.
(a meno che tu abbia degli indici ndx...)
ciao
ugo
"Giubodi" <_giubodi_@_TOGLIMI_iol.it> ha scritto nel messaggio
news:mg%y5.9282$OI2.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Eventi: questi sconosciuti

Il mio problema e' il seguente:
Ho una textbox ed una griglia ed un recordset.
Vorrei che quando termino di scrivere nella textbox (e solo quando finisco
di scrivere) la griglia si riempia con determinati valori che dipendono da
quello che ho scritto nella text.
Spero di essere stato chiaro e di non farvi arrabbiare.
Un grazie anticipato a tutto l'ng

 wrote in message
Yr0k7.4723$MO.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: ComboBox e Select

Salve, spero abbiate fatto buone feste.
Veniamo alla domanda....
In una istruzione SELECT dati FROM tabella
WHERE criterio
Vorrei inserire una combobox che vari il criterio di ricerca tra
Cognome,Nome,Data Operazione
la combobox l'ho gia inserita e con AddItem ho inserito i campi.
Come faccio adesso a richiamare i miei 3 campi ed inserirli al posto di
"criterio" ?
P.S. non rimandatemi  a F1, o almeno ditemi che comando cercare...
Grazie a tutti
--
----------------------------------------------------------------------------
-
Marco Corsaro
ICQ 9870268
http://www.corsaro.it
my greatest love - 
http://151.38.159.216/users
----------------------------------------------------------------------------
-

 P.S. non rimandatemi  a F1, o almeno ditemi che comando cercare...
F1
"concatenazione di stringhe"
ciao
ugo

 "concatenazione di stringhe"
La traduzione Italiano-Inglese la fa da solo?
Grazie a chi mi indirizza un po' meglio!
--
----------------------------------------------------------------------------
-
Marco Corsaro
ICQ 9870268
http://www.corsaro.it
----------------------------------------------------------------------------
-


F1
"String concatenation"     :-PPPP
ciao
ugo
p.s.
Per stavolta...
dim sSql as string
sSql = "SELECT dati FROM tabella WHERE " & combo1.text & "= '" & text1.text
& "'"
notare i sigoli apicetti che delimitano il text1.text
ri-ciao
ugo


CUT
Grazie per l'aiuto,
intanto dopo ore di lettura e con l'aiuto di un'amico ci sono riuscito.
ma concatenazione di stringhe io lo tradurrei "concatenation of laces"
:-))))
String in italiano si dice Sequenza :-)))
per questo a volte è complicato consultare F1
Dovresti prima di tutto cercare di capire la logica con cui vengono chiamate
le istruzioni..
Comunque oggi la BEFANA mi ha portato MSDN in ITALIANO  :-)))
Ciao a tutti
--
---------------------------------------------------------


 Comunque oggi la BEFANA mi ha portato MSDN in ITALIANO  :-)))
mmm è la settimana degli informatici "francofoni"???
Guarda che è _impossibile_ lavorare seriamente in informatica
(e anche in qualsiasi altro settore imho) senza parlare almeno
decentemente l'inglese.
ciao
ugo

 decentemente l'inglese.
L'inglese lo parlo e lo scrivo decentemente....il problema
si pone quando appunto si tratta di vocaboli informatici.
Non e' assolutamente interpretata come polemica la tua risposta.
Sto qui per imparare, non per polemizzare.
Ciao e grazie comunque dei chiarimenti.
--
----------------------------------------------------------------------------
-
Marco Corsaro
ICQ 9870268
http://www.corsaro.it
----------------------------------------------------------------------------
-

 ha scritto nel messaggio
news:3FzZ7.28824$s04.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Versione dei programmi

Scusate se aggiungo all'elenco delle news un nuovo OT, ma mi chiedevo 
quale sia il metodo per calcolare la versione di un programma.
Allora, quando un programma viene terminato per la prima volta, 
compilato e dichiarato funzionante perchè testato, penso debba essere 
presentato come versione 1.0.
Ora... vengono a galla dei bugs, vengono apportate delle migliorie, e 
tante altre cose.
Da 1.0 il programma diventa...? Cosa? 1.0.1? 1.1? Che significato ha 
ogni cifra (numero) dopo i vari caratteri di punteggiatura?
Cioè 1.0.1 significa tutt'altro che 1.1 credo, quindi? C'è qualche info 
a riguardo in giro?
Thx anticipati!!!
-- 
Nella vita una sola cosa è certa: se la storia ci ha insegnato qualcosa, 
è che si può uccidere chiunque. (Micheal Corleone)
Posted from X-Privat Free NNTP server - 
www.x-privat.org

a riguardo in giro?
  Non e' che esistano vere e proprie regole, ci sono certe
consuetudini comunque elastiche per cui dalla 1.0 si passa a:
  2.0 quando si fanno grossi cambiamenti con notevoli aggiunte;
  1.5 quando si fanno abbastanza aggiunte e migliorie;
  1.1 quando si fanno alcune aggiunte;
  1.01 quando si corregge qualche bug.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire "micio" con "mc"

 ogni cifra (numero) dopo i vari caratteri di punteggiatura?
In genere si considerano le cifre secondo importanza, da sinistra a destra.
Nel caso di 3 cifre:
- la prima potrebbe essere utilizzata per indicare versioni nuove (tecniche
e/o commerciali), generalmente incompatibili (salvo conversioni) con le
precedenti.
- la seconda può indicare variazioni importanti e generalmente strutturali.
- la terza indica generalmente variazioni minori (bugs e/o piccole
migliorie), certamente non strutturali.

 a riguardo in giro?
http://snurl.com/38uf
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT Outlook Express] duplicati.

utilizzando Outlook Express 5 per la ricezione e l'invio di news e posta, ho
questo problema:
ho formattato l'HD e ho salvato i file di posta e news su CD. Ho importato i
messaggi da CD e ne ho importato anche altri da altri CD. In alcuni CD avevo
alcuni messaggi che già avevo importato ottenendo così dei duplicati. Ora
visto che i messaggi importati sono più di 2.000 dei quali credo circa 800
duplicati volevo sapere se esisteva un programma che mi permetteva di
cancellare i messaggi ricevuti con stesso destinatario, oggetto, e data
lasciandone solo uno oppure mi tocca cancellarne uno per uno?
scusate per l'OT e grazie a tutti coloro che interverranno.

 ha scritto

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Qualcosa di free per i flowChart?

Ciao Raga,
Conoscete qualcosa di free per i flow-charts?
Grazie in anticipo,
-- 
Andrea Raimondi
REICOM S.r.l.
Software Developer

 Conoscete qualcosa di free per i flow-charts?
Word ha una raccolta di immagini per rappresentare i diagrammi di flusso,
conseguentemente proverei a dare un'occhiata anche ad OpenOffice.
Ciao, SK
--
La pasienzia non è mai troppo (Totò)
<><><>
Esistono 10 tipi di persone: chi conosce il binario e chi no

 OpenOffice.
Confermo:
http://www.openoffice.org/servlets/ReadMsg?list=users&msgNo=50030


 Ciao, SK
Ciao,
Andrea

 
Era stato segnalato anche questo:
http://www.steema.com/downloads/dwn_ttr_office.html
ha qualche baco, ma e' carino.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 ha scritto

su pcplus di febbraio 2004, 15e50, oltre solid pdf (pdf2rtf), c'e' un
diagram studio full, non provato. costerebbe circa 30 gbp.
sul sito a volte li mettono, questo direi di no o non ancora.
http://www.pcplus.co.uk/downloads/default.asp
?
ciao, j.

Grazie in anticipo,
via su sourceforge e cerca DIA noi usiamo quello per i nostri (pochi)
digrammi di flusso.
Ciao
-----------------------------------------
http://www.geocities.com/abilato/
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per query

Salve,
io ho la seguente situazione: una tabella 'Fatture' , ha un campo
'ID-intestatario' che rapprsenta
o l'ID del cliente (riferito alla tabella 'Clienti') o l'ID del fornitore
(riferito alla tabella 'Fornitori').
Come posso fare il JOIN alla tabella giusta ('Clienti' o 'Fornitori') ?
Nella tabella 'Fatture', ho un ulteriore campo di tipo stringa che mi indica
il tipo di fattura: vendita, oppure
acquisto. Nel caso di fattura di vendita l'ID-intestatario Ã¨ riferito a
un
cliente, nel caso di fattura
di acquisto, l'ID-intestatario Ã¨ riferito a un fornitore.
Come posso fare una query che mi estrapoli il cliente (nel caso di fattura
di vendita) o il fornitore (nel caso di fattura di acquisto).
Grazie a tutti per l'aiuto.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Come posso fare il JOIN alla tabella giusta ('Clienti' o 'Fornitori') ?
C'� un errore di progettazione imho, clienti e fornitori potresti averli
nella stessa tabella, oppure potevi avere due campi ID separati fra cliente
e fornitore.
Detto questo dovresti dire quale DBMS utilizzi.
Ad occhio direi di metterle in LEFT JOIN entrambe, e poi in select di
prendere il valore giusto, ti conviene farti una vista, perch� altrimenti
impazzisci.
SELECT
  Case When Tipo='Vendita' Then Cliente.Denominazione Else
Fornitore.Denominazione As Denominazione
FROM Fattura
  Left Join Cliente on Fattura.IDIntestatario=Cliente.IDIntestatario
  Left Join Fornitore on Fattura.IDIntestatario=Fornitore.IDIntestatario
Oppure in modo pi� furbo metti la CASE WHEN in Join, e poi prendi i campi
con la coalesce (o nullif o come si chiama)
SELECT COALESCE(Cliente.Denominazione, Fattura.Denominazione) As
Denominazione
sapendo per cerco che uno dei due sar� Null Sempre, a seconda di come
imposti la Join.

 Come posso fare il JOIN alla tabella giusta ('Clienti' o 'Fornitori') ?
C'� un errore di progettazione imho, clienti e fornitori potresti averli
nella stessa tabella, oppure potevi avere due campi ID separati fra cliente
e fornitore.
Detto questo dovresti dire quale DBMS utilizzi.
Ad occhio direi di metterle in LEFT JOIN entrambe, e poi in select di
prendere il valore giusto, ti conviene farti una vista, perch� altrimenti
impazzisci.
SELECT
  Case When Tipo='Vendita' Then Cliente.Denominazione Else
Fornitore.Denominazione As Denominazione
FROM Fattura
  Left Join Cliente on Fattura.IDIntestatario=Cliente.IDIntestatario
  Left Join Fornitore on Fattura.IDIntestatario=Fornitore.IDIntestatario
Oppure in modo pi� furbo metti la CASE WHEN in Join, e poi prendi i campi
con la coalesce (o nullif o come si chiama)
SELECT COALESCE(Cliente.Denominazione, Fattura.Denominazione) As
Denominazione
sapendo per certo che uno dei due sar� Null *sempre*, a seconda di come
imposti la Join.
Newsgroup: it.comp.lang.visual-basic
Titolo: NET Time ???????????????

Chi sa prendere l'ora del server con un API o un comando VB ????

 Ci sono anche altre soluzioni?
Penso che l'unica alternativa sia utilizzare il comando NET TIME da riga di
comando e reindirizzare l'output su un file che poi ti leggi da VB.
2)
There is the "NET TIME \\nomeserver" program in dir windows, but I don't
know how you can use it in vb6.
You might execute the Dos Command "net time \\nomeserver>pippo" and read the
file pippo to know the time.
I hope there is a better way to do it.
(pardon for the English).

Newsgroup: it.comp.lang.visual-basic
Titolo: errore 3075

salve,
ho un problema quando faccio un update di un campo memo su di un db di 
access
il campo da modificare contiene apici virgolette parentesi, se non utilizzo 
nessno di questi caratteri l'operazione va a buon fine altrimenti mi da 
errore 3075.
anticipatamente vi ringrazzio
nico 

nico ha scritto nel messaggio:

Il problema infatti sono proprio quei caratteri, che nelle query di access
rappresentano dei marcatori.
Non č molto elegante ma dovrebbe risolverti il problema, prova a fare cosě:
Dim RC As Long, N As Long
Set RS = DB.OpenRecordSet("Select a, b, c From d Where e = 'nn';")
If RS.RecordCount > 0 Then
    RS.MoveLast
    RS.MoveFirst
    RC = RS.RecordCount
    For N = 1 To RC
        RS.Edit
        RS!a = "Testo Memo"
        RS.UpDate
    Next N
End If
--
Ciao Fede
By Chicco Production
http://www.webalice.it/bychicco/

         RS.UpDate
            RS.MoveNext

Newsgroup: it.comp.lang.visual-basic
Titolo: MSFlexGrid e riga 0

Ciao a tutti...
piccolo quesito...
non riesco a intercettare la riga 0 (quella posta come Fixed) in un
controllo MSFlexGrid....interrogando
.row mi restituisce sempre 1
suggerimenti?
ps: intercettare la riga 0 mi serve per consentire l'ordinamento automatico
come su Excel....
Grazie
Emanuele

 suggerimenti?
io ho risolto cosě:
'inizio
Private Sub grid_MouseDown(Button As Integer, Shift As Integer, x As Single,
Y As Single)
    'y<200 corrisponde praticamente all'altezza della riga
     If Y < 200 Then
        refreshGrigliaOrdinataXColonna
     End If
End Sub
'fine
ovviamente intercetti la colonna premuta e fai il refresh in base a quella
lě
ciao

 suggerimenti?
fai così:
If FLX_Thunderbolt.MouseRow = 0 Then
    FLX_Thunderbolt.Col = FLX_Thunderbolt.MouseCol
    FLX_Thunderbolt.ColSel = FLX_Thunderbolt.MouseCol
    ' gestione ordinamento ascendente al primo click e 
    ' discendente al successivo click sulla stessa colonna
    ' (come esplora risorse)
    If FLX_Thunderbolt.Tag = Trim(CStr(FLX_Thunderbolt.Col)) Then
        FLX_Thunderbolt.Sort = SortSettings.flexSortGenericDescending
        FLX_Thunderbolt.Tag = 0
    Else
        FLX_Thunderbolt.Sort = SortSettings.flexSortGenericAscending
        FLX_Thunderbolt.Tag = Trim(CStr(FLX_Thunderbolt.Col))
    End If
end if
termoPilucco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

termoPilucco ha scritto:
[...]
Ovviamente da inserire nell'evento FLX_Thunderbolt_click



Ringrazio....il non riuscire a intercettare la riga 0 mi da molto
fastidio....
Provo i vostri suggeriimetni
grazie
Emanuele

Ho utilizzato la prima soluzione, quella di jis, perche nel secondo caso,
utilizzando MouseRow, mi restiruisce il valore di .RowSel, che non capisco
perche' corrisponde sempre al valore dell'ultima riga caricata, ma solo se
viene cliccata la riga 0.....in tutti gli altri casi, .RowSel restituisce il
valore di riga selezionato.
Grazie
Emanuele