OpenSchema(adSchemaTables) en vbs ASP

Bonjour,

Pour le développement d'un programme sur une page web (intranet) en ASP verison 6.0.
Je veuxlister le nom des tables d'une base SQL server avec OpenSchema(adSchemaTables) en VBScript, mais ce message d'erreur survient:

438 - L'objet ne supporte pas cette propiété ou cette méthode.

sur cette ligne:

Set schemaTbl = MyConn.OpenSchema(adSchemaTables)


Le reste de mon code fontionne bien sans ça.

Quelqu'un pourrais m'aider?
Merci.

Essaye de mettre 20 à la place de adSchemaTables.

Regarde ici.

Tu as bien fait ceci dans ton code ?

Code:

---

Set conn = Server.CreateObject("ADODB.Connection")

---

Postes ton code cela sera plus simple pour t'aider.

Je n'y ai pas pensé.
IL est vrai que cela m'étais déjà arrivé une fois.

Ceci dit, ça ne fonctionne pas mieux.

Code:

---

1 2 3 4 5 6 7 8 9 10

dim reqSql, MyConn, tblChamp, rs ,schemaTbl   SET MyConn = server.createobject("ADODB.CONNECTION") MyConn.connectiontimeout=0 MyConn.CommandTimeout=0 MyConn.Open "Driver={SQL Server}; Server=nomServeur; DataBase=nomBase; UID=sa; PWD=;"     Set schemaTbl = MyConn.OpenSchema(20)

---

J'utilise XmlHttpRequeste, est-ce que cela peut gèner ?

Citation:

---

J'utilise XmlHttpRequeste, est-ce que cela peut gèner ?

---

Aucune idée, je ne suis pas un spéciliste des connections aux bases de données.

Désolé mais je n'ai pas d'autres idées :( .

Merci quand même ced600.