variant 1 /2010 partie web

Page 1 sur 3 1, 2, 3  Suivant

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

variant 1 /2010 partie web

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

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
 
 

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

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: variant 1 /2010 partie web

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

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



karima koko
 
 

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

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: variant 1 /2010 partie web

Message par goldabdel le Ven Juil 08, 2011 2:48 pm

CHNO HADA AKHTI



goldabdel
 
 

Nombre de messages : 142
Date d'inscription : 19/12/2010
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: variant 1 /2010 partie web

Message par Mr.Hicham le Ven Juil 08, 2011 2:50 pm

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



Mr.Hicham
 
 

Nombre de messages : 464
Date d'inscription : 25/05/2010
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: variant 1 /2010 partie web

Message par Mr.zakaria le Sam Juil 09, 2011 5:37 pm

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



Mr.zakaria
Administrateur

Nombre de messages : 383
Date d'inscription : 25/06/2011
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Page 1 sur 3 1, 2, 3  Suivant

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