Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda su "metodo opendatabase con Dbase IV"

Qualcuno mi sa dire perche io non riesco ad aprire un Dbase IV con il metodo
opendatabase
spiego:
se uso
Set DB = Workspaces(0).OpenDatabase(test.mdb)
funziona ma se uso un tipo
Set DB = Workspaces(0).OpenDatabase(test.dbf)
non funziona mi da sempre un error
se per favore qualcuno mi aiuta
grazie
c.za...@dnet.it
www.groeden.net

 grazie
Che errore restituisce ?
1° ricorda che il nome del DB va messo tra virgolette doppie ...
2° il DBF non puoi aprirlo in questo modo; vai in Access e allega le tabelle
DBF che ti interessano, poi apri il file MDB contenente le tabelle allegate.
Esiste anche un modo che ti permette di creare il link a runtime con DAO ...
Facci sapere

 ha scritto nel messaggio
news:934shc$304$1...@fe1.cs.interbusiness.it...


 grazie
Innanzitutto Engine e Workspaces non sono necessari.
Prova con questo:
Set DB = OpenDatabase("C:\MIADIR", False, False, "dBase IV")
poi ovviamente devi aprire il recordset che è la tabella DBF vera e propria
Ciao
Sir Jo

Grazie per il tuo interesse ma lo avevo visto su
e continua a darmi lo stesso errore
runtime 3044 percorso non riconosciuto
il mio codice e cosi
Option Explicit
Dim DB As Database
Dim CR As String
Private Sub Form_Load()
Dim i As Integer
CR = Chr(13) + Chr(10)
Comd.Filter = "File Dbf|*.dbf"
Comd.ShowOpen
If Comd.FileName = "" Then End
dbName = Comd.FileName
Set DB = OpenDatabase(Comd.FileName, False, False, "dBASE IV")
For i = 0 To DB.TableDefs.Count - 1
    LstTabelle.AddItem DB.TableDefs(i).Name
Next i
End Sub



mi sono svegliato adesso quindi magari sono un po' annebbiato, ma direi che
cosi' tu cerchi di beccare un dbf. in dao coi dbf credo che database sia la
_directory_ che li contiene. se usi la common dialog da comd.filename prova
a togliere il nome del file (non mi ricordo se restituisce anche un
percorso). seno' prova a usare la browseforfolder (tipo winzip), per
scegliere una cartella.
fra parentesi, hai anche un "cr" non dimmato in questa sub (usi option
explicit?) che non e' altro che la costante vbcrlf, e che qui non serve a
nulla.

 il mio codice e cosi
Allora non hai provato il codice che ti avevo postato.
Database e tabella DBF per DAO sono due cose diverse.
Database si intende l'insieme delle tabelle DBF che sono contenute nella
stessa directory.
Prova questo codice cambiando solo il nome della directory
Option Explicit
Dim DB As Database
Private Sub Form_Load()
Dim i As Integer
 Set DB = OpenDatabase("C:\LAMIADIRECTORY", False, False, "dBASE IV")
For i = 0 To DB.TableDefs.Count - 1
     LstTabelle.AddItem DB.TableDefs(i).Name
Next i
End Sub
Nel comando OpenDatabase _NON_  devi specificare alcun DBF.
Per aprire il singolo DBF devi usare il comando OpenRecordset
Ciao
Sir Jo

Vi ringrazio Sir Joe ed pal per il vostro aiuto ora ho finalmente capito
dove era il mio sbaglio
funziona tutto a meraviglia
se vi capita di venire dalle mie parti venite a bervi una birra in mia
compagnia
guardate dove hihi
www.pranives.com
ciao ed grazie

 ha scritto

di niente.
in compenso in alto adige ci capito abbastanza regolarmente. e la valgardena
e' bellissima, anche se di solito vado in pusteria o venosta. pero' avevo
fatto delle foto al sella che ho tenuto appese un bel po'...
metti in fresco la birra.
cioe', basta che la metti fuori della finestra :))
ciao, a.
ps -- c'e' neve per il fondo ?

Momentaneamente si quest'anno ce molta neve