[ASP] PB migration de Access 2000 vers SQLServer 2000
PB migration de Access 2000 vers SQLServer 2000 [ASP] - Programmation
MarshPosté le 31-01-2002 à 20:58:11
(re)Salut, J'ai migré une BDD d'intranet de Access 2000 vers SQL Server 2000. La migration c'est effectué sans PB, j'ai rajouté les CLés primaires et tout ce qu'il faut. Mais certains enregistrements ne sont pas renvoyés dans mes pages asp. Le nombre d'enregistrement retourné est correct, le PB ne semble pas lié à un type précis de champ(ntext, text etc..) Voici la page qui pose probleme ça pose problème au niveau de "target" juste après ma boucle (for)... (target, titre et lien sont concernés mais je peux les afficher sans problème en dehors de la boucle for....peut-être un indice sachant que cette page fonctionne sans problème avec ACCESS)
<% @ Language = VBScript %> <% Set objconn = Server.CreateObject("ADODB.Connection" ) connstring = "driver={SQL Server};" & "server=SCULLY;uid=sa; pwd=; database=INTRANET" objconn.open connstring %> <!-- #include file="../modification/initialisation.asp" --> <!-- Stocke uniquement des variables en "dur" --> <% keldep=request.queryString("dep" ) combien="SELECT * FROM departement,colonnes Where departement.num_dep=colonnes.num_dep AND departement.num_dep="& keldep Set DD=objconn.Execute(combien) SQLQuery = "SELECT * FROM contenu WHERE num_dep=" & keldep Set RS = objconn.Execute(SQLQuery) nom_dep=DD("nom_dep" ) nb_col=DD("nb_col" ) %> <html> <!-- Petit javascript de popup innocent + feuille de style --> <body marginwidth="0" marginheight="0" leftmargin="1" topmargin="1"> <table border="1" cellpadding="5" cellspacing="0" width="796" bordercolor="navy"> <tr> <% For i=1 to nb_col %> <td width="265" valign="top"> <div align="center"> <p class="soustitre"> <% Do while Not DD.EOF numero_col=DD("numero_col" ) If numero_col=i Then titre_col=DD("titre_col" ) response.write titre_col End If DD.moveNext Loop DD.moveFirst %> </p> </div> <ul> <% Do While Not RS.EOF
If rs("num_col" )=i Then response.write rs("target" ) target=rs("target" ) num_cont=rs("num_cont" ) lien=rs("lien" ) IF target = "popup" THEN response.write "<li><a href='javascript:ouvre(" & num_cont & " );'>" & RS("titre" ) & "</a><br><br>" Else response.write "<li><a href='" & lien & "' target='" & target & "'>" & rs("titre" ) & "</a><br><br>" End If End If RS.MoveNext Loop RS.MoveFirst %> </ul> </td> <% If i=3 Then response.write "</tr><tr>"%> <%Next%> </tr></table></body></html> <%rs.close%>
Marsh Posté le 31-01-2002 à 20:58:11
(re)Salut,
J'ai migré une BDD d'intranet de Access 2000 vers SQL Server 2000. La migration c'est effectué sans PB, j'ai rajouté les CLés primaires et tout ce qu'il faut.
Mais certains enregistrements ne sont pas renvoyés dans mes pages asp.
Le nombre d'enregistrement retourné est correct, le PB ne semble pas lié à un type précis de champ(ntext, text etc..)
Voici la page qui pose probleme ça pose problème au niveau de "target" juste après ma boucle (for)...
(target, titre et lien sont concernés mais je peux les afficher sans problème en dehors de la boucle for....peut-être un indice sachant que cette page fonctionne sans problème avec ACCESS)
<% @ Language = VBScript %>
<%
Set objconn = Server.CreateObject("ADODB.Connection" )
connstring = "driver={SQL Server};" & "server=SCULLY;uid=sa; pwd=; database=INTRANET"
objconn.open connstring
%>
<!-- #include file="../modification/initialisation.asp" --> <!-- Stocke uniquement des variables en "dur" -->
<%
keldep=request.queryString("dep" )
combien="SELECT * FROM departement,colonnes Where departement.num_dep=colonnes.num_dep AND departement.num_dep="& keldep
Set DD=objconn.Execute(combien)
SQLQuery = "SELECT * FROM contenu WHERE num_dep=" & keldep
Set RS = objconn.Execute(SQLQuery)
nom_dep=DD("nom_dep" )
nb_col=DD("nb_col" )
%>
<html>
<!-- Petit javascript de popup innocent + feuille de style -->
<body marginwidth="0" marginheight="0" leftmargin="1" topmargin="1">
<table border="1" cellpadding="5" cellspacing="0" width="796" bordercolor="navy">
<tr>
<% For i=1 to nb_col %>
<td width="265" valign="top">
<div align="center">
<p class="soustitre">
<%
Do while Not DD.EOF
numero_col=DD("numero_col" )
If numero_col=i Then
titre_col=DD("titre_col" )
response.write titre_col
End If
DD.moveNext
Loop
DD.moveFirst
%>
</p>
</div>
<ul>
<%
Do While Not RS.EOF
If rs("num_col" )=i Then
response.write rs("target" )
target=rs("target" )
num_cont=rs("num_cont" )
lien=rs("lien" )
IF target = "popup" THEN
response.write "<li><a href='javascript:ouvre(" & num_cont & " );'>" & RS("titre" ) & "</a><br><br>"
Else
response.write "<li><a href='" & lien & "' target='" & target & "'>" & rs("titre" ) & "</a><br><br>"
End If
End If
RS.MoveNext
Loop
RS.MoveFirst
%>
</ul>
</td>
<% If i=3 Then response.write "</tr><tr>"%>
<%Next%>
</tr></table></body></html>
<%rs.close%>
A vos aspirines )
TZ