variant 1 /2010 partie web

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

enregistrement d'un joueur code dyal(valider annuler)
Imports System.Data.SqlClient
Imports System.Data
Partial Class Enregistrement_d_un_joueur
Inherits System.Web.UI.Page
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim dr As SqlDataReader
Dim com1, com2, com3 As New SqlCommand

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"
Me.TextBox8.Focus()
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If Not Page.IsPostBack = False Then
con.Open()
com.Connection = con
com2.Connection = con
com1.Connection = con
com3.Connection = con
Dim str As String
If Me.RadioButton1.Checked = True Then
str = Me.RadioButton1.Text
Else
str = Me.RadioButton2.Text
End If
com2.CommandText = "select * from Joueur"
com2.CommandType = CommandType.Text
dr = com2.ExecuteReader
Dim bol As New Boolean
bol = True
While dr.Read
If dr(0).Equals(CInt(Me.TextBox8.Text)) Then
bol = False
End If
End While
dr.Close()
If bol = False Then
Me.Label1.Text = "Ce N° Joueur existe déjà"
Else
com.CommandText = "insert into Joueur values('" & Me.TextBox8.Text & "','" & Me.TextBox1.Text & "','" & str & "','" & Me.TextBox7.Text & "')"
com.ExecuteNonQuery()
com1.CommandText = "insert into Jeu_Simple values('" & Me.TextBox8.Text & "','" & Me.TextBox6.Text & "','" & "" & "' )"
com1.ExecuteNonQuery()
com3.CommandText = "select max(Code_généré) from Joueur"
com3.CommandType = CommandType.Text
Me.Label1.Text = ("L'opération est réussit : Votre code est: !" & com3.ExecuteScalar)
End If
End If
Catch ex As Exception
Me.Label2.Text = ex.Message
End Try
End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.TextBox5.Text = ""
Me.TextBox1.Focus()
End Sub
End Class

CHNO HADA AKHTI

Té sur ke hadchi kaya9raweh s7ab reseau ???

si nn raki ghalta f forum hada khass b reseau, repon vite pr changé l'emplacement dial sujet

3amri machft Hadchi 3and Shab Reseaux !!!!