Prog vb log/pass et sql

Télécharger le projet
Commenter

Description

Alors ce petit prog est en fait un moyen tres sur de proteger son programme qui est destiné a etre utilisé par beaucoup d'utilisateurs car les logins et pass sont stockés dans une base de donnée SQL. Evidemment il faut etre online sur le net ou sur un reseau local. L'avantage est aussi qu'il n'y a donc pas besoin de retoucher au programme pour ajouter des users etant donné qu'ils sont stockés dans une DB.

Dsl vous ne pourrez tester le programme qu'avec votre db car je n'en est po créer pour que vous puissez tester.

Source / Exemple : 


Option Explicit
Private Sub Cancel_Click()
End
End Sub

Private Sub login_Click()
Dim rsado As ADODB.Recordset
Dim Conn As ADODB.Connection
Dim strSQL As String
Set Conn = New ADODB.Connection
  Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=*.dyndns.org;DATABASE=prog;UID=*;pwd=*"
  Conn.Open
Set rsado = New ADODB.Recordset
strSQL = ("SELECT login,password FROM admins WHERE login = '" & LoginText.Text & "' AND password = '" & PassText.Text & "'")
Set rsado = New ADODB.Recordset
rsado.CursorLocation = adUseClient
rsado.Open strSQL, Conn, adOpenStatic, adLockReadOnly
If rsado.RecordCount <> 1 Then
MsgBox "mauvais login ou mot de passe !!"
Else
Unload Form1
Form2.Show
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jean132)