[VB6] Finestra di dialogo per apertura file

[Antagonista]

Salve.
Volevo sapere quale comando mi dava la possibilità di aprire la finestra classica di windows "APRI" da VB6 perchè devo caricare un file MDB da utilizzare poi come database del mio programma.

Grazie 1000.

[kalosjo]

Devi utilizzare il CommonDialog e visualizzarlo col metodo showopen

[LMondi]

Ciao Antagonista. Ritengo che per "Aprire" un file del DB non serva il controllo CommonDialog. Comunque posto un esempio del predetto controllo, poi vedi tu ...

Progetto>Componenti MS Common Controls, poi seleziona e metti il controllo sulla Frm
In un modulo o nel modulo della stessa Frm:

With FrmTua.CommonDialog1
            .CancelError = True             ' Imposta CancelError su True
        On Error GoTo ErrHandler
            .Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|"
            .FilterIndex = 1
            .DefaultExt = "csv"
            .Flags = cdlOFNNoChangeDir Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn
            .InitDir = App.Path & "\DATI\TuoFile\"
            .DialogTitle = "Selezionare il file da aprire"
            .FileName = FrmTua.CommonDialog1.FileName
            .ShowOpen

ErrHandler:
            If Err.Number = 32755 Then      ' E' stato scelto Annulla
                boolErrAnnCO1 = True
                Exit Sub
                Else: boolErrAnnCO1 = False
            End If
... .... ...
Codice per Aprire il File

Chiaramente questo è un esempio, che devi adattare alla tua realtà.

[kalosjo]

Originariamente inviato da LMondi
Ciao Antagonista. Ritengo che per "Aprire" un file del DB non serva il controllo CommonDialog.

Credo che intendesse dire che vuole fare selezionare all'utente il database da aprire.....

[Antagonista]

Esattamente, volevo che l'utente decidesse quale db selezionare.
Vorrei sapere come si fa, una volta scelto il db, a far si che il percorso vada a finire in un campo di testo chiamato dbscelto.
Grazie 1000

[MdE2005]

Ciao..basta che tu usi la proprietà:

dim percorso as string
'inserisci quello che vuoi
'
percorso = common1.filename

e poi copi questa variabile nel campo che desideri..


ciao

[Antagonista]

Tutto ok grazie.

[MdE2005]

Perfetto..ciao