mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Gupta in VB

Mi è stato chiesto un programma di conversione di dati da un formato che


Newsgroup: it.comp.lang.visual-basic
Titolo: Chiave hardware

Esistono delle chiavi hardware per proteggere il proprio
software in maniera decente ed economica?
Ne conoscete? Oppure esistono altri modi intelligenti
per proteggerlo?
Grazie,
Abusdef 

 ha scritto nel messaggio
news:bcedd.15160$1q2....@tornado.fastwebnet.it...


Stephen
Vai a dare anche un occhio a Eutron.
--
Ciao!
Luca Menegotto

Altri sistemi sono protezioni software.
sintetizzo:
1 utilizzi una chiave ricavata a run time dal pc dove gira il sw.
quando il programma gira calcola la chiave( che dipenderà per esempio dal
mac address del pc, dal numero di serie dell'hd ecc. tutte cose reperibili a
programma) e la confronta con una password.
se il programma lavora su un'altro pc la chiave ricavata sarà diversa e la
password non funziona.
hai il vantaggio che non ti costa nulla (le ultime chiavi hw che ho comprato
dalla sio-sistemi per i miei programmi costavano 65000 lire, ora non so).
la chiave sw è più difficilmente superabile se la progetti bene
hai lo svantaggio che devi calcolare pa password del cliente ogni volta che
installi il programma e se il cliente cambia pc devi ricalcolarla.
ciao
paolo99

Newsgroup: it.comp.lang.visual-basic
Titolo: Maledette stringhe

Aiutooooo...
Quando leggo da un file, mi capita che una riga tipo:
Sound Clip - Stardust, Phats & Small, Modjo.mp3
me la divide in:
Sound Clip - Stardust
Phats & Small
Modjo.mp3
Perchč VB intende ", " come vbcrlf!!!!
C'č un'opzione che si puň disabilitare o qualcosa da fare per evitarlo????
Ringrazio tutti i buon samaritani che mi aiuteranno a creare il mio
Mp3Archiver....

 Mp3Archiver....
Bisogna Vedere come carichi il file in un controllo.
Questo Dovrebbe risolvere il tuo problema:
private Sub caricafileintextbox(byRef oggetto as textBox, byVal file As
String)
dim miobuffer$
dim temp$
dim SepTmp$
open file for input as #1
temp$ = chr$(13) + chr$(10)
oggetto.text = ""
do until EOF(1)
    line input #1, septmp$
    miobuffer$ = miobuffer$ + septmp$ + temp$
loop
oggetto.text = miobuffer$
close #1
end sub
private sub command1_click()
    call caricafileintextbox(text1, "C:\Mp3Archive.dat")
end sub
By Utente Win2k

 C'è un'opzione che si può disabilitare o qualcosa da fare per evitarlo????

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Sorgenti dellla Common Language Infrastructure

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/Dndot
net/html/mssharsourcecli.asp
*Tutto su una riga*
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

 *Tutto su una riga*
non oe, solo outlook:
http://www.cheztabor.com/UrlRunAddIn/index.htm
in genere interessanti (c++):
http://www.cheztabor.com/projects.htm
ciao, a.

 
http://www.cheztabor.com/projects.htm
anche quelli che ringrazia in root, p.e.
http://www.sellsbrothers.com/tools/default.aspx

"H.P.L." <u...@vaila.ble> ha scritto nel messaggio
news:Igpo8.28983$pT1.8...@news1.tin.it...
[snip]
"It will build and run on the Microsoft Windows® XP and the FreeBSD
operating systems."
Ho letto bene? :)
Cosa mi è sfuggito?
Ciao

 Cosa mi è sfuggito?
Ho parlato un po' con Bill e l'ho convinto ad effettuare il porting
per FreeBSD ;-)
A parte gli scherzi, era un po' che si sentivano voci sul fatto che il
porting ufficiale M$ di .NET non sarebbe più stato per linux ma per
FreeBSD, a quanto pare non erano solo voci.


 FreeBSD, a quanto pare non erano solo voci.
che implicazioni ci sono secondo te ?
frenare linux ?

 frenare linux ?
Loro dicono che sia un problema di licenza e, in effetti, mi pare
accettabile:
http://www.oreillynet.com/pub/a/dotnet/2001/06/27/dotnet.html


 
http://www.oreillynet.com/pub/a/dotnet/2001/06/27/dotnet.html
si'. dal loro punto di vista e' comunque un bel salto.
ciao, a.

 si'. dal loro punto di vista e' comunque un bel salto.
Sì, decisamente. Speriamo sia solo un primo (di tanti) passi.


 Sė.
Un motivo in pių per passare a FreeBSD :)
Ma loro lo sanno di supportare .NET?
Ciao

 frenare linux ?
Logico combattono il concorrente più forte (almeno numericamente) e
foraggiano il debole (sempre numericamente) per avere un "concorrente"!
Senza offese per BSD.

 Ma loro lo sanno di supportare .NET?
Sul sito ufficiale non se ne parla, ma sul NG se ne era parlato già in
passato.


 Senza offese per BSD.
Ci mancherebbe ;-)


Newsgroup: it.comp.lang.visual-basic
Titolo: grid e colonne

salve,
perche' l'istruzione :
DataGrid1.Col = 0
If DataGrid1.Text <> Null Then
    	esegue codice
End If
mi da' errore?....il codice l'ho inserito nell'evento click della 
griglia,ma se la riga e' vuota, ho un messaggio di errore.

 griglia,ma se la riga e' vuota, ho un messaggio di errore.
 If DataGrid1.Text <> "" Then

>riga e' vuota, ho un messaggio di errore. 
...errore 6160
errore di accesso ai dati
Newsgroup: it.comp.lang.visual-basic
Titolo: Salvare su file... come organizzare?

Ho bisogno di salvare su file una matrice (2+, 5).
Il modo che so io per scrivere su file č
open file for output as #1
for riga = 0 to ubound(matrice(0))
    for colonna = 0 to ubound (matrice(1))
        Print #1, matrice(riga,colonna)
    next
next
il problema č che non č molto "elegante".... insomma crea un file con tutte
le informazioni una sotto l'altra.......
non c'č un modo piů "bello"? io non ne so molto di files......... vedo che
voi parlate tanto di database... usare un database sarebbe troppo complesso
ma... questo metodo proprio non mi piace :-(
grazie!

 non c'č un modo piů "bello"? io non ne so molto di files.........
"bello" e' relativo, dipende a cosa ti serve; se il file deve poi essere
ricaricato in una matrice allora e' meglio mantenerlo il piu' semplice
possibile per non complicare il codice di import... se invece deve essere
visualizzato allora e' un'altro conto, puoi sbizzarrirti con cose del
genere:
Open "c:\export.htm" For Output As #1
Print #1, "<html>"
Print #1, "<head>"
Print #1, "<title>Esportazione matrice</title>"
Print #1, "</head>"
Print #1, "<body>"
Print #1, "<table border=""1"">"
For riga = 0 To UBound(matrice, 1)
    Print #1, Space(4) & "<tr>"
    For colonna = 0 To UBound(matrice, 2)
        Print #1, Space(8) & "<td>" & matrice(riga, colonna) & "</td>"
    Next
    Print #1, Space(4) & "</tr>"
Next
Print #1, "</table>"
Print #1, "</body>"
Print #1, "</html>"
Close #1
Ciao
--
Luca Dormio
luca....@tin.it


Wow fantastico! :-)
Grazie!
Comunque userò il mio metodo, anche perchè il file verrà pure cryptato e NON
dovrà essere leggibile dagli utenti... comunque grazie questo script me lo
tengo se mai mi servisse.......

 tengo se mai mi servisse.......
ma se non deve essere visualizzato dagli utenti puoi usare un file ad
accesso casuale, o no ?
MarioH

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

conoscete un sito dove ci sono esempi di uso direct x sotto vb5?
grazie

...


 >
grazie

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

Salve a tutti
Esiste una Faq del gruppo?
Grazie

>Esiste una Faq del gruppo?
Mi sa che e' andata disperasa nella notte dei tempi....
Ciao.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Vai al NG it.comp.sideralis ! Quando sara' creato...

 
Qual'e' il problema.... rediviviamola   :-)))
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Ciao,
giusto!
By Attilio.
Ettore Maronese ha scritto nel messaggio <01bdacec$70532b40$64c0c0c0@mes>...

Newsgroup: it.comp.lang.visual-basic
Titolo: data report

Salve a tutti,
avendo cominciato ora ad usare  i data report con data environment,
mi sono trovato di fronte ad un problema (probabilmente banale).
Come faccio a visualizzare in un data report solo alcuni dai dati che mi
servono? Ad esempio invece di stamparmi tutte le fatture in archivio, vorrei
che stampasse solo quella che ha il numero indicato da me in input.
Grazie
Ciao

Devi modificare la query a runtime,prima di visualizzare il report,immettendo il
criterio 'where' di sql.
Scusa se sono breve ma non posso dilungarmi.
Andrea Speranza
Riccardo wrote:

--
                         /|\      El Matador di Yew - Europa
                        / | \
                       |\ | /|    Non esiste
                       |\\|//|
                       |\ | /|    un'arma pericolosa,
                       |\ | /|
                       |\ | /|    esistono solo
                       |\ | /|
                       |\ | /|    guerrieri
                       |\ | /|
                       |\ | /|    PERICOLOSI
                       |\ | /|
                   ____|\ | /|____
                  (_______________)
                       (_____)
                       (_____)
                         ***
                          *

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore exe

Salvce a tutti,
vi chiedo aiuto!!!!Ho fatto un programma in VB, ma l'exe in alcuni casi,
quando viene chiuso, da un errore di windows "il programma ha eseguito ...."
che cosa può essere???Datemi una mano??
Grazie
Ubo

 che cosa puň essere???Datemi una mano??

un accesso ad un db chiuso?
Windows? :-)
Ciao,
Moreno
-- 
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: eof e modalità output

Salve a tutti, avrei un problema da risolvere che mi sta facendo passare
qualche nottata insonne.
Per un mio programmino, sto trattando un documento .txt come contenitore di
dati. Per leggerli "nulla questio", ma ho difficoltà a scriverci senza
sovrascrivere i dati già presenti. Esempio la guida di vb mi dice che:
"...Con i file aperti in modalità Output, EOF restituisce sempre True.".
Quindi, come posso scrivere una riga di dati  delimitati da virgole in fondo
al documento pippo.txt senza sovrascrivere le righe precedenti con il
comando write# o put#  (preferirei write#)!?
Grazie per l'attenzione e scusate la prolissità.

comando write# o put#  (preferirei write#)!?
Aprilo For Append.
-- 
hth, hal

 ha scritto nel messaggio
news:9tr7ps$4ecjk$1...@ID-56381.news.dfncis.de...

Giusto, che vuoi fare è l'età!

Giusto, che vuoi fare è l'età!
Come ti capisco :PPP
-- 
ciao, hal


...Senti, scusa se approfitto della tua gentilezza (nonchè della comune età
avanzata), ma sempre in tema di trattamento di stringhe in file txt, ho
quasi terminato tutto il programmino, ma ora mi sorge un dubbio, quando
scrivo i dati (la chiave del record è una data es:"01122001" univoca),
l'istruzione write#(n) mi scrive sull'ultima riga, ma se vi era un record
con la stessa data, ci sarà una duplicazione (ovvio). La domanda è questa,
come fare per cancellare una riga una volta trovata con do while eof #(n)
....  ...... loop e/o sovrascriverla con quella nuova!?
(scusa le banalità, ma ho prestato la mia fida guida VB6 Mic.Press, e sono
incazzato come un caimano xchè non me la restituiscono!)
Ciao a presto

incazzato come un caimano xchè non me la restituiscono!)
E hai ragione!
-- 
ciao, hal

 a lunghezza fissa), puoi sovrascrivere esattamente i byte che ti
interessano.
Purtroppo no, solo la chiave primaria è fissa, i campi centrali variano,
comunque ci studierò sopra!
Ciao e grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Database

Ciao a tutti, qualcuno sa dirmi come posso fare?? A che fare?
Allora , ho un form con dentro una "DBGrid", un controllo "Data" e varie
txtbox e cosě via.
Il mio obiettivo sarebbe il seguente: vorrei introdurre una "listbox" oppure
una "combobox" che faccia sě che se io seleziona esattamente "Fellini" mi
compaiano solamente i film di questo regista!!
FInora ho provato con una "combobox" ma il risultato non l'ho raggiunto.
Infatti una volta introdotto i vari registi, se selezionavo "fellini" non
accade semplicemente niente.
Sbaglio l'evento, il controllo, il metodo o qualcos'altro??
Ciao da Daniele

 ha scritto

dato che parli di dbgrid suppongo tu abbia vb5, e prob con dao.
qui sotto sono popolati due listbox sincronizzati.
hth, pal
Dim SqlRS As Recordset, Sql As String
Sql = "SELECT fullname, firm FROM addresses ORDER BY fullname"
'da te sara' qc come:
'Sql = "SELECT title FROM movies WHERE director = 'fellini' ORDER BY title"
' se invece di 'fellini' hai un testo in un txtbox
' devi ricomporre la stringa con qc tipo:
' ...where director = " & chr(34) & txtDirector & chr(34) & " ORDER by...
' event. invece di = usa like --> f1 per la sintassi
Set SqlRS = MainDB.OpenRecordset(Sql)
SqlRS.MoveLast
If SqlRS.BOF And SqlRS.EOF Then Exit Sub
SqlRS.MoveFirst
For j = 0 To SqlRS.RecordCount - 1
lstFromTo.AddItem SqlRS!fullname
If IsNull(SqlRS!firm) Then
lstFirm.AddItem "*"
Else
lstFirm.AddItem SqlRS!firm
End If
SqlRS.MoveNext
Next

 accade semplicemente niente.
Introdotto i vari registri ? Arabo.
Please, "introdurre" meglio il concetto.

 ha scritto


per fortuna, ogni tanto, non solo io... :)
non
"registri" --> ax bx zx (che poi magari sono solo delle citroen, nulla so io
di registri)
ma
"registi" --> fellini, scorsese, wenders...
con "introdotto" penso si intenda "immesso" in un txtbox o simili :):)
ciao, a.

 "registi" --> fellini, scorsese, wenders...
E l'ho anche riletto !
Sarà che è venerdì.
Meglio che mi metto a riposo.

 Meglio che mi metto a riposo.
forse...
...anche perche' quando l'hai scritto era giovedi'...
:):)

 ...anche perche' quando l'hai scritto era giovedi'...
(...)
Newsgroup: it.comp.lang.visual-basic
Titolo: Barre degli strumenti "dockable"

Ciao a tutti,
Due domande utilissime [IMHO]:
1) Come si possono implementare in un programma VB quelle belle barre degli
strumenti e dei menù di Windows con la righina verticale a sinistra e con
l'utilissima proprietà "dockable"?
Esiste qualche controllo OCX allo scopo?
2) Come implementate la gestione "multi-lingua" del programma?
Ovvero qual'è il modo più efficiente per modificare TUTTI i testi in una
GUI?
Grazie,
The Pivot

 GUI?
Immagazzinando le tutte le stringhe in un file di risorse.
Ciao
Aldo

 Immagazzinando le tutte le stringhe in un file di risorse.
l'ultimo io programmo (visto solo in edicolo) ha in copertina:
vb: gestire i file di risorse.


Sei eccezionale, io non so come fai. :-)
Sei in ascolto sulla porta 53 ?

 Sei in ascolto sulla porta 53 ?
pal.hwnd non divulga :)

 ha scritto nel messaggio
news:937egs$8sk2l$1...@ID-56381.news.dfncis.de...


 ha scritto nel messaggio
news:wOF56.10002$FF1.6...@twister1.tin.it...



No, mi spiace, passo la palla. :-(
Ciao
Aldo

curiosità: cosa è una barra dockable?

 curiosità: cosa è una barra dockable?
Ti daro' una spiegazione da genovese:
credo che derivi da
dock = bacino, banchina, molo
to dock = entrare in porto, attraccare.
Nell' ide di vb, clicca col bottone destro del mouse sul titolo del Project
Explorer: il menu pop up che compare di da due opzioni: Dockable e Hide.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: Musica Midi

Come posso nella maniera piů semplice lanciare con un click di un command
button,
un file midi da sentire?

 
http://www.mentalis.org/apilist/ShellExecute.shtml
guarda l'esempio.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Newsgroup: it.comp.lang.visual-basic
Titolo: Cambiare la stampante predefinita ?

Ciao,
Ho due stamapanti "A" e "B" , in un form ho due command che corrispondono
alle 2 stampanti.
Voglio che al clik del command1 la stampante predefinita di sistema diventi
"A"  e viceversa.
Qualè il codice da inserire nei due command?
Ringrazio chi mi risponderà
Daniele

Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Global Const WM_WININICHANGE = &H1A
Global Const HWND_BROADCAST = &HFFFF
........
    Dim Temp As Integer
    Temp = WriteProfileString("Windows", "Device", <stringa stampante>)
    ' Cause all applications to reload the INI file:
    ret = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, ByVal "windows")
per <stringa stampante> vedi l'impostazione presente in WIN.INI, è composta da nome stampante, driver, porta.
--
Posted from 
serv4.iunet.it
 [192.106.1.16]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.visual-basic
Titolo: errore : "la query deve essere aggiornabile"?

Ciao a tutti ho realizzato in prg in vb6 sp5 su win 2000 pro. Ho provato ad
installarlo su 2 client win 98 ma quando eseguo una non precisata operazione
sulle tabelle ricevo l' error di run-time "la query deve essere
aggiornabile" ! Boh , notare che sulla mia macchina win 2000 pro tutto è OK
e questa mattina l'ho installato su un pc "fresco" con WIN ME e tutto è OK.
Dove può essere l'inghippo secondo Voi ?
Grazie 10000

 ha scritto nel messaggio
news:9gnbs0$675$1...@nreadB.inwind.it...


 ha scritto nel messaggio
news:9gnbs0$675$1...@nreadB.inwind.it...


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

mi sono deciso a scaricare il file ESP0DAMA.zip postato da Lupo sul SC.
Minchia! Un lavoraccio pazzesco....
Voto 10.
PS scusate l'OT ma "dare a cesare quello che è di cesare"...

 PS scusate l'OT ma "dare a cesare quello che č di cesare"...
Grazie, ma 10 non si dŕ a nessuno. Rappresenterebbe la ... perfezione. ;-)

 Grazie, ma 10 non si dŕ a nessuno. Rappresenterebbe la ... perfezione. ;-)
inoltre, fossi nel bravo lupo, la prossima primavera starei molto attento
alle idi di marzo :P
ciao lupone, a.

[*javalab* = 
ja...@labrador.ca
 in
news:bnijo7$10fe15$
1...@ID-51318.news.uni-berlin.de
] ha scritto:

Anche se non mi chiamo Cesare?

 Anche se non mi chiamo Cesare?
allora niente complimenti :)
Newsgroup: it.comp.lang.visual-basic
Titolo: GESTIONE DEL JOYSTICK

Salve a tutti ..
volevo sapere se qualcuno mi poteva dare informazioni su come si possono
leggere gli ingressi per il joystick (la porta a 15 poli) di una qualsiasi
scheda audio,
penso servirą una libreria...
Di solito con il vecchio Basic usavo le istruzioni STRIG ... etc  leggevo
sia i pulsanti che gli spostamenti degli assi...

Scusa, ma hai postato la stessa identica domanda 2 volte in meno di 3/4
ore...
Aspetta almeno che il primo post cali di visibilità (almeno un paio di
giorni) e poi ripeti la domanda magari mettendo come subject [?2]. Per
maggiori info leggi il manifesto di questo NG sul sito comune
www.murialdo.it/it_lang_vb
CiaoZ
SebaMix
Newsgroup: it.comp.lang.visual-basic
Titolo: [VBP] la progressbar nella barra di stato

ho fatto un esempio di come emulare la progressbar nella barra di stato
http://spazioweb.inwind.it/xaero/StatusProgress.zip
spero che possa essere utile a qualcuno
...magari se lo volete mettere sul sito comune...
--
ciao
xAERO

 ha scritto

ho solo lanciato l'exe da dentro lo zip.
molto grazioso.
grazie, a.


--
ciao
xAERO

...magari se lo volete mettere sul sito comune...
già, interessante... perché non lo invii al WM?
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] TrueDBGrid senza DataControl Associato

Salve,
    mi potete dire come associare una True DBGrid ad un risultato di un'SQL
o altro senza un controllo Data Associato ?!?!
Grazie Mille !!
Stracca

 wrote in message
7is9v9$2e9$1...@nslave1.tin.it...


...














 'utilizzo una Lista e non una griglia ma concettualmente č la stessa cosa


Newsgroup: it.comp.lang.visual-basic
Titolo: Dove salvare impostazioni personali?

Ciao a tutti,
Sto sviluppando un'applicazione VB .NET; qual è il posto migliore dove
salvare le impostazioni personali dei miei utenti? Voglio dire, quando un
utente utilizza la mia applicazione, può creare un profilo personale (es.
l'elenco degli ultimi files aperti, impostazioni personali, ecc.). Qual è il
posto migliore dovre salvare queste informazioni? All'inizio pensavo di
salvarle nel registry, nella sezione CURRENT_USER, ma poi mi è venuto il
dubbio che non tutti gli utenti possono avere i permessi di
lettura/scrittura.
Cosa consigliate? Dove posso trovare maggiori informazioni? Una volta avevo
trovato un documento MS che spiegava dove era consigliabile salvare queste
informazioni, dove è possibile ritrovarlo?
Grazie,
Marco

 ha scritto nel messaggio
news:GhVAc.495724$rM4.20...@news4.tin.it...


 > lettura/scrittura.
Nella sezione CURRENT_USER/Software ecc.. l'utente corrente (Tipicamente
USER in XP) ci puň scrivere.
Ciao MArco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Help!!!

does anyone know how to delete part of a string?
for example I start off with a string that = C:\windows\desktop\file.pic and
erase everything all the way up to file.pic?  Please let me know.
Thanks,
Josh

...

Try finding the last '\' of the string (if not present finding ':') there
are two ways:
1) erase the previous part of the string;
2) copy the last part of the string in a new string;
Try to see the Help of your VB, string functions are certainly esplained
well!
Good luck!
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 Oggetto printer e stampanti

Ci deve essere qualcosa che mi sfugge nell'oggetto printer
e nella gestione delle stampanti.
Non me ne ero mai occupato a fondo, ma adesso devo fare una procedura che 
stampa quasi in contemporanea su due diverse stampanti e devo quindi 
chiarirmi le idee.
 
Osservate la seguente sub:
 
Public Sub Cambia_LP()
'DLG_Stampante è un common dialog
On Error GoTo lp_err
frmMain.DLG_Stampante.Flags = cdlPDPrintSetup
frmMain.DLG_Stampante.CancelError = True
frmMain.DLG_Stampante.ShowPrinter
frmMain.LblStampante.Caption = "Stampante predefinita: " & 
Printer.DeviceName
On Error GoTo 0
Exit Sub
lp_err:
If Err.Number <> 32755 Then 'Premuto annulla
     MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure 
Cambia_LP"
End If
Resume Next
End Sub
 
Detta sub cambia la stampante predefinita ed ora osservate la seguente:
 
Public Sub Prova_LP()
Printer.Print "Prova stampante"
Printer.NewPage
Printer.EndDoc
End Sub
 
Questa stampa una stringa.
Però lo fa nella stampante che non è quella predefinita ma bensì quella che 
era predefinita precedentemente.
 
Se chiudo il programma e lo rieseguo senza cambiare stampante, allora la 
stampa avviene sull'ultima stampante predefinita.
 
Cosa c'è che non và?
 
Grazie e saluti.
Sauro 
 
 

RETTIFICA
 
Il problema in realt� si presenta solo con
le stampanti in rete.
 
Con quelle collegate ad un unico PC funziona
tutto bene.
 
Sauro

Newsgroup: it.comp.lang.visual-basic
Titolo: VB DLL per generare immagini per ASP

Salve a tutti,
qualcuno sa indicarmi un articolo o un idea su come poter scrivere una
DLL che debitamente usata da una pagina ASP possa rispondere con un
immagine?
Mi spiego meglio; ipotizziamo una situazione semplice:
ho una dll myDLL con un immagine memorizzata in un oggetto IPicture.
Questa DLL ha un metodo GetImage() che chiamato da una ASP restituisce
l'immagine in binario con un codice che +/- dovrebbe essere:
<%
   Response.buffer = TRUE
   Dim vntStream
   Set oMyObject = Server.CreateObject("myLibrary.myDLL")
   vntStream = oMyObject.GetImage()
   Response.BinaryWrite(vntStream)
   Set oMyObject = Nothing
   Response.End
%>
Il mio problema è come scrivere il metodo GetImage() .... qualcuno ha
un idea?
Grazie a tutti

 ha scritto nel messaggio
news:5150c180.03052...@posting.google.com...


...


...

Non puoi salvare la tua immagine in una bmp sul server e scrivere 
Response.Write("<img src='images/dinamica.bmp'>") ?
Ciao

 ha scritto nel messaggio
news:5150c180.03052...@posting.google.com...


 ha scritto nel messaggio
news:bb747t$67q3t$1...@ID-128475.news.dfncis.de...


 ha scritto nel messaggio
news:5150c180.03052...@posting.google.com...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 copiare file...

Ciao!
è tanto ke nn uso VB6 xke sono passato a .NET... ma mi tocca fare un lavoro 
con VB6...
Dovrei copiare l'eseguibile in esecuzione in un'altra directory che, se nn 
esiste deve essere creata... e con lui altri file di backup ke stanno nella 
sua cartella.
compe posso fare?
ho provato con filecopy e mkdir
ma ottengo sempre deglie errori del tipo ke il percorso nn esiste, anke se 
visualizzandolo col msgbox il percorso è esatto...
ricordo ke c'era una soluzione...
Ciao!! 

 ha scritto nel messaggio
news:TIE4d.376426$5D1.17...@news4.tin.it...


 ha scritto nel messaggio 
news:0hG4d.17496$Ie2....@tornado.fastwebnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: 3D e altro

1. Avrei bisogno di alcuni suggerimenti per utilizzare routine OpenGl e
Direct3D
    per i miei programmi VB
2. Avrei bisogno di un decompilatore per EXE creati con VB (non un
decompilatore assembler
3. Un qualcosa che risolva equazioni
GRAZIE E FELICE 2000

 wrote in message
Nge94.47579$m62.5...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Chiavi sconosciute negli INI

Ho un folder che contiene un certo numero di INI file generati da
una applicazione. Ciascuno di questi contiene diverse sezioni,
fra cui una (nota) in cui le chiavi possono avere nomi imprevedibili.
Devo monitorare in qualche modo i valori associati a queste
chiavi ma la GetPrivateProfileString non puo' restituirti il valore
associato ad una chiave in una data sezione se non gli dici come
si chiama...
Vorrei evitare di scrivere un parser che legge i file INI
sequenzialmente (che funzionerebbe egregiamente). Piuttosto
gradirei scoprire se esiste qualche API capace di svolgere tale
ingrato compito :))
Qualcuno mi puo' aiutare?
Thanks,     Massimo.
PS: devo usare VB5.
--------------------------------------------------------------------
   _     Massimo Pisani                      E-mail: 
m-pi...@ti.com
 _| --   AM Facilitator - Amos Wafer Fab       Phone# +39(863)423456
 \_Ti_}  TI MOS Memory                         Fax#   +39(863)423360
   \(    Texas Instruments Italy

 ingrato compito :))
Sito Comune (Vedi qui sotto) Sezione "Piccole Perle" oppure, OCX in "Progettati per te".
-- 
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: procedura x creare un export in formato csv

vorrei esportare il risultato di una select in un file csv, come faccio ?

> vorrei esportare il risultato di una select in un file csv, come faccio ?
In passato ho organnizzato un' esportazione in CSV.
Allora secondo me (anzi secondo la mia bacata memoria ^_^) devi fare cosě:
Innanzitutto un riga x record
Nella prima riga ci metti i datafield dei campi che esporti separati da ";"
e poi una riga per ogni record (i valori sempre separati da ";").
Es.
Nome;Cognome;Eta
Seba;Mix;21
Pippo;Pluto;15
Caio;Sempronio;35
...
Comunque fai delle prove e poi i file che crei prova ad aprirli con excel.
Ah, per aprire un file e scriverci una riga vedi istruzione Open e Print
Comunque ti conviene aprire un recordset quindi scorrerlo record per record.
CiaoZ
SebaMix

 wrote in message
9tlkuk$lvv$1...@fe2.cs.interbusiness.it...


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

Devo inserire dei dati in una DataGrid o qualcosa di simile, ma invece di
usare una connessione con oggetti di VB vorrei inserire i dati io
manualmente, mi spiego meglio
Ho un form di ricerca e i risultati che ne escono fuori vorrei visualizzarli
in una tabella e i campi all'interno di quest'ultima all'evento onclick mi
dovrebberņ restiuire l'id del record selezionato!!!
Come posso fare????

 dovrebberò restiuire l'id del record selezionato!!!
Per cose di questo tipo conviene usare la mshflexgrid o parenti.
Se proprio ti vuoi fare del male con la datagrid il mio consiglio è quello
di usare un recordset dinamico creato in runtime ad hoc per la tua "matrice"
di dati.
usa
rs.additem per aggiungere colonne
quando hai creato il recordset con le colonne che ti servono usa
rs.addnew per inserire i dati
alla fine basta un semplice
set datagrid.datasource= rs
e sei a posto
quanto l'utente clicca sulla griglia sposta il cursore e ti ritrovi il
recordset puntato automaticamente sul record selezionato, di conseguenza
intercettando l'evento click sulla datagrid ti basterà andare a prelevare i
dati dal recordset per sapere cosa l'utente ha selezionato.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Duplicare un form

Ciao.
Come si può duplicare un form all'interno dello stesso progetto ?
Mi spiego meglio. Ho un progetto VB6 in cui c'è un form (frmMaga) che vorrei
duplicare con un nuovo nome (frmOrdini) per non rifarlo da zero.
Naturalmente mi interessa duplicare sia il layout dei controlli che il
codice.
Ho provato a fare 'Salva con nome' ma quando tento di caricarlo mi dice che
il form è già in uso (la proprietà name).
Ho anche provato a tirarlo su come singolo form in VB6 (senza partire dal
.vbp) ma i controlli tipo MsFlexGrid e Toolbar mi diventano delle
PictureBox. Perchè ?
Grazie per eventuali risposte e buon anno
Lorenzo

Io rinomino momentaneamente il form esistente, carico il nuovo, lo rinomino
e dò al precedente il nome corretto.
Un po' grezzo ma funziona.

Lorenzo ha scritto nel messaggio ...

Rinomini il file nel progetto con il nuovo nome e lo salvi come nuovo file.
Poi ricarichi quello vecchio.
Ciao

 codice.
copia & rinomina il Form; apri il Form nuovo con Blocco Note e modifica
- dove c'è scritto "Begin VB.Form [...]" con il nuovo nome
- dove c'è scritto "Attribute VB_Name [...]" con il nuovo nome
se il Form ha un file omonimo .frx copialo e rinominalo, poi sempre nel
codice del .frm modifica tutti i riferimenti al file .frx
a questo punto non dovresti avere problemi ad aggiungerlo al tuo progetto...
Ciauz
Faber

 ha scritto nel messaggio
news:Ti236.202634$hk4.7...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: velocita di lettura e visualizzazione

Problema:
devo acquisire dei dati da una porta seriale alla velocita di 19200, fin qui
tutto ok.
il problema è che quando visualizzo i dati su una textbox o una label non
vedo
nulla perche i dati variano cosi velocemente che il controllo non riesce e
visualizzarli.
c'è qualche metodo per poter ovviare a cio?
se utilizzo il metodo print e scrivo i dati direttamente sul form non ho
problemi ma
l'impatto visivo è pessimo.
grazie a tutti quelli che potranno darmi una mano.

 riesce e visualizzarli.
E' necessario visualizzarli?
Usa un ListBox...

 Usa un ListBox...
ho provato ma carica stringhe vuote, perchè è un controllo troppo lento.
i dati sono sicuro che li carico perche con debug.print riesco a
visualizzarli nella finestra immediata.
ciao

 a visualizzarli nella finestra immediata.
Dici che il debug.Print č piů veloce?
Ci fai vedere il codice che hai usato per comporre il ListBox (perchč se
"carica stringhe vuote" c'č qualcosa che non va) ?

 finestra immediata.
Mi accodo a Lupo, posta il codice con cui popoli il ListView, e
riparliamone.
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

Newsgroup: it.comp.lang.visual-basic
Titolo: FORM APERTO......

E' possibile conoscere se un form è aperto o meno?

Dim objForm As Form
    For Each objForm In Forms
        msgbox  objForm.name
    Next
Questo ciclo ritorna tutti i form aperti del tuo progetto...
Ciao
oZ

Dipende IMHO da cosa voleva esattamente sapere Alessandro, cioč se il form
e' caricato in memoria o visualizzato.
CiaOZ
SebaMix

 e' caricato in memoria o visualizzato.
Bè, io gli ho dato il ciclo, poi i controlli li fa lui..
Del tipo
Dim objForm As Form
    For Each objForm In Forms
        If objForm.visible them
            msgbox "il form è visible"
        else
            msgbox "il form non è visibile...dove azz è andato"
        endif
    Next
Cmq, se è visibile vuol dire che è caricato....
Può essere che è caricato ma non visibile....
Ciao
oZ

> E' possibile conoscere se un form è aperto o meno?
if not (frmNomeForm is nothing) then MsgBox "Il form frmNomeForm è caricato
!"
Newsgroup: it.comp.lang.visual-basic
Titolo: Soluzione all'errore -2147217887 (80040e21)

L'errore al quale si riferisce l'oggetto č il seguente:
Si sono verificati errori in un'operazione OLE DB compoasta da piů
passaggi. Controllare i singoli valori di stato OLE DB, se
disponibili. Nessuna operazione eseguita.
Io avevo questo problema...su alcuni pc su altri no!
Ho scoperto alla fine (con un ottimo risultato) che installando
vbrun60sp5.exe che puoi trovare all'url:
http://www.microsoft.com/downloads/details.aspx?FamilyID=bf9a24f9-b5c5-48f4-8edd-cdf2d29a79d5&DisplayLang=en
o semplicemente dal sito di Microsoft nella sezione download
scegliendo Visual Basic e mettendo come chiave di ricerca "run time".
Installando il tutto va bene e l'errore non si ripresenta piů!!!
Ancor di piů che gli utenti Windows 2000 consiglio anche di installare
il sp3.
Buon lavoro.
Mider
ICQ 55422008
mid...@msn.it

 il sp3.
Su questo nessun dubbio (quantomeno il SP2)

Solo una curiositą.... che DB usavi?

 Su questo nessun dubbio (quantomeno il SP2)
Ciao... ;))

 Solo una curiosità.... che DB usavi?
Hai ragione scusa..non l'ho detto....Tutto questo usando dei db Ms
Access, con altri non ho ancora provato....appena avrò tempo proverò
con mysql.
Ciao e a presto.
;))

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

...una volta usacchiavo il cristal report.... e ora sono a piedi !
ho VB6 + SP5, ho visto che c'è il datareport
mi date un semplice esempio su come settare e richiamare il report ?
non riesco a capire a come settare il DataMember e DataSource del report
Grazie
roberto 

Dopo dura riflessione, BOB ha scritto :

Il DataMember non ti serve, a meno che tu non utilizzi recordset 
gerarchici e gruppi.
Il Datasource è un qualunque Recordset.
Su MSDN ci sono esempi a volontà, già pronti da copiaincollare.
Ciao
Alberto
-- 
Si è visto di meglio,
ma si è scopato di peggio,
qualche volta a pago
e non erano neanche sempre donne
[Paolo]

Newsgroup: it.comp.lang.visual-basic
Titolo: sposta elemento listView

domandona difficilissima...
allora...
ho una list view,
ho 10 elementi,
se volessi invertire l'ordine di ALCUNI elementi premendo un bottone:
tipo, mettere il 5 al posto del 4....
come posso fare ?
mi sono capito da solo anche questa volta ?
:-)
ciao a tutti e buon lavoro !!!

 come posso fare ?
[SNIP]
In genere le operazioni di spostamento su ListView, Tree ecc... seguono
sempre lo stesso criterio: rimuovere e aggiungere
Nello specifico il metodo ListItems.Add ti consente di controllare il punto
di inserimento tramite il parametro Index
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Puoi subclassare il componente e fare in modo di spostare gli
elementi con il drag & drop o con il bottone come vuoi tu.
Mi pare di aver visto tempo addietro un codice su 
www.mvps.org/vbnet
prova a cercare listview.
Ciao Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellazione parole nella textbox

So che puo' essere una domanda stupida, ma se ho una text box con dentro un
testo molto lungo, come faccio a cancellare determinate parole???
Ciao e grazie

 testo molto lungo, come faccio a cancellare determinate parole???
se usi VB6 potresti usare la funzione Replace
es.:
Dim strTesto As String
strTesto = Text1.Text
strTesto = Replace(strTesto, "DaCancellare", "")
Text1.Text = strTesto
Ciao
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 + AMDK62350 + WIN98

Ho notato che dopo un po di utilizzo il file swap aumenta
paurosam,ente oltre 100mb, la memoria fisica libera tende a 0 kb e il
sistema si rallenta  causando un funzionamento a scatti. Il sintomo
piu evidente e il mouse che ognoi tanto si blocca.
Per sistemare tutto bisogna riavviare.
Questo mi tormenta da circa 5 mesi. Possibbile che succede solo a me ?
Per pieta' aiutatemi. L'unico pezzo che non ho sostituito e' la cpu.
Ho anche reinstallato il win98 da capo.
Ciao e grazie.

Io ho un pc completamente diverso (ma con win98) e mi succede la stessa
cosa; però non solo con vb6 ma anche utilizzando qualsiasi altro programma
(in particolare explorer, se apro e chiudo un po' di volte la memoria
disponibile si dimezza).
Win98 non libera correttamente le risorse, e la memoria disponibile
diminuisce man mano.
Doveva essere disponibile una patch per risolvere il problema; l'ultima
volta che ho guardato non c'era nulla, prova a controllare sul sito
Microsoft.

 wrote in message
3760def9...@news.tin.it...


Io ho risolto con ApkWmem.EXE
E' shareware (10$, fate una ricerca e magari lo trovate).
Compatta a tempi determinati la memoria. E' un problema che affligge Windows
dalla versione 95A.
Ah, dimenticavo... il file di swap conviene fissarlo a manina.
--
GbC

...

Newsgroup: it.comp.lang.visual-basic
Titolo: guide MSDN

qual è il prezzo della guida del visual basic + msdn (quella che sta su 2
cd) ?
MarioH



aspetta... l'edizione VB Professional non contiene i cd MSDN, giusto? quindi
VB Pro è "minore" di VB Enterprise... mmmh... vabbe vabbe li dovrò comprare
a parte i 2 MSDN...
MarioH

 ha scritto nel messaggio
news:997dtd$12kl$1...@ID-70152.news.dfncis.de...



Anche con la professional
Ciao
VB

Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensioni di un programma

Salve a tutti, ho il seguente problema:
Devo creare un programma eseguibile che stia sano sano su un
dischetto da 1,44 MB, che *non installi* nulla su hard disk 
(librerie, componenti, etc.) e che contenga già le librerie 
richieste.
Ora come ora il programma, che consiste di un paio di form,
una decina di sub di i/o su files sequenziali ed una bitmap
da 100k occupa in complessivo un 150 kbytes. Perfetto dico io.
Picche risponde il compilatore, infatti perchè il programma funzioni
devo anche inserire nella stessa directory la dll msvbm50.dll
(modici 1,2 MB); morale: me la faccio a lamiera con lo spazio su
dischetto.
Considerando che il programma potrebbe dovere crescere
un altro pò direi che è un bel casino.
Cosa mi consigliate di fare, compilo con un altro linguaggio?
(qualcuno sa le dimensioni richieste dalle dll del VC++?)
O c'è un modo per mettere una dll "light"del VB 5.0 ?

...
Rinuncia all'impresa.
Forse ce la puoi fare con il Delphi, ma saresti sempre molto tirato.
Ciao.

O c'è un modo per mettere una dll "light"del VB 5.0 ?
No, e cmq a me risulta che la DLL principale sia di 1.7 Mb
Ciao
Federico Emanuele Galli
Sideralis Programs (Visual-Basic and Delphi)
http://www.softitaly.com/sideralis
Le cose importanti sono le più difficili da 
dire perchè le parole le rimpiccioliscono.

(qualcuno sa le dimensioni richieste dalle dll del VC++?)


...


O c'è un modo per mettere una dll "light"del VB 5.0 ?
No
--
Roal Zanazzi
z...@iol.it

richieste.
Fallo in Delphi: io sono fermo alla versione 2, ma dovresti stare
sotto ai 300 Kb.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

...

Si, pero'....
- VB3 e' a 16bit
- non ha tutti quei bei controlli visuali di Windows95
- non e' piu' supportato dal produttore (Microsoft)
- e' Visual Basic ;-)
Se non si considerano gravi queste limitazioni, VB3 potrebbe essere una
soluzione.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: diskfreespace

Usavo la routine diskfreespace per conoscere lo spazio libero su disco,
Ho cambiato il disco con uno da 6 GB e con la FAT a 32 bit
In questo caso la routine da risultati falsi come li da falsi drivespace.
Qualcuno sa come si può ottenere il diskfreespace in questo caso?
grazie molto
--
Tullio Naglieri - Roma
t.nag...@agora.stm.it
Se manca nviare a:
t,
nagl...@lycosmail.com
t.nag...@tiscalinet.it

 wrote in message
7jou6l$sqq$1...@master.pantheon.it...



Da Win95 OSR2 c'e' una nuova funzione API: GetDiskFreeSpaceEx().
Attenzione pero' che se la chiami sotto Win95 _non_ OSR2, da' errore.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Elenco a discesa nelle proprietò

Avete presente quel pulsante che visualizza (Elenco) nella finestra 
Proprietą di una ComboBox, oppure nella finestra Proprietą di una TextBox 
con MultiLine a true?
Volevo sapere se č possibile fare una cosa del genere con uno UserControl, 
senza usare una PropertyPage.
Grazie Carmelo 


Io ho lo stesso tuo problema, ma solo che ho necessità di popolare la combo 
con una matrice di stringhe e nessuno mi ha risposto ( un po' di thread 
sotto...)
Se usi delle costanti enum passandole alla Property Get e Set ecc. , lo puoi 
fare, altrimenti, ti attacchi come me...
Se vuoi un esempio posso postarlo...
Genesio 

 altrimenti, ti attacchi come me...
Questa non l'ho capita!
-- 
Ciao Fede
By Chicco Production
http://bcp.freetools.it

 ha scritto nel messaggio 
news:4922fcbb$0$1080$4faf...@reader2.news.tin.it...

Magari! perchè non ho ben capito cosa vuoi dire
Carmelo 

 ha scritto nel messaggio 
news:49242e37$0$1071$4faf...@reader2.news.tin.it...

No aspettate, forse non ci siamo capiti :
con ENUM posso assegnare dei valori tipo
enum Pippo
    [0 - Antonio]
    [1 - Pasquale]
    [2 - Nicola]
    ecc.
end enum
dim PippoDue as Pippo
 e questa variabile la passo o la leggo da property get o set
Questi valori sono delle costanti dichiarate a design-time e non possono 
essere modificate , nè nel numero nè nel valore stesso ( ovviamente )
Quello che cercavo io era :
dim UnaVariabile() as string
Questa voglio passare alla finestra delle proprietà : si può ? A me pare di 
no...
Saluti
Genesio

 dim UnaVariabile() as string
Vi faccio un esempio
In Generale - Declarations
Enum Prova
    [Zio di Pippo]
    [Padre di Pluto]
    [Nonno di Topolino]
End Enum
' La property Get
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=1,0,0,0
Public Property Get TestENUM() As Prova
    TestENUM = m_TestENUM
End Property
'La property Let
Public Property Let TestENUM(ByVal New_TestENUM As Prova)
    m_TestENUM = New_TestENUM
    PropertyChanged "TestENUM"
End Property
Con il Wizard per aggiungere le proprietà custom TestENUM deve essere 
dichiarata come Byte,
e poi modificare i valori in Get e Let : magicamente se metti l' UserControl 
appena creato in un form e premi F4, apparirà la proprietà TestENUM.
Bye
Genesio 

Pluto
Con Enum non lo posso fare e mi sa che non si può fare.
Comunque grazie lo stesso
Carmelo
Newsgroup: it.comp.lang.visual-basic
Titolo: Recuperare nomi tabelle

Come si recuperano i nomi delle tabelle in un Mdb magari con ADO ? Grazie

 ha scritto
| Come si recuperano i nomi delle tabelle in un Mdb magari con ADO ? Grazie
Oggetti: ADOX.Catalog e ADOX.Table
for each tbl in cat.tables
...
next

Quale riferimeno bisogna inserire per aver a disposizione detti oggetti
(scusate l'inesperienza)
"Jabba The Hutt" <Jabba....@Alderaan.SW> ha scritto nel messaggio
news:k2fp8.36158$pT1.9...@news1.tin.it...


 ha scritto
| Quale riferimeno bisogna inserire per aver a disposizione detti oggetti
Microsoft ActiveX Data Objects 2.x
Microsoft ADO Ext. 2.x for DDL and Security
e forse pure
Microsoft ActiveX Data Objects (Multi-dimensional) 2.x
Vedi tu, non ho tempo di provare.
Ciao.

(scusate l'inesperienza)
Microsoft ADO ext. 2.1 for DLL and security (MSADOX.DLL)
PS:
La risposta va sotto e non sopra al messaggio originale! ;-)
-- 
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com


Ciao Alex,
puoi utilizzare, tra gli altri, il metodo OpenSchema
dell'oggetto connection, specificando come tipo
schema desiderato adSchemaTables.
Dopo aver aperto la connessione nei modi consueti,
puoi popolare un rs contenente le informazioni che
ti interessano, in questo caso i nomi delle tabelle,
nel seguente modo :
Set RsSchema = Connessione.OpenSchema(adSchemaTables)
Poi, per acquisire i nomi delle tabelle, puoi, ad esempio,
codificare una cosa del genere :
Do Until RsSchema.Eof
      Debug.print "Nome Tabella : " & RsSchema!TABLE_NAME
      RsSchema.MoveNext
Loop
Ciao
 Valter

 ha scritto nel messaggio
news:a849t3$vll$1...@newsreader1.mclink.it...

Ringrazio tutti per la collaborazione la dritta di walter mi ha risolto il
problema...grazie Alex

Newsgroup: it.comp.lang.visual-basic
Titolo: tabelle database non ancora disponibili

Ho notato che lanciando un comando SQL da VB che crea una tabella e
successivamente un comando che la usa, spesso la tabella non risulta
disponibile subito.
Qualcuno sa come posso controllare la disponibilita della tabella appena
creata ?
Grazie, anticipatamente.
MSDryRock

 ha scritto nel messaggio
news:RA3t6.51262$yl2.1...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Generazione numeri casuali

Avrei bisogno una mano sulla generazione di numeri casuali in excel (VBA).
Questo xè ho la necessità di generare diverse serie di N numeri casuali
compresi tra due estremi; io utilizzo la formula (ripetuta N volte):
Rand_Line = Int((Lim_Sup - Lim_Inf + 1) * Rnd + Lim_Inf)
Il problema è che la seconda (e le successive) serie di numeri sono
esattamente uguali alla prima...Dovrebbe essere un problema di base
(funzione randomize), ma non so come risolverlo (la guida è particolaremnte
inutile...)
Thks

[*Lillo* = 
lill...@tiscali.it
 in
news:Zxtjb.39818$
Zh.1...@tornado.fastwebnet.it
] ha scritto:

Randomize (Timer) in testa

se poi questa funzione la devi applicare in excel perchè non utilizzare la
funzione propria di excel casuale.tra()?
leggiti bene la guida perchè è una funzione non compresa nell'installazione
standard.

 funzione propria di excel casuale.tra()?
La devo usare in una macro (deve scegliermi una riga a caso tra N), usare
randbetween mi dava lo stesso problema, per quello sono passato alla
funzione esplicita...

> Randomize (Timer) in testa
L'avevo provata anch'io ma non cambia nulla...Probabilmente ho sbagliato
qualcosa più a monte/valle...La parte della macro che genera numeri casuali
è questa:
For I = 1 To Num_Rand
            With Worksheets("Rend")
            Randomize (Timer)
            Rand_Line = Int((Lim_Sup - Lim_Inf + 1) * Rnd + Lim_Inf)
            .Range(.Cells(Rand_Line, 1), .Cells(Rand_Line + Block_Dim - 1,
Num_Index + 1)).Copy
            End With
            With Worksheets("Temp")
            Set Range_Paste = .Range(.Cells(Done, 1), .Cells(Done +
Block_Dim - 1, Num_Index + 1))
            Range_Paste.PasteSpecial (xlPasteValues)
            Done = Done + Block_Dim
            End With
        Next I
Praticamente deve pescare una linea a caso, copiare un blocco di celle della
lunghezza block_dim (in input) e incollare i valori in un altro foglio.
Stranamente, al primo giro mi genera correttamente una serie, ma al secondo
giro crea una serie perfettamente identica alla prima...

 genera numeri casuali è questa:
Non conosco VBA, ma se Timer è uguale il Randomize "start-a" uguale.
Metti la Randomize(Timer) prima del For

 Metti la Randomize(Timer) prima del For
Grazie 1000 x l'aiuto, c'era l'azzeramento di un contatore esterno al for
(che cretino che sono)...

 for
Credo, quindi, che fosse un errore di logica, indipendente dal Rnd/Randomize
 (che cretino che sono)...
Posso permettermi la battuta classica?
Me la permetto: Mai vantarsi. ;-)

 Me la permetto: Mai vantarsi. ;-)
E il bello č che avevo ricontrollato tutto almeno 3 volte...Cmq
randomize(timer) č il default...

 Cmq randomize(timer) č il default...
Ripeto non conosco VBA, ma in VB non č cosě...