Discussion :

[Robert.F]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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