Sardonnen
Messages postés89Date d'inscriptionlundi 29 avril 2002StatutMembreDernière intervention 6 décembre 2006
-
14 nov. 2005 à 11:18
Sardonnen
Messages postés89Date d'inscriptionlundi 29 avril 2002StatutMembreDernière intervention 6 décembre 2006
-
14 nov. 2005 à 14:50
bonjour,
je voudrais pouvoir afficher un datalist, sur la même page, après avoir cliqué sur un lien. J'ai essayé ceci mais cela ne fonctionne pas, quelqu'un peut il m'aider????
,
----
function test(id as string)
' connection a la base de donnees oracle '
dim cn_string as string
dim dbconn,sql,dbcomm,dbread
cn_string=ConfigurationSettings.AppSettings("cn")
dbconn=New OleDbConnection(cn_string)
dbconn.Open()
' requete liste des noms '
sql="select nom, prenom from acteur ac,acteur_equipe aceq "
sql=sql + " where ac.ident_acteur = aceq.ident_acteur and aceq.ident_equipe = " + id
dbcomm=New OleDbCommand(sql,dbconn)
dbread=dbcomm.ExecuteReader(CommandBehavior.CloseConnection)
return dbread
end function
sub deplie()
dim t_ctrl as string
dim div_equipe as control
Sardonnen
Messages postés89Date d'inscriptionlundi 29 avril 2002StatutMembreDernière intervention 6 décembre 2006 14 nov. 2005 à 14:26
il y a eu un pb.... donc je disais
oui mais je fais comment pour ne rendre visible que le datalist lié au clic car je suis toujours dans mon histoire de 2 datalist dont le premier donne le nom des équipes et si on clique sur le lien attaché au nom, on affiche la liste des personnes qui s'y trouve????
<script runat="server" language="vb">
Sub Page_Load(Src As Object, E As EventArgs)
' connection a la base de donnees oracle '
dim cn_string as string
dim dbconn,sql,dbcomm,dbread
cn_string=ConfigurationSettings.AppSettings("cn")
dbconn=New OleDbConnection(cn_string)
If Not IsPostBack Then
dbconn.Open()
' requete liste des equipes '
sql="SELECT ident_equipe,lib_equipe FROM lib_equipe order by lib_equipe"
dbcomm=New OleDbCommand(sql,dbconn)
dbread=dbcomm.ExecuteReader(CommandBehavior.CloseConnection)
lst_equipe.datasource=dbread
lst_equipe.databind()
End If
End Sub
function test(id as string)
' connection a la base de donnees oracle '
dim cn_string as string
dim dbconn,sql,dbcomm,dbread
cn_string=ConfigurationSettings.AppSettings("cn")
dbconn=New OleDbConnection(cn_string)
dbconn.Open()
' requete liste des noms '
sql="select nom, prenom from acteur ac,acteur_equipe aceq "
sql=sql + " where ac.ident_acteur = aceq.ident_acteur and aceq.ident_equipe = " + id
dbcomm=New OleDbCommand(sql,dbconn)
dbread=dbcomm.ExecuteReader(CommandBehavior.CloseConnection)
return dbread
end function
sub lblclick(ByVal sender As Object, ByVal e As EventArgs)
me.lst_nom.visible = true
end sub
</script>