mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Selezionare una riga di una griglia con il tasto destro

Ciao a tutti.
Volevo sapere se è possibile selezionare una riga di una griglia cliccando
con il tasto destro.
Questo mi serve perche' il tasto dx mi fa apparire un popup menu, ma prima
di farlo apparire vorrei automaticamente selezionare la linea cliccata.
Grazie a tutti.
Ciao.
Skysurfer
Ho trovato questo codice che pero' funziona solo su un ListBox:
Private Const LB_SETCURSEL = &H186
Private Const LB_ITEMFROMPOINT = &H1A9
Private Declare Function SendMessage Lib "user32" _
             Alias "SendMessageA" _
         (ByVal hwnd As Long, _
          ByVal wMsg As Integer, _
          ByVal wParam As Integer, _
          lParam As Any) As Long
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    Dim mi_Pos As Long, mi_Item As Long, mi_hWnd As Long
    mi_Pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * &H10000
    mi_hWnd = List1.hwnd
    mi_Item = SendMessage(mi_hWnd, LB_ITEMFROMPOINT, 0, ByVal mi_Pos)
    If mi_Item < &H10000 Then Call SendMessage(mi_hWnd, LB_SETCURSEL, ByVal
mi_Item, ByVal 0&)
End Sub

con il tasto destro.
Quale griglia?
-- 
ciao, hal

Mi serviva per la TrueDBGrid, comunque ieri spulciando su Google ho trovato
questo:
Private Sub TDBG1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    TDBG1.Row = TDBG1.RowContaining(Y)
    TDBG1.Col = TDBG1.ColContaining(X)
End Sub
Ciao
Skysurfer

Newsgroup: it.comp.lang.visual-basic
Titolo: Autoverbmenu su VB 2005

Salve, devo inserire in un richtextbox un contextmenustrip per far
comparire il classico menu Autoverbmenu, fino a qui nessun problema.
E' possibile utilizzare lo stesso contextmenustrip per più richtextbox
o devo utilizzare per ogni richtextbox un contextmenustrip diverso?
Grazie,
Francesco

 o devo utilizzare per ogni richtextbox un contextmenustrip diverso?
Ma non hai provato?
Ciao 

 ha scritto nel messaggio

Si ho provato, però il problema è che dovrei riscrivere il codice per
ogni richtextbox per fare ad esempio i menu con copia, incolla....,
giusto? Io volevo utilizzare lo stesso contextmenustrip e lo stesso
codice per tutti i richtextbox.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Proxy Server in VB

Qualcuno ha già provato ad implementare un proxy server in VB ?
Oppure qualcuno sa darmi una dritta ? Il mio prblema è il seguente : devo
collegarmi ad internet da una postazione e cercare posta sul server remoto
accettando richieste da clients locali. Non mi serve nient'altro (no web, no
telnet, no news).
Grazie.

...

Io me ne sono fatto uno da utilizzare per il web ma penso che valga la
stessa cosa.
Ho usato i controlli TCP/IP della SocketWrench.
Ma lo puoi fare anche con il controllo InternetTransfer e qualche chiamata
API.
Fammi sapere se posso esserti utile in altro modo.
Luca

Come da subject : nessuno ha mai provato a realizzare qualche cosa di simile
? Non dico Web server ma un proxy server. In particolare avrei bisogno di
dirottare verso un server di posta le richieste di diversi clients. La posta
deve essere letta con programmi come Eudora, Outlook e cosě via. Deve essere
anche possibile spedire e ricevere allegati.
Qualcuno sa darmi qualche dritta ?

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto su Controllo Modem





Scusate la mia ignaranza....ma stò cercando di 
farmi un piccolo programmino in VB 6.0 tipo "Ma quanto mi costi?" per vedere la 
spesa sul collegamento a Internet. Ho gia un idea (e parte del codice) di come 
fare ma mi manca un controllo (?) che mi permetta di testare se il modem è "in 
linea" o "non in linea" per poter far partire il mio "time" quando mi collego e 
stopparlo quando mi scollego! 


 


Come posso fare, esiste una libreria con un 
controllo sul modem, o posso fare in modo diverso? 


 


Magari a qualche neofita verrà da ridere per la mia 
richiesta, ma ringrazio lo stesso per aver perso tempo a leggere la mia 
richiesta e spero che qualcuno mi possa comunque dare una risposta (o un 
consiglio).   Ciao da Ste.



 wrote in message
000801bfca62$0ab1e660$c5dcd8d4@igmeli...



Guarda, è molto semplice.
Sai ricavare il tuo IP da Visual Basic (ci sono almeno 2 modi) ?
Bene, sappi che quando sei disconnesso il tuo IP è uguale a 127.0.0.1,
invece quando ti connetti, cambia...naturalmente !
Quindi...
Crei un timer che controlli continuamente una Label dove ci sarà il tuo IP.
Private Sub Timercontrollore_Timer
If IPLabel.caption = "127.0.0.1" Then
Timermodem.Enabled = False 'spegne il timer della connessione
Else
Timermodem.Enabled = True
End Sub
Semplice, no ?
Ciao !
Lorenzo
P.S.: Hai ben chiaro il concetto di "neofita" ?!?!???
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con database

ciao a tutti
utilizzando un ciclo for ... next per analizzare un recordset (in Oracle, ma
credo che sia uguale per tutti) piuttosto lungo, e volendo visualizzare il
numero del record attuale (con VB6):
  For i = 1 To MyRec2.RecordCount
      Label1.Caption = "analizzo record " & MyRec2.AbsolutePosition & " di "
& MyRec2.RecordCount
      ..
      ..
     MyRec2.MoveNext
Next
questo non viene visualizzato in quanto sembra che "Label1" non prenda mai
il controllo.
(fatta prova con un ciclo per solo 40 record (For i = 1 To 40) , e "Label1"
viene modificata solo alla fine del ciclo for)
(fatta anche prova inserendo un timer che visualizza la posizione ogni
tanto.... ma e' lo stesso).
e' possibile serializzare (?) le istruzioni???
avete soluzioni??? consigli????
ciao a Tutti, e Buon Natale
                              Fabry

 Next
Il tuo ciclo è molto più veloce della velocità di refresh della caption,
senza contare che un ciclo per quanto corto, comunque occupa più
memoria che viene sottratta al refresh video.
Se metti un doevents dopo label1.caption può essere che qualche cosa vedi.
Tuttavia, permettimi di dirti che a seconda della versione e del provider
oledb
che usi, la absoluteposition non sempre ti restituisce il valore corretto.
ne consegue che se stai scandendo il tuo record e da quello che si evince
dal
tuo codice non ti frega niente del record di se per se, ma solo del numero
processaro
se fai un label1.caption = i sicuramente ottieni risultati migliori, perchè
comunque
vb non deve andare ad interrogare il cursore ado per sapere che record
si è appena letto ...
Saluti e auguri
Andrea

 ha scritto nel messaggio
news:bscuip$c0mpm$1...@ID-61006.news.uni-berlin.de...


 Loop

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come utilizzare i file .wav dentro i file di risorse

Ciao a tutti. Come posso utilizzare i file .wav che inserisco nei file di
risorse con l'api mcisendstring?
Grazie a tutti
Ciao

Innanzitutto devi mettere in un file .res il file .wav, dopodiché usa questo
codice...
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal
lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Command1_Click()
PlaySound "MYSOUND", App.hInstance, &H40007
End Sub
Attenzione: Il programma funziona solo compilato in quanto l'hInst ritornato
a design time da VB non é quello del programma ma quello del processo
VB32.exe.
Ho ipotizzato che il .wav venga identificato com MYSOUND.
Ciao,
Corrado

...

Grazie 10^3!!
Stefano

...


Newsgroup: it.comp.lang.visual-basic
Titolo: icona nei task, vicino l'orario ...

come posso ridurre una form ad una icona piccola vicina all'orologio ?
facendola sparire completamente dallo schermo ?
grazie
Vincenzo

 ha scritto nel messaggio
news:enX78.30334$om6.7...@news1.tin.it...

trovato sul sito comune alla voce traybar... forse ci sono.
Vincenzo

Proprio quello !
Ciao, Claudio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal report

E' da poco che uso crystal reports. Come faccio a cambiare in run-time
il testo di un testo piazzato in un report? Grazie.

il testo di un testo piazzato in un report? Grazie.
Puoi usare le formule, se tu imposti una formula in crystal report (che non
fa niente) e in vb in runtime imposti quella formula al testo che vuoi
ottentere il gioco é fatto
CIAO

 ottentere il gioco é fatto
Si. In effetti così si può. Come Ronchi mi ha fatto notare. Grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Contare i campi

Salutoni a tutti i programmatori; avrei bisogno di un aiuto per sapere una
cosa.
Per contare il numero di record di una tabella controllata da un
datacontrol, si puň fare cosě:
 data1.Recordset.MoveLast
 NumRecs = data1.Recordset.RecordCount
 data1.Recordset.MoveFirst
 msgbox=(NumRecs)
Ma per contare il numero esatto di campi del record, come si puň fare?
Grazie a tutti Fab

 Ma per contare il numero esatto di campi del record, come si può fare?
la routine qui sotto la vedi in azione in dbstru, tra i miei free:
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/
Private Sub cmdStructure_Click()
    On Error GoTo errman
    If DbName = "" Then Exit Sub
    List1.BackColor = GIALLO
    Dim conf As Long
    'conf = SendMessage(Me.hwnd, WM_SETREDRAW, False, 0)
    Dim db As Database
    Dim td As TableDef, prp As Property, fld As Field, idx As Index
    Dim J As Long
    Dim vval, txt
    Set db = OpenDatabase(DbName)
    List1.Clear
    List1.AddItem UCase(DbName)
    List1.AddItem "==========================="
    For Each td In db.TableDefs
        If Left(td.Name, 4) <> "MSys" Then
            List1.AddItem "TABLE: " & td.Name
            For Each prp In td.Properties
                vval = ""
                vval = prp.Value
                txt = IIf(vval <> "", prp.Name & ": " & prp.Value, prp.Name)
                List1.AddItem "---" & txt
            Next
            For Each fld In td.Fields
                List1.AddItem "------FLD: " & fld.Name
                List1.AddItem "---------Type: " & fld.Type & Chr(9) & "(" &
TipoCampo(fld.Type) & ")"
                List1.AddItem "---------Size: " & fld.Size
                List1.AddItem "---------Required: " & fld.Required
            Next
            For Each idx In td.Indexes
'                On Local Error GoTo ExitFor
                List1.AddItem "------IDX: " & idx.Name
                For Each fld In idx.Fields
                    List1.AddItem "---------" & fld.Name
                Next
            Next
'ExitFor:
            List1.AddItem "==========================="
        End If
        Status.Panels(3) = List1.ListCount: DoEvents
    Next
    List1.SetFocus
'    SendKeys "{END}"
'    conf = SendMessage(Me.hwnd, WM_SETREDRAW, True, 0)
'    For j = 0 To Me.Controls.Count - 1
'        Me.Controls(j).Refresh
'    Next
'    SendKeys "{HOME}"
'    Me.Refresh
    db.Close
    'Status.Panels(3) = List1.ListCount
    cmdExport.Enabled = True
    Icon = ImaYel
    'List1.BackColor = BIANCO
    Exit Sub
errman: MsgBox Error: Exit Sub
    'Resume Next
End Sub

 wrote in message 38d3e...@news.dada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Copia di record!

Ho un database Access con una tabella su cui faccio una select. Con i
risultati di questa query vorrei creare un'altra tabella Access sempre nello
stesso db. Come posso fare?

SELECT * INTO NuovaTabella FROM SorgenteTabella

più precisamente..........
Set db = Workspaces(0).OpenDatabase("c:\Database.mdb")
db.Execute "SELECT * INTO NuovaTabella FROM SorgenteTabella" '  puoi
aggiungere delle condizioni Where
Newsgroup: it.comp.lang.visual-basic
Titolo: Due domandine sulle Combo!

Ciao, 2 domandine:
1. qual'è il comando che mi fa aprire un'altra form se clicco sulla combo?!?
L'evento Click non funziona porca puzzola!!!
2. non c'è un modo per stabilire la lunghezza massima di una combo?
Grazie.
Paolo.

 ha scritto nel messaggio
KalZ5.1730$Kw2....@twister2.tin.it...

Da un progetto di esempio del sito comune 
www.murialdo.it/it_lang_vb
 :
Option Explicit
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Const WM_USER = &H400
Const EM_LIMITTEXT = &HC5
Private Sub Form_Load()
Dim lcbhWnd     As Long
Dim nTextLimit  As Integer
Dim lRetVal     As Long
Show                  ' La form deve essere visualizzata
Combo1.SetFocus
lcbhWnd = GetFocus()  ' Handle di Combo1
nTextLimit = 5        ' Numero massimo di caratteri
lRetVal = SendMessage(lcbhWnd, EM_LIMITTEXT, nTextLimit, 0)
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Limitazioni di VB& Learning Edition

Non riesco a trovare risposta a queste domande:
Posso creare e manipolare un database usando VB6 Learning Edition?
Posso vendere una applicazione realizzata con VB6 Learning Edition?
Mi sorgono questi dubbi vedendo la grande differenza i prezzo tra le varie
versioni.
Grazie in anticipo
cam...@lycosmail.com


Puoi creare e manipolare i database ma non puoi vendere l'applicazione. Per
vendere l'applicazione dovresti acquistare la lincenza professional.
Ciao Marco

...


 Stefano
Io nella licenza del VB6 Learning non ho letto che non si possono vendere
i programmi realizzati... quindi credo che l'unica limitazione sia solo
nella funzionalità...
Qualcuno ha delle info più precise???
--
Ciao!
==================================
Daniele Pinna
Email: 
dap...@lycosmail.com
Nell'indirizzo Email eliminare la parola OOPS
Sito Web: Il DoCFa in Pillole: 
http://dapinna.freeweb.org
ICQ UIN: 24567484
______________________________________
  La fantascienza come Star Trek non e' solo un buon divertimento, ma
assolve anche uno scopo serio, che e' quello di
espandere l'immaginazione umana.
  Limitare la nostra attenzione a questioni terrestri equivarrebbe a fissare
dei confini allo spirito umano.
Stephen Hawking

Newsgroup: it.comp.lang.visual-basic
Titolo: Libreria MSDN

Salve a tutti,
ho installato una parte della libreria MSDN Aprile 2001 nella cartella
C:\Programmi\Microsoft Visual Studio\MSDN\2001APR ; e alla richista
dell'Help si attiva la detta libreria scritta solo in inglese.
Chiedo, è possibile far attivare la libreria precedente che si trova nella
cartella
C:\Programmi\Microsoft Visual Studio\MSDN98\98VS ?
Grazie
giuseppeD

 Chiedo, č possibile far attivare la libreria precedente che si trova nella

Newsgroup: it.comp.lang.visual-basic
Titolo: Compattare senza ....nare

Se ho un form aperto con un oggetto DATA collegato ad un database, è
possibile, tenendo il form aperto, mediante un Button eseguire da codice:
db.Close
DBEngine.CompactDatabase ......
kill olddb
rename newdb olddb
quindi, uscendo dal form e rientrando, l'oggetto DATA dovrebbe trovarsi
colleagato a nuovodb senza dare alcun comando Opendatabase
E' giusto o mi ritrovo col database incasinato?
Grazie
--
Gulp ! Forse mi sono perso qualcosa !

 E' giusto o mi ritrovo col database incasinato?
Non lo so, non l'ho mai fatto, ma dubito sinceramente che la cosa riesca,
soprattutto perchè cercheresti di cancellare un file in uso.
Se poi ci riesci, il db a cui eri collegato non è più lo stesso di prima,
quindi le connessioni sono sicuramente non più valide.
Salutoni
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: shell execute & windows media player

ciao,
qualcuno sa il comando che bisogna usare per far partire tramite shell
execute un filmato con wmp?
grazie
--
-=<(Gick)>=-
gi...@gick.cjb.net

execute un filmato con wmp?
Con ShellExecute parte il WMP soltanto se questo e' il player
predefinito, altrimenti devi prima trovarlo (non mi chiedere come si
faccia perche' non lo so e non mi interessa neanche saperlo) e poi
lanciarlo passandogli il filmato come parametro.
-- 
ciao, hal

 ha scritto nel messaggio
news:kjp09v4mk8iails2u...@4ax.com...


player per filmati... va bene il predefinito come si fa???
ma tu, leggi le risposte?
-- 
ciao, hal

 ha scritto nel messaggio
news:fva29vck1bie4639k...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Il quesito SHELLerato

Salve a Tutti,
Ho un quesito da proporre:
Premetto che sono alle prime armi:
Il mio problema e' questo:
Desidero far eseguire in shell un programma di conversione tracciato record.
In pratica la sintassi del comando sarebbe questa:
"c:\nomedir\bookcps.exe c:\nomedir\nomefile"
in automatico viene creato da bookcps un file .dat con il tracciato record
modificato di "nomefile".
Io riesco a fare questo inserendo a programma il comando come sopra, ma
siccome ogni giorno il nome del file cambia vorrei aver la possibilita' di
cambiare ad ogni esecuzione della shell il nome del file.
Magari quando clicco su un pulsante di comando mi appare una finestra con
l'elenco dei file contenuti in una directory
e cliccando sul file che a me interessa venga automaticamente messo al posto
di "nomefile" nella shell di comando.
Ringrazio anticipatamente quanti mi aiuteranno

di "nomefile" nella shell di comando.
Se ho ben capito vorresti che il tuo pulsante di comando ("Converti...")
aprisse una finestra di dialogo tipo "File/Apri...", giusto?
Se le cose stanno cosi' hai, almeno, queste possibilita':
1. Creare un Form che si aprira' quando il pulsante di comando ricevera'
l'evento Click. Su tale Form collocherai i Controls "DriveListBox",
"DirListBox" e "FileListBox", oltre ai classici pulsanti Ok e Annulla.
Questa e' una soluzione abbastanza datata ma, se non la conosci, non sarebbe
male che ti esercitassi con tali Controls in quanto sono utili anche in
altre circostanze.
2. Collocare sul Form del famoso pulsante il Control "CommonDialog" che, se
non e' nella ToolBar, vi andra' inserito selezionando "Microsoft Common
Dialog Control x.x" nella finestra di dialogo "Controlli aggiuntivi" che si
apre scegliendo l'opzione "Strumenti/Controlli aggiuntivi...". Fatto questo
selezioni il Control "CommonDialog" e... premi F1.
3. Ovviamente... API! Ma questa e' un'altra storia.
Quello che ho scritto vale per VB4 e spero che il mondo VB5 o VB6 non sia
cosi' terribilmente diverso.
--
Ciao.
Maurizio

E' proprio ShellERATA la Tua domanda.
Comunque:
dim NomeFile as string
NomeFile="pippo.txt"
Shell "c:\nomedir\bookcps.exe c:\nomedir\" + NomeFile
Marco
PS:    Prima regola dell'informatica dove tutto si crea e tutto si distrugge
            LEGGETE I MANUALI ALLEGATI AL PRODOTTO
            IMPARATE IL BNF DEI COMANDI
--
Posted from 
mail.stream.it
 [194.184.51.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.visual-basic
Titolo: come si elimina il tratteggio

... dai comandi Button???
quando si preme un CommandButton quest'ultimo viene evidenziato mostrando la
cornice tratteggiata all'internodi esso, come si può togliere
Grazie


Non so se esiste un metodo piů elegante, io faccio cosě:
Se nella form non ci sono picture visibili, inserisco il pulsante in una
picture e nella procedura richiamata dall'evento click del pulsante faccio
in modo che il focus venga perso dal pulsante e acquistato dalla picture con
il metodo:
    NomePicture.SetFocus
    Ciao, Silvio
Newsgroup: it.comp.lang.visual-basic
Titolo: Comunicazioni seriali

Come posso fare ad inviare dati (files) ad un computer remoto in modo
trasparente e automatico con un collegamento diretto via modem (come fa il
computer remoto a capire che lo sto chiamando?)?
grazie

computer remoto a capire che lo sto chiamando?)?
Se il computer remoto ha Win98/95 attivi il RAS Server (risponderà
automaticamente alla chiamata).
Sul tuo computer configuri la chiamata al destinatario con Accesso Remoto
(lo vedrai come
_\\nome_server_destinatario\risorsa_condivisa\percorso\nome_file)
Per attivare da codice l'accesso remoto devi farti aiutare da altri...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema sintassi query di selezione

Cosa c'è che non va nella query sottostante? E' giusto come ho scritto
scrivere la condizione in questo modo?
La query è collegata ad un datagrid,ma non mi si aggiorna. Non visualizza
niente perche la sintassi della query è errata, oppure perchè per aggiornare
il datagrid non basta  scrivere    datagrid.refresh
SELECT SOSTITUITODA, SOSTITUISCEIL, NUMERODISEGNO,
    `NOTE`, DESCRIZIONE, DATA, CODICEPROGRAMMACAM,
    CODICECOMMESSA
FROM elencodisegni
WHERE (CODICECOMMESSA = 'form1.text1')
Grazie

 WHERE (CODICECOMMESSA = 'form1.text1')
SELECT SOSTITUITODA, SOSTITUISCEIL, NUMERODISEGNO,
    `NOTE`, DESCRIZIONE, DATA, CODICEPROGRAMMACAM,
    CODICECOMMESSA
FROM elencodisegni
WHERE (CODICECOMMESSA = ' " & form1.text1 & "') "

 ha scritto nel messaggio
news:Jrwia.44264$Jg1.1...@news1.tin.it...


 WHERE (CODICECOMMESSA = '" & form1.text1.Text &"'")
Nota (oltre all'errore sintattico nella parte finale) ... che un campo
denominato NOTE può creare problemi con Access (l'ho messo fra quadre)

 ha scritto nel messaggio
news:b6e6mg$4ds5s$1...@ID-174464.news.dfncis.de...


 WHERE (CODICECOMMESSA = '" & form1.text1.Text &"")')
Quest'ultima parte/riga è clamorosamente sintatticamente errata, ma non
escudo che sia sbagliata, come dicevo, sin dall'inizio...

 ha scritto nel messaggio
news:b6eekr$4ia8g$1...@ID-174464.news.dfncis.de...


 tabella del badabase di access.
Io qui passo perchè non mi sognerò mai di usare qualcosa di cui non possiedo
il totale (per quanto possibile, ovviamente) controllo, mi si passi la cosa.
Quindi tutto ciò che inizia per Data... per me è ... da cestino.

 Quindi tutto ciň che inizia per Data... per me č ... da cestino.
Ecco perché Luca ha usato "badabase" invece di "database" !!!... :-)))
--
Er Roscio.
Newsgroup: it.comp.lang.visual-basic
Titolo: GoTo

Ciao.
Ho un piccolo problema, non riesco a far funzionare l'istruzione GoTo,
gradirei delle nozioni,premetto sono un principiante.
Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 gradirei delle nozioni,premetto sono un principiante.
goto e' un arma a doppio taglio , usalo con parsimonia !
esempio :
Private sub Pippo
 on error goto Err
      ...
      me.proprieta' = valore errato
      ...
 exit sub
err:
  msgbox "Errore"
end sub
oppure ecco un errore nell'uso del goto
private sub paperino
Pluto:
  pippo = true
  if pippo goto Pluto ' da qui non esce +
end sub
quindi attento a come la utilizzi spece quando sei dentro ai cicli !

 gradirei delle nozioni,premetto sono un principiante.
Banalmente: dimenticatene l'esistenza.
L'unico uso sensato del goto
(e solo a causa della _pessima_ logica di gestione errori di vb...)
è questo:
sub Main
    on error goto errore
    ...
    codice della sub
    ...
    exit sub
errore:
    MsgBox "Errore " & trim(str(err.Number)) & ": " & vbCrLf &
err.description, vbCritical + vbokOnly, app.filedescription & " - Errore!"
end sub
ciao
ugo

 wrote:
To', guarda un po' chi si rivede ;-)
-- 
ciao, hal

 To', guarda un po' chi si rivede ;-)
...periodaccio... troppi... troppi arretrati...
Ho saltato meeting, smau e anche qualche domenica...  :-(
...e circa 10000 messaggi sul Ng...
ciao
ugo

 ...e circa 10000 messaggi sul Ng...
Massiiiiimiiiiiliiiiiiaaaaanoooooooooooo..... ooo, oo.... ?
Ugo!
Benrivisto. (da dove ... "ricominci"?)

 Benrivisto. (da dove ... "ricominci"?)
thanks   :-))))
direi, al massimo dal 25/10/02...
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Problema con VBAJET32.dll durante installazione

Ho appena terminato un programma di invio ordini per la mia azienda. Prima
di distribuire l'installazione ai nostri agenti, ho provato il programma su
diversi PC. Su alcuni funziona, mentre su altri mi da:
"Run-time error 3447
The Jet VBA filr (VBAJET.dll for 16-bit versions, or VBAJET32.dll for 32-bit
versions) failed
to initialize when called. Try reinstalling the application that returned
the error."
 Cosa puo' essere successo? E' forse il PC su cui ho installato il prg che
ha alcuni file non aggiornati? Esiste una patch per risolvere il problema.
Grazie a chi mi risponderà
Roberto.

Scusate,
volevo solo precisare che l'errore lo fa durante l'avvio del programma, non
durante l'installazione come erroneamente riportato nel mio subject.
Grazie.

 the error."
Il messaggio in se mi è nuovo, ma tenterei al tuo posto di installare
mdac_typ.exe
ciao
ugo

 mdac_typ.exe
Grazie per la risposta, ma ho provato a collegarmi al sito microsoft ed a
fare una ricerca come "VbaJet" ed ho trovato la soluzione al mio problema.
Il messaggio era causato da una dll che il pacchetto di installazione non
aveva rilevato (expsrv.dll).
Grazie ancora.
Roberto
Newsgroup: it.comp.lang.visual-basic
Titolo: File binari scitti al rovescio

Ciao a tutti da un newbie,
Sto facendo un programmino che mi modifichi dei dati in un file di un
giochino.
Sono riuscito a farlo con i lsistema di "Open as binary",  però i dati
che inserisco, per es:
Put #NumFile, &H100, &H1A2A3A
quando li leggo aprendo il file sono scritti al rovescio, partendo
dall'indirizzo 100 e retrocedendo.
È possibile? Cosa devo fare contare gli spazi e indirizzalri a partire
dall'ultimo numero e scriverli al rovescio, oppure esiste un altro
sistema?
Grazie mille a chi mi può aiutare.
####################
jlw...@ticino.com
Togliere le 3 X per rispondere.
####################
John Lee

Grazie mille a chi mi puň aiutare.

 wrote in message
news:8k1jcv$nqs$1...@newsserver.cilea.it...


Grazie mille a chi mi può aiutare.

 wrote in message
news:8k45ok$gbd$1...@newsserver.cilea.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: zippare più file via codice

supponendo che io voglia zippare + file via codice... come posso fare?
non posso usare winzip, altre volte ho usato la dll zlib.dll ma sono
per singoli file.. qualcuno sa aiutarmi?
grazie
matteo gabella

 wrote in message
news:bda2e795.0209...@posting.google.com...

Se non sbaglio vi sono delle api che ti permettono di creare un file
compresso unico (forse .cab) contente più files.
Prova a vedere

Newsgroup: it.comp.lang.visual-basic
Titolo: Combobox e checkbox in una grid!!!!

Ciao a tutti, sono un programmatore alle prime armi. Il mio problema è :
data una dbgrid associata ad un database Access, quando visualizza un campo
TRUE/FALSE,
viene visualizzata invece un -1 per il falso e 0 per il vero.
Dato che in access viene visualizzata direttamente una check box, mi
chiedevo se fosse possibile farlo anche in VB. Inoltre, un altro problema
era di visualizzare, quando l'utente cliccava su di un record, in un
determinato campo, una lista di nomi da selezionare (combo box).
RINGRAZIO ANTICIPATAMENTE PER L'AIUTO.
risposte sul newsgroup o via mail all'indirizzo 
isl...@libero.it

>
Clicca con il destro sul dbGrid e scegli proprietą, vai su columns e scegli
la colonna dove ti appare 0 e -1  dovresti trovare nella combobox
NumberFormat tra i vari formati anche (true/false) , selezionale e vedrai
apparire invece che 0 e -1   Si e No
Per la combobox devi usare il metodo AddItem per caricare i record con un
ciclo che analizzi tutti i record del datacontrol fino a
data1.recordset.EOF.
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO REGISTRAZIONE OCX

So che è un problema banale, almeno io penso, ma non riesco a risolverlo.
Quando aggiungo un ocx e cerco di usarlo mi dice:
"Non sono disponibili informazioni sui diritti di licenza per questo
componente, Non sono disponibili i diritti di licenza per usare questo
componente in ambiente di progettazione".
Il componente è il banalissimo, rich text box, oppure altri.
Il fatto è che ho disinstallato VB5 con SP3, poi ho reistallato VB5 edi ora
mi da questo messaggio, il problema dovrebbe risiedere nel registro di
configurazione.
Ho gia provato a rimuovere tuuto VB5 e reistallarlo, cancellare richtext.ocx
da Windows\system.
L'ultima soluzione, reistallare Win95, non la vorrei adottare.
Grazie.
Luca, Milano
Rispondere anche a 
lu...@eoscomputers.com

Reinstalla il ServicePack

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e CR9........AIUTO

ragazzi, questa volta sono proprio perso,
ho installato CR9, ho creato un report e l'ho salvato in una cartella
"x:\NomeDir\NomeReport.rpt"
adesso vorrei ke dalla mia applicazione sviluppata con VB6, nel momento in
cui Clicco su di un bottone di una determinata form, potessi visualizzare il
REPORT, con CR4 o giu' di li, mi bastava aggiungere nelle proprieta' del
Controllo CrystalReport il path del file.rpt e scrivere nel codice
CrystalReport1.Active 1
adesso non ne sono capace.
Aiutatemi, sono disperato
Grazie
Franc...@tin.it
icq# 41472128

Vi ringrazio cmq, ma fortunatamente ho risolto frugando tra i vecchi mess
Ciao
cmq ho sempre il problema di stampare delle variabili
franc...@tin.it
 icq# 41472128

Newsgroup: it.comp.lang.visual-basic
Titolo: Tipo dati currency

Vorrei sapere come fare a convertire un tipo di dati long in valuta, ho
già provato con la funzione Ccur ma senza nessun risultato.
C'è qualche parametro da settare nelle impostazioni internazionali?
(anche se a me sembra tutto a posto), oppure qualche altro dentro a VB?
Premetto che i dati da convertire vengono prelevati da un Dbase access.
Grazie in anticipo
                        Enrico

...


> Grazie mille, funziona benissimo
                    Enrico
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Stampa di un file di Word

Dovrei stampare un file di Word da uno stupido programmetto VB...
Ma di VBA e la programmazione OFFICE non so nulla...
Chi mi consiglia un metodo per farlo?
Grassie a tutti...
---
GbC
http://gbc.homeip.net
---

Dimenticavo...
Mi serve per creare dei PDF...
Se trovo la soluzione a questo tipo di problema poi metto il codice per creare i
PDF senza PDF Creator on-line... :)


 PDF senza PDF Creator on-line... :)
se non ci riuscite tu e maurizio uniti, non so bene chi...
se e' per te, interno, una specie di risposta c'e' nel post "installare e
rimuovere". ma dubito sia distribuibile :)

beh... a dire la verità il mio problema non è quello...
già creo dei PDF senza PDF Creator :)
il problema è che per fare un lavoro 'a modino' si dovrebbe automatizzare il
processo di stampa...
e vorrei sapere se esiste qualche modo per stampare un file 'registrato' via
rundd o simili...
--


rundll, non rundd...
erore di stumpa... :)


 Chi mi consiglia un metodo per farlo?
Usa il registratore di macro poi ispeziona il codice risultante.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Ma no!!! non hai contrattato lo scambio!!!!
adesso se non ci manda il codice per scrivere i PDF?????
vabbè speriamo! :-)))


 ha scritto


 vabbè speriamo! :-)))
Siamo fra gentiluomini, che diamine!
--
Ciao:-))


Risolto...
Grazie a tutti.
Aspettate un pochino che lo metto on-line...

Newsgroup: it.comp.lang.visual-basic
Titolo: MSComm1.OnComm ?????????

Rgazzi intanto complimentoni pre il NG !!!
Mi ha fatto venire la voglia di studiare VB e mi ci diverto pure!!!!
Un quesitino:
come faccio a intecettare un qualche evento che mi dice quando la Com 1 č in
trasmissione?
Sulla guida ho trobato solo
MsComm1_OnComm()
ma non funzia!!
 Grazie cmq di tutto e ciao!


------------
Francesco Beccari
frankb@I_HATE_SPAM_interplanet.it

 ma non funzia!!
...funzia, funzia!!! :-)
Quel simpatico controllino genera l'unico evento OnComm per ogni evento
sulla porta (trasmissione, ricezione, errori...), tu poi devi leggerti il
valore della proprietà CommEvent per sapere di che evento si tratta.
Se ti guardi l'help del controllo MsComm, vedrai che ci sono parecchie
costanti definite per i valori che può assumere CommEvent; ad esempio:
Select Case MsComm1.CommEvent
  Case comEvReceive
       'ricezione
  Case comEvSend
       'trasmissione: QUELLO CHE INTERESSA A TE :)
...... ecc. ecc.
Guarda, però, che l'evento viene generato, per trasmissione e ricezione,
solo se le proprietà Rthreshold e Sthreshold, rispettivamente, sono state
impostate a un valore <> 0
Se ad esempio vuoi che venga generato l'evento ad OGNI carattere trasmesso,
devi porre Sthreshold = 1; se poni, invece, ad es. Sthreshold = 5, l'evento
verrà generato ogni cinque caratteri trasmessi.
Lo stesso vale per la ricezione, con Rthreshold.
_NON_ confondere Rthreshold con InputLen, che invece imposta il nr. di
caretteri letti ad ogni riferimento alla proprietà Input (leggi l'Help per
maggior chiarezza :)
Bye
-- 
Ale...@tiscalinet.it

 prima che OnComm venga attivato.
Non è proprio esatto. InputLen imposta il nr. di caratteri letti dal buffer
ad ogni riferimento alla proprietà Input (se viene lasciato =0, viene letto
sempre tutto il buffer); la proprietà Rthreshold, invece, imposta il nr. di
caratteri che devono essere nel buffer perché venga attivato l'evento
OnComm.
Se vuoi che venga generato l'evento ad ogni carattere ricevuto, devo
mettere Rthreshold = 1, poi InputLen puoi anche lasciarlo a 0 (così leggi
tutto il buffer insieme, se ad es. mentre sei nella routine OnComm ne sono
arrivati altri).
Comunque può darsi che il ns. amico volesse intendere proprio
"trasmissione", in tal caso la propr. interessata è Sthreshold
Poi, naturalmente, in OnComm devi andarti a guardare il valore di CommEvent
per capire di quale evento in particolare si tratta

Grazie davvero a tutti!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Numero di telefono composto dal modem

Salve!
Mi servirebbe un modulo (in VB 5.0) che mi permetta di individuare il numero
di telefono che il modem ha composto.


Newsgroup: it.comp.lang.visual-basic
Titolo: Database su internet

Qualcuno può dirmi come si può interfacciare un database posto su un sito
internet ad un programma in Visual Basic?
L'unico midi che mi è venuto in mente è interfacciarlo con pagine ASP,ma
vorrei trovare il modo per collegarli direttamente.

 ha scritto nel messaggio
news:8r5or8$5al$1...@nslave1.tin.it...

con SOAP. Preleva dal sito ms il Soap Tookit per visual basic. Contiene
SDLwizard, un'utility che ti consente di creare al volo un webservice per
IIS con pagina .asp e pagina .xml da inserire in IIS.
A quel punto soap fa da tramite tra il tuo oggetto com (chiamiamolo
'server') dietro a IIS e qualsiasi oggetto com (chiamamolo 'client') che
accede a IIS tramite http.
-vibino

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Handle di una finestra...

Ciaoz a tutto il NG ;))
Il mio problema è che sto usando un programma fatto da me in VB6 come shell
per un'applicazione che, a seconda delle condizioni (es. numero di files in
coda) apre delle differenti finestre...es: "Save as..." "Delete..." ecc....
Io dovrei riuscire a discriminare quale finestra apre per inviare delle
sequenze di tasti con Sendkeys...mi sapete suggerire come farlo ?
Grazie
Frosty

 Il mio problema č che sto usando un programma fatto da me in VB6 come


 wrote in message
8295g4$kfc$1...@pluto.sm.dsi.unimi.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Link al sito comune

Scusatemi ma mi sono perso il link al sito comune.
Gentilmente qualcuno me lo puň ridare?
Grazie.

 Grazie.
http://www.it-lang-vb.net/
ciao, Assa.

Newsgroup: it.comp.lang.visual-basic
Titolo: Esempi di codice per scannerizzare file Multi TIFF.

Vorrei sapere se qualcuno può fornirmi indirizzi di siti dove trovare esempi
di codice VB per la scannerizzazione di file MultiTIFF tramite uno scanner
con caricatore automatico di fogli.
Questo perchè possiedo esclusivamente uno scanner semplice che non mi
permette di fare questa simulazione e quindi vorrei vedere come impostare
gli oggetti di Imaging.

Non devi fare altro che aprire una pagina (es. il file DOC01.TIF) ed aggiungere
in 'append' le pagine successive. Il risultato č un tiff multipagina.
Diverso č la gestione deell'ADF. Alcuni scanner (dipende dal firmware) leggono
in automatico tutte le pagine nell'alimentatore, altri richiedono lo 'StartScan'
ad ogni pagina.
L'unico completamente automatico in circolazione (mi risulta cosě, ma posso non
conoscerne altri) č lo ScanPartner Fujitsu (30 pag/min, ~3 ml).
Ola.
--
GbC
http://www.chiappori.net

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP! Stampare in visual basic

Una volta creato un report, come si fa a stampare?
Prego, oh voi, anime pie, di aiutarmi!
Rispondete a: 
cumbo....@tiscalinet.it

 wrote in message
aa697l$td4$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Servizi di Nt o win 2000

Salve a tutti.
Sto cercando delle informazioni.
Devo poter installare un mio programma sviluppato in vb come servizio di
windows nt. So che si può farlo andando nel pannello di controllo e
utilizzando servizi ma io volevo farlo via codice. In internet ho trovato un
active x (ntsvocx.dll) che mi permette di impostare un programma come
servizio, ma mi serve permettere al programma di interagire con il desktop
altrimenti non vedo l'icona del systray e il form. Ho provato e riprovato ma
mi pare che l'oggetto che uso non mi permetta di fare questo. Guardando du
servizi di pannelo di controllo ho visto che la possibilità di permettere ad
un servizio di interafire con il desktop esiste, ma non posso impstarla
manualmente, altrimenti rischio che i clienti a cui darò il programma
facciano solo dannni entrando in servizi. Come posso fare? Qualcno di voi mi
può aiutare?
Ringrazio anticipatamente.
Alberto

 Alberto
prova qui':
http://24.16.67.224/development/controls.asp
CIAO!

Grazie! Funziona veramente bene. Fortuna che tu mi hai potuto aiutare. Non
sapevo più dove cercare. Grazie ancora.
Ciao
"buc" <df...@XXXhotmail.com> ha scritto nel messaggio
news:9k8ftv$3142e$1...@ID-91934.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: rendere visibile e invisibile una picture (in modo ciclico)

Come posso fare a rendere visibile e invisibile (in modo ciclico) una
immagine?
Quale script?
Grazie
W.


1) Metti un controllo timer e imposti la proprietą interval ad esempio su
300 (a seconda della velocitą che vuoi ottenere).
2)Metti un controllo immagine e carichi la tua immagine
3)Nell'evento Private Sub Timer1_Timer() scrivi:
Static i As Integer
i = i + 1
If i Mod 2 = 0 Then Image1.Visible = True Else Image1.Visible = False
L'immagine lampeggerą

Allora prova con questa cosa
Fai un campo picture box  e ci metti l'immagine
poi metti un timer
nel codice imposti una variabile di tipo Integer e un ciclo sulla varibile
quindi ad esempio
Dim Manu As Integer
Private Sub Provaciclo()
    If Manu =0 Then
    picturebox.Visible= True
'(picturebox è il nome del del campo dove hai messo l'immagine)
    Manu=1
Else
    picturebox.Visible= False
Manu=0
End If
End Sub
Private Sub Timer()
Call Provaciclo
End Sub
a seconda dell'intervallo di tempo che dai al timer l'immagine comparirà e
scomparirà più o meno velocemente
prova e dimmi se funziona, io non ho il programma per provarlo
ciao
Manuela


Secondo me dopo aver inserito il controllo che conterrà l'immagine (ad
esempio: Image1) e il timer (ad esempio Timer1) e impostato l'intervallo.Il
codice migliore da scrivere nell'evento timer è questo:
-----------------------------
Private Sub Timer1_Timer()
   Image1.Visible = Not Image1.Visible
End Sub
-----------------------------
Una sola riga di codice da aggiungere alla routine dell'evento.
Semplice e compatto!
 __     __
<o>  <o>
      []
  \____/   ......(BUONANOTTE!)
Pasquale Minerva
mine...@libero.it

 Quale script?
Potresti mettere un timer nel form con l'immagine, settare l'intervallo del
timer al periodo di lampeggio che vuoi e nell'evento del timer metti una
cosa del tipo:
pic1.visibile = IIF(pic1.visible, false, true)
se pic1 e' il nome del controllo che ti contiene l'immagine.

Newsgroup: it.comp.lang.visual-basic
Titolo: Database distanze fra comuni d'Italia

Sono disperatoooo !!!!!
C'e' nessuno che mi puo' aiutare ? ?? ....avrei bisogno di sapere se esiste
ed eventualmente dove trovare un database con le distanze chilometriche fra
i vari comuni d' Italia.
Grazie a tutti !!!!

 ha scritto

non ci giurerei, ma qualche anno fa il tci ha messo su cd un atlante
d'italia, e direi si potessero calcolare le distanze. sottomano ora non
ce l'ho, ma era un normale mdb, direi access2.
immagino sia roba sotto copyr.

 ha scritto nel messaggio
news:9etibj$11c6v$1...@ID-51318.news.dfncis.de...


 Chi č il TCI ? ? ? ? ?
Newsgroup: it.comp.lang.visual-basic
Titolo: Verifacare un bit a 0

Ok, lo ammetto, la logica non e' il mio forte...
Due byte.
Devo verificare che il bit 9 sia impostato a 0, di tutto il resto non me ne
frega.
Come faccio con un AND o un OR?

 Come faccio con un AND o un OR?
un and con un numero che abbia solo il nono bit alzato
se il risultato è zero, sei a cavallo
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 Come faccio con un AND o un OR?
Con l'AND.
Il bit 9, da solo settato a 1, vale 256.
Per logica, se la tua situazione fosse XXXX XXX1 XXXX XXXX, e cioè se 
nella tua word avessi l'ottavo bit a 1, facendo un AND bit-a-bit con il 
valore 256 (0000 0001 0000 0000) si dovrebbero azzerare tutte le X (X = 
'un bit qualsiasi') tranne quell'1. Quindi se la tua word avesse il bit 
a 1, con la AND del 256 otterresti un numero diverso da zero (proprio 256).
In caso contratio, e cioè se la tua word fosse XXXX XXX0 XXXX XXXX, 
l'AND azzererebbe tutte le X e quel bit a 0 ti completerebbe tutti gli 
zeri, dandoti come risultato proprio zero.
Quindi:
Dim I as Integer
I = ....
If (I AND CInt(256)) <> 0 then
	'L'ottavo bit è 1
Else
	'L'ottavo bit è 0
End If
Oppure
If (I AND CInt(256)) = 256 Then
	'L'ottavo bit è 1
Else
	...
End If
Spero che mi ho stato spiegato :)
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 Spero che mi ho stato spiegato :)
Giusto per completare la tua spiegazione:
Come aiuto mnemonico, e magari per scrivere una funzioncina generalizzata,
puo' essere utile usare la forma
If (I AND 2 ^ (<bit da controllare> - 1)) <> 0 Then
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Dov'è la posta vecchia ?

Come faccio a reperire la posta ormai tolta dal ng ?
Grazie, Giacomo 
ande...@tin.it

 Grazie, Giacomo 
ande...@tin.it
Prova questo:
http://www.deja.com/qs.xp?OP=dnquery.xp&ST=QS&QRY=it.comp.lang.visual-basic&
DBS=2
Che indirizzone, funzionerà?
Certo!
Ciao
P.S. comunque le migliori FAQ le trovi sul sito comune.
---
--
-
Maurizio Santaniello
MIX
170 links a siti VB
http://space.tin.it/computer/gaais/
http://web.tiscalinet.it/VBLINKS/
-
--
---
Curatore della "zona links" de:
Il sito comune di it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb/


Esistono appositi archivi/motori di ricerca sul web.
Il piu' famoso/utilizzato e' 
www.deja.com
.
Se tu avessi letto il Manifesto di questo ng, lo sapresti gia'...
Comunque, dato che non l'hai letto, ti invito a leggerlo e a seguire i
consigli in esso elencati.
Il Manifesto viene postato sul ng ogni 2 settimane, ed e' presente sul Sito
Comune, all'URL:
http://www.murialdo.it/it_lang_vb/docs/Manifesto.txt
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Query Tosta.

Dunque sto cercando di assemblare una Query particolare:
Ho  3 tabelle
1) Cod pratica +altre Info.
2) Addebiti Pratica (1 record per ogni addebito)
    Flag=Pagato Si o no.
    legata con cod. Pratica
3) Accrediti Pratica (1 record per ogni accredito)legata con cod. Pratica
    Flag=Pagato Si o no.
Vorrei fare una Query che mi elencasse:
Cod Pratiche - Somma Addebiti Non Pagati -Somma Accrediti non Pagati.
Grazie from Cybergrappa.
pasc...@iol.it

...


 
Allora se ho capito bene il problema dovrebbe bastare usare un paio di sottoquery per risolvere il tutto:
Chiamo la tab. 1) TabPratica, la 2) TabAddebiti e la 3) TabAccrediti
SELECT 
   CodPratica, 
   (SELECT Sum(Importo) FROM TabAddebiti WHERE CodPratica=TabPratica.CodPratica) AS TotAddebiti,
   (SELECT Sum(Importo) FROM TabAccrediti WHERE CodPratica=TabPratica.CodPratica) AS TotAccrediti
FROM TabPratica **, TabAddebiti, TabAccrediti**
il pezzo compreso tra gli ** non ricordo se era necessario o meno, ovviamente senza asterischi!!
(l'ho formattata cosi' per chiarezza, ovviamente puoi scrivere tutto di seguito)
Ciao
Riccardo

 FROM TabPratica **, TabAddebiti, TabAccrediti**
complimenti..
manca solo la ciliegina
SELECT DISTINCT
   CodPratica, 
   (SELECT Sum(Importo) FROM TabAddebiti WHERE
CodPratica=TabPratica.CodPratica AND TabAddebiti.flag=False) AS
TotAddebiti,
   (SELECT Sum(Importo) FROM TabAccrediti WHERE
CodPratica=TabPratica.CodPratica TabAccrediti.flag=False) AS TotAccrediti
FROM TabPratica , TabAddebiti, TabAccrediti
o almeno credo..
saluti
Andrea Montanari
hs...@guest.net


TABELLE:
1) Pratica [IDPratica]
2)Accrediti [IDPratica, Pagato (Campo Flag), IDAccredito]
3)Addebiti [IDPratica, Pagato (Campo Flag), IDAddebito]
SQL1 = "SELECT COUNT(Accrediti.IDPratica) AS [NOACC], " _
    + " Pratica.IDPratica " _
    + "FROM Accrediti LEFT OUTER JOIN Pratica " _
    + "ON Pratica.IDPratica = Accrediti.IDPratica " _
    + "WHERE Accrediti.Pagato = False " _
    + "GROUP BY Pratica.IDPratica,Accrediti.IDPratica"
'************************************************
SQL2 = "SELECT COUNT(Addebiti.IDPratica) AS [NOADD], " _
    + " Pratica.IDPratica " _
    + "FROM Addebiti LEFT OUTER JOIN Pratica " _
    + "ON Pratica.IDPratica = Addebiti.IDPratica " _
    + "WHERE Addebiti.Pagato = False " _
    + "GROUP BY Pratica.IDPratica,Addebiti.IDPratica"
Emanuele - 
vsav...@pelagus.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutate un novellino :-)

Voglio mettere in una form un tasto che se cliccato, minimizzi la form
stessa...
Per favore so che quello che chiedo non ha dell'impossibile...
... solo che ultimamente sono un po' troppo pigro :)
Ciriciao,
SPLASH
http://www.opty.net/splash/

devi gestire la proprietą del form:
WindowState
sull'evento click del mouse....
ciao





Form1.WindowState = 1
Newsgroup: it.comp.lang.visual-basic
Titolo: Campi boolean in un controllo DBGrid

Salve,
mi chidevo se c'č un modo per far si che il controllo DBGrig,
distribuito con Visual Basic 5.0 (versione Professional x studenti),
visualizzi i valori dei campi booleani di una tabella Access, in un
modo piů significativo rispetto ad i valori -1 e 0 che si ottengono
collegando semplicemente la griglia con il database.
Non č possibile, ad esempio, visualizzare una check box come nelle
tabelle Access ? o almeno il testo Si/No ?
grazie per l'attenzione
Patrizio

Bel problema..... se usi solo Access, puoi utilizzare la funzione SQL
IIF, che ti consente di scrivere una cosa del tipo
SELECT IIF(CampoBooleano=0, "Si", "No") AS SiNo FROM Tabelle
Occhio, pero'! Questa č una funzione che NON fa parte dello standard,
ma solo del dialetto SQL di Access. In SQLServer non esiste.... e a
tutt'oggi sto ricercando una soluzione, anche perche' io sto scrivendo
un applicazione che cerca di essere il meno possibile legata a uno
specifico DBMS.... (sto tentando con una tabella di appoggio e  un
trigger che modifica i valori inseriti in questa tabella...)
On Sat, 10 Apr 1999 07:49:49 GMT, #patrin#@
arc.it
 (Patrizio Trinchini)
wrote:


 
niente di piu' facile
basta settare la proprieta' NumberFormat della colonna voluta cosi:
\S\i;\N\o
se ti riporta i valori invertiti usa
\N\o;\S\i
Marco Colandrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un active x

Ciao a tutti,
Sapete per caso dove posso trovare un tutorial su cosa sia un active x e su
come crearlo. (magari con un esempio esplicativo).
Grazie,
Massimiliano

 come crearlo. (magari con un esempio esplicativo).
http://www.vbworld.com/
cerca tra gli articoli/tutorial e troverai cio' che ti interessa! :) Attento
al _tragico_ umorismo dell'autore... ;)
Ciao,
- SonicBoom -

Newsgroup: it.comp.lang.visual-basic
Titolo: SPIN.VBX cercasi!

Un'applicazione windows (si tratta di un programma gestionale) si blocca
istantaneamente in fase di avvio e compare il messaggio "spin.vbx non
trovato".
Dove posso reperire tale file?
Grazie fin d'ora  a tutti quelli che mi daranno qualche consiglio.
Giorgio


wrote:

E' un vbx (controllo aggiuntivo) fornito con vb3 vb4.

Newsgroup: it.comp.lang.visual-basic
Titolo: Chiedo scusa

danilo

Chiedo scusa per i post di prova non pensavo
di averne mandati tanti il problema è che siccome volevo
verificare il comportamento del server con post
aventi data futura ho commesso degli errori.
Il problema è che outlook mi dice che il server non
ha accettato il messaggio, il messaggio rimane
in posta in uscita e viene inviato ogni 30 minuti
solo che io non sapevo che facesse una cosa del genere
Stamattina uno di voi mi ha scritto e allora ho controllato e mi sono
accorto dell'errore.
            scusate ancora
danilo

 wrote in message
W_DM5.10673$fx4.3...@news.infostrada.it...


Out Express, cosa vuoi bloccare oggi?
Out Express, cosa vuoi postare postare postare postare postare oggi?
Spugna ha scritto nel messaggio
