mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Apici help

Dim DB As DAO.Database
Set DB = DBEngine.OpenDatabase("c:\DB1.mdb")
s = "select * into TabDest from  c:\DB2.orders"
DB.execute s
funziona corettamente, ma se provo a passare il percorso con il database e 
la tabella in una variabile, cosi:
perc= "c:\DB2.orders"
s = "select * into TabDest from " & perc
DB.execute s
mi da errore nella prposizione from, oppure smanettando ancora: formato 
database non ricnoscuto a seconda di come compongo la stringa.
Ho provato con apici, parentesi quadre... come gliela devo comporre?
Merci
-- 
Greg 

 Ho provato con apici, parentesi quadre... come gliela devo comporre?
Hai provato a scriverla da access per vedere come fare?


Non hai messo l'estensione del DB né le quadre.
s = "select * into TabDest from  [c:\DB2.MDB].orders"
Bye
Raf

 s = "select * into TabDest from  [c:\DB2.MDB].orders"
Le sto provando tutte, pure questa.
E dice formato non riconosciuto :(
-- 
Greg 


I DB sono della stessa versione di Access?
Raf 

Rafunk ha scritto:

Si. Per escludere il dubbio è lo stesso database, copiato e rinominato.
Ma la cosa strana è che ieri sera, almeno col percorso esplicito e non 
dentro una variabile,  andava  e adesso non va piu !
-- 
Greg 

 esplicito e non dentro una variabile,  andava  e adesso non va piu !
Provato  cosi e va:
s = "SELECT * INTO new_tab IN 'H:\Destinazione.mdb' FROM 
H:\File_origine.tab_sorgente"
DB.execute s
Boh, chissà quanto volte avroò provato.
Potente  veramente!!!
Una cosa che la lasciato perplesso è che la query di cui sopra viene 
eseguita da un oggetto DB che è impostato su un TERZO database!
Infatti DB è
set DB = dbenfine.opendatabse ("c:\terzo.mdb")
-- 
Greg 

 set DB = dbenfine.opendatabse ("c:\terzo.mdb")
Sì, alla fine la tua è un po' anomala come situazione, ma non c'è nulla di 
veramente strano.
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: dove trovare "VBscript"...

Ciao ragazzi qualcuno sa indicarmi dove posso trovare  "VBscript"...
--
-------------------------------------------
gvde...@iol.it
TelematicaMente Gianluca

Se intendi una guida, dai un'ochiata sul sito comune...
http://www.murialdo.it/it_lang_vb/
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)


In che senso "dove posso trovarlo"?
VBScript e' un linguaggio di scripting (ossia un linguaggio di
programmazione semplificato).
Se ti interessa la documentazione, sul Sito Comune
(
http://www.murialdo.it/it_lang_vb
), sezione documentazione, trovi quella
scritta da Microsoft.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Pulsante Start

Ciao,
 vorrei, utilizzando la SendKey , simulare da programma la pressione del
pulsante
Start della TaskBar di Win9x.
Qualcuno sa come fare ?? O c'e' qualche altro metodo??

 wrote in message
news:8jhl8j$go9$1...@news.flashnet.it...


 ha scritto nel messaggio
news:J4Z65.315355$VM3.2...@news.infostrada.it...


utilizzi il comando : sendkeys("^{ESC}")
Ciao
Wein

 ha scritto nel messaggio
news:8jhnva$dja$1...@fe2.cs.interbusiness.it...


Dovresti togliere lo stato attivo alla tua applicazione!
O hai aperta un'altra finestra e la selezioni con AppActivate nomefinestra
e poi invii la sequenza di CTRL+ESC
oppure guarda se c'è qualche prop della maschera che te la deseleziona
( togli il setfocus)
Ciao
Wein

 ha scritto nel messaggio
news:8jhrkq$59f$1...@fe1.cs.interbusiness.it...


 Qualcuno sa come fare ?? O c'e' qualche altro metodo??
prova con:
    keybd_event MENU_KEYCODE, 0, 0, 0
    keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
le dichiarazioni sono:
Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const MENU_KEYCODE = 91
Ciao
Faber

 ha scritto nel messaggio
news:%p975.3200$2s6....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Domandina

Ho visto tanti programmi saltare dalla versione 1.0 alla 1.5 poi 2.0
E' possibile tutto ciņ. Si puņ passare di 0.5 in 0.5?
Vorrei delle lucidazioni su tutto quello che riguarda le versioni dei
programmi.

 wrote in message
37cf9754...@news.pisoft.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: stampare con VB6 in NT4

Ciao, ho un problema: ho realizzato un programma col VB6 che stampa delle
etichette con EPSON LX-300, Sotto W95 imposto le dimensioni della pagina
come personalizzate, inserisco le dimensioni  e stampo benissimo le mie
etichette. Da NT4 non esistono le dimensioni personalizzate per questa
stampante, esistono pero' , per esempio, per un'altra stampante a
gettod'inchiostro.
Esiste un'altro modo di stampare per cui posso inviare direttamente delle
singole linee alla stampante invece di aspettare il classico comando di fine
pagina ?
Grazie Mille in anticipo
Gian
$$$
gasn...@hotmail.com
 (rimuovere $$$ dall'indirizzo email)

...


 wrote in message
770qou$cch$2...@usenet46.supernews.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Oltre a 'Msgbox" ... cosa c'e' ???

Vorrei visualizzare sullo schermo delle informazioni durante l'esecuzione di
un programma (per esempio dei messaggi oppure lo stato di avanzamento della
variabile di un ciclo) senza interrompere pero' l'esecuzione.
L'istruzione Msgbox la conosco. L'unico problema e' che dopo aver
visualizzato il messaggio si ferma ed attende la pressione di un tasto.
Cosa posso usare ?
Grazie
Aldo

 wrote in message
baTx5.53121$XZ4.7...@news.infostrada.it...


Oppure potresti inserire una ListBox dove andrai a scrivere le informazioni
che
interessano a te o all'operatore, evidenziando l'ultima riga inserita e
renderdola
sempre visibile.
'scrivo il valore della variabile o la stringa
  ListBox.AddItem "valore d'interesse"
  ListBox.Refresh
'sulla ListBox posso visualizzare al massimo 4 righe
  If ListBox.ListCount > 4 Then
    ListBox.TopIndex = ListBox.ListCount - 2
  End If
'seleziono l'ultima riga inserita.
  ListBox.Selected(ListBox.ListCount - 1) = True
  ListBox.Refresh
Tiziano

 ha scritto


tipo:
' una sub nel frmMain
    frmMsg.show zorder
    dim j as integer
    with frmMsg.label1
        for j = 1 to 10k
            .caption = j : doevents
         next
    end with
non l'ho provato.
ciao, a.


In un form con un pulsante Command1 copia il seguente codice (ricomponendo
ciò che appare spezzato in questa mail, ovviamente):
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal
hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType
As Long) As Long
Private Sub Command1_Click()
    MessageBox 0, "Contenuto messaggio", "Titolo MsgBox", vbSystemModal
End Sub
Puoi anche specificare altri pulsanti ed icone, come per le MsgBox normali.
ALOHA !


Un form...
Newsgroup: it.comp.lang.visual-basic
Titolo: Addomesticare il controllo DATA

     Main_.Data1.Recordset.MoveFirst
oppure a dichiarare un oggetto di tipo RecordSet ed assegnargli
rsRecordSet=Main_.Data1.OpenRecordset
Mi sembra di avere gia' usato questi due metodi tempo addietro... ma non
riesco a trovare i progetti.
	Valentino.

Devi usare il metodo refresh...
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: ftp help

ciao a tutti
è possibile gestire un file mdb posto in remoto
all'interno del mio sito con un programma fatto in vb
in locale?
se si...come devo fare?
Grazie a tutti

 ha scritto nel messaggio
news:Rpn%7.7867$cU4.2...@twister1.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Classi asincrone (si dice così?)

Salve a tutto il NG. Ho la necessità dal mio EXE di istanziare delle
classi in-process (classi a livello EXE e DLL esterne) e out-process
(EXE ActiveX). Nel momento in cui genero l'istanza, per ognuna delle
classi devo eseguire dei controlli, caricare files di testo ecc.. che
portano via qualche secondo. Vorrei riuscire a creare l'istanza di una
classe e, senza attendere che tutto il codice in Class_Initialize
venga eseguito, continuare ad istanziare le altre ed attendere poi il
termine di tutte.
Una soluzione schifosissima è quella di far partire ad ogni
Class_Initialize di ogni classe un timer di 100ms, per lasciar modo al
flusso del codice di uscire dal Class_Initialize e allo scatto
dell'evento Timer_Timer far partire i vari controlli. In questo modo
l'esecuzione del codice in ogni classe diventa indipendente ed alla
fine un evento di ritorno informa il mio EXE che la classe ha
terminato.
C'è un modo un po' più elegante per ottenere lo stesso risultato?
Grazie a tutti.

 Grazie a tutti.
Ciao
Andrea


In .NET sarebbe una sciocchezza (vista la possibilità di creare singole
parti di codice in un thread separato).
Che io sappia in VB l'unica possibilità è quella di creare un EXE ActiveX il
quale è a tutti gli effetti un componente out of process.
(se non sbaglio qualcosa la si può fare anche con le API ma non ho mai
provato).
Penso che più elegante di così ...
Saluti

 provato).
Avrei qualche link, se può servire...
Ingenious Ways to Implement Multiple Threads in Visual Basic 5_0, Part I,
Microsoft Systems Journal
http://www.microsoft.com/msj/0897/multithreading.htm
E' il primo che ho ritrovato.
Poi ci sarebbero questi:
http://www.elitevb.com/content/01,0008,01/
http://www.desaware.com/articles/threadingL3.htm
http://www.desaware.com/articles/Waitingl3.htm
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=26900&lngWId=1
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=24672&lngWId=1
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=14479&lngWId=1
Immagino che cercando sul serio, ne vengano fuori altri :-)
Bye, G.

 ha scritto nel messaggio
news:85433dc5.03010...@posting.google.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Lunghezza di una stringa con Len() [ Lungo]

Salve a tutti.
Sto cercando di risolvere un problema matematico il cui testo č:
Quanti sono i numeri interi positivi n per i quali la potenza n^100 (n alla 
cento) č un numero in base dieci formato da non piů di 50 cifre?
Risposte: A) uno B) infiniti C) Tre D) piů di 3 ma in numero finito E) Due
ho fatto una funzione per controllare:
Function Potenza()
Dim x As Double, n As Double
For x = 0 To 10
n = x ^ 100
MsgBox Len(n) & " " & n
If Len(n) >= 50 Then Exit Function
Next
End Function 
E qui nascono i problemi! n č sempre minore di 50 !!! anche quando supera i 
parametri che ho dato! (n=4 4^100 =  1,606938044259e+60).
Cosa faccio ? ho scoperto che Len() restituisce i byte della variabile (in 
questo caso 8), come faccio a passargli una stringa che rappresenti il numero 
n per intero e non i byte assegnati a n ?
Grazie


Cinquanta cifre?
Mmm... E' logico che, affinche' un numero elevato alla N sia lungo meno di X
cifre, il suo valore deve essere inferiore alla radice N-esima di 10^X.
Ovvero: affinche' un numero elevato alla terza sia inferiore a quattro
cifre, la base del numero deve essere inferiore a (10^4)^(1/3)=46,4 e rotti.
Quindi il tuo massimo numero primo e'
(10^100)^(1/50)=3,qualcosa
Quindi la risposta e' tre.
Ciaotutti,
Asterix


P.S.
Non ho prelevato la formula da un libro, mi sono basato su un paio di
semplici prove con potenze di dieci.
Non saprei dimostrarla su due piedi, cmq e' corretta, puoi verificarla
sperimentalmente :)

 n per intero e non i byte assegnati a n ?
msgbox Len(Format(N, "#"))
Ciao
Enrico

:

Si, la risposta è tre, ma lo sapevo già, avevo verificato con la calcolatrice 
:))))


Grazie mille.

Machi ha scritto:

Purtroppo non e' sufficiente.
Il fatto e' che in una variabile di tipo Double 50 cifre non ci stanno.
-- 
Samuele Battarra
mail server: 
libero.it
, indirizzo: battarsa@(mail server)
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html


prova a fare questo :
n = 4^100
debug.print Format(N, "#")
1606938044258990000000000000000000000000000000000000000000000
debug.print len(Format(N, "#"))
 61
non mi sono messo a controllare che 4^100 sia proprio quanto scritto li...
ma le 61 cifre ci sono tutte...
Ciao
Enrico

 Enrico


 Proprio qui sta' il punto, 4^100 non e' quanto scritto li'.
be'... l'ho detto che non l'avevo controllato!! ;-))
Ciao
Enrico


Il problema qui era di magnitudine, la precisione non era importante :)
Ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: Ottenere un dataset da una matrice. Eì' possibile ?

Ciao a tutti,
1a domanda cosa è l'oggetto di tipo data ???
Immagino che anche un array è un oggetto di tipo data.
Mi serve creare un array di data
Mi spiego meglio: Ho una matrice di 2 righe e 3 colonne,
devo passare ad una funzione un oggetto di tipo data che corrisponde a 
ciascuna riga della matrice.
Mi piacerebbe ottenere una cosa di questo tipo ma non so se si possa 
fare in vb:
es.    Matrice   1 2 3
                  4 5 6
        A(1)=1 2 3
        A(2)=4 5 6
dove A deve essere un oggetto di tipo Data : Quindi può essere un array, 
un recordset, un record etc etc.

 ha scritto nel messaggio
news:e97pmj$2pc$1...@nnrp-beta.newsland.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare un documento pdf

Salve,
Vorrei visualizzare un file PDf , ho visto che adobe porta alcuno ctl.ocx ,
mi potete dare un piccolo aiuto.
--
Fulvio

 mi potete dare un piccolo aiuto.
Se installi l'Acrobat Reader (free), viene installato un OCX che puoi
inserire in un tuo programma. Attenzione perché NON è supportato
dalla Adobe per questo tipo di uso.
Bye, G.

IO volevo avere spiegazioni sull'utilizzo di questo ocx.

Pdf1.src = "<drive><path><NomeDoc>.pdf"
Non funziona con indirizzi remoti (http).
Se vuoi fare qualcosa di umano devi scaricarti l'SDK dal loro sito...
Enjoy :!
-> GbC
http://www.gbcweb.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Rimuovere i popup

Salve!
Nessuno sa come faccio per rimuovere quei fastidiosissimi popup che 
appaiono quando ad esempio scrivi
Pippo = 
passi ad un altro rigo e vb ti dice "Previsto espressione". Mi danno 
talmente ai nervi... c'è una chiave di registry, un comando, un cazzetino 
che gli posso mettere per fargli solo colorare in rosso la riga senza 
darmi il popup?
Grazie
-- 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~ KiavICQ:61810110 ~ KiavikHOO!:Kiavick ~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 darmi il popup?
Dal menů di visual basic, Strumenti - Opzioni poi deselezioni "Controllo
automatico sintassi".

 
GRAZIE GRAZIE GRAZIEEEEEEEEE!!!!!


Newsgroup: it.comp.lang.visual-basic
Titolo: fonts digitali

Non riesco piu' a trovare sui miei hard disks un font che riproduce i
caratteri numerici nell'aspetto dei caratteri digitali delle calcolatrici (o
dei display led tanto per intenderci).
Qualcuno potrebbe darmi un link o inviarmelo se fosse freeware?
Grazie
Enzo Franchini

 wrote


 wrote in message 8omp1f$ib9$1...@nslave1.tin.it...


 wrote


 wrote in message 8onmm4$lg3$1...@fe2.cs.interbusiness.it...



Controlla nelle impostazioni dell'account che indirizzo hai scritto.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 
vinc...@tin.it
come dice giustamente fdp, controlla nelle impostazioni di outlook.
prob ti e' sfuggita una c.
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: Cartelle comuni

Ciao a tutti,
tramite un'applicazione, un eseguibile, esiste il modo di trovare
una cartella comune a tutti pc, sia versione italiana, sia
inglese,ecc. Per esempio: c:\Program Files\... oppure c:\Winnt\...
in modo che facendo partire l'applicazione, trovata la cartella comune
ci metto i miei file.ini per eseguire un'altra applicazione.
Devo usare qualche ActiveX? Purtroppo nn ho idea di come muovermi.
Ogni idea č ben accetta!!! :-)
Spero di essermi spiegato. Grazie in anticipo.
Andrea.

 Ogni idea è ben accetta!!! :-)
Mi pare un'api...
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Bas
ic/Q_10328132.html
hth

Very Good!!! Thank you very much.
Grazie era quello che mi serviva.

 ci metto i miei file.ini per eseguire un'altra applicazione.
L'unica cartella comune a tutti i PC è c:\
Puoi però usare percorsi indicati da variabili di sistema, tipo SystemPath,
ecc...
E questo lo puoi usare sia in runtime (quindi dal tuo app individui la
cartella che ti serve, con Environ), sia in fase di Setup (per cui indichi
al tuo pacchetto che il file .Ini andare in una cartella particolare)
Vedi Environ per qualche dettaglio in più.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Inibire righe

Ciao a tutti.
   In VBA di Excel avrei bisogno di realizzare una macro che nascondesse 8
righe orizzontali dopo lasciata visibile una.  Il tutto ripetuto 150 volte.
Una sorta di questa istruzione che comunque non funziona ( sigh)
'
    Rows("2:7").Select
    Selection.EntireRow.Hidden = True
 
 
                With ActiveCell
                    Range(.Offset(1, 7).Row).Select
                End With
    Selection.EntireRow.Hidden = True
Qui sopra non c'è chiaramente ancora il loop che ripete 150 volte.
Se qualcuno ha delle idee di massima,  una istruzione da studiare... mi
farebbe un mega-favorone.
Grazie e ciao a tutti.
Grazie
Indriano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Questa volta ho capito da solo e per ringraziare per il disturbo scrivo il
codice:
Private Sub Loop300()
Selection.EntireRow.Hidden = True
For x = 1 To 149
With ActiveCell
Range(.Offset(0, 0).Address & ":" & .Offset(8, 0).Address).Select
Selection.EntireRow.Hidden = True
Range(.Offset(10, 0).Address & ":" & .Offset(10, 0).Address).Select
End With
ActiveCell.Clear
Next x
 
End Sub
 
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] problema d'immagine 2

Ciao a tutti.
ho"n" immagini "criptata". creo il form con "n" picturebox e carico tele
immagini,decriptandole in "n" file temporanei.
Premo un pulsante che mi deve caricare delle immagini diverse nelle 
picturebox di prima.
il problema è che non mi fa  riutilizzate i file temporanei di prima xchè 
dice che sono già in uso...
allora  furbamente cosa faccio?  ;)
picturebox2.image= nothing
così la picturebox non mi tiene + "occupato" il file temporaneo...e INVECE
NO!!! non me lo fa usare sempre x lo stesso motivo...xchè?!?
bho!!!!

 picturebox2.image= nothing
Quando hai di questi dubbi l'uso di Reflector potrebbe esserti utile.
Ciao
--
Reporting tool: 
http://www.neodatatype.net

 ha scritto nel messaggio 
news:KDpEe.920$2U1....@news3.tin.it...


 picturebox1.image=system.drawing.bitmap.fromfile(nome_file_temp)
Però non hai messo le istruzioni di fileopen, fileput, fileclose.
Non è che usi i vecchi comandi di vb6? (comandi che non dovrebbero mai
essere inseriti in un programma 
VB.NET
).
E ti sei ricordato di assegnare un numero diverso? (freefile) ?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:dbvbjq$v5n$1...@news.newsland.it...


 picturebox1.image=system.drawing.bitmap.fromfile(nome_file_temp)
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
M_PercorsoNomeFile = OpenFileDialog1.FileName
Dim TempImm As Image
TempImm = New Bitmap(M_PercorsoNomeFile)
M_Immagine = New Bitmap(TempImm)
TempImm.Dispose()
ho avuto lo stesso problema cosě funziona
ciao 

GRANDE! funziona tutto perfettamente, erano 2 gg che impazzivo!!
grazie 1000
ciao ciao
"Liones" <nonme...@mai.piu> ha scritto nel messaggio 
news:dc3duu$jru$1...@domitilla.aioe.org...


Parlato troppo presto! :)
ho un problema analogo...
una volta caricata la prima immagine funziona tutto...se vado a caricare la 
seconda, mi fa sempre vedere la prima!
allora ho provato a fare:
If Not (PictureBox2 Is Nothing) Then
PictureBox2.Image = Nothing
PictureBox2.Dispose()
End If
ma non funziona...mi mette solo l'immagine a nothing, Quando assegno la 
seconda immagine, faccio anche
picturebox2.refresh()
ma niente....
"Liones" <nonme...@mai.piu> ha scritto nel messaggio 
news:dc3duu$jru$1...@domitilla.aioe.org...


 picturebox2.refresh()
non mi č molto chiaro il problema ma cosě ho il file che apro "libero", 
posso rinominarlo e viene visualizzato la giusta immagine
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
 M_PercorsoNomeFile = OpenFileDialog1.FileName
 Dim TempImm As Image
 TempImm = New Bitmap(M_PercorsoNomeFile)
 Me.PictureBox1.Image = New Bitmap(TempImm)
 TempImm.Dispose()
End If
ciao 

quello ok, il problema era un altro, cmq ho risolto...il tuo aiuto č stato 
preziosissimo
grazie ancora
ciao ciao
"Liones" <nonme...@mai.piu> ha scritto nel messaggio 
news:dc5t8f$3u1$1...@domitilla.aioe.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: quale dei due codici è più veloce durante l'esecuzione?

Ho una curiosità. quale dei due codici è più veloce ad eseguirsi?
1.
If Dir(App.Path & "\db2.bak") <> "" Then
   Kill App.Path & "\db2.bak"
end If
2.
a= app.path & "\db2.bak"
if dir(a)<>"" then
   kill a
end if
E nel caso in cui lo debba eseguire più volte (senza naturalmente ogni volta
riassegnare un valore ad "a")?

 ha scritto nel messaggio
news:I1Sh8.2847$%d1.7...@twister2.libero.it...


 if dir(a)<>"" then
Se non sbaglio, questa è stata segnalata come la miglior soluzione:
    If Len(Dir$(App.Path & "\db2.bak")) > 0 Then...
Anzichè un confronto fra stringhe, viene eseguito un confronto fra
valori numerici, e la Len dovrebbe essere molto veloce perché
controlla semplicemente i puntatori della stringa (credo, non ho mai
provato a disassemblarlo :-) ).
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

 end if
E che ne dite di questa?
On Error Resume Next
    Kill App.Path & "\db2.bak"
On Error Goto 0
Ma per un solo file non vedo il problema.
Ciao

 mezzanotte, comprese le frazioni di secondo)...
Prova anche l'API GetTickCount() che misura in millisecondi:
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" ()
As Long
Sub Test1()
    Dim lngStart As Long
    lngStart = GetTickCount()
    If Dir(App.Path & "\db2.bak") <> "" Then
        Kill App.Path & "\db2.bak"
    end If
    Debug.Print "Tempo di esecuzione: " & GetTickCount() - lngStart & "
millisecondi."
End Sub
Sub Test2()
    Dim lngStart As Long
    lngStart = GetTickCount()
    a = app.path & "\db2.bak"
    if dir(a)<>"" then
        kill a
    end if
    Debug.Print "Tempo di esecuzione: " & GetTickCount() - lngStart & "
millisecondi."
End Sub
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

direi che questa è la più veloce :-))
ma se devi controllare la presenza del file
1 - assegna ad una variabile
2 - usa il len >0 sulla variabile
ciao


 2 - usa il len >0 sulla variabile
Ma se lo devi cancellare... a cosa serve controllare se esiste???
:)
Ciao

giusto.
ma mia era una cosa in generale, se x esempio anzichč cancellarlo ci
devi fare altro.
e cmq per cambiare l'attributo d isola lettura devi verificare che
esista. (anceh se l'api x cambiare gli attrib non si inchioda e quindi
te ne puoi sbattere)
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] OLEDB, ODBC, SISTEMI PROPRIETARI...??

Attualmente il database che utililizzo è SQL2000 Pervasive.
I programmi che lo utilizzano, sono stati creati con vb3 e sono MOLTO lenti
nella manipolazione dei dati, penso a causa del sistema di accesso risalente
al 1995 (i prg sono stati creati a partire da quella data, utilizzando
sempre lo stesso datacontrol creato per la versione 6.15 dell'ex Btrive ora
SQL2000).
Dovendo riprogettare tutto o creare prg nuovi, il metodo che mi sembra
migliore come possibilità di sviluppi futuri e velocità di accesso è OLEDB
tramite il suo provider dedicato PervasiveOLEDB. (Si potrebbe anche
utilizzare OLEDB per ODBC, ma non mi sembra l'ideale)
Il programmatore che ha creato i programmi, dopo varie insistenza, si è
deciso a passare da vb3 a vb6, ma non riesco a convincerlo ad utilizzare
l'accesso tramite ADO/OLEDB, perchè insiste nel voler utilizzare tool
dedicati, come il DATACONTROL for Btrive (che penso sia creato per la
versione precedente 6.15).
Ho iniziato solo adesso ad interessarmi di programmazione
database e per ora sono  molto "sulla teoria".
Mi interessava conoscere vari pareri su cosa è meglio utilizzare in VB6 allo
stato attuale, per accedere al db (non pretendo la previsione per il
futuro!) considerando la possibilità che il sistema scelto non sia chiuso in
se stesso (ossia "domani non esisterà più" o "è un sistema che va di moda
adesso" !) e, altrettanto importante, il tutto non sia a discapito delle
prestazioni e sicurezza.
Sarò molto grato a chi mi vorrà aiutare in questa scelta per me molto
complicata.
Luca.
PS: Spero di non chiedere troppo!!! :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Coda di stampa

Qualcuno sa come posso sapere se vi sono file in coda di stampa?
Grazie molte...


Sul Sito Comune c'e' almeno un esempio di come controllare lo spooler di
stampa.
Dagli un'occhiata, li c'e' la tua soluzione.
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Copiare un File su LPT1 con Windows 2000

Ciao
Per inviare un File su LPT1 con Windows 98 (e.... funzionava),
usavo:
Call Shell("c:\
command.com
 /c copy c:\Eltron.txt LPT1:")
Con Windows 2000, dà l'errore: "Impossibile trovare il File, errore di
run time 53".
A chi mi saprà dare una mano..... Grazie 1000!

Prova
Call Shell("type file.txt > ltp1")
L'ho sparata quindi non so se va
Ciao
Giuseppe Di Natale
gdin...@tin.it


Grazie Giuseppe, ho provato ma il risultato è lo stesso!
"File non trovato"
Ciao

 ha scritto nel messaggio
news:jAuK7.135959$sq5.6...@news.infostrada.it...


 run time 53".
Ho "pocciato"!
Il 
command.com
 ha un'altro path.
Call Shell("c:\WINNT\system32\
command.com
 /c copy c:\Eltron.txt LPT1:")
Ciao

 ha scritto

e se, con gli nt, usi cmd ?

...

Il modo corretto per inviare un file di testo alla stampante (funziona
anche con le stampanti di rete) con Win2000 e quello di usare il
comando dos LPR
ciao RS65
Newsgroup: it.comp.lang.visual-basic
Titolo: [BUG?] Optional nelle property

Definite una classe Multiuse (provato in ActiveX dll e exe, non so in exe
standard)
Fategli una Property Get Pippo(Optional Pluto as Variant)
Compilate.
Tutto bene.
Fategli una Property Get Pippo(Optional Pluto as Variant = Null|Empty)
' Un param Optional dovrebbe sempre avere un default!
Debuggatela.
Tutto Bene.
Tentate di compilare.
Errore: Variable uses a type not supported in Visual Basic (Error 458)
Potrebbe avere un senso dal punto di vista accademico, ma di logica
funzionale ne ha poca.
Ciao

 funzionale ne ha poca.
Si verifica combinando 3 cose: Property impostata come Public, Parametro
Variant e valori di default.
Il problema in se' pero' sono i "valori" di default; ho usato le virgolette
proprio perche' piu' che valori sono parole chiave di VB; andando a
sbirciare la struttura del variant su MSDN, si vede che "Empty" e "Null"
sono in realta' due bit settabili nella prima sottostruttura 'vt' della
struttura, mentre in caso di "parametro mancante" viene usato il bit
VT_ERROR, con valore annesso DISP_E_PARAMNOTFOUND... insomma i soliti
pasticci del variant ;-), fatto sta che probabilmente il compilatore si
offende quando deve includere le keyword (funzioni che settano i bit?) nella
Type Library (infatti con property privata funziona).
Tra l'altro i parametri Variant optional non necessitano di default perche'
dispongono della funzione IsMissing, se dai un'occhiata all'help noterai una
nota sibillina che accenna proprio ai flag di cui sopra:
"La funzione IsMissing non può essere utilizzata per tipi di dati semplici
quali Integer o Double poiché, a differenza dei tipi di dati Variant, per
tali tipi di dati non è disponibile un bit per il flag "mancante"."
IMHO il bug e' che non dovrebbe compilare nemmeno in debug...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: [CR8] omissione colonne in fase di stampa

Ciao a tutti, ho la necessità di stampare degli elenchi tramite crystal
report, e fin qui non ci sono problemi.
Il problema sorge quando voglio far in modo che l'utente, tramite un form di
scelta, non voglia stampare alcuni campi del report.
Cerco di spiegarmi meglio: stampo un elenco di un'anagrafica, nome cognome
data di nascita, ecc.
l'utente da un form seleziona solo i campi che vuole stampare.
qualcuno di voi sa mica se si può fare, ho cercato sul manuale di cr8 e non
dice nulla e non vorrei che forse non si possa fare.
grazie molto
ciao

 ha scritto nel messaggio
news:IM7K6.9988$oa2.2...@news6.giganews.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6, variabile "veramente" globale

Ho un Project Group composto da n progetti dove n-1 sono DLL e uno è
l'eseguibile vero e proprio dell'applicazione. Il progetto principale
referenzia gli altri progetti. Ho necessità di creare una variabile o
meglio una classe che sia visibile da tutti i progetti sia la
variabile che il valore, ho provato ad inserirla in un modulo con
tutte costanti global ma essendo inglobato in più progetti è visibile
in tutti ma il valore cambia. Come posso definire questa
variabile/classe?
Ciao
-- 
Fritz
Togli *ERASE* per rispondere in e-mail.

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

Ah, poi ovviamente c'è sempre la possibilità di salvare su file o DB il 
valore.. ..ma non vogliamo essere così drastici, vero?
Ciao,
    Diego 


No, mi sembra esagerato per tenere traccia dell'utente e del nome
della macchina.


due programmi.
Questo potrebbe essere utile per altre cose, proverò ancora magari non
mi serve tutta sta roba ma il programma non l'ho fatto io e non ho le
idee molto chiare sul suo funzionamento.



Ah, beh, se i dati da condividere son questi si può essere quasi d'accordo, 
pensando a una VARIABILE da condividere io mi immaginavo che il valore 
VARIASSE durante l'uso del programma..
Comunque per il nome della macchina basta richiamare l'apposita API quando 
serve..
Ciao,
    Diego 

serve..
Esiste un'api? Io ho una funzioncina che se lo va a leggere dal
registry ma la volevo tener via in una varibile per non rallentare
troppo l'esecuzione del programma (anche se probabilmente è
inpercettibile).


 ha scritto nel messaggio 
news:catqa2psmqu82fl18...@4ax.com...

Direttamente dall'API text viewier:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" 
(ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias 
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
e poi puoi farti una funzione tipo questa:
Private Function NomeComputer() As String
    Dim Temp As String * 256, Ret As Long, LenStr as Long
    Temp = String(256, 0)
    LenStr = Len(Temp)
    Ret = GetComputerName(Temp, LenStr)
    If Ret <> 0 Then
        NomeComputer = Left(Temp, InStr(Temp, Chr(0)) - 1)
    End If
End Function
Ciao,
    Diego 

Spiego meglio quello che devo fare. Ho un procedura che chiama una
Store che si occupa di scrivere una riga in una tabella di LOG e in
questa tabella oltre al messaggio e al tipo c'è posto anche per
mettere il nome della macchina su cui sta girando e 2 campi per
utenti. La procedura di per se non è un problema, la vedo ovunque il
problema è la connessione al DB che viene passata per parametro e le 2
variabili che volevo aggiungere io con utente e macchina che
servirebbero appunto globali, probabilmente però la connessione al DB
viene passata perchè non è possibile fare quello che voglio fare io.
Se le definissi statiche?

Newsgroup: it.comp.lang.visual-basic
Titolo: VisualBasic Siti

Ciao a tutti,
Sono un utente VB alle prime armi.
Ho trovato tanti siti VB in inglese ma nessuno in Italiano.
Sicuramente non ho fatto una ricerca attenta, non posso credere che
non esistano.
Sareste così gentili da indicarmeli voi ?
Vi ringrazio in anticipo
CIAO 
                            Cicco                              
 
 
ci...@mail.asianet.it

Sareste così gentili da indicarmeli voi ?
http://www.tin.it/sbdi
http://www.zuzzurello.com/computer/ferrux
http://w3.penteres.it/~never/
_______________________________________________
Gianluca Bonelli
gbon...@tin.it
 (per rispondermi togli XXX)
PGP key and ICQ # availables on
http://www.geocities.com/CollegePark/Union/3170
_______________________________________________

Newsgroup: it.comp.lang.visual-basic
Titolo: R: [?] - Windows Installer Cosa è?

 genere . Che faccio ora?

 Comunque potresti usare l'Inno Setup funziona bene ed è gratis.


 ha scritto


 wrote in message 383f8...@news.megasys.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Mouse API calls for movement and change of pointer

I have for a long time wanted to create a little app that sort of changes
the mousepointer/cursor into a car-like thingy. What it's all about is that
when you move the mouse to the left, the cursor will begin to point left,
after some steps of movement it points directly to the left. This is the
case for all directions. If the mouse is situated pointing straight to the
left, and the mouse is moved straight to the right, the cursor will change
gradually - as movement continue - and will - like you'd turn round a car -
eventually point straight to the right.
The first try on this project was done in VC++, but it was far too difficult
to program, even though many of the same API calls are used. I was very mych
helped here, but there were bugs in the code, and I was unnable to correct
it due to bad VC++ skills. Now, I'm into VB, and has started the project
again.
Bottom line: What API calls are necessary to perform these steps, and how do
i get the differences in mouse-positions (x,y) when using a timer? is there
an API-call for mousemove? how do i use it?
regards
di...@online.no

 wrote in message
JotI3.929$ZF4....@news1.online.no...


Newsgroup: it.comp.lang.visual-basic
Titolo: [semi OT] utilizzo udt con asp

Ho un problemone:
ho creato con VisualBasic 6 SP4 una libreria sul server (NT 4 con IIS) che
restituisce un tipo di dati da me definito(UDT).
Ho fatto una pagina ASP che richiama quella libreria ma non mi restituisce
niente: qualcuno sa dirmi cosa devo fare per piacere?
Questo e' il codice della pagina ASP:
...
Dim obj
dim udt
set obj=server.CreateObject("NomeLibreria.NomeClasse")
udt=obj.Metodo(Parametro)
Response.Write(udt.Proprietą)
...
E questo č l'errore generato alla riga del Response:
Microsoft VBScript runtime error '800a01a8'
Object required

 Object required
Niente udt con asp ! :-(
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: Importare .txt in Access tramite ADO (VB6)

Mi trovo nella situazione di dover importare ingenti quantità di dati da
file .txt a un database Access. Questo deve essere fatto da un'applicazione
VB, senza utilizzare Access, che non viene distribuito con l'applicazione.
I file sono a campi di lunghezza fissa.
La tecnologia per connettermi al DB è ODBC. Utilizzo una sorgente dati.
Il codice utilizza ADO.
Utilizzando il metodo addNew vado decisamente molto lento.
Ottengo dei miglioramenti creando query del tipo "INSERT INTO ..." e
eseguendole con un ADODB.command ( le prestazione migliorano di quasi il
100%).
Purtroppo vado ancora lento. ( circa 1 min per Mb)
Ho notato che l'Access è molto più veloce a importare i file... Come fa?
Utilizza TransferText in MSText40.dll ? Come si utilizza questa funzione ?
Come altro potrei fare ?
Passando al C++ di quanto migliorerei le prestazioni ?
Esiste qualche particolare proprieta della tabella o della connessione che
potrebbero migliorare le prestazioni ?
Grazie per la risposta.
Luca Vix Visconti

 wrote in message
8frnb3$ndu$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - Riferirsi ad una istanza aperta di una form

Ciao a tutti. Scusate se la domanda è da niubbo ma non riesco a venirne a
capo.
Dunque ho diverse form MDI child che vengono aperte dal MDI Parent con un
codice tipo:
Public Function FormCount(ByVal frmname As String) As Long
    Dim frm As Form
    For Each frm In Forms
        If StrComp(frm.Name, frmname, vbTextCompare) = 0 Then
            FormCount = FormCount + 1
        End If
    Next frm
' (Qs. codice è tratto dai "Trucchi" di Balena)
End Function
Private Sub btnApriDocumenti_Click()
    Dim frmD As frmDocumenti
    Set frmD = New frmDocumenti
    If Not FormCount(frmDocumenti.Name) > 0 Then
        ' == > imposto le proprietà della form da aprire
        frmD.Show
    End If
    Set frmD = Nothing
End Sub
Questo codice controlla che non sia già aperta un'istanza della stessa form,
perché ho bisogno di lavorare con una sola istanza per volta. Differenti
form possono stare contemporaneamente aperte, ma non si può aprire due
istanze contemporanee della stessa form.
Nella form Documenti ho una combo Articoli, e quando io salvo i dati diciamo
in frmArticoli, vorrei fare un requery della combo Articoli nella form
frmDocumenti, se questa è aperta.
Con la funzione FormCount di cui sopra riesco a verificare se è aperta una
istanza della frmDocumenti, ma dopo non riesco a riferirmi a questa istanza.
in effetti non riesco a effettuare il requery su questa form, ma me ne viene
aperta un'altra istanza. Il codice che sto tentando dentro frmArticoli è il
seguente:
Private Sub btnSave_Click()
    ' [... codice per salvare i dati ...]
    ' === Non Funziona, apre una seconda istanza ===
    If FormCount(frmDocumenti.Name) > 0 Then ' se è aperta la form Documenti
        ' chiama una routine pubblica della form Documenti, che ricarica l'elenco
        ' della combobox specificata nell'argomento
        Call frmDocumenti.CaricaElenco(frmDocumenti.cboArticoli)
    End If
    ' ============= Non Funziona ==============
End Sub
Questo codice verifica effettivamente che la form Documenti è aperta, ma al
momento di chiamare un suo oggetto (la routine pubblica) ne avvia una
seconda istanza.
Io vorrei eseguire la routine pubblica dell'istanza aperta, ma evidentemente
non riesco a farci riferimento.
Ho tentato con Dim frm As frmDocumenti e poi Call frm.CaricaElenco ma
ottengo sempre l'apertura della seconda istanza. Ho tentato anche
effettuando un ciclo
    Dim frm As Form
    For Each frm In Forms
        If frm.Name = "frmDocumenti" Then Call frm.CaricaElenco.... ecc.
ma anche così si apre la seconda istanza.
Non riesco proprio ad afferrare cosa mi sfugge, e vorrei l'aiuto di chiunque
mi possa spiegare come posso fare.
Grazie a tutti per l'attenzione.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Perdonate l'insistenza, ma non avendo ricevuto risposte mi permetto di
riproporre il quesito di ieri, come previsto dal regolamento
' ==== Problema precedentemente postato ====










' ==== Fine ====
Confido ancora nella competenza e nella disponibilità di chi vorrà
rispondermi.


Risolto. Grazie a tutti.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Nick e Cyborg.

 
http://www.brunching.com/generator-datearchive.html
azz, tu mi saturi i preferiti... ;-)

 Da: 
http://www.brunching.com/cyborger.html
Hai provato il tuo nome proprio? Nulla di più azzeccato! ;-)

E il cognome di javalab?

Ok, ora le accumulo e faccio un post unico.
E la razza del cane del sopra accennato?

Azzeccati:
GbC (vedi m...3d)
Borrelli
wodka4u
Ok, ok, mi fermo.

 ha scritto nel messaggio
news:xutz9.13463$Zn2.3...@twister1.libero.it...

ROTFL! Concordo :)))
Appropostio, hai visto il generatore di testi di Alanis Morissette?
E' eccezionale :)
http://www.brunching.com/alanislyrics.html
Provalo con le seguenti impostazioni:
-----
One thing you really hate:
- Microsoft
Six plural nouns that have something to do with that thing:
- MSDN broken links
- vb projects
- office products
- rdo connections
- dao queries
- ado errors
Your favorite color:
- white
Your favorite poet:
- Edward Norton
The name of an ex-boyfriend or ex-girlfriend:
- Bill
-----
STRA-ROTFL
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 Un Paperino in ca##eggio domenicale.
Lokar.i.hate.mondays

Newsgroup: it.comp.lang.visual-basic
Titolo: ListBox a Colori ?

Ciao a tutti,
avrei il problemino di evidenziare dei valori presenti in una ListBox
possibilmente con un colore diverso (x riga) o, più semplicemente, con un
carattere diverso (magari in Grassetto).
Secondo voi è possibile realizzare tutto ciò via API ???
Ho provato a cercare un po' per la rete ma non ho trovato nulla di
interesante.
Grazie in anticipo per la collaborazione.
<LuigI>

 wrote in message
news:a4t4lk$q0d$1...@galileo.it.ip-plus.net...

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

L'unica cosa che ho trovato sono dei controlli di 3° parti a pagamento che
però hanno 2 difetti:
1) Costo non adeguato alla realizzazione (offrono un po' poco per $29 di
media)
2) Dovendo usare anche MsAccess x realizzare lo stesso tipo di effetto
preferirei le API così da non avere problemi nella distribuzione dei DB.
<LuigI>

 Secondo voi č possibile realizzare tutto ciň via API ???


 <LuigI>


 (x riga)
Con la listbox non puoi ma con la listwiev si. Ecco qui un esempio (se l'URL
va a capo rimettilo su una riga sola):
http://groups.google.it/groups?hl=it&selm=8remoj%24msn%241%40nslave1.tin.it
Ciao
*Roby*

 Trovato in progettino che a me risolve praticamente tutto.
Un progettino che vi insegni a scrivere DOPO il quoting, no eh?
Antonio

 Antonio
Beh, allora ce ne andrebbe uno anche per i troppo polemici e intolleranti.
*Cupido*

Per non sbagliare ho tolto il Quoting :)
Comunque ringrazio tutti x l'interessamento e vado a valutare le soluzioni
proposte.
In effetti avevo pensato anche io al ListView anche se il listbox sarebbe
piu' comodo (specialmete in Access) in quanto dovrei gestire l'output di una
Query parametrizzata.
Grazie ancora.
<LuigI>

Qui: 
http://www.vbaccelerator.com/
 (sezione ComCtl32) trovi degli ottimi
controlli con esempi, estremamente versatili (secondo me) free.
Paolo

 ha scritto nel messaggio
news:Qhqc8.85811$3J1.2...@news2.tin.it...

Scusate, siccome ero interessato alla soluzione, ho cercato nell'help di A97
il controllo ListView e non ho trovato NULLA.
E' per caso un controllo non standard di Access disponibile con la versione
developer ?
Nel qual caso, come si deve procedere per caricare/registrare questi
controlli aggiuntivi?
Grazie: )
                                                        EtaBeta(AndreaM)

 e non ho trovato NULLA.
Spiacente, temo sia solo per Visual Basic.
Colpa del crosspost del primo messaggio. Non me ne ero accorto quando ho
risposto.
Ciao
*Roby*

 Beh, allora ce ne andrebbe uno anche per i troppo polemici e intolleranti.
Va bene cupido, se proprio insisti, te ne realizzo uno giusto giusto ad hoc
per te. Per la fatturazione, i soliti dati ABI-CAB
Antonio

 Antonio
Per me? Forse non hai capito a chi mi riferivo..... dovresti farne uno ad
hoc per tuo uso e consumo. Sai, dare in giro le coordinate bancarie è un pò
rischioso!
*Cupido*

 rischioso!
Ma dai?
E cosa mi succederebbe di grazia?
No, perchè allora prendo la tabella delle ABI-CAB italiane (OVUNQUE
REPERIBILE) e vedo di guadagnarci qualcosa...
Dimmi, dimmi...
Antonio
Newsgroup: it.comp.lang.visual-basic
Titolo: Per Kris e tutto il NG Soluzione Stampa Data Report Orizzontale

Aggiornate VB a SP4
impostate prima della stampa o dello show del data report
per stampa orizzontale
DataReport1.Orientation = rptOrientLandscape
e il gioco č fatto
come noterete la proprietą orientation non c'era nella sp3
     /\
< I@O > Dante
     \/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Multiutenza

Dopo un po' di programmazione monoutente mi son deciso a buttarmi sulla
multiutenza.
Ecco il problema. Posso ancora uisare file MDB?
Basta che cambi il tipo di accesso tramite l'uso di ADO o devo comprare
un altro DataBase con il creare Database e Tabelle ?
Grazie 1000
Daniele
--
!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
!"Il Paradiso e' pieno di santi che NON
! hanno avuto abbastanza occasioni di peccare."
!
!HomePage : 
http://www.levon.it/daniele
!
!------------------------------------------------!

Si', puoi usare ancora gli mdb (attenzione - non superare i 5 utenti
contemporanei!) anche usando DAO. Sembra che ADO con gli mdb non vada molto
d'accordo. Se vuoi un consiglio, passa all'MSDE (praticamente le runtime di
SQLServer - 
http://msdn.microsoft.com/vstudio/msde/
 ) ed abbandona gli mdb
che avranno vita breve.
Fabio Pagano.
Daniele Pinai ha scritto nel messaggio <37F1B343...@Levon.itNOSPAM>...


> Si', puoi usare ancora gli mdb (attenzione - non superare i 5 utenti
Scusa Fabio, ma ti devo contestare una cosa.... cinque utenti sono un po'
pochini, anche per un MDB!
Microsoft dichiara che è preferibile non superare i 15 utenti anche se ci si
può spingere fino a 25....
Io personalmente ho voluto verificare questi numeri provando a far operare
su un MDB (DAO 3.51) 200 utenti contemporaneamente.
Fino a circa 30 utenti non ho *quasi* avuto nessun problema di performance,
dopo i cento ho notato che alcuni utenti attendevano diversi secondi prima
di ottenere l'accesso; mentre sui 200 moltissimi utenti andavano in *Out Of
Time* i famosi 60 secondi di attesa.....
Però in nessun caso ho avuto crash o malfunzionamenti.
Tirate voi le somme.
Ciao.
Mario.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino del venerdì sera....sono sfinito!

come si potrebbe fare a definire l'espressione stringa di una qualsiasi
colonna excel?
mi spiego meglio dall'impossibilità di filtrare una colonna excel contenente
molti dati testo in ogni cella (un poema !.) con il classico metodo
AdvanceFilter con i criteri scritti in un altra colonna.... (in particolar
modo mi servirebbe filtrare le celle che non contengono determinate parole:
es. ="<>*pippo*") , devo crearmi un filtro in una macro di Vb.
Vi chiedo gentilmente visto che l'unica strada rimastami è usare la funzione
Instr(stringadafiltrare, stringafiltro, 1) che restituisce il valore
dell'occorrenza di un termine e poi cancellare tutte quelle stringhe con
risultato diverso da 0, come si fà a scrivere il valore della stringa per
una colonna unica di dati?
Grazie infinite per ogni suggerimento!

> SM@U:

Non mi cimento in una risposta perche', leggendo gli altri tuoi messaggi,
sembra che questo problema tu lo abbia gia` superato (da venerdi` sera a
adesso e` ormai passato diverso tempo... meno un'ora). Sbaglio? Altrimenti
fischia.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------