objRS

Version imprimable

objRS

Bon j'ai le code suivant :

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
30
31
32
33
34
35
<% @Language=VBSCRIPT %>
<% Option Explicit %>
<!--#include file = "ConnexionBaseDeDonnees.asp"-->
<!--#include file = "ConnexionBaseDeDonneesGenerique.asp"-->
<HTML>
<%
If Request("recherche") <> "" Then
	'---Définition des constantes---'
	Const adCmdTable = 2
	Const adLockOptimistic = 3
	'---Définition des variables---'
	Dim objRS
	Dim objRS2
	Dim strSql
	Dim strSql2
	Dim strTable
	Set objRS = Server.CreateObject("ADODB.Recordset")
	Set objRS2 = Server.CreateObject("ADODB.Recordset")
	strSql = "select tNomTable from tblCreationTable where fIdTable = " & Cint(Request("idtable"))
	objRS.Open strSql, objConn, adLockOptimistic, adCmdTable
	strTable = objRS(0)
	strSql2 = "select * from " & strTable & " where " & Request("nomchamp") & " = " & Request("recherche")
	Response.Write strSql2
	'objRS2.Open strSql2, objConn2, , adLockOptimistic, adCmdTable'
	objRS.Close
	Set objRS = Nothing
	'objRS2.Close'
	'Set objRS2 = Nothing'
	objConn.Close
	Set objConn = Nothing
	'objConn2.Close'
	'Set objConn2 = Nothing'
End If
%>
</HTML>

Le Response. Write me donne :
select * from Table1 where Champs1 = 1

mais dès que je remets cette ligne pas en commentaire :

Code:

objRS2.Open strSql2, objConn2, , adLockOptimistic, adCmdTable

Et bien j'ai cette erreur :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Pilote ODBC Microsoft Access] Erreur de syntaxe dans la clause FROM.
/emilie/Recherche2.asp, line 24

04/08/2004, 15h03
fredoche

affiche strSql2 avant cette ligne, elle doit pas être complète
04/08/2004, 15h05
boucher_emilie

Ms je l'affiche déjà avt cette ligne !! 8O
04/08/2004, 15h08
fredoche

oui , j'avais pas fait gaffe :oops:
eh bien tu peux nous la montrer cette requète ?
04/08/2004, 15h13
boucher_emilie

C ça :
select * from Table1 where Champs1 = 1
04/08/2004, 15h32
boucher_emilie

C ça :
select * from Table1 where Champs1 = 1
04/08/2004, 15h42
fredoche

Citation:

Envoyé par boucher_emilie

C ça :
select * from Table1 where Champs1 = 1

difficile de faire plus simple.

perso, je sèche... elle existe table1 ? tu as essayé [Table1] ?
04/08/2004, 15h51
boucher_emilie

:oops: :oops: :oops: :oops:
Oh la la je ven de m'appercevoir de mon erreur... la bourde !! Ca fait des heures q je cherche pr ça :x :x :x
J'ai mis ça :

Code:

objRS2.Open strSql2, objConn2, , adLockOptimistic, adCmdTable

à la place de

Code:

objRS2.Open strSql2, objConn2, adLockOptimistic, adCmdTable

Désolée :(
04/08/2004, 15h51
lucimast

Salut,

Citation:

objRS2.Open strSql2, objConn2, , adLockOptimistic, adCmdTable

essaye de faire comme ce recordset en enlevant l'espace

Citation:

objRS.Open strSql, objConn, adLockOptimistic, adCmdTable

On ne sait jamais !!
[/quote]