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:
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:
Set myrst = Conn.OpenSchema(adSchemaColumns, Array(Empty, Empty, NomTable, Empty))
Partager