Le Deal du moment : -44%
Baskets Nike Air Max 90 à moins de 80€ (du ...
Voir le deal
78.48 €

variant 1 /2010 partie web

Page 3 sur 3 Précédent  1, 2, 3

Voir le sujet précédent Voir le sujet suivant Aller en bas

variant 1 /2010 partie web - Page 3 Empty variant 1 /2010 partie web

Message par karima koko le Ven Juil 08, 2011 2:30 pm

Rappel du premier message :

Imports System.Data.SqlClient
Imports System.Data
Partial Class Authentification
Inherits System.Web.UI.Page
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim dr As SqlDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con.ConnectionString = "Data Source=.;Initial Catalog=Variante N°1;Integrated Security=True"
con.Open()
com.Connection = con
Me.TextBox1.Focus()
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
com.CommandText = "select * from Joueur"
com.CommandType = CommandType.Text
dr = com.ExecuteReader
Dim bol As New Boolean
bol = True
While dr.Read
If dr(4).Equals(CInt(Me.TextBox2.Text)) And dr(1).Equals(Me.TextBox1.Text) Then
bol = False
End If
End While
If bol = False Then
Me.Session("a") = CInt(Me.TextBox2.Text)
Response.Redirect("Information joueur.aspx")
Else
Me.Label1.Text = "Compte incorrect ! "
End If
End Sub
End Class


karima koko
karima koko
 
 

Nombre de messages : 15
Date d'inscription : 02/07/2011
Féminin

Revenir en haut Aller en bas


variant 1 /2010 partie web - Page 3 Empty Re: variant 1 /2010 partie web

Message par Mr.Rachid le Dim Juil 10, 2011 12:37 am

ok khoya ma3lich variant 1 /2010 partie web - Page 3 641524 et merci


Mr.Rachid
Mr.Rachid
Administrateur

Nombre de messages : 1184
Date d'inscription : 02/08/2009
Masculin

Revenir en haut Aller en bas

Page 3 sur 3 Précédent  1, 2, 3

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum