1 pièce(s) jointe(s)
Rajouter une colonne à la base de donner pour ajouter des points
Bonjour j'ai la connexion à la base de données avec la connexion utilisateur mais j'aimerais rajouter des points ex : quand l'utilisateur se connecte puis télécharge une image ca lui en lève 10 points un truc comme ça.
Désole d'avance pour mal compréhension et merci da avance pour vos réponses.
Pièce jointe 187234
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Imports MySql.Data
Imports MySql.Data.MySqlClient
Imports MySql.Web
Imports System.IO
Public Class Form1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim flag As Boolean = False
If (String.IsNullOrEmpty(TextBox1.Text) Or String.IsNullOrEmpty(TextBox2.Text)) Then
MessageBox.Show("username or passord missing")
Exit Sub
End If
flag = CheckUser(TextBox1.Text, TextBox2.Text)
If flag = True Then
MessageBox.Show(" Login ok")
Else
MessageBox.Show("invalid user/password")
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Function CheckUser(ByVal u As String, ByVal p As String) As Boolean
Dim flag As Boolean = False
Dim cnn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim reader As MySqlDataReader
cnn.ConnectionString = "Server=ip;Database=db;Uid=user';Pwd='motdepasse';"
cmd.CommandText = "select * from user where uname='" + u.Trim() + "' and upass='" + p.Trim() + "'"
cmd.Connection = cnn
cnn.Open()
reader = cmd.ExecuteReader()
If (reader.HasRows) Then
flag = True
End If
cnn.Close()
Return flag
End Function |