mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Come associo un'icona ad un mio controllo utente?

Una volta creato l'OCX vorrei far comparire nella casella degli strumenti
l'icona che decido di assegnare al controllo e non quella standard che mi
assegna Vb per default. Potete darmi una mano?
                        Jimi

assegna Vb per default. Potete darmi una mano?
devi usare, in fase di progettazione del controllo,  la prop toolboxbitmap
del user control
Ciao Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Posizione TreeView

E' possibile spostare automaticamente in un determinato punto un treeview.
Ad esempio: voglio che un determinato nodo sia il primo in alto, facendogli
fare uno scroll automatico.
Grazie Stefano Moro.

Stefano Moro ha scritto:

Rimuovi il nodo e reinseriscilo usando il metodo Add dell'oggetto Nodes
indicando la posizione di inserimento Nel tuo caso, primo della lista:
TreeView1.Nodes.Add nodNodoParent, tvwFirst, sChiave
Oppure prima o dopo un nodo specifico,
TreeView1.Nodes.Add nodMioNodo, tvwPrevious, sChiave
TreeView1.Nodes.Add nodMioNodo, tvwNext, sChiave
Ciao
Flavio Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]

Newsgroup: it.comp.lang.visual-basic
Titolo: MS SQL SERVER a 64 bit

Se un gestionale ( scritto in visual studio 2005 e 
ado.net
 ) è stato
sviluppato per funzionare con MS SQL SERVER a 32 bit , può funzionare anche
con MS SQL SERVER a 64 bit ?
Perchè con sql a 64 bit   mi da alcuni errori con le regole di confronto e
anche "Impossibile aggiornare il db di destinazione. Impossibile creare le
viste nell'archivio CASPEN. Errore 5: Invalid objet name
"QcodiciIvaAbilitati 
(-2146232060
) Origine: .Net SqlClient Data Provider".
Grazie e saluti

 con MS SQL SERVER a 64 bit ?
non dovrebbe cambiare nulla, almeno io non ho mai riscontrato problemi 
di sorta.
.m
-- 
Mauro Servienti
{C67C0157-5D98-4733-A75E-93CAEE4BADC8}
Microsoft MVP - Visual C# / MCTS
http://mvp.support.microsoft.com
blog @ 
http://milestone.topics.it
whynot [ at ] topics [ dot ] it

 wrote in
news:4c9a56fa$0$18996$
4faf...@reader5.news.tin.it
: 

se il gestionale non ha componenti lato server da installare sulla macchina 
server su cui gira il motore di sql, il comportamento dal punto di vista 
del clent e' lo stesso.
a meno ovviamente di errori nel programma ^^
ma quelli li scopri solo quando hai fretta
:-)
-- 
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--
Newsgroup: it.comp.lang.visual-basic
Titolo: ListBox impazzito: aiuto(2)

Ho scoperto che la causa sta qui:
Private Sub List2_Click()
Dim Indic As Integer
Indic = List2.ListIndex
List2.RemoveItem (Indic)
End Sub
Non posso evitare l'esecuzione di questa routine quando, in Command1,
imposto List2.listindex = n ?
Un problema relativo all'impostazione di 
News.tin.it
:
posso creare nuovi messaggi, ma se spedisco in risposta ad un messaggio, la
lettera non parte. Quale impostazione devo modificare?
Grazie
Romano

 End Sub
Puoi inzializzare una variabile pubblica dove di memorizzi lo stato,
esempio:
 Private Sub List2_Click()
  if varibialestato = 0 then
   Dim Indic As Integer
   Indic = List2.ListIndex
   List2.RemoveItem (Indic)
  end if
 End Sub
e nella chiamata:
 variabilestato = 1
 List2.listindex = n
 variabilestato = 0
Magari usa una variabilestato di tipo boolean che viene piu caruccio :)
Ciao Emiliano.


 lettera non parte. Quale impostazione devo modificare?
ma esiste ancora 
news.tin.it
?
Prova con 
news.virgilio.it
, oppure vai a cercare sul sito della tin (che se 
non sbaglio adesso è tutto rossoalice)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Finsestre una interna all'altra

Salve a tutti,
ho un problemino, ho una finestra main e vorrei che tutte le altra
finestre che si aprono rimanessero nello spazio della main e non del
monitor. come fare?
Grazie per l'aiuto

 wrote in message 399e39e...@news.tin.it...

Metti al posto del form principale un form MDI e setti la proprietà MDIChild
degli altri form a true
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema aggiunta origine dati

Salve.....
il problema nasce quando vado ad aggiungere un'origine dati
utilizzando
la "configurazione guidata origine dati".
selezionando database mi viene restituito il seguente errore:
"ERRORE IMPREVISTO
CHIAVE NON UTILIZZABILE NELLO STATO SPECIFICATO"
Qualcuno sa da cosa può dipendere??
Mi potete dare un link dove posso trovare un modo alternativo per
connettermi ad un database...
Ringrazio tutti per l'aiuto....
CIAO



Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè i miei messaggi non vengono inviati!!!!!!

Io continuo a rispondere al newsgroup : tasto destro del mouse sopra al
mittente...Rispondi al mittente, scrivo il messaggio, lo invio ma.....non
arriva...come cavolo si fa a rispondere ad un mittente del newsgroup?
Probabilmente sono io che sto sclerando ;)
Grazie per l'aiuto ^___^  ciao Massimo

Se intendi dire che i tuoi messaggi di risposta non appaiono sul NG allora
semplicemente č perchč devi rispondere al NG e non al mittente...cosě come
fai li mandi sulla sua casella di posta!
ciao.
Massimo ha scritto nel messaggio ...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con un form

Se Abbiamo un form senza la barra del titolo, come possiamo fare, dopo 
averne diseganta una, a far apparire il menů che solitamente si trova in 
alto a SINISTRA?
Andrea
Anr...@tin.it

 wrote in message 8E39DEFCBa...@news.tin.it...


:

Perchč???
Perchč ho fatto un form diverso dagli altri (come per esempio winamp!)ho   
inserito il pulsante di chiusura e quello per minimizzare e ci ho inserito 
il codice.Ma il menů di sistema non riesco a visualizzarlo!
Anr...@tin.it
 

Se Abbiamo un form senza la barra del titolo, come possiamo fare, dopo 
averne diseganta una, a far apparire il menů che solitamente si trova in 
alto a SINISTRA (e che si abilita con alt+spazio)?
Andrea
Anr...@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: È possibile copiare una tabella intera da un database esistente...

... in un altro ugualmente esistente senza scrivere miriadi di righe di
codice ?
e poi come si apre un database da codice protetto da password ?
Il database in questione è un .mdb

...

E' tutto sull'help in linea :
1) Dai uno sguardo alle Istruzioni :
    SELECT INTO
    INSERT INTO
2) Vedi OPENDATABASE


Set DB = OpenDatabase(<Database>, False, False, ";pwd=<Password>")

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampa "fotografica" di qualita' scadente con programma VB

Ho realizzato un programma di gestione immagini.
Icone, keyword, commenti, le solite cose.
Dato che c'ero volevo anche permettere la stampa direttamente dal programma
ma mi accorgo solo adesso che c'e' qualcosa che non funziona.
Quando si attiva la stampa visualizzo il commondialog.ShowPrinter e dopo
trasferisco l'immagine su Printer.PaintPicture ridimensionandola se e' il
caso.
Teoricamente funzionerebbe ma anche se col dialog printer imposto una
qualita' elevata quello che viene su carta e' davvero scadente.
Ho provato a stampare la stessa foto col mio programma e con un programma
grafico diverso (Iphoto plus) e con le stesse impostazioni: 720 dpi, photo
enhancher ecc. (ho una stylus photo 700)
La differenza tra le due immagini e' evidentissima.
Mentre quella stampata col mio programma ha gli stacchi troppo bruschi e
innaturali (anche seghettati) tra una zona di colore e un'altra, quella
stampata con iphoto viene perfetta.
Ma perche'? :-(
Io mi aspettavo che una volta che l'utente ha impostato i parametri col
dialog box per la stampante poi queste impostazioni venissero fedelmente
assunte dall'oggetto Printer, ma sembra non sia cosi'.
Qualcuno che ha gia' avuto esperienze simili puo' darmi qualche idea?
ciao
Paolo B.

Forse perché non stampi il bitmap, ma il controllo a video.
Nel senso, se carichi un bitmap in un controllo Image che è grande 40x40
pixel e poi lo stampi su un foglio 27x29 cm la perdita di colore è enorme
Prova a caricare il bitmap in memoria e poi stamparlo:
Dim Pic as stdPicture
Set Pic.Picture=LoadPicture("xx.bmp")
Printer.PaintPicture Pic.Picture,ecc...
Set Pic=Nothing
Ciao
--
Fabio Guerrazzi
VB Graphic Developer
http://www.sourcecode4free.com/cgt
fab...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Selettore record a fine tabella

Ho creatocon Access un Command che mi fa scorrere i record dal primo
all'utimo record con il seguente codice:
Private Sub CmdSucc_Click()
On Error GoTo Err_CmdSucc_Click
    DoCmd.GoToRecord , , acNext
Exit_CmdSucc_Click:
    Exit Sub
Err_CmdSucc_Click:
    MsgBox Err.Description
    Resume Exit_CmdSucc_Click
End Sub
Tutto procede bene ma invece di fermarsi all'ultimo record in tabella
continua ancora di uno (Voce contatore e campi dati con scritto eliminato).
Ho provato con qualche If e exit sub ma senza risolvere il problema.
Ho creato una Qry che mi identificasse l'ultimo record (richiamata da un
txtBox) ma mi da errore durante l'apertura del Form (In TxtBox mi esce
#Nome?). La Qry l'avrei usata per confrontare con l'Id Contatore) e se
diversa avrei reso inabile il Command ma senza risultato.
Per cortesia se possibile indicatemi passo a passo la procedura
Come fare?
Grazie.
Giorgio

all'utimo record con il seguente codice:
Qui non sappiamo cos'e' Access: il topic e' visual basic.
Prova su it.comp.appl.access.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Consiglio Libro VB6 & ADO

Salve, siccome devo studiarmi VB6 con l'uso di database utilizzando 
l'Activex Data Objects (ADO), volevo un consiglio su un OTTIMO libro che 
affronti sia VB6 che l'uso dei DB utilizzando ADO e non DAO e RDO, non 
voglio un rapporto qualita'/prezzo ma solo qualita' :)
TnX
P.S. : In italiano sarebbe meglio. Non mi interessa per ora VB.net e 
ADO.net

 affronti sia VB6 che l'uso dei DB utilizzando ADO ....
Ciao Larry,
ecco il tuo Kit di Sopravvivenza nella jungla dell'accesso ai dati, in
rigoroso
ordine di preferenza ( mia, ovviamente... ;-) e di consultazione...
1) "Programmare ADO" di David Sceppa
    collana Microsoft Programming Series
    ed.Mondadori Informatica ( non ricordo il prezzo, intorno ai 40/45
Euro..)
2)  "Il modo migliore di usare ADO" di William R.Vaughn
    ( autore di Visual Basic e SQL Server )
     collana APress
     ed.Mondadori Informatica ( 42 Euro )
3) "Universal Data Access con Visual Basic e ADO" di Rob McDonald
     collana APress
     ed.Mondadori Informatica ( 52 Euro )
Tutti e tre con CD allegato, contenente Codice, modelli di programmi etc.
I primi due vanno a braccetto, tanto č vero che l'autore del secondo libro
ha curato l'introduzione del primo...
Se vuoi sapere di piů, chiedi pure.
Ciao
 Valter

, 
val...@mclink.it
 
says...

Grazie :) il primo del kit č gia' qui con me per l'avventura VB6&ADO. 
Solo mi servirebbe uno che tratta anche VB6 e stavo pensando al mattone 
della Mondandori Informatica "Programmare Microsoft Visual Basic 6.0 " mi 
pare che costi intorno alle 150.000 (lire), e visto il prezzo, volevo 
sapere se magari č consigliabile investire in quel libro, il problema č 
che non lo trovo piu' in libreria e non ricordo se trattasse ADO, inoltre 
sul sito mondandori non c'e' un indice (Apogeo docet) o almeno non si 
trova facilmente.
TnX

 sapere se magari è consigliabile investire in quel libro
Quello che tu chiami "mattone" è la Bibbia del programmatore e non saremo
mai abbastanza grati al grande Balena per aver concepito questa meraviglia
cartacea :-))) Non credo esistano testi migliori per VB, credimi.
Confermo le 150.000 lire ( o i 77,47 euro ), ti consiglio una libreria della
catena
Feltrinelli, il cui reparto dei testi informatici è sempre molto vasto e ben
fornito.
Tutta la terza parte del libro è dedicata alla programmazione ADO ma a
questo
punto, se già possiedi il primo libro del kit, la parte ADO è
abbondantemente
coperta. In effetti nel primo post ho risposto alla tua domanda solo per ciò
che riguardava ADO, per ciò che invece riguarda VB.. ti sei risposto da
solo.
Compra il testo di Balena senza remore di alcun tipo, non te ne pentirai.
P.S. Tieni presente che anche questo testo è fornito di CD.. una miniera ;-)
       ( in inglese però.. ;-)
Ciao
 valter
Newsgroup: it.comp.lang.visual-basic
Titolo: [Meeting] [15novembre 2003] Sono Aperte le Iscrizioni ULTIMI GIORNI

Le votazioni si sono concluse, ora siamo passati alla fase di iscrizione che
terminera' il 5 novembre
Per iscriversi potete consultare il sito :
http://www.it-lang-vb.net/meeting/index.html
NB: TUTTI (lurker,poster,visitatori) Sono invitati e possono partecipare al
meeting a patto di iscriversi per tempo cosi da agevolare le prenotazioni al
ristorante.
Iscrivetevi numerosi, non vedo l'ora di abbuffarmi in compagnia !
-- 
-Gigio@Work(?)-


Newsgroup: it.comp.lang.visual-basic
Titolo: MSGBOX e form sottostante

Non riesco proprio a capire perché, in alcuni rari casi (e solo in quelli...
ma non so spiegare quali...) all'apertura di un messaggio msgbox, SCOMPARE
il form sottostante.
Una volta premuto l'OK che chiude la finestra del messaggio, il form
ricompare.
Ho provato tante soluzioni, ma senza successo. Devo capire PERCHE' succede:
Chi mi può dare un aiuto?
Grazie,
Romano

 ha scritto nel messaggio
news:RCDXd.636588$b5.28...@news3.tin.it...

Secondo me è qualcosa legato al tipo di form.... MDICHILD = True o False?!
Ciao, Vincenzo

Grazie per l'osservazione, Vincenzo.
Benché il programma sia composto da diversi form, tutti sono settati con
mdichild=false.
Ciao,
Romano

 ricompare.
In debug o in compilato?
Alberto
-- 
E tutto mi sembrava andasse bene... 

In debug.
In effetti non ho ancora provato a compilarlo per vedere se ancora scompare
il form. Domani lo farň.
Ti ringrazio per il suggerimento, Alberto.
Ciao,
Romano

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi.. Access e Visual Basic 6

Sono un super principiante
Non riesco a inserire nuovi record in  un file di access :
Ho creato una connessione
un command  a cui ho collegato un database e dopo ..........
Come faccio a fare per esempio una finestra di inserimento ...
Grazie tanto.
--
Salvatore

 wrote in message
81bvb8$pt4$1...@fe1.cs.interbusiness.it...


Sei stato chiarissimo proverò  e ti farò sapere.
Quindi se io già riesco a visualizzarli basta aggiungere i due pulsanti come
mi hai spiegato ?
Praticamente io ho trascinato la tabella su un form.
Ti ringrazio Anticipatamente.

Newsgroup: it.comp.lang.visual-basic
Titolo: Due stampanti

Ho un problema che non riesco a risolvere.
Devo stampare su una stampante che non è la predefinita di sistema, mi
chiedo se questo sia possibile da vb5 con win98 e sp3.
Ho provato in questo modo:
Dim prn As Printer
Printer.TrackDefault = True
For Each prn In Printers
    If UCase(prn.DriverName) Like "Epson LX-100" Then
                Set Printer = prn
                Exit For
    End If
Next prn
Inesorabilmente la stampante Hp predefinita rimane predefinita, e la Epson
stampa cose insulse (presumo con il driver dell' Hp che naturalmente non è
compatibile).
Se qualcuno sa dove sbaglio e mi può aiutare lo ringrazio anticipatamente.
Adriano

Next
Funziona!
Moltissime grazie a Massimo
ciao Adriano

Newsgroup: it.comp.lang.visual-basic
Titolo: come aggiungere un file reg senza che compaia message box

come aggiungere da codice vb un file reg senza che compaia message box

Semplice inserire una chiave alla volta usando le API: trovi un sacco di
esempi sul sito comune...
            Ciao
                Allanon

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

Ok....grazie mille!!!!!
:-)))

 :-)))
Prego!
Ma grazie di che!?! :?
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire Nuovo Msg Outlook Express con allegati

Un saluto a tutti
La mia domanda e' semplice, ma non so se la risposta lo sia altrettanto:
E' possibile aprire da VB un nuovo messaggio inserendo all'interno degli
allegati presi da un certo percorso, ad esempio c:\documenti\txt1.txt
txt2.txt ecc. I file verrebbero selezionati da un controllo filelist. Vorrei
fare la stessa cosa che si fa da gestione risorse quando, selezionando uno o
piu' file con il tasto destro del mouse si fa INVIA A destinatario di
posta!!!!!
Ho provato con     ShellExecute hwnd, "open", "mailto:
xx...@xxxxe.com
",
vbNullString, "c:\ordformail", SW_SHOW , ma questo mi apre un messaggio
nuovo e non riesco ad allegare niente
Aiutatemi!!!
Grazie a tutti

Ciao federico,
non ti so aiutare .....
... ma se per caso riesci a trovare la soluzione..... fammi sapere che mi
interessa molto.
Bye Fabrizio


 La mia domanda e' semplice, ma non so se la risposta lo sia altrettanto:


La mia domanda e' semplice, ma non so se la risposta lo sia altrettanto:
Ok, la mia risposta forse ti deludera', pero' e' una soluzione
elegante e funzionale.
In molti avete il problema dell'invio di email dalle vostre
applicazioni e, per ovvii motivi, pensate di "pilotare" Outlook dalla
vostra applicazione per usare il vostro abituale client di posta per
la spedizione.
Io ho preferito agire in modo diverso, cosi' se Outlook sul programma
ospite non c'e' o se per qualsiasi motivo il mailer predefinito non
funziona, io non ho problemi. Basta implementare un cliend mail
minimale nella propria applicazione che sappia spedire mail,
eventualmente con attachment.
Se questa soluzione, che, come dicevo, non e' quella richiesta ma
secondo me e' anche meglio, puo' andarvi bene, io vi mando volentieri
lo spezzone di codice che ho utilizzato.
Considera, infatti, che quando ti appoggi ad un programma esterno per
fare qualcosa se il programma non va sei nelle pesche. Quindi, almeno
per queste cose che non sono certamente particolarmente complesse, e'
meglio se le implementi tu e le infili dentro alla tua applicazione,
cosi' sei indipendente e sicuramente non avrai mai problemi di sorta.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

Io ho preferito agire in modo diverso, cosi' se Outlook sul programma
Naturalmente, era "sul COMPUTER ospite", non "sul programma ospite"
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!

Newsgroup: it.comp.lang.visual-basic
Titolo: dimensioni in mm di una bitmap

E' possibile risalire alle dimensioni in mm di una bitmap?
Grazie, Angelo.

 Grazie, Angelo.
ci ho appena provato con photoshop per ottenere un quadrato di 12x12 cm.
il punto e' che ps ricalcola le dimensioni di stampa in base alla
risoluzione dell'immagine, che ancora non ho capito come ottenere con
vb.

 vb.
Se la bitmap sta su file č piuttosto semplice:
un file bitmap č strutturato cosģ:
BITMAPFILEHEADER (14bytes)
BITMAPINFOHEADER (40bytes - 64bytes se OS/2 bitmap)
ColorPalette (array di RGBQUAD - presente se profonditą = 1,2,4,8 bits)
Immagine
BITMAPINFOEADER contiene anche informazioni sui pixel/metro
Basta fare una Get hBitmapFile, 15, bih
Tutte le dichiarazioni le trovi su MSDN e win32api.txt
Ciao





In effetti la cosa più logica che mi viene in mente è questa:
567 = twips in 1 cm
px in 1 cm = 567 / Screen|Printer.TwipsPerPixelX|Y
cm totali = width|height *  px in 1 cm
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] leggere n bytes da un file e scriverli in un altro

Qual'e' il modo più veloce di leggere i primi n bytes di un file e scriverli in un *nuovo*
file?
Non mi dite che con un ciclo for leggendo carattere per carattere sia l'unica soluzione...
non c'e' qualche API che faccia al caso?
PS: il numero n di bytes puo' essere MOLTO grande (più di 100MB)...

 ha scritto nel messaggio
news:IidH6.494$_r2....@news2.tin.it...

Cerca sul sito comune la DLL ffops...
E' fatta in C ed è mooolto voloce...
Ciao
--
Timothy Redaelli
timothy....@email.it

 PS: il numero n di bytes puo' essere MOLTO grande (più di 100MB)...
Ma che cosa devi trovare? :-)))


Cos'č che devi fare esattamente?
ciao
ugo


Splittare file VOB, per esempio.
Splittare una colonna sonora in formato WAV (per mantenere la massima fedeltà) e farla
entrare su più di un CD...
Ecc...
Inutile dire che lo spazio su disco fisso non e' un problema...
Il mio era solo un esercizio (ci sono programmi come WinRAR o WinZIP che fanno la stessa
cosa e forse meglio, dato che comprimono pure...), ma mi sembrava interessante testare le
capacità di lettura scrittura offerte dalle funzioni di visual basic...
Comunque ho risolto col famoso ciclo for... che usato con blocchi multipli di 4096 byte
fornisce dei risultati discreti...
Provero' la DLL scritta in C che si trova sul sito.
_________________________________________________________
Sub MyCopy(sIn As String, sOut As String, lStart As Long, lStop As Long, _
            ByRef CancelOperation As Boolean, Optional pgBar As Variant)
  Dim iIn, iOut As Integer
  Dim Buffer As String
  Dim size As Long
  size = 4096 * 4
  If Not IsMissing(pgBar) Then
    pgBar.Min = 0
    pgBar.Max = Int(Abs((lStop - lStart)) / size) + 2
    pgBar.Value = ProgressBar1.Min
  End If
  iIn = FreeFile
  Open sIn For Binary Access Read As #iIn
  Seek #iIn, lStart ' must be greater than or equals to 1
  iOut = FreeFile
  Open sOut For Binary Access Write As #iOut
  While (Not EOF(iIn) And Seek(iIn) + size < lStop)
    Buffer = Space$(size)
    Get #iIn, , Buffer
    Put #iOut, , Buffer
    If Not IsMissing(pgBar) Then pgBar.Value = pgBar.Value + 1
    DoEvents
    If CancelOperation Then GoTo Cancel
  Wend
  Buffer = Space$(lStop - Seek(iIn) + 1)
  Get #iIn, , Buffer
  Put #iOut, , Buffer
Cancel:
  Close #iOut
  Close #iIn
  If Not IsMissing(pgBar) Then pgBar.Value = pgBar.Min
  If CancelOperation Then Kill sOut
End Sub
________________________________________________________________
La funzione e' "stand-alone" e puo' essere messa in un modulo...

 E' fatta in C ed è mooolto voloce...
Grazie, lo faro'...

Non la trovo! :(


le API in questione dovrebbero essere ReadFile e WriteFile se non sbaglio

Declare Function ReadFile Lib "kernel32" Alias "ReadFile" (ByVal hFile As
Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long,
lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Declare Function WriteFile Lib "kernel32" Alias "WriteFile" (ByVal hFile As
Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long,
lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Guarda l'MSDN...


e io che avevo detto???????????????
Newsgroup: it.comp.lang.visual-basic
Titolo: Reports ............ aiutatemi .......

Volevo sapere se qualcuno sa come utilizzare i report scritti in Access
richimandoli da VB ....... :-/ (sempre che sia possibile)
grazie .......


Ho risolto Grazie .........................



Te lo dico a patto che dichiari che non te ne pentirai :)
L'ho fatto una volta per risparmiare tempo (non avevo voglia di scrivere
codice di stampa in VB) e ancora adesso non riesco a liberarmi da quel
dannato programma. Recentemente ho aggiornato a Office 2000 e non funzionava
piu': altre ore passate a litigare. Proprio stamattina ho iniziato a
trasferire tutto nelle meravigliose Store Procedures di sql server.
Una sola domanda per tutte: come fai a passare parametri da VB ad Access? Si
puo', ma e' quel genere di programmazione disgustosa che non regge i futuri
aggiornamenti.
<in testa alle dichiarazioni metti>
  Dim appAccess As Access.Application
<nella Form_Load metti>
  Set appAccess = New Access.Application
  appAccess.Visible = True <oppure False>
  appAccess.OpenCurrentDatabase "<file.mdb>, False
<nella Unload metti>
  appAccess.CloseCurrentDatabase
  appAccess.Quit acExit
  Set appAccess = Nothing
<per stampare un report>
    appAccess.DoCmd.OpenReport "<nome report>", acViewNormal
<per passare parametri a una sub definita nell'mdb>
  appAccess.Run "riceviData", parametro1, parametro2
Dentro l'mdb avevo creato un modulo con il seguente codice. Le due Funzioni
pubbliche le avevo poi usate nei report:
Option Compare Database
Option Explicit
Dim txtDaData, txtAData
Public Sub riceviData(d1, d2)
  txtDaData = d1
  txtAData = d2
End Sub
Public Function dataIniziale()
  dataIniziale = txtDaData
End Function
Public Function dataFinale()
  dataFinale = txtAData
End Function
I consigli e' meglio evitarli, ma questa volta faccio un'eccezione: lascia
stare, sono solo rogne.
Enrico
"Prog" <spa...@tua.mamma> ha scritto nel messaggio
news:8fobso$go3$1...@fe2.cs.interbusiness.it...



Ho risolto Grazie .........................

 Ho risolto Grazie .........................
ok... come hai fatto?
Faber

 wrote in message
Z3YT4.28916$F46.3...@news.infostrada.it...

per stampare direttamente su stampante .......
private sub Stampa_Click()
Dim ApriReport as Acces.Application
Set ApriReport=New Access.Application
Aprireport.OpenCurrentDatabase("Percorso Database\Database.Mdb")
ApriReport.Docmd.OpenReport"Report da Visualizzare o Da Stampare", , ,
stCriterio
Aprireport.CloseCurrentDatabase
end sub
per effettuare l'anteprima ..............
private sub Stampa_Click()
Dim ApriReport as Acces.Application
Set ApriReport=New Access.Application
Aprireport.OpenCurrentDatabase("Percorso Database\Database.Mdb")
ApriReport.Docmd.OpenReport"Report da Visualizzare o Da Stampare",
acViewPreview, , stCriterio
Aprireport.CloseCurrentDatabase
end sub
dove stCriterio è la Where Condition per l'SQL del  report
includi Nei Riferimenti Access8.0 Object Library o Successivo.
se non ho capito male Access8.0 è la libreria per Access97 e
Access9.0 è la libreria per Access2000 ............. ma posso sbagliare
......:-)
Ciao ........

[cut]
grazie dell'info
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: composizione numero telefonico via VB macro in excel

salve a tutti....
premetto che non sono (come si puo capire) un bravo
programmatore.
Comunque mi sono fatto una bella macro (non vi dico che
fatica) in VB per application al fine di gestirmi totalmente un archivio in
excell.
Il problema e' che per essere utile veramente , devo riuscire a
fare gestire ad una routine (sembre in VB...non conosco altro ed anche
quello male)la combinazione di numeri telefonici. Qualcuno sa darmi qualche
indicazione su come fare ? So che nei cd di VB (che non ho perche' uso solo
quello base per le applicazioni) ci dovrebbe essere un esempio...
...
grazie a chi mi puo aiutare
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:212Z146Z175Z3Y...@usenet.iol.it...

Scusa, ma non ho capito niente!!!!
Se ti spieghi meglio, forse ti potrň essere utile.
Cos'č che ti serve, una macro che ti faccia accedere alle TAPI di win32!?

Mi dispiace, ma non so essere piu chiaro...
Tutto quello che mi serve e'
sapere come far comporre un numero telefonico (accertamento disponibilita
linea libera + composizione numero)in VB.
Facile o difficile che sia, non
ho la piu pallida idea di come fare (tantomeno so se mi serve accedere alle
TAPI).
Scusa ma il mio livello di programmazione e' veramente basso (buono
solo per qualche routine ad uso personale).


 ha scritto nel messaggio
news:212Z146Z175Z20Y...@usenet1.iol.it...


 ha scritto nel messaggio
news:212Z146Z175Z20Y...@usenet1.iol.it...


daniele
Hai proprio ragione !!!!
Ora mi studio
il codice..sperando che non richiami funzioni specifiche di access (ma a
prima vista sembra di no ) ...
grazie


end Sub
Probabilmente sbaglio
io a fare qualcosa (inserimento della procedura? modo di richiamarla
?)...ma qualsiasi prova faccia mi da sempre l' errore "user-defined type
not defined"...qualche suggerimento ?


 ha scritto nel messaggio
news:212Z146Z175Z3Y...@usenet.iol.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: E' disponibile un VBA per programmi in VB?

Come 'pilotare'  da esterno un programma scritto in VB ?
E'  disponibile qualcosa che permetta di personalizzare le nostre
realizzazioni senza per forza modificare il sorgente?
Un qualcosa di simile agli attuali VBA per Word, Excel ed altro esiste gia'
o bisogna scriverselo a manina?
Grazie
RobertoA

 scriverselo a manina?
E' disponibile VBA6 (prossimamente sara' disponibile VSA, la versione
.NET di VBA):
http://msdn.microsoft.com/vba/
http://msdn.microsoft.com/vstudio/vsa/default.asp
Sinceramente credo che il prezzo sia decisamente elevato (per VBA di
sicuro), per cui la cosa migliore e' quella di crearsi tutto a mano
oppure utilizzare lo Script Control e quindi rendere disponibile
all'interno della propria applicazione un ambiente programmabile in
VBScript.
Ciao.

 ha scritto nel messaggio
news:980jh7$i4b$1...@pegasus.tiscalinet.it...

Microsoft vende il VBA a chi lo vuole utilizzare all'interno delle proprie
applicazioni, credo che sul loro sito puoi trovare informazioni.
Ciao VB
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Combo

Ho un problema :
Vorrei visualizzare due colonne distinte con ogniuna al suo interno un
valore,   all'interno di una combo, e non una colonna con due valori  !
Come posso fare ?
Grazie

 wrote in message news:3c8e7...@news.dada.it...

Con la combo non lo puoi fare.
Puoi farlo con la ListBox mettendo nella proprietà
Columns un valore diverso da 0, ma tieni presente
che le colonne funzionano come quelle di Word;
cioè, per ogni Additem viene aggiunta una riga
nella prima colonna; quando arriva alla massima
dimensione verticale, passa alla seconda colonna
e così via.
Il riferimento al singolo campo è sempre consecutivo
(da 0 a ListIndex - 1). Se vuoi una vera gestione di
righe e colonne devi passare ad un control "serio"
come il MSFlexGrid, o meglio, il MSHFlexGrid, che
ti permettono di definire una griglia con righe e colonne,
intestazioni, ecc. e di accedere ai singoli elementi
per numero di riga e di colonna.
--
Er Roscio.

Newsgroup: it.comp.lang.visual-basic
Titolo: Arrestare il sistema con Windows 2000

Ciao,
sono un neofita, ho fatto una applicazione e mi servirebbe che spegnesse il
PC (con W2K) ad un determinato evento.
Ho provato una funzione di VB, ma non và, come posso fare....
Nessuno di Voi ha sviluppato una .dll per questo...???
Ciao e grazie

 Ho provato una funzione di VB, ma non và, come posso fare....
Potresti dirmi quale funzione hai provato? Grazie.
Yuri

 ha scritto nel messaggio
news:a1rker$j07$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:lWk08.21089$aD.7...@twister2.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con intercettazione tasti

Salve a tutti , vi espongo il mio problema:
In un form ho due CommandButtons al cui evento _click è associata una certa
sub.
Vorrei pero' permettere di poter "simulare" la loro pressione semplicemente
usando la freccia cursore sx o dx .
Ho provato con :
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyCode = vbKeyRight Then
Call Destra
End If
End Sub
ma l'unica cosa che cambia è il Focus (che si sposta da una all'altra) ,
dovendo quindi per forza premere Invio per eseguire l'operazione.
In pratica è come se la pressione della freccia non fosse "intercettata"....
Come posso risolverlo? Ho usato l'evento sbagliato?
Ho provato anche con KeyDown , ma niente, si sposta solo il Focus.
Ciao e Grazie
^GlobuS^

 Ho provato anche con KeyDown , ma niente, si sposta solo il Focus.
L'evento (insieme con KeyUp) č quello buono.
KeyPreview=True nel form.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come ridurre le dimensioni dell'eseguibile?

Premetto che sono un programmatore della domenica :)
Una applicazione che sto tentando di creare ha bisogno di alcune serie di
dati. Circa una decina di serie di qualche centianaio di dati.
Non so qual è il modo migliore per inserirle.
1) mediante moduli? ma questo appesantisce l'eseguibile (giusto?) e
preferirei di no visto che è già abbastanza corposo
2) un file esterno? tipo excel o mdb? ma vorrei che i dati non fossero
accessibili se non mediante l'applicazione
3) una dll? Anche se non so come si creano e non sono riuscito a trovare una
guida adeguata alle mie limitate capacità mentali.
Se qualcuno mi dà una mano lo rigrazio infinatamente :)
Saluti

Il 25/01/2004 9.17, DragonFax scrisse:

Puoi usare un file di risorse da includere nel tuo eseguibile. Tiene 
pero' presente che esistono programmi in grado di estrarre le risorse da 
un exe.
Oppure puoi usare un fle di testo criptato o un database in cui le 
informazioni sono criptate.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 guida adeguata alle mie limitate capacità mentali.
http://groups.google.it/groups?hl=it&lr=&ie=ISO-8859-1&q=costruire%2Bdll&met
a=group%3Dit.comp.lang.visual-basic
giuseppeD

 3) una dll?
lascia perdere la dll.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 ha scritto nel messaggio
news:dyVQb.6394$VS6....@tornado.fastwebnet.it...


dammi  la tua email che te lo passo (l'algoritmo vb)


 dammi  la tua email che te lo passo (l'algoritmo vb)
Ohhhh, che palle! Questo è un NG!

 Ohhhh, che palle! Questo è un NG!
Ma per quale motivo dovrei caricare il NG di decine di linee di codice? E
come li passo i moduli? E chi sei MAMO? :-(((


 E chi sei MAMO? :-(((
Sě, lui ormai č dentro di me.

 lo zaino pieno di cd.
Ma ti rendi conto di cosa dici? Ma mi stai prendendo per un cog...ne?
Io sto cercando di aiutare una persona in difficoltà, quindi quale è il
problema?


 il problema?
Va bene, mi ritiro...

 settimane per essere pubblicato.
ok, quindi puoi anche inviarlo in privato a chi te lo chiede, ma se tu, nel
frattempo e con tutta la calma necessaria, lo inviassi anche al sito comune
faresti opera meritoria.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 faresti opera meritoria.
Sarà fatto non appena possibile.
bye



--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: Presenza carattere in una stringa

Salve a tutti,
vi espongo il mio problema:
ho una stringa a = "ciao a tutti"
avrei bisogno di sapere se esiste una funzione per sapere se all'interno
della stringa è presente uno specifico carattere, per ovviare alla scansione
di tutta la stringa con mid$.
Grazie
Brunix

 ha scritto nel messaggio
news:VeH2d.340289$5D1.15...@news4.tin.it...

utilizza la funzione  INSTR
-----------
carattere_da_trovare = "@"
trovato = instr( "io cerco il carattere  chiacciolina
",carattere_da_trovare")
if trovato > 0 then
     il carattere E' compreso nella tua stringa almeno una volta
else
      il catrattere  NON c'e'
end if
-----------
leonello

 di tutta la stringa con mid$.
Si usa "Instr":
If Instr(Stringa, "a") > 0 Then
     Debug.Print "La stringa contiene almeno una 'a'"
Else
     Debug.Print "La stringa NON contiene 'a'"
End If
Tanto per darti qualche "spunto", diciamo che puoi anche cercare piu' di 
un carattere:
Parola = "Pippo"
If Instr(Stringa, "pippo") > 0 Then ...
Puoi rendere la ricerca indipendente da maiuscole/minuscole:
Parola = "Pippo"
If Instr(LCase(Stringa), LCase(Parola)) > 0 Then ...
Puoi estrarre tutti i caratteri successivi a quello che cerchi:
p = instr(Stringa, "a")
If p > 0 Then Stringa = Mid(Stringa, p + 1)
Se invece vuoi estrarre tutte le stringhe separate da un certo 
carattere, ad esempio per estrarre in un array tutte le parole di una 
frase, usa invece "Split":
Dim i As Integer
Dim Frase As String
Dim Parola() As String
Frase = "questa e' una frase formata da parole"
Parola = Split(Frase, " ")
For i = 0 To UBound(Parola)
     Debug.Print "Parola " & i & "=" & Parola(i)
Next i
Puoi anche cercare l'ULTIMA occorrenza di un certo carattere, con 
"InstrRev":
Stringa = "Questa e' una stringa..."
p = InstrRev(Stringa, "a")
Debug.Pring Mid(Stringa, p) ' Restituisce "a..."
-- 
Ciao!
    -DocDoc-
--- Per scrivermi: docdoc()
sertel.net
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE!     
http://www.spamterminator.it/
Newsgroup: it.comp.lang.visual-basic
Titolo: Che oggetto è?

Avete presente Outlook Express? Quando si legge la posta viene creato un
elenco di e-mail in una specie di listbox (per intenderci l'elenco è quello
in cui compare "Da", "Oggetto", "Ricevuto"). Sapete se esiste un oggetto in
Visual Basic per crearlo? Se si in quale libreria si trova?
Ciao
Giuseppe Di Natale
gdin...@jsdir.com
http://www.jsdir.com

 Visual Basic per crearlo? Se si in quale libreria si trova?
il controllo si chiama ListView, e si trova dentro MSCOMCTL.OCX
Ciao
Faber


No, non č un listview.
La domanda era gią venuta fuori qualche mese fa e l'oggetto si era rivelato
un incrocio tra la listview e la treeview.
Non chiedermi il nome che non lo ricordo (e non ho voglia di cercarlo con lo
Spy :))
Non so se č disponibile come activex.
Ciao

Grazie ad entrambi, ho risolto con ListView


Spy :))
mi dicono dalla regia che è il Listview standard delle MFC
c'è da dire che i programmatori Microsoft hanno fatto un gran bel lavoro, 
perchè il controllo standard in sè non ha tutte quelle funzionalità 
fantascientifiche, anche se offre (a differenza dei controlli di VB, sigh) 
grandi potenzialità in fatto di personalizzazione... certo che se detti 
programmatori volessero gentilmente condividere con noi il frutto del loro 
lavoro...
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6: Consigli per un kit di distribuzione (funzionante!).

Salve a tutti.
Reduce da un periodo in cui ho convertito un programma VB4
in uno VB6, mi appresto a creare il kit. Ho verificato che funziona su
Millenium (pero' sulla stessa macchina dove sviluppo), funziona su NT4, ma
non va su Win 95.
Ho capito che probabilmente il problema si chiama Dcom.
Ho scaricato la versione per Win95 e Win98 e mi appresto a fare delle
prove... ma non dispongo di tutti questi sistemi operativi... adesso potro'
fare i test solo su Win 98.... c'e' qualcosa di particolare da fare?
Dimenticavo: ieri sera ho fatto girare il SP5 di Visual Studio... un primo
risultato c'e' stato: prima l'installazione sulla mia stessa macchina (con
Millenium e V. Studio) non funzionava.
Noto con amarezza che, almeno per
il kit, VB ha fatto passi indietro da gigante.... con VB4 era cosi'
facile... mai un problema!
Grazie a chi mi vorra' consigliare.
Buon
lavoro!
GigioTD
--------------------------------
Inviato via 
http://usenet.iol.it

 fare i test solo su Win 98.... c'e' qualcosa di particolare da fare?
Se hai creato il setup col PDWizard avrai notato che al termine
dell'installazione
è comparsa una finestra di dialogo col rapporto sul pacchetto creato
nella quale viene fuori scritto che, nel caso sia necessario, dovrai
installare
'a mano' e prima di eseguire il setup DCom95 se Win95 e DCom98 se Win98
E' un problema che ti si può presentare sulle macchine dotate di un sistema
operativo più 'anziano' dello stesso VB6 che non prevedevano DCom (con NT4
và perchè è nativo)
PS DCom98 puoi usarlo sia su Win98 che su Win95 mentre DCom95 solo su 95
Buon lavoro
GC

PS DCom98 puoi usarlo sia su Win98 che su Win95 mentre DCom95 solo su 95
Avevo notato che entrambi gli eseguibili che ho scaricato hanno lo stesso
nome.... grazie dei consigli!
Ciao


 ha scritto nel messaggio
news:212Z141Z48Z2Y1...@usenet.iol.it...


Potresti spiegare quale correzione è stata apportata?


Scusate.... vi aggiorno. Dopo Service Pack 5 di v. studio, installazione di
Dcom per 95 e 98 (rispettivamente per win 95 e 98), tutto va alla grande.
Meno male.... non ho comunque chiaro cosa hai corretto con Norton... mi
spieghi.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: avviare IE

come è possibile avviare Internete Explorer e far si che apra una
determinata pagina, diversa da quella iniziale???

 determinata pagina, diversa da quella iniziale???
semplice
Shell "Iexplore nomepagina"
Gianni Moretti

 wrote in message
37A1FE2A...@tiscalinet.it...

grazie per l'informazione serviva anche a me
ma l'istruzione da te data per farla funzionare bisogna scrivere il percorso
completo di dove si trova IE.......esiste un modo per determinare
automaticamente all'apertura di un form....la posizione esatta di internet
explorer?

Newsgroup: it.comp.lang.visual-basic
Titolo: Utile per tutti...RAR senza password...

Salve ragazzi...
qualcuno di voi CAPOCCIONE del vb sa aiutarmi in questo?:
Se andate a questo link
http://www.vbcode.com/asp/showsn.asp?theID=660
troverete (per quello che c'ho capito io) una specie di codice che spero sia
sufficente ad estrarre dagli archi RAR con password,pur non conoscendala, i
file che mi servono.
Il vostro aiuto mi serve poichč io di quel codice non so che fare, come
usarlo...dovrei generare un eseguibile?ma non ho il compilatore...
Suppongo che sia utile a tutti quindi se qualcuno volesse fare al posto mio
quello che io non riesco a fare e darmi poi il risultato finale del
programma ci facciamo un favore a vicenda...
Spero accogliate la mia richiesta...
grazie a tutti

 grazie a tutti
ciao

 Claudio wrote:
cut
 Full support for password protected RARs
per me ha tradotto male questo!
ehm significa che ha il totale supporto anche per i RAR protetti da password
Nel senso che SE la sai ...lui ti decomprime l'archivio!
Che hai da decompattare protetto da rar ???
--
Il Wodkino Nazionale č a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

 ha scritto nel messaggio
news:x75Ta.9587$t92.2...@news1.tin.it...


password...puo aiutarci questo?
Allora, la unrar.dll e' proodotta da questi signori qui, che offrono
anche diverse altre cosette:
http://www.rarsoft.com/rar_add.htm
Il discorso sulla password e' quello che ti hanno gia' detto, cioe'
che la dll supporta la decompressione di archivi protetti da password,
ovviamente fornendo la password come parametro.
-- 
ciao, hal

 password...puo aiutarci questo?
Claudio, il fatto che esistano librerie per estrarre file RARati 
protetti da password, non significa che possono essere estratti non 
conoscendo la pw.
PS:
Impara a quotare, per favore.
http://www.freewebs.com/iosononiubbo/iosononiubbo.htm#quotare
-- 
Ciao, Mauro CB

Vabbene...grazie a tutti per il tempo che mi avete dedicato.
ciao
claudio
Newsgroup: it.comp.lang.visual-basic
Titolo: Ciclare i controlli di un SSTab

Mi sto tirando scemo per questo piccolissimo problema,
dato un SSTab come faccio a ciclare su tutti i controlli che
contiene?
Il problema è che non voglio dipendere dalla form, cioè
fare un for each su tutti i controlli della form e contrallare se il
container è il tab!
Possibile che non cè modo di fare
"for each obj in SSTAB" ?????????
Grazie
MIk

 MIk
Mattia
--
Mattia un pò meno stacanovista...

> container è il tab!
Mik

Newsgroup: it.comp.lang.visual-basic
Titolo: VB2005: lista nomi in combobox

Salve a tutti, in VB2005 ho disegnato un database, inserendo in seguito 
dei dati, e creando dalla FORM del progetto il dataset che punta a tale 
database..
Se visualizzo la connessione, visualizzo tutti i record presenti, 
quindi funziona!
Ora: ho creato un combobox che come proprietà (DataBindings)->Text 
ha "ClientiBindingSource - Nome" che punta al campo nome della mia 
connessione..Il problema è che avviando la form, nel mio combobox cè 
solo il primo record del database, e nel menu non vi è alcuna altra 
voce (Vi dovrebbero essere  gli altri record)..
Come mai? Sapete drmi una mano?
Grazie moltissime!

Ritiro la mia domanda..dopo tutta la mattinata di tentativi ce l'ho fatta 
non appena chiesto aiuto qui!
Soluzione:
ho attivato "Use data bound items" del menu "Combobox Tasks", andando poi 
a scegliere i record da visualizzare!
Ciao a tutti!
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione a database (newbie)

Buongiorno a tutti, è la prima volta che scrivo su questo newsgroup e spero
di non suscitare l'ira di nessuno con la domanda che segue:
Premetto che qualche ricerca su siti segnalati l'ho già fatta, e che vengo
da qualche anno di sviluppo asp, dove le connessioni a database vengono
create e distrutte su ogni pagina per ovvi motivi, ed anche gli oggetti COM
che posso utilizzare sfruttano connessioni che muoiono con l'oggetto.
In questo momento sto costruendo un'applicazione off-line con VB 6, senza
connessioni contemporanee ad un database (access), e mi chiedevo qual'è il
miglior modo di gestire le connessioni stesse.
In sostanza, è più performante/conveniente creare un oggetto connessione che
definisco public, che istanzio ed apro all'apertura dell'applicazione e che
trovo già aperto quando vado a fare query sul database, oppure mi conviene
creare un oggetto connessione in ogni procedura, o ancora c'è un modo
intermedio di procedere magari più furbo ?
Spero che la domanda sia sufficientemente chiara.
Saluti e Grazie a chi vorrà rispondere
Sallinho

 Buongiorno a tutti, è la prima volta che scrivo su questo newsgroup e
spero
EHM
se cerchi con google o con qualsiasi altro motere di ricerca indietro di
circa 1,5/2 mesi ci fu una analoga domanda fatta proprio da me....si arrivo
alla conclusione che CON ADO c'è vantaggio a aprire e chiudere le
connessioni perchè ha il meccanismo del pool di connessioni e poi perchè non
c'è da fidarsi tanto di una conn che vive per tutta la durata della sessione
del tuo programma.
conn,state=adstateopen non è molto affidabile se succede qualcosa al db in
remoto!
Queste in "estremissima" sintesi furono le conclusioni!
Ciao!


[ cut ]
Ciao Sallinho,
non è questione di _astuzia_ o almeno non solo... molto dipende da come è
strutturata la tua applicazione.
In generale non è buona cosa ( ma nemmeno un peccato mortale, almeno nel
caso che descrivi tu ) tenere una connessione aperta a tempo indeterminato..
personalmente tengo in vita le mie connessioni il minimo indispensabile e
faccio largo uso di recordset disconnessi. Si fa un po' più di fatica a
gestire i conflitti in caso di multiutenza ma devo dire che ADO è abbastanza
efficiente sotto questo punto di vista ...
( vero Lupo? ma che fine hai fatto??)
Il consiglio che mi sento di darti è quello di gestire al meglio il tuo
codice per evitare la creazione di connessioni aggiuntive, che ADO crea ogni
quavolta
non riesce ad utilizzare la connessione esistente o se, inconsciamente, il
codice che scrivi lo costringe a farlo.
Se decidi di optare per una connessione "imperitura" tieni presente il
consiglio di Wodka4U riguardo la proprietà State della connessione,
pressochè
inutile, dato che ADO non si accorgerà mai se la connessione nel frattempo è
caduta.
Per ovviare a questo inconveniente hai la possibilità, prima di aggiornare i
tuoi dati,
di effettuare ad esempio una query a basso impatto che sei certo debba
restituirti
almeno un record... se fallisce, la tua connessione è andata...
Ciao
 Valter