variant 1 /2010 partie web

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

hadchi machi dyal nas reseau dyal devellopement informatiq 2eme anne

Bon Khti C Mieus t7ati le sejuet dyalk f le forum de devellopment !!!

goldabdel , Mr.zakaria et K.Hicham okht galat likom TDI, o hiya mat9darch t change emplacement ta3 sujet, ghir ntoma a les admin

Ok , jai pa vu son commentaire

Mercii Karima Koko pr le Code