Newsgroup: it.comp.lang.visual-basic
Titolo: una volta installato il service pack 5

continua il controllo data a non aprire i database Acess 2000/xp ?....
bisogna fare qualche altra cosa ?
Oppure si doveva installare il 4 e non il 5...ma allora uno non comprende
la'ltro?
Ciao

 ha scritto nel messaggio
news:fN_G7.56590$sq5.2...@news.infostrada.it...

devi aggiungere nei riferimenti jet 3.6
CIAO

scusa l'ignoranza,cosa intendi per riferimenti...  nelle prorpietà del data
control sta scritto solo UseJet e nel codice io avevo usato un codice (per
altro copiato..lo so ma sono alle prime armi...)per settare un database:
Dim db As Database, tdftable As TableDef
Dim wrkJet As Workspace
..........
Set wrkJet = DBEngine.CreateWorkspace("", "admin", "", dbUseJet)
dove ho notato che c'è l'unico riferiemento a un qualcosa con il Jet.....
Ciao

 scusa l'ignoranza,cosa intendi per riferimenti [...]
Prima di chiedere al NG sarebbe opportuno che ti leggessi un po' la guida
generale di VB o qualcosa di introduttivo, perché č impossibile che in poche
righe di risposta si possano colmare grosse lacune, per quanto ci si
prodighi per dare una mano.
Ad ogni modo, se dai un'occhiata al menů <Progetto/Riferimenti> trovi quello
che ti serve, per ora :-)
Ciao,
Carlo.

sono due giorni che ci perdo la testa...imparare il vb6 da solo è dura e ti
assicuro ceh non mi piace chiedere aiuto senza provare a farcela da solo..
cmq sull'argomento "riferimenti" hai ragione,ma il mio errore è che li avevo
confusi con i componenti..cmq ho cercato nei rifrimenti è la vocce Jet 3.6
non l'ho trovata..
Però la modifica apportata dal Service Pack 5 funziona, visto che ora nel
controllo data,far le sue proprietà è spuntata la voce Acess 2000,però se
applicato a un mio progetto il risultato è, che alcuni database mi
continuano a dare l'errore di database non supportato (err.3343).
Il codice che dà l'errore è:
Private Sub nomi_Click()
Dim db As Database, tdftable As TableDef
Dim wrkJet As Workspace
lista.Clear
ora = (cartelle.Path) & "\" & (nomi.FileName)
Set wrkJet = DBEngine.CreateWorkspace("", "admin", "", dbUseJet)
Set db = wrkJet.OpenDatabase(ora, True)
For Each tdftable In db.TableDefs
If ((tdftable.Attributes And dbSystemObject) Or (tdftable.Attributes And
dbHiddenObject)) Then
Else
lista.AddItem tdftable.Name
End If
Next
è collegato a un tasto che fa apparire in una List Box il nome delle tabelle
del mdb scelto in una File List Box....
Grazie per la pazienza
Ciao

 [...] alcuni database mi continuano a dare l'errore di database non
supportato (err.3343).
L'errore in questione si riferisce presumibilmente al tentativo di apertura
di un database in un formato più recente rispetto a quello supportato dal
provider DAO. Credo non ci siano dubbi, se così fosse, che si tratta di un
problema di versioni di Jet, il motore di database di Access, poiché il
formato di Access 2000 non è compatibile con le versioni precedenti.
Poiché Access 2000 è Jet 4.0, dovresti procurarti, appunto, Jet 4.0, ovvero
DAO 3.61.
Probabilmente il SP5 non contiene DAO 3.61 (non lo so perché non l'ho ancora
installato).
Prova a cercare sul sito della Microsoft..
Ciao,
Carlo.

so prorio alle prime armi......
io cercavo il Jet...invece dovevo trovare il Dao...
Cmq ho levato il Dao 3.5 e ho messo Il 3.6 trovato sul service pack....e
funziona
GRAZIE  MILLE
Ciao

"Mike" ha scritto:
[...]
E' un piacere...