mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Round...bhò

Premetto che uso vb5,se scrivo
Private sub command1_click()
Msgbox round(2.867,2)
end sub
Dà errore sub o function non definita,come mai ?Nella guida in linea non
spiega molto...


Msgbox round(2867.2)
Ciao
Sirjo

 spiega molto...
La Round e' stata introdotta in vb6, ma non e' difficile farsene una, magari
anche piu' accurata di quella fornita da vb6.
Ciao
Aldo

 Dà errore sub o function non definita,come mai ?Nella guida in linea non
spiega molto...
"Round" e` una nuova funzione di VB6.
    Private sub command1_click()
        Msgbox Format$(2.867 * 100, "0") / 100
    End sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: excel e vba

come si fa a creare una funzione che possa utilizzare un riferimento
alla cella dove è scritta la funzione stessa?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

alla cella dove è scritta la funzione stessa?
Ehm, una funzione scritta in una cella?
-- 
ciao, hal

 alla cella dove è scritta la funzione stessa?
Probabilmente intendi:
    Property Caller([Index])
        sola lettura
        Membro di Excel.Application
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


Allora:
Se vuoi fare una funzione che ti restituisca il risultato nella cella dove
scrivi la funzione (Per esempio la funzione =SOMMA(A1;A10) )
Apri l'editor di VBA da Excel, inserisci un modulo e poi:
Function NomeFunzione(Cella1 As Range, Valore as Integer) As Double
    Risultato = Cella1 ^ Valore
    NomeFunzione = Risultato
End Function
Se invece vuoi che in base al valore che inserisci nella cella te ne
compaia
un'altro devi creare una macro e la devi laciare. Per Es:
Sub MacroSostituzione()
    Range("A1") = Range("A1") / 10
End Sub
Ciao
    Mavimo
Newsgroup: it.comp.lang.visual-basic
Titolo: Sottoreport con Crystal ?

Ho bisogno di un aiuto urgente.
Se creo un report con Crystal 8.0 collegando direttamente un db in access
quando in runtime voglio segnalare al report la posizione effettiva del file
mdb posso utilizzare:
report.datafiles()=posizione
Se però il report contiene un sottoreport non so come fare ?
Ciao
Simona


Intanto inizierei rispettando le regole del NG,
poi mi pare che il buon Alletun ti abbia dato già una dritta.....
ciaociao

 ha scritto nel messaggio
news:c39mle$24l5ck$1...@ID-193795.news.uni-berlin.de...

uao, buon Alletun non me l'ha mai detto nessuno.....
;-)))
a parte scherzi, la problematica è leggermente cambiata, nel senso che
adesso Simona non riesce a modificare a run-time i percorsi del/i report che
compongono il report globale.
io non ho qua crystal report, però bisognerebbe capire quale proprietà
dell'oggetto Report dà accesso anche ai sotto-report......purtroppo i vari
siti di crystal report sono pessimi, per il support.....
Simona, non hai l'help di crystal installato?
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri di Jair, Rone,
Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia oppressione
di questo giorno e nell'oscurità caliginosa di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks


wrote:

Se usi il Crystal Report Control prova dai un'occhiata alla prop.
SubreportToChange e al metodo RetrieveDataFiles!
... e soprattutto alla guida!
Ciao!

 report che compongono il report globale.
Motivo in più per proseguire nell'altro 3d!!
Il mio post era solo per cazziare ogni tanto anche le sig.ne..... ;-D
ciaociao

Mi unisco a Marg per quanto riguarda la cazziata per il nuovo thread e
confermo che devi usare una cosa del genere
TuoReport.DataFiles(0) = "c:\Db.mdb"
TuoReport.SubreportToChange = "NomeSottoReport1.rpt"
TuoReport.DataFiles(0) = "c:\Db.mdb"
TuoReport.SubreportToChange = "NomeSottoReport2.rpt"
TuoReport.DataFiles(0) = "c:\Db.mdb"
Ciao, Vincenzo

 Ciao, Vincenzo
ciaociao

 ha scritto nel messaggio
news:c39qf6$25acqf$1...@ID-193795.news.uni-berlin.de...



Quante tabelle usi nel sottoreport?
Ricordati che devi impostare DataFiles per ogni tabella/vista usata.
Hai seguito l'esempio di VincePik rispettando l'ordine delle
operazioni? Solo dopo aver impostato SubreportToChange puoi cambiare
le prop. per quel subreport, se SubreportToChange č vuoto le prop.
sono quelle del report principale.
Eventualmente posta la procedura con cui imposti il tutto in modo che
la si possa analizzare.
Ciao!

Grazie, pare che funziona !!!
"ErPotenza" <no....@thank.you> ha scritto nel messaggio
news:cqli50dqa7ahpvat2...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.NET e Excel

Ciao a tutti,
vado ad aprire un workbook Excel già esistente e all'apertura effettiva
mi dà questo messaggio quando sta per eseguire :
An unhandled exception of type 'System.Runtime.InteropServices.COMException'
occurred in Eltrac_Data_Report.exe
Additional information: Formato vecchio o libreria di tipo non valido.
Qualcuno ha trovato exception  di questo tipo lavorando con Vb.Net
Con Vb6 tutto va bene.
Tommy

Ho provato a fare una prova velocissima e a me non da problemi (XP Pro e
Office XP)
Posta magari un esempio di codice...
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Aggiornamento Odierno (03/10/2002)

Colgo l'occasione per ricordare a tutti che sono aperte le iscrizioni per partecipare al meeting autunnale di it.comp.lang.visual-basic che si svolgerà il 19 ottobre nei pressi di Bologna: per ulteriori informazioni e registravi potete andare qui: 
http://www.it-lang-vb.net/meeting/index.html
#### Aggiornamenti: #### 
---- Archivio / Sorgenti ----
 - Confronto tra due Array e visualizzazione delle differenze
Autori: giuseppe
Fornitore: giuseppe
Visualizzazione in un DataGrid ,delle differenze di due System.Array popolate da due DataTable.
Le righe dell'oggetto DataTable sono aggiunte attraverso il metodo OleDbDataAdapter.Fill 
Situazione corrispondente all'oggetto ADO recordset.
 - Generatore di istruzioni per file .FRM per Menu Ascii
Autori: Lupo
Fornitore: Lupo
Consente di "creare" un menu su file Ascii e di tradurlo in istruzioni VB da importare in uno o più file *.FRM con i vantaggi di poter modificare (e rigenerare) in ogni momento il menu, spostando anche blocchi di elementi nella struttura e di avere nel codice dei nomi di riferimento fissi agli oggetti anche se questi cambiano di indice e/o di nome. Per la sintassi e le funzionalità si vedano le Functions MENU_GENERA e OGGIND.
--------------------
Alessandro Zarri
WebMaster del Sito Comune di questo newsgroup:
http://www.it-lang-vb.net
webm...@it-lang-vb.net

 wrote:
[...]
Uhm... la prossima volta metto un po di a capo! :(
-- 
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com

 Uhm... la prossima volta metto un po di a capo! :(
con oe, nessun problema.
--
ehm, j. :)
www.sundaysw.com

 con oe, nessun problema.
Farà automagicamente tutto lui... con agent ci sono un apio di righe lunghe
1Km O:-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema date in Database

Salve a tutti...
Avrei il seguente problema da risolvere:
dal mio prg in VB salvo due campi Date (due date insomma) in un database.
Le date sono in formato GG/MM/AA ma se le cifre dell'anno sono inferiori a
30 Visual Basic ci aggiunge in automatico le cifre 20 (ad es. se inserisco
09/11/25 mi salva 09/11/2025).
Visto che poi le date vengono lette dal prg e associate ad un controllo
MaskEdBox (con proprieta Mask impostata a ##/##/##) viene ovviamente
generato un errore quando il prg cerca di assegnare al controllo Mask una
data con anno a 4 cifre.
E' possibile ovviare a questo problema pur mantenedo la modalità di
inserimento dell'anno a due cifre ?
Ringrazio tutti per la collaborazione
Saluti
-------------------------------------
Giovanni Zorzato
e-mail: 
zorz...@tin.it
per i dj / e-mail: 
dj...@tin.it
Web: 
http://www.geocities.com/SouthBeach/Surf/9690
DJ WORLD / 
FRIENDS.NET
Personal Page: 
http://space.tin.it/musica/emarzot
----------------------------------------------------------

 Saluti
NO, se mantieni l'anno a 2 cifre risolvendo il tuo problema, poi come fai tra 1,5 anni ossia al 2000? Non ti funziona piu'
nulla!
Secondo me l'unica soluzione e' sempre quella, anno a 4 cifre.
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.Net SendMessage

Dopo aver trovato hWnd avrei bisogno di mandare
Ctrl + return ad un'altra applicazione.
Non riesco a trovare i valori per i parametri del comando
sendmessage(wMsg,wParam,lParam )
Per chiudere l'applicazione uso:
SendMessage(hWnd, &H112, &HF060, 0)
e funziona.
Se qualcuno mi puņ aiutare.
Grazie.

Cosa fa esattamente Ctrl+Return? sei sicuro di non dover inviare il
messaggio a qualche child control presente nell'applicazione?
HTH
-- 
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

 ha scritto nel messaggio
news:ohEha.62120$7y3.1...@twister1.libero.it...


Se devi simulare un click su un pulsante ti conviene inviare la coppia di
messaggi WM_LBUTTONDOWN+WM_LBUTTONUP
WM_LBUTTONDOWN=&H201
WM_LBUTTONUP=&H202
SendMessage hWnd,WM_LBUTTONDOWN,0,0
SendMessage hWnd,WM_LBUTTONUP,0,0


 ha scritto nel messaggio
news:yJIha.63802$Lr4.1...@twister2.libero.it...

OK proverň cosě.
Grazie per l'aiuto.

Newsgroup: it.comp.lang.visual-basic
Titolo: Due domande su Sql

1) Come si fa con Ado e Sql 7.0 a bloccare un singolo record?
2) Ho una tabella utenti nella quale ho la lista degli utenti del mio
programma con la userid e le relative autorizzazioni; vogli impedire che
venga utilizzata una userid due volte contemporaneamente, attualmente
utilizzo un campo che vie settato a 1 alla connessione al database e settato
a 0 alla chiusura, il problema è che se il programma viene terminato in modo
anomalo il flag rimane a 1.
Grazie in anticipo.
mal...@tin.it

>anomalo il flag rimane a 1.
Se vuoi usare il lock fai una select dello user id con LockType Optimistic. Il lock e' automatico e rimane fino alla chiusura del recordset.
Antonio


Newsgroup: it.comp.lang.visual-basic
Titolo: [molto ot] una cartella di nome lpt1

uso win98 e se sul dektop provo a creare una carlella di nome lpt1
mi da accesso negato.
succede anche a vuoi???
prodigy2


L'hai scelto apposta, quel nome? :-)
LPT1 e' il nome di sistema della 1a porta parallela (e' cosi' dai tempi del
DOS).
L'errore che ti da e' sicuramente qualcosa del tipo "file esistente",
infatti la porta lpt1 e' vista dal sistema come un file.
Cambia nome.
--
Roal Zanazzi
z...@iol.it

...





Scusa, pensavo di essere stato chiaro:
Cambia nome!
Ossia, NON puoi creare un file con nome LPT1 (e, come giustamente ha scritto
Raffaele, nemmeno: COM1, AUX, COM2, CON, insomma, tutti i nomi di files di
sistema.)
E, per la cronaca, NON puoi crearli su qualsiasi parte del file system (non
solo sul Desktop)!
Per finire: NO, non lo tiene sempre aperto, e' solo che ESISTE gia' un file
con quel nome (infatti, se tenti di creare un file con lo stesso nome di
un'altro nella stessa directory, ti dara' lo stesso IDENTICO messaggio
d'errore).
--
Roal Zanazzi
z...@iol.it

>



Sei sicuro? Mi sembra strano...
In teoria non potresti crearli da dentro DOS/Windows mentre girano, ma mi
sfugge il motivo per cui non puoi farlo da Linux. Che errore ti da?
Rispondimi in privato che qui siamo OT! Grazie
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: parametri alla linea di comando

dai un'occhiata all'istruzione "Commend" nella guida in linea.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Salve a tutti,
vorrei sapere come si possono passare dei parametri dalla linea di comando
di un eseguibile in VB5.
Grazie e ciao.

...


>"Commend" deve essere l'abbrevizione di commenda in meneghino!!=:-))
Scusa, in velocità.....
ciao,


Newsgroup: it.comp.lang.visual-basic
Titolo: VIDEOCONFERENZA E IL SITO COMUNE!!

Ciao,
Devo realizzare una videoconferenza tra due postazioni remote, non connesse
su internet ma comunicanti tra loro attraverso un normalissimo collegamento
punto punto via modem.
Quindi ho prelevato dal sito comune il file per realizzare videoconferenze
(mi pare si chiamasse vidcon.zip) , il problema è che mi visualizza
l'immagine che ho sulla LPT1 e non quella che mi arriva tramite modem.
Vorrei sapere due cose:
1) come posso fare per ricevere il segnare dalla Cam che si trova su l'altro
computer?
2) è possibile inviare oltre alle immagini anche il suono?
Grazie
Ciao
Marcus :)
marcus...@cyber.dada.it

...


...



No: l'indirizzo corretto è
http://www.murialdo.it/it_lang_vb
La porta non la dovete MAI usare!!!!!
Marco Frazzoli

...


...


...


 wrote in message
370b4...@news.dada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: TaskBar di Windows95

 wrote:
->>Qualcuno mi sa dire come si fa a mettere l'icona di un programma in
->>esecuzione a fianco dell'orologio?
->>Ringrazio anticipatamente.
->>				Grazie Paolo
	Devi usare una funzione API chiamata Shell_NotifyIcon come
nell'esempio che segue.
______
	Metti queste dichiarazioni nella sezione General Declarations
di un form:
  Private Type NOTIFYICONDATA
        cbSize As Long
        hwnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 64
  End Type
  Private Const NIF_ICON = &H2
  Private Const NIF_MESSAGE = &H1
  Private Const NIF_TIP = &H4
  Private Const NIM_ADD = &H0
  Private Const NIM_DELETE = &H2
  Private Const NIM_MODIFY = &H1
  Private Const WM_LBUTTONDOWN = &H201
  Private Const WM_LBUTTONDBLCLK = &H203
  Private Const WM_MOUSEMOVE = &H200
  Private Const WM_RBUTTONUP = &H205
  Private Declare Function Shell_NotifyIcon Lib "shell32" Alias
"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA)
As Boolean
  Dim TrayIcon As NOTIFYICONDATA
______
	Il codice che segue lo puoi mettere nell'evento Form_Load
 TrayIcon.cbSize = Len( TrayIcon)
 TrayIcon.hwnd = Me.hwnd
 TrayIcon.uID = vbNull
 TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
 TrayIcon.uCallbackMessage = WM_MOUSEMOVE
  ' il parametro hIcon identifica l'icona che verrà mostrata nella
barra delle applicazioni. 
  ' in questo caso usiamo la proprietà Icon del form, ma puoi anche
  ' usare l'handle di una qualunque altra icona
 TrayIcon.hIcon = Form1.Icon   
  ' szTip è una stringa con terminazione nulla che verrà mostrata
  ' muovendo il mouse sull'icona
 TrayIcon.szTip = "Questa è una prova"  & vbNullChar
  Call Shell_NotifyIcon(NIM_ADD,TrayIcon)
 App.TaskVisible = False
 Form1.Visible = False
_______
	Ricordati di eliminare l'icona quando il programma
termina. Ad esempio puoi mettere questo codice nell'evento
Form_Unload:
  Call Shell_NotifyIcon(NIM_DELETE,TrayIcon)
_______
	Per rilevare gli eventi del mouse si usa l'evento
Mouse Move del form: il parametro X sarà uguale ad una
delle costanti specificate nelle dichiarazioni.
ATTENZIONE: il codice che segue funziona solo se la
proprietà ScaleMode del form è impostata su Pixel.
Se per caso è impostata su Twips dovrai dividere
X per Screen.TwipsPerPixelX
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Static Message As Long
Static RR As Boolean
Message = X
If RR = False Then
    RR = True
    Select Case Message
    Case WM_RBUTTONUP
       Debug.Print "Click destro"
    Case WM_LBUTTONDOWN
       Debug.Print "Click sinistro"
    Case WM_LBUTTONDBLCLK
       Debug.Print "Doppio click"
    End Select
    RR = False
End If
End Sub
_______
	Buon divertimento!
Maui.

se non ti va di scrivere codice eccoti un buon indirizzo:
http://www.geocities.com/SiliconValley/Lakes/1218/trayicon.html
bye
-- 
Alessandro Scardova
http://space.tin.it/internet/ascardov/
Newsgroup: it.comp.lang.visual-basic
Titolo: Formattare numeri con Virgola in una flexgrid.

Salve,
    ho un db access 2000, nel quale scrivo numeri con virgola (es. quantità
acquista).
Il campo access è precisione doppia con 2 decimali dopo la virgola. il prog.
Vb scrive per esempio 5,4 e access mi riporta 5,4; quando vado a
visualizzare questo valore in una flexgrid, invece di visualizzare 5,4
visualizzo 5,400000010: insomma un casino di numeri decimali che non mi
servono a niente.
Come faccio a visualizzare solo 2 numeri decimali?
Premetto che ho già provato con il comando Format ma il risultato ottenuto è
stato del tutto negativo.
Se qualcuno può aiutarmi gli sarei molto grato.
Grazie 1000
Fcbo

 stato del tutto negativo.
Perchè? Vedi, comunque, anche Round.

 ha scritto nel messaggio
news:b9vi42$nooj4$1...@ID-174464.news.dfncis.de...

Potresti spiegarti meglio?
Grazie
Fcbo

*fcbo* ha scritto:

Abbi pazienza, ma direi che dovresti farlo tu, leggendo la guida e
pubblicando un po' di codice dal quale si capisca cosa passi, come fai e
cosa non ti soddisfa.


        Set MSHFlexGrid1.Recordset = Rst
'IMPOSTO INTESTAZIONI COLONNE
        MSHFlexGrid1.FormatString = "<ID.PRODOTTO|<DESCRIZIONE PRODOTTO
|> PRZ.ACQUISTO |> QTA ACQUISTATA "
'IMPOSTO LARGHEZZA COLONNE AC E IDCLI = 0
        MSHFlexGrid1.ColWidth(0) = 0
'        MSHFlexGrid1.ColWidth(1) = 0
        Rst.Requery
        For r = 1 To elem
            For c = 0 To MSHFlexGrid1.Cols - 1
                If c = 2 Then
                     PRODQTA = Round(CDbl(MSHFlexGrid1.TextMatrix(r, c)), 2)
<<<<<-----
                   MSHFlexGrid1.TextMatrix(r, c) = PRODQTA
                   MSHFlexGrid1.OLEDrag
                   Rst.MoveNext
               End If
             Next
        Next
    End If
eccoti accontentato.
La riga indicato con Round, mi restituisce per un valore "10.1" il valore
intero "101". preciso che PRODQTA è double.
Nel caso di valori con tanti decimali "5.44444444444441" non mi viene
arrotondato nulla.
saluti
fcbo

                    MSHFlexGrid1.TextMatrix(r, c) =
Format(Round(5.44444444,2),"###.##")
Io ho provato con:
Dim a As Double
Dim b As Double
Dim c As Double
a = 5.44444444444441
b = Round(a, 2)
c = Format(b, "###.##")
Funziona, ragionaci su.

 c = Format(b, "###.##")
Beh, lo so (ma scopiazzavo), questa ... non ha molto senso visto che Format
restituisce una Variant/String...

 ha scritto nel messaggio
news:b9vj85$nu54a$1...@ID-174464.news.dfncis.de...

si hai ragione ma il valore di mshflexgrid1.textmatrix(r,c) è una stringa e
dopo l'operazione che mi hai indicato il "10.1" (il punto indica la virgola)
mi viene trasformato in 101... non so + dove sbattere la testa....
ciao
fcbo

 mi viene trasformato in 101... non so + dove sbattere la testa....
Traduci la stringa cambiando la virgola in punto, con
Replace(stringa,",",".")
Newsgroup: it.comp.lang.visual-basic
Titolo: wininet con windows 95

Salve a tutti,
ho realizzato una applicazione con VB6 SP5, in cui devo inviare un file
tramite Ftp ad un server e per far ciò ho usato la wininet.dll.
L'unico problema è che quando l'ho installato dal cliente, aveva ancora
alcuni pc con windows 95 e quando tentavo di inviare il file mi diceva che
non trovava la libreria. In realtà esiste sotto windows/system, ho provato
anche a registrarla con regsrv32 ma mi da un messaggio che non riesce a
registrarla. Qualcuno ha mai avuto lo stesso tipo di problema e sa come
risolverlo?
Grazie!

 Qualcuno ha mai avuto lo stesso tipo di problema e sa come risolverlo?
/me alza la mano :-)
La wininet.dll ha avuto una _marea _di versioni... mi pare 26.
Per info:
http://support.microsoft.com/default.aspx?scid=/servicedesks/fileversion/dllinfo.asp&SD=MSDN&FR=0
Ipotesi: su quelle macchine c'era ancora IE3. Fai prima tutti gli
aggiornamenti a Winsock 2.0, poi prova a fare un aggiornamento
di Internet Explorer (alla 5.5, W95 non regge la 6, mi pare)
su una delle macchine "incriminate", la cosa dovrebbe risolversi.
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Programmazione COM

Ciao a tutti. Ho scritto da poco una DLL com e ora mi trovo a dover cambiare
l'interfaccia programmatica cambiando il tipo di dati a una proprietà
pubblica (da integer a long).
Siccome non ho molta esperienza in materia, chi mi consiglia il metodo
migliore per mantenere la compatibilità binaria con i client che già
utilizzano questo oggetto?
Ciao e Grazie
--
Raoul BONDONI
--
Raoul BONDONI

 ha scritto nel messaggio
news:7E%b6.11082$GS3....@twister2.tin.it...


 Lorenzo
x Lorenzo ...
leggendo i tuoi post riguardo ad ADO e DAO .. ti ho "pregiudicato" ...
vedo che te la cavi meglio con la programmazione ad oggetti che con i DB ...
concordo anch'io con la tua risposta ...
Se hai la possibilità di cambiare tutti i sorgenti, sia client che
componente, ti consiglio allora di deregistrare la DLL, modificarla,
ricompilarla, registrarla di nuovo e ricompilare i Client ...
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: [MEETING] pensierino della sera.

Ragazzi,
Ringrazio tutti per la bellissima giornata passata insieme.
Mi sono proprio divertito, come la volta scorsa del resto.
Il mio post precedente (quello del "peggio per lui") ovviamente non voleva
essere cattivo, anzi spero di poter incontrare al piu presto anche chi non e
potuto venire questa volta.
Ciao e a presto.

 ha scritto nel messaggio
news:udui8.50029$_u5.1...@news1.tin.it...


 mangiato bene!
Ci siamo trovati prima alla stazione centrale e poi siamo andati a San
Lazzaro, al ristorante "La Campagnola". Se sarai ancora a Bologna la
prossima volta non potrai non venire.
Ciao
Michele

In ogni caso ad occhio e croce donne nada eh!, 
Come no, c'era Java: e' un po' pelosa, ma tanto affettuosa ;-)
-- 
ciao, hal.bau
Newsgroup: it.comp.lang.visual-basic
Titolo: Database

Ho acquistato il libro "Visul Basic 6 Guida per lo sviluppatore di
database", e date le dimensioni del libro (più di 1000 pagg. :(( ) speravo
spiegasse i db propio da zero, invece parte subito con sigle quali OLE DB,
COM., ADO, DAO, RDO,  ADODC ecc... e non ci capisco una mazza =(((
Qualcuno può chiarirmi a grandi linee questi concetti ?
Grazie !
CiAo :-)
--- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
UIN: 50254876
http://www.danteworkshop.f2s.com
--- --- --- --- --- --- --- --- --- --- --- --- --- --- ---

 wrote in message
news:apPS8tf...@newsmst.mcis.galactica.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] free.it ??!!

ho appena scoperto che esiste un altro NG molto frequentato sul VB... ma che
inizia on 
free.it
, e io non lo riesco a trovare...
qualcuno sa qualcosa di piu preciso ??
MarioH
PS: Don't worry, non ho intenzione di "tradirvi"... ::))))

 qualcuno sa qualcosa di piu preciso ??
Puoi accederci da 
groups.google.com
 se il tuo newsserver non ha nella lista
dei NG i 
free.it
 (molto meno popolari).
Ciao
Bald0z

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Bloccare codice per Form.

Scusate, c'è un modo per bloccare un codice per caricare la form e poi
riprenderlo da dove si carica la form? (perché a me continua quelloc he c'è
dopo).
Esempio:
Private Sub Prova()
....
....
Text1.Text="Prova"
Load Form2
Text1.Text="Fine"
End Sub
In questo modo io mi trovo caricato la Form2 ma come text2.text ho "Fine";
invece io voglio bloccare il codice finchè non chiudo la form2. E' possibile
farlo?
Ringrazio vivamente tutti coloro che mi aiuteranno.

non è molto chiaro il tuo messaggio, o sono io che non l'ho capito...
vediamo un pò: tu vorresti caricare un form, visualizzarlo e attendere
l'esecuzione del codice fino alla chiusura del form; se così è, prova a fare:
Private Sub Prova()
....
....
Text1.Text="Prova"
Load Form2
Form2.Show vbModal
Text1.Text="Fine"
End Sub
Massimo ha scritto:


invece io voglio bloccare il codice finchč non chiudo la form2. E'

Newsgroup: it.comp.lang.visual-basic
Titolo: Api socket e directx ( zauber )

sto cercando di creare una specie di libreria con
tutte le possibili api
in parcolare api winsock , e utillizzo di directx per la gestone di oggetti
3d
presto pubblikerň le mie misere conoscenze
Fatemi sapere
zau...@inwind.it

 presto pubblikerò le mie misere conoscenze
cosa dovremmo farti sapere? :?

 cose tipo queste
The vbAccept function
The vbAccept function is a wrapper one for the accept Winsock API function.
It encapsulates the work we need to do to handle content of the addr and
addrlen arguments of the original function. Frankly, we don't need that
content at all for this sample application.
Public Function vbAccept(ByVal lngSocketHandle As Long) As Long
'***************************************************************************
***** 'Purpose   :Accepts a connection request, and creates a new socket.
'Return    :If no error occurs, returns the new socket's handle. '
Otherwise, it returns INVALID_SOCKET. 'Arguments :lngSocketHandle - the
listening socket.
'***************************************************************************
*****     '     Dim lngRetValue         As Long     Dim udtSocketAddress
As sockaddr_in     Dim lngBufferSize       As Long     '     'Calculate the
buffer size     lngBufferSize = LenB(udtSocketAddress)     '     'Call the
accept Winsock API function in order to create a new socket     lngRetValue
= accept(lngSocketHandle, udtSocketAddress, lngBufferSize)     '
vbAccept = lngRetValue     ' End Function
 ank e c++ anzi sarebbe decisamente megio cosě da fare un ocx

Newsgroup: it.comp.lang.visual-basic
Titolo: Esecuzione di query su Access e VB

Sto accedendo ad un db Access2000 con ADO, ed ho problemi con le query 
che utilizzano caratteri wildcard (tipo '*'). In pratica, una query del 
tipo SELECT * FROM TABELLA WHERE CAMPO LIKE 'a*', se utilizzata per 
aprire un recordset via ADO non ritorna niente, se eseguita direttamente 
su Access restituisce il giusto risultato. Qualcuno puo' darmi delle 
delucidazioni?
Grazie a tutti!
-- 
Bye by SixaM 8-]
-----------------------------
Sito comune: 
www.it-lang-vb.net

"SixaM" <mca...@NOSPAMmacinform.it> ha scritto nel messaggio
news:MPG.175733a4...@news.enter.it...

Vacca boia...non è più neanche una faq da quante volte è stato
risposto!....sigh!
prova
SELECT * FROM TABELLA WHERE CAMPO LIKE 'a*Virgin'
poi dopo una bella risata studiati
http://www.w3schools.com/sql/sql_where.asp
nel mezzo della pagina(circa) c'è la risposta che cerchi!
Sigh!

 
Mi sono gia' cosparso il capo di cenere nella mail precedente...cmq 
l'indirizzo che hai postato e' mooolto interessante...ne faro' buon uso
Grazie!

Newsgroup: it.comp.lang.visual-basic
Titolo: [BUG] nuove funzioni con matrici? TSK! una BUFALA!!!

Uff... zio bill promette e non mantiene.
Nelle mie msdn c'e' un articolo
sulle nuove potenzialità delle matrici... + precisamente cercate
"funzionalità avanzate delle matrici"
percorso:
|-Documentazione di VB
|-Utilizzo di VB
  |-Potenzialità di VB
   |-Ulteriori Info
    |-
Funzionalità avanzate delle matrici
Lì dice che e' possibile far
ritornare una matrice da una funzione.
c'e' anche un esempio di
codice...
PECCATO CHE NON FUNZIONI!!!
da Errore di Sintassi.
che
cagata...
fortunatamente c'e' anche una frasina del tipo "potete anche
usare questa istruzione al posto di "exit function x" anche se e' molto +
lenta"
mmmh
appunto: la riga incriminata contiene
exit function x
ne sapete qualcosa? o devo solo ringraziare bill, che promette le caramelle
buone a chi implementa una routine che ritorni una matrice, e poi non glie
la da, o al max glie ne da una cattiva?
mmmh
ciao
_GUS_
--------------------------------
Inviato via 
http://usenet.iol.it

 lenta"
Non e' una bufala, ma certamente e' un errore della documentazione;
probabilmente una sintassi alternativa che poi non e' stata inclusa nella
versione finale.
Comunque funziona tranquillamente con la  sintassi "classica" per restituire
il risultato di una funzione; ad esempio:
Private Function InitArray(x As Long, y As Long, z As Long) As Long()
Dim TempArray() As Long
ReDim TempArray(2)
TempArray(0) = x
TempArray(1) = y
TempArray(2) = z
InitArray = TempArray
End Function
se sia piu' lenta rispetto al sistema che (eventualmente) avevano pensato in
origine non lo sapremo mai, sicuramente implica un CopyMemory tra i 2 array
ma dovresti notare l'overhead solo con matrici estremamente grandi; tanto
per capirci, ho provato questo:
Private Function InitArray() As Long()
Dim TempArray() As Long, i As Long
ReDim TempArray(25000)
For i = 0 To 25000
    TempArray(i) = CLng(Timer)
Next
InitArray = TempArray
End Function
e impiega meno di un secondo su un PII
Ciao
--
Luca Dormio
luca....@tin.it

 e impiega meno di un secondo su un PII
70 millisecondi su un PII 400.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione a DB Access

Salve!
Ho creato un form, utilizzando la creazione guidata di form (data form
wizard), per accedere ai dati di un database access!
Il file di database (prova.mdb) non sempre si trova su un percorso
prestabilito quindi  ho deciso di inserire in una variabile globale il
percorso completo del mio db (es. dbname = c:\dir1\prova.mdb);  all'avvio
dell' applicazione imposto dove si trova il file db.
Con doppio click sull'oggetto creato (datPrimaryRS adodc) accedo alla
procedura:
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As
String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As
String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
'------ definisco la stringa di connessione
datPrimaryRS.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data
Source=" & dbname & ";"
MsgBox "Data error event hit err:" & Description
End Sub
N.B. Nelle proprietà dell oggetto  (datPrimaryRS) ho tolto il percorso che
mi era stato richiesto nell'autocomposizione del form!
Passando la stringa di connessione da codice come sopra indicato, mi da il
seguente errore:
- Data error event hit err: [microsoft][ODBC driver Manager] Nome origine
dati non trovato e driver predefinito non specificato.
Perchè?
Grazie per qualsiasi aiuto
Claudio

 ha scritto nel messaggio
news:RAbV8.35883$Jj7.9...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: rettangoli con bordo arrotondato

Ciao a tutto il NG.
Volevo sapere se con l'oggetto printer posso disegnare dei rettangoli con
l'angolo arrotondato.
Grazie a tutti

 l'angolo arrotondato.
Prova a usare la DrawRoundRect()
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ha scritto nel messaggio
news:rUa7d.37571$35.17...@news4.tin.it...


 altro aiutino?
perchè in realtà si chiama RoundRect
Vedi Msdn e 
http://www.mentalis.org/apilist/RoundRect.shtml
Ciao

 ha scritto nel messaggio
news:rUa7d.37571$35.17...@news4.tin.it...


Tempo fa, non sapendo come risolvere questo problema mi inventai questa
funzione :
'==============================================='
'questa funzione stampa un quadrato arrotondato
'==============================================='
Public Function SquareRound(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As
Long, ByVal Y2 As Long, ByVal Raggio As Long)
Dim XA, XB, XC, XD, XE, XF, XG, XH, Xc1, Xc2, Xc3, Xc4, YA, YB, YC, YD, YE,
YF, YG, YH, Yc1, Yc2, Yc3, Yc4 As Long
XA = X1 - Raggio
YA = Y1
XB = X2 - Raggio
YB = Y1
XC = XB + Raggio
YC = YB + Raggio
XD = XB + Raggio
YD = Y2 - Raggio
XE = XB
YE = Y2
XF = XA
YF = Y2
XG = XF - Raggio
YG = YD
XH = XF - Raggio
YH = YC
Xc1 = XA
Xc2 = XB
Xc3 = XB
Xc4 = XA
Yc1 = YH
Yc2 = YC
Yc3 = YD
Yc4 = YD
Printer.Line (XA, YA)-(XB, YB)
Printer.Line (XC, YC)-(XD, YD)
Printer.Line (XE, YE)-(XF, YF)
Printer.Line (XG, YG)-(XH, YH)
Printer.Circle (Xc1, Yc1), Raggio, , (PI / 2), PI
Printer.Circle (Xc2, Yc2), Raggio, , 0, (PI / 2)
Printer.Circle (Xc3, Yc3), Raggio, , (PI / 180) * 270, 2 * PI
Printer.Circle (Xc4, Yc4), Raggio, , PI, (PI / 180) * 270
End Function
per utililizzarla usa
SquareRound 15, 70, 100, 115, 3
i primi 4 parametri definiscono le dimensioni di un retangolo
mentre l'ultimo parametro definisce il raggio del bordo arrotondato
č un sistema un po cosě ma funziona
ciao
Marco
Newsgroup: it.comp.lang.visual-basic
Titolo: moduli e function

Ma la funzione anche se scritta in un modulo non dovrebbe restituire un
valore(una variabile) vialida in tutto il documento??
es.
FORM1
numero=5
somma(numero)
end sub
Modulo
function somma(numero)
nuovonumero=numero+10
end function
nel form1 nuovonumero è uguale a vuoto! questo a prescindere da dove
dichiaro la variabile!
giovanni

 un valore(una variabile) vialida in tutto il documento??
(snip)
prova una cosa del tipo:
nella form 1
dim numero as integer
numero = 5
msgbox Aggiungi(numero)
nel modulo
public function Aggiungi(n as integer) as integer
    aggiungi = n + 10
end function
e poi studia
--
Salutoni
Sergio

*giovanni* ha scritto:

La function va chiamata come tale per restituire qualcosa, quindi non
"somma(numero)", ma:
nuovonumero=somma(numero)
Oppure (ma è altra storia che ti rimanda alla guida, ... a proposito,
interessano i due CD?):
Prova con un Public nuovonumero nella sezione dichiarazioni (in testa che
più in testa non si può) del modulo

 end function
A parte l'esposizione un po' tanto confusa, la funzione dovrebbe essere
(stando al tuo esempio):
function somma(numero) as ..... ' specificare il tipo
  somma=numero+10
end function
Ciao.
pinco_pallo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:dSgia.55644$i26.1...@news2.tin.it...

1) Il risultato di una funzione lo devi mettere da qualche parte,
quindi devi scrivere:
    x = somma(numero)
2) Quando calcoli il nuovo valore, alla fine del calcolo
lo devi mettere in una variabile che ha LO STESSO
nome della funzione, quindi:
    nuovonumero = numero + 10
    somma = nuovonumero
altrimenti la function non ritorna un bel niente.
--
Er Roscio.

     somma = nuovonumero
quindi, sempliicando
function somma(numero)
     somma=numero+10
end function
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura testi e numeri da textbox

 
Salve,
ho creato un form con diversi array di textbox, a simulare una griglia.
Il relativo codice funziona correttamente da codice sorgente, ma dopo aver
creato l'eseguibile mi dà RTE 5 nell'eseguire la seguente riga:
If (txtNorm(Index).Text <> "") then
aggiungo che Index è l'i-esimo oggetto dell'array, ed è corretto, in quanto
identifica un elemento presente nell'array.
Anche inizializzando una variabile di tipo testo e facendo il controllo sul
contenuto della var non cambia nulla.
Come posso ovviare a ciò?
Grazie
Emanuele
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie
mi dispiace, non riesco a replicare l'errore, che dovrebbe essere
5 - Argomento non valido nella chiamata di routine
questo codice va sia in ide sia in exe:
Option Explicit
'Private Sub Text1_LostFocus()
'    If (Text1 <> "") Then
'        MsgBox Text1
'    Else
'        MsgBox "niente"
'    End If
'End Sub
Private Sub Text1_LostFocus(Index As Integer)
    Caption = Index & " : " & IIf(Text1(Index) <> "", Text1(Index),
"niente")
End Sub
ciao, j.


Ho risolto il problema sostituendo la chiamata
IF TEXTBOX(Index).text = "" THEN
con un
SELECT CASE...CASE ""
Strano, tra l'altro lo faceva solo alla prima esecuzione
Ma il controllo IF TEXTBOX(Index).text = "" sulle textbox non dovrebbe
essere corretto?? L'ho sempre usato!


 essere corretto?? L'ho sempre usato!
infatti funziona anche cosi':
Private Sub Text1_LostFocus(Index As Integer)
    Caption = Index & " : " & IIf(Text1(Index) = "", "niente", Text1(Index))
End Sub
ciao, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: Info su Timer

Salve a tutti, ho iniziato gli studi di VB5 da pochissimo, mi piacerebbe
sapere come si fà un cronometro attivabile mediante un pulsante e poter
creare degli intertempi.
Siccome sono alle prime armi non so se la risposta e complessa,se lo fosse
potete anche non rispondermi.
Approfitto anche per chiedere perche se scrivo:
Label1.Caption = Year  oppure
Label1.Caption = Day   oppure
Label1.Caption = Month
mi da errore di compilazione 449
mentre se scrivo :
Label1.Caption = Time  Oppure
Label1.Caption = Date
Funziona tutto
                                                            GRAZIE Comunque

...

Se avessi premuto quel benedetto tasto F1, che richiama l'help in linea di
VB, avresti trovato (sotto "Errori intercettabili"), che l'errore 449 e'
"Argomento non facoltativo", ossia stai chiamando una funzione senza
passargli i parametri di cui hai bisogno.
Nel caso specifico (sempre con il benedetto tasto F1), Year (ma lo stesso
per Month e Day) e' una funzione:
"Restituisce un valore Variant (Integer) che contiene un numero intero
corrispondente a un anno.
Sintassi
Year(data)
L'argomento __obbligatorio__ data può essere qualsiasi valore Variant,
espressione numerica o espressione stringa, in una qualsiasi combinazione
che rappresenti una data. Se data contiene Null, la funzione restituisce
Null."
cioe' Year ti da' l'anno di una data, Month il mese e Day il giorno...
Pero' se non gli dici di che data, poverini, come fanno a saperlo?
Label1.Caption = Year(Date)
etc...
--
Roal Zanazzi
z...@iol.it

Label1.Caption = Year  oppure

Newsgroup: it.comp.lang.visual-basic
Titolo: Esiste altro codice per salvare un'immagine BMP da una Picture-Box

Gentili iscritti,
Per salvare l'immagine contenuta in una picture-box, ho provato ad usare
l'istruzione:
    SavePicture Picture1.Picture, salva_file_bmp
Ma in realtà nella mia Picture1 è visualizzata un'immagine bmp
"modificata" dalla rotazione della palette, quindi ha i colori diversi
rispetto a quella poco prima caricata. Se uso l'istruzione SavePicture,
non mi salva "l'attuale immagine con i colori modificati" bensi' salva la
prima immagine che avevo caricato nella picture1. Il mio obiettivo sarebbe
invece di trovare del codice per dire ... salvami esattamente ciò che vedi
a schermo e non quello che avevo caricato inizialmente nella picture-box.
Esiste quindi del codice "più potente" per salvare un'immagine bmp
contenuto in una picture-box, in un file, rispetto alla semplice
istruzione SavePicture?
Qualcuno ha delle soluzioni?
Ringraziando anticipatamente, saluto tutti.
Ps: Ho anche provato ad usare l'oggetto image di "comodo" per vedere se la
SavePicture cosi' funzionava ma... niente!
Paolo Guagliumi
_______________________________________
Casale Monferrato - Alessandria - Italy
mailto:
pguag...@dada.it
http://members.tripod.com/softwork


Dovrebbe bastare (per una toppa temporanea) settare Picture1.Autoredraw =
True prima di elaborare l'immagine.
In questo modo si forza la nuova immagine nell'hDC della picture, e
l'immagine realmente contenuta dovrebbe essere quella finale.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: MDAC 2.7 e JET 4.0 SP6

Ciao!
Devo distribuire il SP6 di JET 4.0 con un mio programma, basato su ADO 2.7,
che lavora in sola lettura su un db Access 2000 per facilitare gli utenti
che non possono utilizzare WindowsUpdate (problemi di firewall?
Ahiahiahiaiii...). A parte l'assurdità di dover includere un SP per ogni OS,
mi viene un dubbio: a cosa serve? (Mi sento piccino piccino...) Mi spiego:
prendo una macchina di prova con il sistema operativo appena installato
(Windows 98), e solo quello (cioè niente Office & Co.), quindi installo il
mio pacchetto che include MDAC 2.7 e il JET 4.0 SP3; infine, faccio l'update
con il SP6. Lancio il programma e funziona a meraviglia. Poi decido di
verificare cosa succede se non dovesse andare a buon fine l'installazione
del JET, così da scrivere un'opportuna routine di gestione dell'errore,
ovvero mi chiedo: "E se togliessi il JET 4.0 in toto?" Quindi formatto l'HD,
reinstallo l'immagine del disco, modifico il pacchetto distribuibile in modo
che non includa il JET e - sorpresa! - funziona.
Tutto quello che faccio è semplicemente aprire una connessione con questa
stringa,
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
App.Path & "\MioDb.mdb;Persist Security Info=False"
Il resto, poi, sono tonnellate di query! Ma niente di trascendentale.
Ho perso qualcosa che Microsoft ha detto e io ero distratto o lavoro troppo
di notte?
Intanto grazie e mi scuso con coloro a cui dovesse sembrare una domanda
idiota.
Ciao
Alex
--
Private replays to 
not.to....@geocities.com
Remove "
not.to
."!!

 Il resto, poi, sono tonnellate di query! Ma niente di trascendentale.
Beh, una query coinvolge comunque il database d'arrivo. Come potrebbe
funzionare senza Jet?
Siamo sicuri che non c'è nulla che riguardi Office?

 Siamo sicuri che non c'è nulla che riguardi Office?
Nulla! Assolutamente nulla! Ho semplicemente installato il sistema
operativo, senza alcun aggiornamento, e i driver VIA (giusto per non avere
un Blue Screen Of Death in fase di arresto del sistema) su un HD appena
formattato, come faccio sempre per testare i miei programmi.
Proprio non capisco...
Vabbè. Non ho più voglia di ammattire di fronte alle strXXXate di Microsoft
(a cui, però, riconosco parecchi meriti - e, forse, mi distacco in questo
dal resto dal mondo - ). Nel pacchetto ci metto anche JET 4.0: in fondo sono
pochi MB e non sono un problema. Però odio fare le cose senza capirle fino
in fondo...
Grazie comunque. Se scopro - se c'è - l'inghippo, posto sul ng.
Ciao!
Alex

 Grazie comunque. Se scopro - se c'č - l'inghippo, posto sul ng.
Te ne saremo grati.

 > roadmap di MDAC.
Io ho capito che non contiene Jet come motore, forse il provider ADO/Jet
viene distribuito comunque.

 ha scritto nel messaggio
news:vvjj9.29764$Av4.5...@twister2.libero.it...

Solo per la cronaca, ecco cosa č successo: era rimasta nella file list per
la creazione del pacchetto una libreria della versione 2.5 di MDAC. Il resto
viene da sč: devo smettere di lavorare di notte! ;-D
Grazie, comunque. Appena ricomincia Striscia la Notizia, ti faccio mandare a
casa Laurenti con un camion di panettoni!
Ciao!
Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: APPC

Salve lista..
Qualcuno sa dirmi dove posso trovare la documentazione relativa all'uso
delle API di EHNAPPC.DLL (APPC con AS400)?
Grazie infinite.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: CORSI GRATUITI DI JAVA/ORACLE


a voi i commenti!
io non ho parole :-P
Ciao
Sandro Pons

io non ho parole :-P
Impossibile un commento migliore del tuo :)
Ciao
Aldo

1) Il post e' OT (sbaglio o siamo su it.comp.lang.visual-basic ?);
2) questa insistenza, al di la' delle eventuali considerazioni di merito,
ha tutto l' odore della pubblicita'; sara' il caso di passare
la palla all' abuse del nic ?
Ciao
Aldo

Inviare C.V. dettagliato per mail all'indirizzo: 
4gl...@4gl.it
, si prega
Abbiamo gia' fatto un passo avanti: ora hanno registrato un dominio :)
Saluti che da Milano ci sono 250km...
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

                                            4 G.L. SOFTWARE S.R.L.
                                                Viale Monza,196
                                                   20128 Milano
                                                 Tel.02/27080684
4 G.L. Software S.r.l. seleziona giovani con buone conoscenze d'informatica
per un corso gratuito di programmazione Java/Oracle mirato all'inserimento
nel mondo del lavoro.
Un nostro funzionario e' a disposizione per qualsiasi chiarimento in merito.
Il corso iniziera' il 12/02/2001 dalle ore 9:30 alle ore 17:30 da Lunedi' a
Venerdi' e terminera' il 12/04/2001.
Inviare C.V. dettagliato per mail all'indirizzo: 
4gl...@4gl.it
, si prega
di indicare rif: Java.

Basta !
Lo passiamo all' abuse ?
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Ottimizzazione vista

ciao a tutti. vorrei un parere su questo dubbio.
supponiamo di avere la vista (la tabella contiene 10 record):
SELECT * FROM TABELLA1
ora, supponiamo che mi interessa aggiungere un WHERE.
ho 2 modi per farlo:
1 - direttamente nella vista: SELECT * FROM TABELLA1 WHERE ID >5
2 - da ADO: SELECT * FROM VISTA1 WHERE ID > 5
il secondo caso mi torna ovviamente utile nel caso il WHERE non vada
sempre aggiunto.
ora, le domande: quale delle 2 è più veloce?
- nel secondo caso, il database si carica i 10 record e poi li filtra
oppure è "intelligente" ed ottimizza l'operazione
  trasformandola nell'equivalente primo caso?
- se utilizzassi una stored procedure che vantaggi avrei in
velocità/prestazioni?
grazie a tutti
Daniele

 ha scritto nel messaggio
news:3DD4D715...@tiscalinet.it...

Se usi una store-procedure precompilata è sicuramente più veloce, perchè
quando invii una queri al DB, viene prima compilata e poi eseguita..
ciao..
Newsgroup: it.comp.lang.visual-basic
Titolo: Ci riprovo . - Funzione per aprire pannello di controllo

Qualcuno sa se esiste una funzione (anche API)
per aprire il pannello di controllo di Windows?
Fabrizio mi ha scritto
Shell ("Control")
ma non capisco
Qualcuno mi puņ aiutare ?
es:   x = Shell("?????....")
Ciao , grazie

Susate, ho già risolto
(non avevo vosto la risposta di Fabrizio)
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Recordset su più form

Ho questo problema, che erp la maggior parte di voi sarà di soluzione
banale...
Sto creando una specie di wizard per una raccolta di dati da inserire in un
db Acces2000.
Ho bisogno di almeno due form, vista la quantità industriale di opzione che
deve inserire l'operatore.
Il mio problema è questo: come faccio creare un solo oggetto recordset che
mi valga per tutti i form che ho nel wizard?
O meglio, qual'è il punto migliore (scusate la ripetizione) in cui aprire il
recorset, in modo che possa scorrere i form con lo stesso recordset?
Grazie.

 ha scritto nel messaggio
news:HtWA8.7213$5k4.2...@twister2.libero.it...

E se il wizard lo fai in un unico Form, utilizzando delle PictureBox o dei Frame
per ragruppare le opzioni rendendoli visibili/invisibili all'occorenza?
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)


Ci ho pensato, ma ho talmente tanti frame con checkbox, textbox, optiongroup
e label che ho paura di incasinarmi e volevo dividere un po' le cose, ma ci
proverň perchč anche a me pareva la soluzione piů normale....
Volevo solo sapere se era possibile dividere le cose su due o tre form.

 recorset, in modo che possa scorrere i form con lo stesso recordset?
Personalmente(con DAO) apro il recordset solo nel momento che ne ho bisogno
e lo chiudo imediatamente che ho terminato di utilizarlo , inoltre con ADO e
piu facile lavorare con Recordset sconettati dal DB puoi manipolare i dati e
quando finischi inviare le modifiche al DB.
Ciao L'Oriundo

 Volevo solo sapere se era possibile dividere le cose su due o tre form.
Ciao Marco,
francamente non capisco qual'è il problema... sono
perfettamente d'accordo con te per quanto concerne
la suddivisione dei dati su più forms, ma perchè non
inserire/aggiornare il recordset ogni volta che passi da
una form all'altra??
Nella navigazione tra le varie schermate della tua applicazione
avrai solo il fastidio di qualche lettura per accertarti di quali
e quanti dati siano stati inseriti, senza contare che, se per qualunque
motivo l'utente non dispone immediatamente di tutte le
informazioni, può intanto memorizzare quelle di cui è a
conoscenza e ultimare l'inserimento in un secondo momento...
Forse non ho capito bene quello che ti serve...
Ciao
 valter
Newsgroup: it.comp.lang.visual-basic
Titolo: Inner JOIN da access a msde

Sto passando un prog da access a msde...
ho una query che mi funzionava bene su access e che su msde non funzia. Il 
problema credo sia banale,
e chiedo venia per questo, ma non riesco a trovare la soluzione
La query sembra funzionare. Nella finestra immediata ottengo il numero 
giusto con rs.recordcount
rs.Open "select * from anagp  inner join ingrp on anagp.incr = ingrp.rif 
where ingrp.lotto='" & ListView2.SelectedItem.SubItems(1) & "' order by 
anagp.data desc", cn, adOpenStatic, adLockOptimistic
Quando mi devo popolare la listview non trova questo oggetto
li.SubItems(2) = "" & rs("anagp.nome").Value
Come se anagp.nome non esistesse....
Da access a msde cambia qualcosa?
Grazie
IAK

PiantoTardivo ha usato la sua tastiera per scrivere :

Nel recordset il nome della tabella non viene riportato.
Il tuo campo si chiamerà solamente "Nome".
Ti segnalo anche che eseguire una query con *, a meno che non ci siano 
motivi di 'dinamicità' della struttura, è pessima scelta sia in fatto 
di prestazioni che di 'purismo' di sviluppo.
Ciao
Alberto
-- 
Ma noi no


Macche motivi di dinamicità....non volevo stare a scrivere sul NG tutti i 
campi interessati alla query !!!!
Ciao
IAK 

 Quindi... rs("nome").value che campo mi tirerà fuori?!!!!!!
Motivo in più per non utilizzare *.
Comunque esistono gli alias:
SELECT
     A.CAMPO AS CAMPO_A,
     B.CAMPO AS CAMPO_B
FROM TABELLA1 AS A
INNER JOIN
    TABELLA2 AS B
ON 
A.ID
=
B.ID
