Discussion :

[harry25]

Bonjour à tous,
Je souhaiterais créer une page (et une seule, d'ou l'intérêt) pour pouvoir modifier plusieurs (une dizaine) tables "systemes" (pays, zone, etc...) et donc je comptais utiliser une liste déroulante pour lister les tables systèmes (ca c'est ok) et une fois le nom de la table sélectionné afficher les lignes de cette table pour les modifier.

Je suis loin d'avoir fini et je bloque déjà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<%
Dim TABLEVAR
Dim TABLEVAR_cmd
Dim TABLEVAR_numRows
 
Set TABLEVAR_cmd = Server.CreateObject ("ADODB.Command")
TABLEVAR_cmd.ActiveConnection = MM_sd_STRING
dim SQL
SQL="SELECT * FROM " & TABLESSYSTEME.Fields.Item("NOMTABLESYS").Value
Response.Write(SQL)
TABLEVAR.CommandText = SQL
TABLEVAR_cmd.Prepared = true
 
Set TABLEVAR = TABLEVAR_cmd.Execute
TABLEVAR_numRows = 0
%>

La ligne TABLEVAR.CommandText = SQL me donne une erreur :
Erreur d'exécution Microsoft VBScript error '800a01a8'

Objet requis: ''

Quelqu'un aurait il une idée du problème ?

Sinon si vous avez des idées ou conseils pour gérer ma gestion des tables "systèmes" sur une seule page, je suis preneur ;-)

Par avance, merci.

[ryan]

Bonjour Harry,

Hmm, j'ai l'impression que tu as oublié une partie du nom de l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TABLEVAR.CommandText = SQL

devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TABLEVAR_cmd.CommandText = SQL

non?

[harry25]

Bonjour Ryan,
C'était bien ca le problème... Merci car c'est souvent sur ce genre de problème évident (quand on la vu ;-) que l'on perd pas mal de temps...

Je ne met pas encore mon post "résolu" car j'ai une autre question :
Comment récupérer le nom des colonnes d'une table ?
Avec ma liste déroulante je selectionne le nom de ma table à modifier, et ensuite je voudrais afficher cette table (le nom de colonnes et le nbre de colonnes ne sont pas les memes selon les tables...).

Par avance, merci.

Bonjour Harry,

Hmm, j'ai l'impression que tu as oublié une partie du nom de l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TABLEVAR.CommandText = SQL

devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TABLEVAR_cmd.CommandText = SQL

non?

[ryan]

Re!

Normalement, l'object TABLEVAR est de type Recordset, si j'ai bien suivi.
Donc tu as la collection fields.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For each fielditem in TABLEVAR.fields
  response.write fielditem.name & "<br>"
Next

[harry25]

Re!

Normalement, l'object TABLEVAR est de type Recordset, si j'ai bien suivi.
Donc tu as la collection fields.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For each fielditem in TABLEVAR.fields
  response.write fielditem.name & "<br>"
Next

Ok ca marche, merci encore.
J'ai d'autres soucis mais je vais créer un nouveau post...