DEBUTANT

**Hamdi** · 28/03/2006, 16h50

Bonjour,

j'utilise le code suivant pour visulaiser le contenu d'un recordset

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set MaConn=Server.CreateObject("ADODB.Connection")
Set RstRes=Server.CreateObject("ADODB.RECORDSET")
 
MaConn.open "Driver={Microsoft Access Driver (*.mdb)};" _
 & " DBQ=" & Server.MapPath("ORACLE.mdb") 
SQL="SELECT * FROM EXTRACTIONARAP"
RstRes.open SQL,MaConn,1,1
if not RstRes.EOF then
	RstRes.Pagesize =5
end if
Set RstRes=MaConn.execute(SQL)

à l'affichage, il me sort l'erreur suivante

Erreur de compilation Microsoft VBScript error '800a0401'
/iisHelp/common/500-100.asp, line 11 </p>
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim
strMethod, lngPos, datNow, strQueryString, strURL<br>
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Ce pilote ODBC ne prend pas en charge les propriétés demandées.

/extranet/TMPwk7mywuekp.asp, line 25

il plante exactement à l'ouverture du recordset.

Je dois présenter le truc demain matin.

Merci pour votre aide[/b]

**Immobilis** · 28/03/2006, 16h56

La chaine de connection ne me semble pas bonne

Code :

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

"Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ORACLE.mdb") & ";"

Si tu as un retour à la ligne il faut l'ecrire ainsi

Code :

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

1
2
"etc" & _
"etc"

Enlève

Set RstRes=MaConn.execute(SQL)

et ajoute

Code :

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

1
2
3
RstRes.Close
Set RstRes = nothing
set MaConn = Nothing

A+

**Hamdi** · 28/03/2006, 17h08

Désolà, mais àça ne marche toujours pas.

voici le code en entier :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
 
'Response.Expires = -1
'Response.Addheader "Pragma", "no-cache"
'Response.AddHeader "cache-control", "no-store"
'if request("page")="" then
'	Page=1
'else
'	Page=Request("Page")
'end if
 
Set MaConn=Server.CreateObject("ADODB.Connection")
Set RstRes=Server.CreateObject("ADODB.RECORDSET")
 
'if not trim(Request("ChoixRes")) = "" then
'	reqRes = " AND EXTARCTION.RESULTAT= '" & trim(Request("ChoixRes")) & "'"
'else
'resRes = ""
'end if
 
MaConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ORACLE.mdb") & ";"
SQL="SELECT * FROM EXTRACTIONARAP"
RstRes.open SQL,MaConn,1,1
if not RstRes.EOF then
	RstRes.Pagesize =5
end if
Set RstRes=MaConn.execute(SQL)
%>
<html>
<head>
<title>Contenu Par Résultat d'appel</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
 
<table width="935" border="0" cellpadding="0" cellspacing="0">
    <td colspan="2" valign="top"><img src="images/bandeau_principal.gif" width="927" height="90"></td>
  </tr>
  <tr> 
    <td height="21" colspan="3" valign="top"><script language="JavaScript" src="ejs_menu_dyn_imad.js"></script></td>
  </tr>
  <tr>
    <td valign="top"><table width="100%" border="1" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="183" height="21" align="left" valign="middle" bgcolor="#FF6600"><font size="2" face="Arial, Helvetica, sans-serif">SOCIETE</font></td>
          <td width="93" align="left" valign="middle" bgcolor="#FF6600"><font size="2" face="Arial, Helvetica, sans-serif">CODE 
            POSTAL</font></td>
          <td width="155" align="left" valign="middle" bgcolor="#FF6600"><font size="2" face="Arial, Helvetica, sans-serif">VILLE</font></td>
          <td width="133" align="left" valign="middle" bgcolor="#FF6600"><font size="2" face="Arial, Helvetica, sans-serif">NOM 
            CONTACT</font></td>
          <td width="135" align="left" valign="middle" bgcolor="#FF6600"><font size="2" face="Arial, Helvetica, sans-serif">PRENOM</font></td>
          <td width="136" align="left" valign="middle" bgcolor="#FF6600"><font size="2" face="Arial, Helvetica, sans-serif">OPERATION</font></td>
          <td width="136" align="left" valign="middle" bgcolor="#FF6600"><font size="2" face="Arial, Helvetica, sans-serif">RESULTAT</font></td>
        </tr>
<%  dim i
	i=0
	DO WHILE NOT (RstRes.EOF)
%>
        <tr> 
          <td height="23" align="left" valign="middle" bordercolor="#FF6600"><font size="1" face="Arial, Helvetica, sans-serif"><%=RstRes("SOCIETE")%></font></td>
          <td align="left" valign="middle" bordercolor="#FF6600"><font size="1" face="Arial, Helvetica, sans-serif"><%=RstRes("CP")%></font></td>
          <td align="left" valign="middle" bordercolor="#FF6600"><font size="1" face="Arial, Helvetica, sans-serif"><%=RstRes("VILLE")%></font></td>
          <td align="left" valign="middle" bordercolor="#FF6600"><font size="1" face="Arial, Helvetica, sans-serif"><%=RstRes("NOM")%></font></td>
          <td align="left" valign="middle" bordercolor="#FF6600"><font size="1" face="Arial, Helvetica, sans-serif"><%=RstRes("PRENOM")%></font></td>
          <td align="left" valign="middle" bordercolor="#FF6600"><font size="1" face="Arial, Helvetica, sans-serif"><%=RstRes("ORIGINE")%></font></td>
          <td align="left" valign="middle" bordercolor="#FF6600"><font size="1" face="Arial, Helvetica, sans-serif"><%=RstRes("RESULTAT")%></font></td>
        </tr>
<%	RstRes.Movenext
	i=i+1
	loop
%>
</table></td>
</table>
</body>
</html>
<%RstRes.close
set  RstRes=NOthing
MaConn.close
set MaConn = nothing
%>

Merci

DEBUTANT

ASP

Vue hybride

Discussions similaires

Partager

Partager