aide sur la méthode openschema

[boss_gama]

Bonjour, j'utilie la méthode openschema(4) pour travailler sur les tables d'une base de données access. Ce qui m'intéresse, c'est de trouver le nom de la table et le nom des différents champs. Pour ma base access la méthode marche. mùais si j'essaie d'adapter mon script à une autre base access, comportant d'autres tables et des requètes en plus, j'obtiens une erreur:
'Le fournisseur ou l'objet ne prend pas en charge cette opération.'
Je pense que ca vient des requètes access, car si j'importe les tables dans ma base de données (qui n'a pas de requètes) ca marche.
Qu'est-ce que j'ai comme alternative a part devoir importer chaque table de l'autre base manuellement dans ma base?

[boss_gama]

J'ai trouvé ce code qui est censé répertorier uniquement les tables d'une base access, mais il me fait une erreur identique à la précédente.

Code :

1
2
Set rs = cn.OpenSchema(adSchemaTables, _
         Array(Empty, Empty, Empty, "Table")

[amar00]

un petit bout de code commenté

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub ListTablesADO()
  Dim Conn  :  set Conn  = server.createObject("ADODB.connection")
  Dim RsTablesSchema :  set RsTablesSchema = server.createObject("ADODB.Recordset")
  Dim RsColumnsSchema :  set RsColumnsSchema = server.createObject("ADODB.Recordset")
 
  'ouverture de la connection
  Conn.Open .........
 
 'pour obtenir toutes les tables de la base(y compris les tables système....)
  Set RsTablesSchema = Conn.OpenSchema(adSchemaTables) 
  Do While Not RsTablesSchema.EOF
    'on veut uniquement les tables
    If RsTablesSchema("TABLE_TYPE")= "TABLE" Then
 
       'obtention des colonnes de la table en cours
       Set RsColumnsSchema = Conn.OpenSchema(adSchemaColumns, _
         Array(Empty, Empty,RsTablesSchema("TABLE_NAME")))
 
       'affichage des colonnes de la table en cours
       Do While Not RsColumnsSchema.EOF
           Response.write RsTablesSchema("TABLE_NAME") & ", " & _
           RsColumnsSchema("COLUMN_NAME") & "<BR>"
           RsColumnsSchema.MoveNext
       Loop
   End if
   RsTablesSchema.MoveNext
  Loop
End Sub

[boss_gama]

Okay ca marche, pour la détection de mes tables, par contre je rencontre le meme problème quand je cherche à détecter la clé primaire d'une table:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set connec = Server.CreateObject("ADODB.Connection")
connec.Open connstring	
set myrst = connec.OpenSchema(28)
do while not myrst.eof
	if myrst("TABLE_NAME") = NomTable then
		if myrst("PK_NAME") = "PrimaryKey" then
			id = myrst("COLUMN_NAME")
		end if
	end if
	myrst.movenext
loop
myrst.close
connec.close

Sur l'ancienne version de ma base, il me fait la meme erreur, alors que sur la nouvelle base, qui n'est que l'ancienne base avec des tables en moins, ca marche. Ca pourrait etre un problème lié à access? Ou je devrais utiliser la méthode openschéma avec des array, du type:

Code :

Set myrst = Conn.OpenSchema(adSchemaColumns, Array(Empty, Empty, NomTable, Empty))

[amar00]

Quel type d'erreur?
Pourrais-tu être un peu plus précis.
Sinon il te manque une parenthèse ouvrante dans :

Code :

NomTable)

[boss_gama]

Je parlais de l'erreur :
'Le fournisseur ou l'objet ne prend pas en charge cette opération.'
Alors que pour la même table dans mon autre base de données ca marche .

parenthèses corrigé.

[amar00]

Maintenant que je m'en souviens , le comportement n'est pas nécéssairement le même en fonction du fournisseur.
Pour ma part j'utilise avec access ce type de chaine de connection.

Code :

1
2
 
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..."

Tu utilises un autre fournisseur que oledb??

[boss_gama]

non, j'utilise le même que toi. Et ca marche d'un coté mais pas de l'autre....

[amar00]

Bah là je ne suis plus très inspiré....
Quelques dernières pistes
es-tu certain de passer une valeur numérique (28 et non pas "28")?
Essayes cette façon de faire

Code :

1
2
3
 
Conn.OpenSchema(adSchemaPrimaryKeys, _
         Array(Empty, Empty,nomTable))

Est-ce que tu as la même version de access pour tes 2 bases? De mdac sur les deux postes ?

[boss_gama]

Envoyé par amar00

es-tu certain de passer une valeur numérique (28 et non pas "28")?

Normalement oui, pas de souci. Je change juste le nom de la table, je ne touche pas le code.

Envoyé par amar00

Essayes cette façon de faire

Code :

Testé sans succès...

Envoyé par amar00

Est-ce que tu as la même version de access pour tes 2 bases? De mdac sur les deux postes ?

Normalement oui, pas de souci pour la base access, mais je reconfirmerais auprès de l'administrateur du réseau quand il rentrera. Je ne sais pas ce qu'est mdac, mais j'utilise le meme poste pour les deux tables donc...