access 2000 access97

Raymond [mvp]

30/01/2004 à 16:08

Bonsoir.

il faut la convertir en base 97.
menu outils / utilitaires / convertir une base / convertir à la version
précédente

elle sera convertie en 97 sauf si des fonctions spécifiques 2000 ont été
utilisées.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"cilou" a écrit dans le message de
news:6de201c3e741$361433d0$
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous 97"
sur access 2000

30/01/2004 à 16:39

merci Raymond

est ce que tu as des connaissances en Business Objects
également ?

-----Message d'origine-----
Bonsoir.

il faut la convertir en base 97.
menu outils / utilitaires / convertir une base /
convertir à la version

précédente

elle sera convertie en 97 sauf si des fonctions
spécifiques 2000 ont été

utilisées.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"cilou" a écrit
dans le message de

news:6de201c3e741$361433d0$
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous 97"
sur access 2000

.

Raymond [mvp]

30/01/2004 à 17:25

non merci, access est déja assez prenant.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

a écrit dans le message de
news:779501c3e747$48661610$
merci Raymond

est ce que tu as des connaissances en Business Objects
également ?

rg

31/01/2004 à 20:52

Tu peux lire une base AC2000 sous AC 97 en utilisant DAO
A+

"cilou" a écrit dans le message de
news: 6de201c3e741$361433d0$
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous 97"
sur access 2000

Raymond [mvp]

31/01/2004 à 21:44

Bonsoir rg.
tu es sûr de pouvoir lire une base ac2000 sous ac97 ?
Pourquoi y a-t-il une procédure de conversion vers 97 sous 2000 ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"rg" SPAM> a écrit dans le message de
news:

Tu peux lire une base AC2000 sous AC 97 en utilisant DAO
A+

"cilou" a écrit dans le message de
news: 6de201c3e741$361433d0$
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous 97"
sur access 2000

René

01/02/2004 à 16:55

Oui, cela fonctionne en lecture, car j'ai une appli qui
fonctionne sous AC97 et qui lit une table d'une base
access 2000,
voici le code pour info
Private Sub btnMajTableEquip_Click()
' Transfere la table des équipements
' de la base AC2000 vers la table AC97
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl EQUIP")
'Ouvre la base à lire
cnn.Open "PROVIDER=MSDASQL.1;DSN�SE GMAO",
UserId:="Admin", Password:="maint"
'lecture table EQUIP
rs.Open "Select * From EQUIP WHERE ([EQUIP].EQNUM Not
Like 'TRAV%') And ([EQNUM] Not Like 'ilo%') And (EQNUM
Not Like 'TRUSI%')AND (EQTYPE <> 'Moule') And (EQTYPE
<> 'outil')", _
cnn, adOpenDynamic, adLockReadOnly

' Delete les data de la table "tbl EQUIP"
'rst.MoveFirst
While Not rst.EOF
rst.Delete
rst.MoveNext
Wend

'lecture et enregistrement des recordsets
rs.MoveFirst
While Not rs.EOF
rst.AddNew
rst![EQNUM] = rs.Fields("EQNUM").Value
rst![EQTYPE] = rs.Fields("EQTYPE").Value
rst![DESCRIPTION] = rs.Fields("DESCRIPTION").Value
rst!SERIALNUM = rs.Fields("SERIALNUM").Value
rst!MODELNUM = rs.Fields("MODELNUM").Value
rst!MANUFACTURER = rs.Fields("MANUFACTURER").Value
rst!UD1 = rs.Fields("UD1").Value
rst!STARTUPDATE = rs.Fields("STARTUPDATE").Value
rs.MoveNext
rst.Update
Wend
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
End Sub

-----Message d'origine-----
Bonsoir rg.
tu es sûr de pouvoir lire une base ac2000 sous ac97 ?
Pourquoi y a-t-il une procédure de conversion vers 97
sous 2000 ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"rg" SPAM> a écrit dans le message
de

news:
Tu peux lire une base AC2000 sous AC 97 en utilisant
DAO

A+

"cilou" a écrit
dans le message de

news: 6de201c3e741$361433d0$
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous
97"

sur access 2000

.

Oui, cela fonctionne en lecture, car j'ai une appli qui
fonctionne sous AC97 et qui lit une table d'une base
access 2000,
voici le code pour info
Private Sub btnMajTableEquip_Click()
' Transfere la table des équipements
' de la base AC2000 vers la table AC97
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl EQUIP")
'Ouvre la base à lire
cnn.Open "PROVIDER=MSDASQL.1;DSN=BASE GMAO",
UserId:="Admin", Password:="maint"
'lecture table EQUIP
rs.Open "Select * From EQUIP WHERE ([EQUIP].EQNUM Not
Like 'TRAV%') And ([EQNUM] Not Like 'ilo%') And (EQNUM
Not Like 'TRUSI%')AND (EQTYPE <> 'Moule') And (EQTYPE
<> 'outil')", _
cnn, adOpenDynamic, adLockReadOnly

' Delete les data de la table "tbl EQUIP"
'rst.MoveFirst
While Not rst.EOF
rst.Delete
rst.MoveNext
Wend

'lecture et enregistrement des recordsets
rs.MoveFirst
While Not rs.EOF
rst.AddNew
rst![EQNUM] = rs.Fields("EQNUM").Value
rst![EQTYPE] = rs.Fields("EQTYPE").Value
rst![DESCRIPTION] = rs.Fields("DESCRIPTION").Value
rst!SERIALNUM = rs.Fields("SERIALNUM").Value
rst!MODELNUM = rs.Fields("MODELNUM").Value
rst!MANUFACTURER = rs.Fields("MANUFACTURER").Value
rst!UD1 = rs.Fields("UD1").Value
rst!STARTUPDATE = rs.Fields("STARTUPDATE").Value
rs.MoveNext
rst.Update
Wend
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
End Sub

-----Message d'origine-----
Bonsoir rg.
tu es sûr de pouvoir lire une base ac2000 sous ac97 ?
Pourquoi y a-t-il une procédure de conversion vers 97
sous 2000 ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"rg" <r.gesbert@free.fr_no SPAM> a écrit dans le message
de

news:O9IwNND6DHA.2712@tk2msftngp13.phx.gbl...

Tu peux lire une base AC2000 sous AC 97 en utilisant
DAO

A+

"cilou" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 6de201c3e741$361433d0$a101280a@phx.gbl...
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous
97"

sur access 2000

.

Vous avez filtré cet utilisateur ! Consultez son message

Oui, cela fonctionne en lecture, car j'ai une appli qui
fonctionne sous AC97 et qui lit une table d'une base
access 2000,
voici le code pour info
Private Sub btnMajTableEquip_Click()
' Transfere la table des équipements
' de la base AC2000 vers la table AC97
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl EQUIP")
'Ouvre la base à lire
cnn.Open "PROVIDER=MSDASQL.1;DSN�SE GMAO",
UserId:="Admin", Password:="maint"
'lecture table EQUIP
rs.Open "Select * From EQUIP WHERE ([EQUIP].EQNUM Not
Like 'TRAV%') And ([EQNUM] Not Like 'ilo%') And (EQNUM
Not Like 'TRUSI%')AND (EQTYPE <> 'Moule') And (EQTYPE
<> 'outil')", _
cnn, adOpenDynamic, adLockReadOnly

' Delete les data de la table "tbl EQUIP"
'rst.MoveFirst
While Not rst.EOF
rst.Delete
rst.MoveNext
Wend

'lecture et enregistrement des recordsets
rs.MoveFirst
While Not rs.EOF
rst.AddNew
rst![EQNUM] = rs.Fields("EQNUM").Value
rst![EQTYPE] = rs.Fields("EQTYPE").Value
rst![DESCRIPTION] = rs.Fields("DESCRIPTION").Value
rst!SERIALNUM = rs.Fields("SERIALNUM").Value
rst!MODELNUM = rs.Fields("MODELNUM").Value
rst!MANUFACTURER = rs.Fields("MANUFACTURER").Value
rst!UD1 = rs.Fields("UD1").Value
rst!STARTUPDATE = rs.Fields("STARTUPDATE").Value
rs.MoveNext
rst.Update
Wend
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
End Sub

-----Message d'origine-----
Bonsoir rg.
tu es sûr de pouvoir lire une base ac2000 sous ac97 ?
Pourquoi y a-t-il une procédure de conversion vers 97
sous 2000 ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"rg" SPAM> a écrit dans le message
de

news:
Tu peux lire une base AC2000 sous AC 97 en utilisant
DAO

A+

"cilou" a écrit
dans le message de

news: 6de201c3e741$361433d0$
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous
97"

sur access 2000

.

Raymond [mvp]

01/02/2004 à 18:35

Bonsoir.

moi je veux bien , mais quel utilisateur 97 peut avoir ADO chez lui et faire
tourner ado sous 97 ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"René" a écrit dans le message de
news:816701c3e8db$db430430$
Oui, cela fonctionne en lecture, car j'ai une appli qui
fonctionne sous AC97 et qui lit une table d'une base
access 2000,
voici le code pour info
Private Sub btnMajTableEquip_Click()
' Transfere la table des équipements
' de la base AC2000 vers la table AC97
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl EQUIP")
'Ouvre la base à lire
cnn.Open "PROVIDER=MSDASQL.1;DSNºSE GMAO",
UserId:="Admin", Password:="maint"
'lecture table EQUIP
rs.Open "Select * From EQUIP WHERE ([EQUIP].EQNUM Not
Like 'TRAV%') And ([EQNUM] Not Like 'ilo%') And (EQNUM
Not Like 'TRUSI%')AND (EQTYPE <> 'Moule') And (EQTYPE
<> 'outil')", _
cnn, adOpenDynamic, adLockReadOnly

' Delete les data de la table "tbl EQUIP"
'rst.MoveFirst
While Not rst.EOF
rst.Delete
rst.MoveNext
Wend

'lecture et enregistrement des recordsets
rs.MoveFirst
While Not rs.EOF
rst.AddNew
rst![EQNUM] = rs.Fields("EQNUM").Value
rst![EQTYPE] = rs.Fields("EQTYPE").Value
rst![DESCRIPTION] = rs.Fields("DESCRIPTION").Value
rst!SERIALNUM = rs.Fields("SERIALNUM").Value
rst!MODELNUM = rs.Fields("MODELNUM").Value
rst!MANUFACTURER = rs.Fields("MANUFACTURER").Value
rst!UD1 = rs.Fields("UD1").Value
rst!STARTUPDATE = rs.Fields("STARTUPDATE").Value
rs.MoveNext
rst.Update
Wend
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
End Sub

Richard Martin

04/02/2004 à 00:40

Dans le menu ACCESS 2000 faire :

Outils, Utilitaire de base de données, Convertir, A la version précédente.

C'est ça le plus simple.

"rg" SPAM> a écrit dans le message de
news:

Tu peux lire une base AC2000 sous AC 97 en utilisant DAO
A+

"cilou" a écrit dans le message de
news: 6de201c3e741$361433d0$
Comment fait on pour lire sous access 97 une base de
données créée sur 2000

Existe t'il une fonction telle que "Enregistrer sous 97"
sur access 2000

access 2000 access97

8 réponses

Veuillez sélectionner un problème