[VB6] Formato database Access non riconosciuto

[shopbazar]

Salve a tutti
Ho creato un DB con Office XP.
Ho attivato il riferimento MS ActiveX Data Object 2.8 Library.
Quando si tenta di collegarsi al DB viene mostrato l'errore "formato di DB non riconsciuto".
Ho visto che il Db usato da Adotur (un esempio online) non è nel formato Access XP, ma è in un formato simile.
Vorrei evitare di creare ub Db di un formato vecchio.
Come posso risolvere?
Devo attivare un riferimento differente?
Devo installare qualche S.pack al "VB 6 Service pack 5" in uso?
Spero mi possiate dare indicazioni.

grazie

[mardok30]

Ma si tratta di un progetto completo e tu vuoi convertire il Db usato nell'esempio in un Db Access 2000-2003?
Qual è il formato del Db dell'esempio?
Non ho capito cosa intendi fare, dacci maggiori info e vediamo cosa si può fare
Ps. esiste il ServicePack 6 per Vb6, ti consiglio di aggiornarlo.

[shopbazar]

sto provando un esempio già esistente, ma hanno usato una versione di access più vecchia. quindi con access xp le istruzioni di vb6 per i database non vanno bene. credo che sia per il service pack. Provo ad aggiornarlo?

ciao

[mardok30]

Se il Db è di una versione più vecchia basta che lo apri con l'Access che hai e ti verrà chiesto se aggiornare il Db alla versione più recente.
Il contro di tale operazione è che dovrai cambiare stringa di connessione al Db, riferimenti...pertanto se non è strettamente necessario ti consiglierei di nn aggiornare il Db.
Scarica il SP6 ed installalo, anche se non ti risolverà questo problema è consigliabile farlo.

[shopbazar]

ma il db lo devo fare in xp.

che stringa di connessione devo usare?

grazie

[mardok30]

ma il db lo devo fare in xp.

per xp cosa intendi?
Quando parlavo di stringa di connessione al Db pensavo al .Net in Vb6 ti posso dire che:
Ho una Db Access 2000
Riferimento a Microsoft DAO 3.6 Object library
Dim db As Database
Dim rs As Recordset
dim sql as string

Set db = OpenDatabase(App.Path & "\archivio.mdb")
sql = "SELECT..."
Set rsricette = db.OpenRecordset(sql)
Do While Not rsricette.EOF
msgbox rs.Fields("nomecampo")
rsricette.MoveNext
Loop

[shopbazar]

intendo access 2003

[shopbazar]

la domanda è:

usando access 2003 e vb6 come gestire i database.

scrivi il codice

grazie