mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Passare una matrice di controlli ad una sub

Domanda: Si può passare una matrice di controlli ad una sub?
In pratica ho diversi form costituiti da diverse listbox affiancate. Quando
seleziono una riga su una listbox automaticamente viene selezionata la
stessa riga su tutte le altre listbox.
Per fare quanto detto ho scritto la seguente routine
Public Sub SelectRow(row As Long, lstObjects() As ListBox)
    For i = 0 To UBound(lstObjects)
        If row <> -1 Then
           lstObjects(i).Selected(row) = True
        End If
    Next
End Sub
quindi per ogni form creo una matrice in questa maniera:
Dim list() As ListBox
Set list(0) = lst1
Set list(1) = lst2
...
...
...
poi all'evento mouseDown e mouseMove di ogni listbox chiamo la sub.
Tutto va bene! (Non so some mai?)
Ad un certo punto mi accorgo che è più semplice utilizzare una matrice di
controlli.
Comincia il problemuccio.
Creo la matrice List di tutte le listbox del form e faccio:
Private Sub List_MouseDown(Index As Integer, ...)
   SelectRow List(Index).ListIndex, List
End Sub
e VB mi dice che non è possibile. Però se *copio* ogni elemento List in un
altra matrice allora va tutto bene.
Quindi credo di capire che non sia possibile passare la matrice di controlli
alla sub. Perche?
Grazie

alla sub. Perche?
E' possibile passare la matrice di controlli, pero' si riesce solo se il
parametro che la riceve e' dichiarato come Object o come Variant
(che punta all' Object).
Per verificarlo, metti quattro listbox in un form e copia il codice dopo
la firma.
ciao, hal
=========================================
Option Explicit
Public Sub SelectRow(row As Long, lstObjects As Object)
    Dim i As Long
    For i = 0 To lstObjects.ubound
        If row <> -1 Then
           lstObjects(i).Selected(row) = True
        End If
    Next
End Sub
Private Sub Form_Load()
    Dim i As Long, j As Long
    For i = 0 To 3
        For j = 1 To 12
            List1(i).AddItem Format$(DateSerial(2001, j, 1), "mmmm")
        Next j
    Next i
End Sub
Private Sub List1_Click(Index As Integer)
    If (List1(Index).ListIndex > -1) Then
        SelectRow List1(Index).ListIndex, List1
    End If
End Sub

 >Domanda: Si può passare una matrice di controlli ad una sub?


 ha scritto nel messaggio
news:9g5v7g$7aurv$1...@ID-56381.news.dfncis.de...


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

... come faccio ad ordinare un elenco di nomi in una DBlist ?????
grazie
 
lug...@epizefiri.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Riga di Comando nell'exe

Ammettimao che nel mio exe voglio inserire un opzione -d per quando lo
lancio dai prompt di Dos
es: C:\dossss\ko.exe -d
ho visto che quando compilo l'exe, nelle proprietà c'è una casella di testo
con scritto "argomenti della riga di comando"
li esattamente cosa scrivo? e nel codice del mio prog, per fargli notare
questa opzione cosa scrivo?
ultima domandina: è possbilie far scomparire e comparire dal menù principale
di una form una voce?
Grazie
ciao

Guarda command() sull'help
Guarda nel sito comune per i menů dinamici

 di una form una voce?
mnuMiaVoce.Visible = False|True
Ciao

 
Se da prompt digiti ko.exe -d, quando lavori da vb per simulare il passaggio
del parametro nella casella "argomenti della riga di comando" scrivi -d.
Il valore di tale casella viene ignorato durante la creazione dell'eseguibile.
-- 
Samuele Battarra
mail server: 
libero.it
, indirizzo: battarsa@(mail server)
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html

Newsgroup: it.comp.lang.visual-basic
Titolo: TCP e Porte

Salve a tutti.
Avrei la necessita di enumerare le porte aperte sul protocollo TCP e UDP
Con la possibilità di chiudere le porte non desiderate con lo stato di
aperta.
Grazie in anticipo
--
Fulvio

aperta.
Scusa, non ti so aiutare appieno, ma siccome nessuno ti ha risposto
finora mi permetto di risponderti in OT...
http://www.webattack.com/get/activeports.shtml
Se non ho capito male hai più bisogno di capire quello che succede che
di farti 1 programma.... 
Se ho sbagliato mi scuso ancora...
Cla

 aperta.
Non farlo in VB.
Just my .2 cents.
Bye, G.

 Non farlo in VB.
Non puoi solo scrivere di non farlo, si devono dare anche le motivazioni.

 Non puoi solo scrivere di non farlo, si devono dare anche le motivazioni.
Potrei farlo. Prima però dammi TU una motivazione per cui IO
_non posso_ scrivere solo di non farlo e per cui _devo_ dartele.
Un Paperino e la gentilezza.

Sei una testa di cazzo
"Paperino" <non...@lo.dico> ha scritto nel messaggio
news:argoor$1oo6$1...@stargate1.inet.it...


 Sei una testa di cazzo
Sorry, la sua motivazione è stata valutata e giudicata insufficiente.
*CYBAX*
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: avvio applicazione

Ciao a tutti
Scusate la mia infinita ignoranza ma vorrei sapere come si fa a far partire
automaticamente un applicazione
all'atto dell'accensione del PC
Grazie mille!!

 all'atto dell'accensione del PC
Due strade: mettere l'aaplicazione (o meglio un collegamento)
nell'esecuzione automatica... oppure mettere una chiave nel registro di
sistema sotto:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run (o qualcosa
del genere) contenete il path della tua applicazione
cosě viene avviata solo dall'utente attuale... se vuoi avviarla da tutti...
al posto di HKEY_CURRENT_USER HKEY_LOCAL_MACHINE
            Ciao
                    Allanon

 ha scritto nel messaggio
news:uAlT6.25876$Uo3.9...@news6.giganews.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO SU ICONE

ho inserito una toolbar collegata ad una imglist contenente 4 icone colorate
(settate a 32X32).
Dopo un paio di volte che eseguo il programma le icone diventano in bianco e
nero
Sapete dirmi il perchè e come risolvere questo problemino?

 ha scritto nel messaggio
news:2l7q6.1223$x3.2...@news2.tin.it...

Come tutte le cose che vengono usate con il tempo, si usurano,  se le usi
ancora un po' poi spariscono 8-)))))
Ciao VB
Seriamente è un problema che hanno notato in molti ma non mi ricordo la
soluzione 8-(
Ciao VB

La soluzione č aprire deja (
www.deja.com
) e cercare tra i post vecchi ;)
CiaoZ
SebaMix
[...]
Newsgroup: it.comp.lang.visual-basic
Titolo: command e execute

che differenza c'è tra i 2 metodi in oggetto??
grazie
ciao

>che differenza c'è tra i 2 metodi in oggetto??
Command e' un oggetto, mentre Execute e' un metodo esposto da vari oggetti,
fra cui Command stesso.
E adesso ... F1->GuidaInLinea()  :)
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.Net 2003, cosa cambia nell'accesso dati

Ciao a tutti.
Qualcuno mi sa dire se nella nuova versione di Visual Studio.Net ci sarà
qualche importante novità per quanto riguarda l'accesso ai dati?
Tempo fa avevo sentito dire che sarebbe stata re-inserita la gestione
connessa.
Per quel poco che ho usato Vb.Net 2002 finora mi sembra che la gestione
disconnessa sia perfetta per applicazioni di tipo Web, ma che sia un po'
troppo "macchinosa" e pesante da gestire per le applicazioni Windows
tradizionali.
Grazie e buon lavoro a tutti.
Skysurfer

 tradizionali.
Boh, io mi trovo perfettamente e faccio quasi solo applicazioni windows
"tradizionali".
E' vero che però ho cambiato modo di pensare ed ho implementato un sistema
di "cache" locale. (Uso delle datatable da cui prendo i dati che metto
all'interno delle classi e le classi hanno metodi shared che gestiscono una
cache basata su Hashtable che contengono le classi già caricate (per la
classi "pesanti" uso dei weakreference...)
                        Ciao
                                                                Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

E' stato aggiunto il provider per Oracle, se vuoi una descrizione delle
novita' dai un occhio qui
http://www.ugidotnet.org/articles/articles_read.aspx?ID=29
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si elimina un record?

Ho fatto in modo che i dati contenuti in una tabella .mdb fossero visibili
in una msflexgrid. A questo punto dovrei cancellare un record qualsiasi
selezionato tramite mouse, ma non soltanto dalla griglia (cosa che ho già
risolto), ma anche dalla tabella .mdb.
Riesco ad intercettare il numero di record dalla griglia, ma non so come
poterlo passare come dato all'oggetto data.
Specifico che l'oggetto data è stato volutamente nascosto e che la selezione
avviene soltanto attraverso l'uso del mouse, e soltanto sulla griglia.
Se uso data1.recordset.delete, immancabilmente viene cancellato il primo
dato della tabella anche se è stato selezionbato sulla griglia il record Nr
8.
Come posso fare?
Vi ringrazio anticipatamente, se  mi fornite un'esempio o un'indicazione per
poter risolvere il problema.
Ciao a tutti, e grazie ancora.
Paolo

...


Hai detto di conoscere il numero di record quando clicchi
su una riga, quindi sai tutto su quel record:
A questo punto data1.recordset.delete va' bene, ma devi prima puntare al
record
desiderato con i metodi seek, findfirst ecc...
es:
data1.recordset.findfirst "Nome = 'Tizio'"
if not data1.recordset.nomatch then
    data1.recordset.delete
endif
Riccardo Guirrini
Web :          
http://space.tin.it/computer/rguirrin
E-Mail:         
del...@tin.it


Se conosci il numero di record puoi usare:
data1.recordset.absoluteposition=<numero di record>
data1.recordset.delete
Saluti


Newsgroup: it.comp.lang.visual-basic
Titolo: CR - Dove trovarlo ?

A parte la versione 4.6 che era fornita di serie con VB5,  sapete se esiste
la possibilita' di scaricare una versione piu' recente ?
Grazie

 wrote in message
news:zmWO6.20140$h9.17...@news.infostrada.it...

sul sito della seagate (
www.seagatesoftware.com
) era
disponibile una demo della versione 8 ... pero' non so che tipo di
limitazioni aveva
ciao
Enrico

 limitazioni aveva
Probabilmente ho bisogno di un paio di occhiali nuovi, visto che non riesco
a trovare nessuna sezione dedicata al download nel sito.
Non e' che saresti cosi' gentile da indicarmi la pagina dove trovarlo ?
Grazie
Aldo



Newsgroup: it.comp.lang.visual-basic
Titolo: Applicazioni VB6 su MAC

Scusate la domanda, ma è possibile compilare dei sorgenti VB6 in Ambienti
MAC OS?
Grazie e a presto.
Max

 MAC OS?
[...]
Dunque. Fino a qualche anno fa, non c'era verso. Al limite il Mac poteva
avere una scheda aggiuntiva di emulazione per far girare un Dos e un
Windows sui quali potevi compilare e var girare programmi Vb (non ci ho
mai provato!). Ultimamente avevo sentito parlare di un Vb per Mac. Come
dire che puoi sviluppare in Vb su Mac (non l'ho mai visto!). Se però
intendevi compilare su ibm e compatibili per poi far giare sul Mac, per
quanto ne so non si può fare...
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 MAC OS?
Esiste tale 'RealBasic' che, usato su MAC, consente di creare eseguibili 
per Windows e MAC. Oviamente si tratta di due file diversi.
Una finestra con un pulsante sono 700k, ma non ha necessità di dll.
Il linguaggio è mooolto simile a vb, direi identico; ma non ho trovato 
la possibilità di importare files VB (form,moduli o qnat'altro)...
Dicono che esiste anche la possibilità di interfacciarsi alle API di 
Windows.
Quando me ne sono interessato esisteva solo per MAC, ma sul mio emulatore 
funziona benissimo. Ho installato la trial per provarla.
-> GbC

 ha scritto nel messaggio
news:Xns9331AF16DD1CFg...@193.70.192.192...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Evento screensaver

Ragazzi, piccola questione.
Vorrei capire in qualche modo quando il mio PC entra in modalità 
screensaver...lo scopo è quello di inserire all'interno del mio 
applicativo una sorta di piccolo istant messaging...
e vorrei poter visualizzare su quali PC c'è realmente davanti qualcuno 
oppure sono in modalità screensaver...
c'è un'API che fa al caso mio?
grazie, good coding!!!
--
Alletun
"Se ti va di spassartela adesso
Prendi il Vettore oggi stesso."
Terre Desolate - Stephen King
Inviato da 
www.mynewsgate.net

 oppure sono in modalità screensaver...
cavolo bella domanda ! O_o non me l'ero mai posto ma credo e spero che ci
sia un contatore di inattivita' e che questo contatore sia visibile ...
ravanando ho trovato solo la TrackMouseEvent per il mouse per la tastiera
c'e' un keypressed... unendo i due al "tempo di scatenamento" dello
screensaver potresti accrochiare qualcosa, l'unico problema e' appunto,
penso, evitare l'hook e tempo di cpu a confrontare se e' stato mosso
qualcosa ! sarebbe una gran bella cosa avere alche un "timeGetIdleTime"
visibile !:(
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Newsgroup: it.comp.lang.visual-basic
Titolo: Rivista VB

Ciao a tutti,
vorrei solo sapere se esiste una rivista cartacea che parli di VB con
esempi, tecniche di progr ecc ecc
Grazie, Mirco.

...


 Grazie, Mirco.

Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare File e Directory

Salve raga qual'è il comando per cancellare File e directory?

 Salve raga qual'è il comando per cancellare File e directory?
Kill, RmDir

Grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: sapere il nome del computer in rete?

qualcuno sa se esiste una api windows per prelevare il nome del computer in 
rete?
Grazie.

 in  rete?
U = VisualizzaUtentiConnessi
Function VisualizzaUtentiConnessi()
    Dim cn As New adodb.Connection
    Dim Rs As New adodb.Recordset
    Dim Npost As Integer, I2 As Integer, Questo As String
    Dim i, J As Long
    Dim U As String, U2 As String
    Dim Ele() As String
    Dim rsPsw As DAO.Recordset
    Dim dl As String
    '--- Ricavo il nome di QUESTO computer
    U = Space$(16)
    dl = GetComputerName(U, 16)
    Questo = Trim$(Replace(U, Chr$(0), ""))
    '
      ' The user roster is exposed as a provider-specific schema rowset
    ' in the Jet 4 OLE DB provider.  You have to use a GUID to
    ' reference the schema, as provider-specific schemas are not
    ' listed in ADO's type library for schema rowsets
    Set Rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
    '--- Output the list of all users in the current database.
    ' COMPUTER_NAME               LOGIN_NAME                  CONNECTED 
SUSPECT_STATE
    ' Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, 
rs.Fields(2).Name, rs.Fields(3).Name
    While Not Rs.EOF
        U = U + Rs.Fields(0) + "  "
        Rs.MoveNext
    Wend
    U = Replace(U, Chr$(0), ",") + ",STOP"
    Ele = Split(U, ",")
    '--- cerco di eliminare "questo" computer
    For i = 1 To 10
       If Ele(i) = "STOP" Then Exit For
       If Trim$(Ele(i)) <> Questo And Trim$(Ele(i)) <> "" Then
          U2 = U2 + Trim$(Ele(i)) + " - "
       End If
    Next i
    If Right$(U2, 3) = " - " Then U2 = Trim$(Left$(U2, Len(U2) - 3))
    If Trim$(U2) = "" Then U2 = "nessuna"
    VisualizzaUtentiConnessi = U2
    Rs.Close: Set Rs = Nothing
    cn.Close: Set cn = Nothing
End Function
Ciao
Ugo Bottari
(
www.lalpinistavirtuale.it
) 

 (
www.lalpinistavirtuale.it
)
azzz. ma le sapete proprio tutte.

Newsgroup: it.comp.lang.visual-basic
Titolo: Cercasi esperto di stampe

Ho urgentemente bisogno di contattare un programmatore esperto di stampe in
visual basic 6.0 Professional.
URGENTISSIMO
Grazie
Emanuela
--------------------------------
Inviato via 
http://usenet.libero.it


cosa devi stamparer e con che metodo lo vuoi fare


 Emanuela
Alessandro

Per la precisione mi servirebbero i data report di vb6. Grazie


Devo eseguire una estrazione con una stringa sql di alcune informazioni da
una sorgente ODBC. Da queste informazioni devo ricavare una prima
intestazione (dati anagrafici del cliente a cui si riferisce la stampa) e
successivamente, nel corpo del report gli altri dati (ogni singolo articolo
con le specifiche).
Avrei bisogno di sapere come posso assegnare i dati elaborati dalla query a
label del report per i dati anagrafici del cliente e successivamente gli
altri a caselle di testo.
Grazie
Emanuela

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione ext keypad usb multipli

Salve!
Ho letto nei post precedenti che l'uso di USB viene fatto tramite driver 
specifici e, nel caso, con l'utilizzo della libreria Serial.
Quindi, mi par di capire, non si riesce a vederlo come porta in sè, ma 
direttamente come periferica.
Il mio problema è che vorrei riuscire a gestire più periferiche 
identiche (nella fattispecie tastierini numerici esterni usb) per poter 
usare un solo PC per gestire i dati, ma 6-8 tastierini per l'input 
contemporaneo. Lo scopo è quello di creare un sistema di raccolta di 
voti che i giudici digitano alla fine dell'esercizio.
La necessità, quindi, è quella di riuscire a mettere il sw in "ascolto" 
o fargli interrogare le periferiche per catturare i vari input e 
trattarli correttamente, senza che i valori digitati vengano mischiati e 
potendo riconoscere quale tastierino ha digitato il dato.
Si riesce, secondo voi, con periferiche uguali attaccate ad un hub? I 
sei/otto tastierini vengono riconosciuti come diversi o non è possibile 
distinguerli a livello logico?
Se la risposta fosse positiva, sarebbe fantastico se poi qualcuno fosse 
anche così gentile da fornirmi indicazioni pratiche su come fare questa 
cosa.
Grazie!

 cosa.
Sarebbe davvero fantastico perchè risolverebbe (+/-) anche un mio desiderio 
che avevo postato qualche giorno fa: condividere un singolo PC tra più 
utenti, magari attaccandoci pure un secondo monitor via scheda video 
appropriata.
Ciao

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

Come si realizza una interfaccia del genere?

...


Newsgroup: it.comp.lang.visual-basic
Titolo: DAO 3.6 ->Win98->Access2000

Well I am using DAO 3.6 - Win98(Yuk) - and Access2000
The Access 2000 is running off of a server and VB6 is connecting to it
and at times the connection will slow down to unbelieveably slow return
rates.  I have also tried it locally, one machine with the access
database on the same computer.
Also Data seems to be missing once in a while.  There are no deleting
capabilities on the program and these have been in the database for a
while and they just disappeared.
I seem to think it is a VB/DAO 3.6 memmory leak that slows down the
connection creating slow return rates on queries.  I have no Idea why
the data dissappeared.  we are not using Database Components it is all
back end coding.  We are leaving database open until done with it and
closing it at the end of program.
It is not something you can find either.  Sometimes it happens and
sometimes it doesn't.
I can see that some VB Dll seems to hang in memmory but I can't prove
what it is because it is stupid Win98.
Any help would be appreciated.
Telling me to get rid of Win98 is not an option even though I wish it
was.
Dan
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 ha scritto

Newsgroup: it.comp.lang.visual-basic
Titolo: Zippare

Buon giorno,
	volevo sapere se qualcuno ha una procedura AFFIDABILE 
per zippare il contenuto di una cartella.
Grazie 1.000.000.000,
	Matteo.
-- 
Posted from 
selftrade-4.rev.fr.colt.net
 [195.42.250.4] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
001401c08f69$a33966c0$6401...@selftrade.fr...


 wrote in message
001401c08f69$a33966c0$6401...@selftrade.fr...


posso sapere di che Dll si tratta?
MarioH

 ha scritto nel messaggio
news:95mm5l$ha7fp$1...@ID-70152.news.dfncis.de...


 e dezippa anche?
Sě

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual studio.NET Architect 2002 REGALO...

...da registrare a 800 euro.

 ...da registrare a 800 euro.
 Con fattura ?
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Cos'è successo a Virgilio ???

Ciao a tutti!
Anche a voi la homepage di Virgilio
(
http://www.virgilio.it/home/index.html
) è disastrata?
Sarà un attacco hacker...
Ciao,
*Roby*
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Non vedo niente di strano, è tutto a posto...
Mario De Ghetto
www.deghetto.it

 ha scritto nel messaggio 
news:1115637353.0...@g14g2000cwa.googlegroups.com...
Non vedo niente di strano, č tutto a posto...
Mario De Ghetto
www.deghetto.it
anche per me č tutto aposto
Newsgroup: it.comp.lang.visual-basic
Titolo: visual basic macro needed for excel

I need a macro that takes the first ten cells, the second ten cells, and the
last ten cells in each row, and transposes them to a COLUMN in sheet 2.  The
columns will be organized parallel to each other in sheet 2, but organized
so there are only three columns, and the next row appears in three columns
below the previous row on worksheet 2.  Confusing?  Here is an
illustration....
SHEET 1
Row
1|aaaa|aaaa|aaaa|aaaa|aaaa|aaaa|aaaa|aaaa|aaaa|aaaa|cccc|cccc|cccc|cccc|cccc
|cccc|cccc|cccc|cccc|cccc|
Row
2|xxxx|xxxx|xxxx|xxxx|xxxx|xxxx|xxxx|xxxx|xxxx|xxxx|yyyy|yyyy|yyyy|yyyy|yyyy
|yyyy|yyyy|yyyy|yyyy|yyyy|
SHEET 2
 column 1  column 2
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |aaaa|        |cccc|
 |       |        |       |
 |xxxx|        |yyyy|
 |xxxx|        |yyyy|
 |xxxx|        |yyyy|
 |xxxx|        |yyyy|
 |xxxx|        |yyyy|

How about this:
Option Explicit
Sub testme()
    Dim iRow As Long
    Dim iCol As Long
    Dim FirstRow As Long
    Dim LastRow As Long
    Dim myStep As Long
    Dim oRow As Long
    Dim oCol As Long
 
    Dim curWks As Worksheet
    Dim newWks As Worksheet
 
    Set curWks = Worksheets("sheet1")
    Set newWks = Worksheets.Add
 
    myStep = 10
    oRow = 1
    With curWks
        FirstRow = 1
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For iRow = FirstRow To LastRow
            oCol = 1
            For iCol = 1 To .Cells(iRow, .Columns.Count).End(xlToLeft).Column _
                                     Step myStep
                .Cells(iRow, iCol).Resize(1, myStep).Copy
                    newWks.Cells(oRow, oCol).PasteSpecial Transpose:=True
                oCol = oCol + 1
            Next iCol
            oRow = oRow + myStep
        Next iRow
    End With
 
End Sub

-- 
Dave Peterson
ec3...@msn.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Da DAO ad ADO: non funziona la LIKE....

Nel mio progetto VB6 con Access, ho fatto tutte le
modifiche per passare da DAO ad ADO: e' tutto
OK, funziona tutto, tranne le query che usano la
LIKE... mi sfugge qualcosa?
Grazie.

 wrote in message
tav38.35083$tl3.1...@twister2.libero.it...


in linea di massima che dao il like si faceva cosi
"select * from articoli where descrizione like '*pippo*'"
mentre con ado
"select * from articoli where descrizione like '%pippo%'"
ciao
L2K


Grazie L2K, era proprio questo... :-))))
...hai una cena pagata....
Ciao.

 wrote in message
Lev38.13867$Rv3.5...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Working with Files

Hi all
Happy New Year
Is it possible to read the text present in a .PDF file. and display in a txtBox
Help me how  ?
Ramana

 wrote in message
59b79bd0.03010...@posting.google.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: My.Application VS My.MyApplication

Come da oggetto, perché sono così sadici alla Microsoft?
Non potevano fare un'unica classe per gestire l'applicazione?
Per la chiusura dell'applicazione ci sono poi due distinti eventi:
- Application.ApplicationExit
- MyApplication.Shutdown
Quali sono le differenze?
Per non parlare del fatto che nel progetto la classe MyApplication viene sempre dichiarata con istruzioni del tipo:
    Partial Friend Class MyApplication
Ma da nessuna parte si trova l'istruzione Inherit ... che deve per forza esserci visto che MyApplication eredita da WindowsFormsApplicationBase (si vede dai membri che espone!!). Dov'è sparita tale istruzione assieme alle istruzioni per creare un'istanza di MyApplication per l'applicazione corrente?
 
Dulcis in fundo, per aumentare la confusione, nella documentazione MSDN della classe WindowsFormsApplicationBase e più precisamente nelle note si dice invece:
 
--------------
L'oggetto My.Application è costituito dalle classi seguenti:
-ApplicationBase  fornisce i membri disponibili in tutti i progetti.
 
-WindowsFormsApplicationBase  fornisce membri disponibili nelle applicazioni Windows Forms.
 
-ConsoleApplicationBase  fornisce membri disponibili nelle applicazioni console. 
---------------
 
Il che a me farebbe capire che in realtà ad ereditare da WindowsFormsApplicationBase non è MyApplication ma Application!
 
Qualche esperto può sbrogliare la matassa per piacere?

Aggiornamento.
 
Segnalo innanzitutto un mio errore: ho confuso la classe "statica" Application del namespace Windows.Forms, con la classe Application del namespace My.
 
Comunque alcune cose ancora non tornano:
- Innanzitutto il perché delle due classi (non ne potevano fare solo una?)
- E poi i due eventi simili ApplicationExit e Shutdown nelle due classi.
 
Diventa chiara invece la relazione di ereditarietà anche se contorta:
 
Windows.Forms.Application eredita direttamente da Object mentre
My.Application in realtà non è esattamente il nome di una classe ma risulta essere il nome di una proprietà che fornisce un oggetto di tipo MyApplication che a sua volta eredita da WindowsFormsApplicationBase! Come avrò fatto a non capirlo immediatamente?
 
Ovviamente tutto ciò aprirebbe altri quesiti...
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] chiudere finestre

ho un'aplicazione MDI con una toolbar che apre delle fienstre.
qual'è il modo più semplice, ma soprattutto il più veloce per chiudere le
form aperte all'apertura di una nuova?
grazie a tutti
mauro

Dim myKillForm As Form
For Each myKillForm In Forms
    If (myKillForm.Name <> "frmMain") Then
        Unload myKillForm
    End If
Next myKillForm
la condizione serve per evitare di chiudere tutte le form... Puoi metterne
anche più di una (magari vuoi tenere aperta + di una maschera). Comunque
devi saltare per forza l'MDI o ti si chiude il programma.
CiaoZ
SebaMix
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco Esempi vb5

Salve a tutti
Cerco siti dove posso trovare esempi di programmi in vb5, che gestiscono
database in mdb
Ciao a tutti


Se non l'hai gia' fatto, ti consiglio di guardare bene quello che trovi sul
CD di VB5.
Poi, puoi visitare il Sito Comune di questo newsgroup:
http://members.xoom.com/it_lang_vb
(non c'e' molto per la gestione dei database, ma troverai comunque molto
materiale interessante, ti consiglio di aggiungerlo ai tuoi siti preferiti).
--
Roal Zanazzi
z...@iol.it

Salve a tutti
Cerco siti dove posso trovare esempi di programmi in vb5, che gestiscono
database in mdb
Ciao a tutti

Newsgroup: it.comp.lang.visual-basic
Titolo: Stringhe in un file di testo

Ciao a tutti,
creando un dile txt o dat con dei dati ricavati da dei Database Access posso
dirgli quanta deve essere la lunghezza di ogni mio singolo campo???
Ora:
1234FABIOIMPIEGATO
992012MARCOOPERAIO
Dovrebbe diventare cosi!
1234        FABIO            IMPIEGATO
99202      MARCO        OPERAIO
In modo che vengono tutti allineati correttamente, ho provato con dei cicli
annidati ma risulta troppo lento...
Grazie a tutti!!!
Fabio

 wrote in message
news:9g59q9$nfl$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:9g59q9$nfl$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: DAO - Concatenare AND e OR

Ragazzi abbiate pazienza, ho cercato sui post precedenti ma non ho trovato
risposte.
Ho bisogno di concatenare delle condizioni in una query SQL in questo modo:
"SELECT * FROM Tabella WHERE (A=x OR B=y) AND (C=z OR D=j)"
se metto le parentesi non mi si apre il recorset, se tolgo le parentesi il
risultato non corrisponde a quello che voglio.
Dove sbaglio? Grazie

 Dove sbaglio?
Non hai i dati corrispondenti all'espressione.
Mi pare ovvio che se la sintassi è corretta e non ottieni coò che vuoi ci
devi dire quello che vuoi ottenere!
l'or e l'and funzionano esattamente come in VB.
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

> l'or e l'and funzionano esattamente come in VB.
OK se mi confermi che non è un problema di parentesi questo mi consola
Eevidentemente c'è qualcosa che non quadra da qualche altra parte
verifico ed eventualmente riposto
Grazie e ciao

Cardo Azzurro ha scritto:

"SELECT * FROM Tabella WHERE (A=x OR B=y) AND (C=z OR D=j)"
Può essere tradotto in:
Dove:
A=x Oppure B=y
e anche
C=z Oppure D=j
Senza parentesi può essere tradotto in:
"SELECT * FROM Tabella WHERE A=x OR B=y AND C=z OR D=j"
Dove:
A=x Oppure (B=y e anche C=z) Oppure D=j
il che equivale a:
"SELECT * FROM Tabella WHERE A=x OR (B=y AND C=z) OR D=j"
Scitta così (volutamente sconvolta, nel dubbio che mi è venuto):
"SELECT * FROM Tabella WHERE A=x OR B=y OR C=z OR D=j"
Può essere tradotta in:
Dove:
A=x Oppure B=y Oppure C=z Oppure D=j

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

devo utilizzare un database paradox (estenzione .db) con un' applicazione
VB, il controllo data riconosce il formato, ma quando tento di recuperare i
campi dal dbgrid associato ricevo il seguente messaggio
"sequenza ordinamento non corretta"
lo stesso succede se cerco di aprirlo con access per convertirlo in mdb
qualcuno ha qualche consiglio?
Grazie
Del Rosso Giuseppe.

...


Scusate io non ho mai visto un file paradox.
ma smanettando qua e la co file mdb o dbf peso che sia un problemino di
indici.
Non so se sono previsti i file indice nei paradox, ma non è possibile che il
vb viole anche una file dello stesso nome ma con estenzione (magari CDX) per
leggere il File .db?
Archivio.DB ---> Archivio.CDX
Spero di esservi di aiuto!
ciao.
Andrea
Del Rosso Giuseppe ha scritto nel messaggio

Newsgroup: it.comp.lang.visual-basic
Titolo: Formattare un floppy

Sto facendo un programma con visual basic 5 e vorrei la necessità di
formattare un floppy e
renderlo avviabile cliccando su di un pulsante. Esiste un comando VB per
fare ciò ?
Un grazie a chiunque risponda !!!

...

Cerca nel sito comune mi pare, se non sbaglio, che ci sia un esempio decente
che formatta il floppy... però lo fa aprendo la finestra di format di
windows 9.X
Saluti Lk2

Sul sito comune dovrebbe esserci l'ocx.... (credo..).
Guarda.
ByeZ!
Alkondor


Alkondor ha scritto:

Cosa intendi per sito comune ?

Cosa intendi per sito comune ?
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

Newsgroup: it.comp.lang.visual-basic
Titolo: COME POSSO REINDIRIZZARE LE COORDINATE DEL MOUSE DA CODICE?

VORREI SPOSTARE IL MOUSE TRAMITE COMANDI SOFTWARE.
GRAZIE
FRANCO SCOMPARIN

...


VORREI SPOSTARE IL MOUSE TRAMITE COMANDI SOFTWARE.
Devi usare la funzione API SetCursorPos(), vedi sotto per la descrizione
--
Roal Zanazzi
z...@iol.it
The SetCursorPos function moves the cursor to the specified screen
coordinates. If the new coordinates are not within the screen rectangle set
by the most recent ClipCursor function, Windows automatically adjusts the
coordinates so that the cursor stays within the rectangle.
BOOL SetCursorPos(
    int X, // horizontal position
    int Y  // vertical position
   );
Parameters
X
Specifies the new x-coordinate, in screen coordinates, of the cursor.
Y
Specifies the new y-coordinate, in screen coordinates, of the cursor.
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error
information, call GetLastError.
Remarks
The cursor is a shared resource. A window should move the cursor only when
the cursor is in its client area.
The calling process must have WINSTA_WRITEATTRIBUTES access to the window
station.

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampe in Word

Salve a tutti
Ho una domanda da porvi.
E' possibile mandare su un file di Word una fattura costruita su un RTF in
modo da incolonnare le varie voci della fattura?
Grazie per le risposte
Amedeo

non ho capito se usi Access come database per memorizzare le fatture.....
in caso affermativo, puoi impostare un foglio Word come stampa unione.......
č fattibile, se non che dopo l'utente finale deve aver installato
Word.......cioč, lo obblighi all'acquisto di Office......
good coding!!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Problemino Ocx

Ciao a tutti prima di tutto,
ho dei piccoli problemi con la creazione di un ocx , mi spiego meglio:
ho creato un ocx che dovrebbe simulare una combo box multi colonna
utilizzando ua text box una mshflexgrid ed un command.
Tutto a meraviglia fino a che non ho implementato la  funzionalità che fa
visualizzare la lista degli elementi una volta in alto una volta in basso a
seconda della posizione dell'ocx per fare in modo di visualizzare
interamente la lista ( contorto ehhh :-) ).
Per fare ciò controllo la posizione del mio ocx nel contenitore dello stesso
ma c'è un problema se visualizzo l'ocx in explorer mi dà l'errore :
"Proprietà o metodo non supportati dall'oggetto".
Come posso ovviare a questo problema ?
Un'altra cosina......
Se inserisco il controllo in un frame la lista viene tagliata dal frame è
possibile mettere comunque la lista in primo piano?
Grazie mille e scusate per la spiegazione moolltooo contorta
--
Ciao Maurik
mauro#SPAM#.buccioli#SPAM#@
tiscalinet.it
maurik77#SPAM#@
hotmail.com
Levare #SPAM# per inviare messaggi :-)

 frame è possibile mettere comunque la lista in primo piano?
Non credo. Il frame per definizione taglia ciò che deborda.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO.NET] 2 tabelle e un DataSet...

Mi spiego, ho due semplici tabelle:
tblPersone
    IDPersona            AutoNumber
    Nome Persona     Text
    IDLavoro             Number
tblLavori
    IDLavoro             AutoNumber
    Lavoro                 Text
Creo da codice un DataAdapter e relativo SelectCommand (una semplice query
che relaziona le due tabelle tramite il campo "IDLavoro"), riempio il
DataSet con il metodo Fill e fin qui tutto bene...
Non riesco a creare un UpdateCommand funzionante, ne col wizard tantomeno
instanziando un OleDbCommanbBuilder, neppure con una stringa fatta a manina
in SQL...
Qualcuno sa come fare???
Domani recupero un bel tomo della M$ Press 
ADO.NET
 (in .chm !) e spero di
risolvere, ma questa sera volevo tanto andare a dormire tranquillo!!!
Grazie in anticipo!
Ciaomandi.

in SQL...
Mumble, mumble, la proprieta' CommandText dell' UpdateCommand 
che dice?
-- 
ciao, hal

: >Creo da codice un DataAdapter e relativo SelectCommand (una semplice
query
: >che relaziona le due tabelle tramite il campo "IDLavoro"),
:
: relaziona come? il dataset ottenuto e' aggiornabile?
Il SelectCommand è : SELECT tblPersone.Persona, tblLavori.Lavoro
                                  FROM tblLavori INNER JOIN tblPersone
                                  ON tblLavori.IDLavoro =
tblPersone.IDLavoro
[cut]
: Mumble, mumble, la proprieta' CommandText dell' UpdateCommand
: che dice?
Nulla! Il problema è che non so cosa scrivergli, anche il wizard per
generare un DataAdapter in automatico si rifiuta di creare i Command (per
l'Update, l'Insert e il Delete) se nel Select relaziono le tabelle.
La guida suggerisce di creare un DataAdapter per ogni tabella da "buttare"
nel Dataset, di aggiungere le varie Relations e relativi Constraint...ecc.
ecc.
Parecchio lungo se le tabelle sono molte, ma domani proverò...!!!
Non ho ancora trovato un esempio soddisfacente sull'help, proverò a googlare
per disperazione...
Ciaomandi.
P.S. x hal  :ottimo il reply al tipo delle icn nll lstbx...

 P.S. x hal :ottimo il reply al tipo delle icn nll lstbx...
Non sono proprio riuscito a trattenermi: d'altra parte quando si fanno
ricerche sui post per parole chiave, cosa si troverebbe se tutti scrivessero
in quel modo?
--
ciao, hal
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: maniera + veloce per stampare uno scontrino...

ho un applicativo su un server aziendale che mi registra gli scontrini, a
fine scontrino dovrei lanciare un pgm fatto in visual basic che mi stampa lo
scontrino, la maniera + semplice č di lanciare ogni volta il programma e poi
chiuderlo perň ho paura che il tutto sia troppo lento... posso in qualche
maniera mettere il programma in VB in attesa..? e poi da un evento che
proviene dal server stampare lo scontrino per ridurre i tempi ? Qual'č la
strada migliore.. ?
Ciao e grazie

code di messaggi...
usare un server web....
lasciare uno o piu' socket in ascolto... (argomento-malattia di questi
giorni, eh?)
se spieghi di piu' (per me) e' piu' facile capire la situazione e
rispondere

 ha scritto nel messaggio
news:1127911796.3...@g47g2000cwa.googlegroups.com...


se scegli la via winsock, in questi giorni ci sono stati almento 2
thread di discussione/soluzione/indicazioneperproceder...
E poi, ti sara' giustamente risposto: F1! C'e' unesempio corretto
sull'help (mi dicono :0)

Newsgroup: it.comp.lang.visual-basic
Titolo: MsComm e ModBus

Ciao a tutti,
devo utilizzare il protocollo ModBus per comunicare con un dispositivo
esterno, tramite porta Com...Premetto che utilizzerei (ovviamente)
MsComm e VB 6.0, linguaggio in cui ho già esperienza..Sapete dove
posso trovare l'intero protocollo ModBus e qualche esempio di
implementazione sotto VB?

 ha
scritto:

Il protocollo su:
http://www.modbus.org
Un applicazione in VB6 qui:
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/ModbusRTU.zip&ID=644
--
ciao
  Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: dimensione video

Ciao a tutti,
sto testando,su varie macchine, un programma che ho fatto in  VB6 .Ho
lavorato con il mio monitor a 17 pollici con una risoluzione di 600x800 e ho
fatto in modo che le varie form appaiono al centro dello schermo.Provando il
programma con una macchina dotata di un monitor 15 pollici alla stessa
risoluzione(600x800),le form vengono "spezzate" e se ne vede solo una parte.
Come posso fare per visualizzare le form correttamente su qualunque monitor
e a qualunque risoluzione? A quanto devo settare la mia scheda video per
emulare un 15  pollici con il mio 17 pollici?
Aspettando una  vostra risposta,vi saluto.
Ciao
--
------------------------------------------------
Junior Silvestro Pomenti
Via Ecetra 13
04100 Latina
Sito Web: 
http://space.tin.it/io/jpomenti
Email:    
jus...@tin.it
 
jus...@geocities.com
------------------------------------------------

 ha scritto nel messaggio
news:8eq6sk$t2s$1...@nslave2.tin.it...

Potrebbe essere un problema di dimensione dei caratteri. Hai controllato se
oltre la risoluzione anche questo parametro è identico?
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 ha scritto nel messaggio
news:8eq9ov$1kt$1...@news.planet.it...

Visto che sei stato cosi gentile da rispondermi,puoi spiegarmi da dove posso
controllare la dimensione dei caratteri?
Ciao e grazie


Sempre in impostazioni della schermo, c'è la voce Caratteri Piccoli, Grandi
o personalizzati. Normalmente, se la risoluzione dello schermo è bassa si
tengono impostati i caratteri piccoli. Più la risoluzione si alza, più tutto
diventa piccolo e allora è facile che i tuoi utenti passino a quelli grandi.
Purtroppo, a livello di design delle form, non puoi tenere conto di questo,
se non ridimensionando tutti i controlli ed i font a run-time. Dovresti
farti una routine apposita, che ricavi i seguenti fattori:
fattx = Screen.Height / iHeight    '    per esempio 600
fattY = Screen.Width / iWidth    '    per esempio 800
fattChr = Screen.TwipsPerPixelX / iTwp    '    per esempio 12
dove iHeight, iWidth e ITwp sono i valori di quando hai disegnato le form.
Utilizzerai quindi tali fattori per ridimensionare l'altezza, la larghezza,
il posizionamento ed il font.size delle form e dei controlli inseriti.
Buon lavoro

Newsgroup: it.comp.lang.visual-basic
Titolo: [CONTROLLI] Limiti combobox

Ciao a tutto il NG.
Ho dei problemi con la combo, e ritengo il problema possa essere il
limite di item che posso inserirvi. Sapete se sia possibile? Io
inserisco qualche migliaio di elementi!
Sapete come ovviare a questo problema??
-- 
<><><><><><><><><><><><><><>
<>   Ettore Gabrielli     <>
<> 
etto...@hotmail.com
   <>
<><><><><><><><><><><><><><>

Esiste un limite... ma é superiore ai 32000 elementi... Che te ne fai di
così tanti?
Se l'utente deve sorrere alche solo 100 elementi mi sembra il massimo
dell'accettabilità...
            Ciao
                    Allanon


wrote:

E' un caso particolare per un programma di contabilita'... Ho bisogno
di visualizzare gli eventuali buchi della numerazione. E' successo che
uno sia partito dal Ddt  33997... 
Abbastanza per bloccare il programma...
-- 
<><><><><><><><><><><><><><>
<>   Ettore Gabrielli     <>
<> 
etto...@hotmail.com
   <>
<><><><><><><><><><><><><><>

Non credo di avere capito bene il motivo per cui usi una comboBox e cosa
deve efare il tuo programma... Magari possiamo trovare una soluzione
diversa... Che ne dici di una MSFlexGrid?
            Ciao
                Allanon

diversa... Che ne dici di una MSFlexGrid?
E' un programma di magazzino (entrate uscite), fatturazione etc.
Al lancio di un nuovo documento (fattura, ddt, ricevuta) faccio un
controllo per trovare i buchi nella numerazione e li propongo
all'operatore con i vari intervalli di data validi.
Probabilmente cambiero' la combo, ma e' una scocciatura!!...
Ciao e grazie!
-- 
<><><><><><><><><><><><><><>
<>   Ettore Gabrielli     <>
<> 
etto...@hotmail.com
   <>
<><><><><><><><><><><><><><>

Newsgroup: it.comp.lang.visual-basic
Titolo: [ADO] .provider="testo;" (vi funzia?) per aprire un .cvs

Qualc1 c'è riuscito ad usare direttamente una connessione ADO su un file
piatto .txt o .cvs?
Qualche lume da chi ci ha già perso tempo?
grazie a tutti.
Guz

Qualche lume da chi ci ha già perso tempo?
Bravo, imho sarebbe tempo perso scomodare ado per un banale file di testo.
Penso che ti convenga aprirlo direttamente.
ciao, hal

 Penso che ti convenga aprirlo direttamente.
Pensi che sia "originale" come soluzione?
Se hai contributi sono ben accetti.
Grazie lo stesso, Guz-

Se hai contributi sono ben accetti.
Guz,
non sara' originale, ma e' efficace ed efficiente.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: COME Disabilitare ??

Salve a TUTTI
sapete come fare per disabilitare il tasto destro del mouse(non solo nel
form, ma in tutta l'area del desktop)  e il lettore CD-Rom attraverso
VisualBasic?
grazie









> grazie
Mhhh credo di non aver ben capito la domanda...
potresti GENTILMENTE RIPOSTARLA ANCHE UNA SESTA VOLTA ?
*grin* ;)

SCUSATE ma credevo che non si fosse inviata...

AKUMA wrote:
(snip)
Letteralmente rotfl !
Salutoni
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DISTINCTROW in ADO

ADO (Standard SQL 92 o quello che è) non ammette la DISTINCTROW.
Ok, ma come si può ottenere lo stesso effetto in una singola SQL?
Grazie.



Ma ...Select Distinct.... non funziona?
Ciao

 Ma ...Select Distinct.... non funziona?
Sě, ma ... č un'altra cosa!

 Ok, ma come si può ottenere lo stesso effetto in una singola SQL?
Con GROUP BY
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Non riesco a chiudere il form

Mi serve davvero una mano per chiudere questo form ..... dunque :
Alla partenza del mio form devo chiamare una funzione "invia"
Private Sub Form_Load()
    Me.Visible = True
    Check1.Value = 0
    Check2.Value = 0
    a = SetAsParent(MDIForm1.hwnd, me.hwnd)
    'Resizer.SizeFormToScreen 30
    Call Invia
End Sub
che manda dei messaggi su una seriale e aspetta le risposte. Solo quando ha
ricevuto queste risposte può rimandare di nuovo questi messaggi, per cui non
posso usare dei timer, quindi ho pensato di inserire l'invio di questi
messaggi all'interno di un Do ... Loop e di mettere un checkbox (check1)
invisibile sul form per dirgli quando finire di mandare i messaggi
Private Sub Invia()
    Dim i As Integer
    Do
        DoEvents
        Call Bat(StBat)
        Call Mem(StMem)
    Loop Until Check1.Value = 1
    Check2.Value = 1
End Sub
Questo perchè, nel caso volessi chiudere il form, dovrei aspettare comunque
la risposta a tutti i messaggi inviati. Ho pensato allora di inserire un
secondo checkbox invisibilen (chack2) per sapere quando posso effettivamente
scaricare il form ..... quindi nell'evento queryunload ho inserito un ciclo
Do .... Loop. In tal modo pongo a 1 il check1 per dire alla Sub Invia di non
mandare più messaggi e nello stesso tempo aspetto che "invia" finisca di
ricevere tutte le risposte prima di uscire....
Private Sub form_queryunload(Cancel As Integer, UnloadMode As Integer)
    Set Resizer = Nothing
    MDIForm1.mnuinfostazione.Enabled = True
    Check1.Value = 1
    Do
        DoEvents
    Loop Until Check2.Value = 1
End Sub
ALMENO COSI' PENSAVO ........... (sigh!).
Il risultato è invece che quando premo la "x" pongo il Check1 (ho reso
visibili i Check, quindi vedo quando sono checked) a 1 e poi si blocca tutto
(ovvero rimane nel ciclo Do ... Loop del queryunload)
Avevo esigenza di aspettare a chiudere il form perchè se lo chiudo e nel
frattempo arrivano le risposte dei messaggi ( che generano delle scritture
su delle label del form ) riparte con il form_load e quindi con la chiamata
alla funzione ........ in pratica io chiudo il form ma lui si riapre da
solo.
Insomma un incubo, ho perso tre giorni appresso a questa "fesseria" che
penso sia frutto solo della mia inesperienza.
Ho provato anche a dichiarare una Variabile Globale in modo che nell'evento
load faccio la chiamata invia a condizione che .... ma la fa lo stesso.
Grazie a tutti.

caffè pagato a chi mi risolve questo problema.
la colonna 0 di un mshflexgrid contiene date e dovrei ordinarle. sapete
dirmi gentilmente il modo in cui poterlo fare?
grazie a chi sarà cosi gentile
Danilo