Ultima modifica:
Buona sera ragazzi , oggi vi spiegherò come creare un sistema di Login e Registrazione all'interno del vostro progetto visual basic .NET so che ora non vi servirà perché alcuni di voi non campano scrivendo codice ma un giorno quando le aziende vi chiederanno dei gestionali dovete comunque sapere come si lavora: il componente che useremo oggi è OLEDB e useremo Access per il database . bada le chiacchiere e partiamo
Apriamo Access facciamo un nuovo progetto>Database vuoto>scegliete nome e crea poi clicchiamo su >Visualizza >Visualizzazione struttura e cambiate il nome della tabella1 che è il nome standard
dopodiché dobbiamo creare i campi il 1 campo dove ce scritto ID dovete levare l'indicizzazione come si fa? semplicissimo. facciamo un clic di selezione sulla prima riga di colonne e clicchiamo poi sulla chiave primaria in alto così si leva l'indicizzazione.. dopodiché creiamo 2 campi Username e Password così:
screen1 : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (per visualizzare la struttura)
screen2 : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (per creare la tabella)
screen3 : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (per la rimozione dell'indicizzazione)
Bene ora una volta creato il database salvatelo in formato (.mdb) come fare? se avete Access 2013 allora basta andare in FILE>Salva con nome e cliccate su formato access 2002 - 2003 cambiate la redirect di salvataggio che sia desktop o cartelle ma non mettetela troppo lontana bene ora lavoriamo con visual studio 2010
allora prima di tutto aprite visual studio 2010 >nuovo progetto>windows form application>e date ok
form1 = rinominatelo chiamandolo Reigstrazione
textbox1= txtUsername
textbox2 = txtPassword
Button1 = BtnAccesso
nelle proprietà text:
Form1= Registrazione
Textbox1= non scrivete nulla
Textbox2= non scrivete nulla
nella proprietà della textbox2 rendete true (USERSYSTEMPASSWORDCHAR)
bene dopo questo andiamo in lato codice )))
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Prima però andiamo in MyProject>Riferimenti>aggiungi riferimenti>andate nella voce "COM"> scegliete questo riferimento>Microsoft ADO Ext.6.0 for DDL and Security
screen esempio : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'LATO CODICE
Imports ADOX
Imports system.data.oledb
Public Class Registrazione
Dim Miconnetto As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "Database.mdb") 'questo codice non è altro che la connessione al database che si trova nel desktop volendo potete anche metterlo in cartella e modificare +/cartella/Database.mdb
Private Sub Registrazione_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inseritore as string
inseritore = String.Format("INSERT INTO [NOME TAVOLA] (CAMPI) VALUES ('{0}', '{1}')", TextBox1.Text, TextBox2.Text) '{0}',{1} questa stringa permette la sostituzione dei campi da te scelti nelle seguenti textbox1.text e due supponiamo che c'era una terza textbox li andava anche {3} ma anche {4} ecc...
Dim comandi As New OleDbCommand(inseritore, Miconnetto)
Miconnettpen()
cmd.ExecuteNonQuery()
MsgBox("Registrazione avvenuta con successo", vbInformation, "Completo")
End Sub
End Class
Screen risultato= Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting
Benissimo ora procediamo con il LOGIN il login è leggermente più rompi----co..................................... 1 perché dobbiamo prima leggere i dati nel database poi con l'istruzione IF vediamo se il risultato è positivo o negativo in senso se l'utente esiste allora tu accedi alla textbox else fai comparire un messaggio d'errore vediamo come
'importiamo prima di tutto le componenti principali quindi :
'-------------------------------------------------------------------------------------------------
Imports ADOX
Imports system.data.oledb
Public Class Form2
Dim Miconnetto2 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "/Database.mdb")
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim variabile As OleDbDataReader = Nothing
Dim comandi As New OleDbCommand("SELECT * FROM Utenti WHERE Username='" + TextBox1.Text + "'" + "AND Password='" + TextBox2.Text + "'", Miconnetto)
Miconnettpen()
variabile = comandi.ExecuteReader()
If variabile.Read = True Then
MsgBox("Accesso eseguito con successo", vbInformation, "Accesso eseguito")
Form3.Show()
Miconnetto.Close() 'sempre altrimenti vi genera un eccezione
Else
MsgBox("L'account non esiste registrare un account", vbCritical, "Errore d'accesso")
Miconnetto.Close() 'ricordate chiudete sempre la connessione
End If
End Sub
End Class
screen1 = Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting
screen2 = Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (accesso eseguito)
bene se avete seguito questa guida per bene allora è sicuro all'100% che avrete imparato qualcosa che dirvi se avete problemi o cose varie scrivete nei commenti vi risponderò sicuramente oppure un bel PM bene io vi salutooo a presto giovaniii buon divertimento
AH: PICCOLO AGGIORNAMENTO PENSO CHE PER CHI INVECE VOGLIA USARE L'ESTENSIONE .ACCDB PUO' FARLO TRANQUILLAMENTE IN QUESTO MODO : dim miconnetto as new oledbconnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + system.environment.getfolderpath(system.environment.specialfolder.Desktop) + "/Database.accdb")
in caso vorreste mettere la password quindi mettete la password tramite Access tipo 123 allora basta fare così
dove sta la stringa "/Database.accdb;Jet OLEDB: Database Password=123"
Aggiornemnto fatto ADESSO (per dimenticanza)
CIAO INFORGEEEE
Apriamo Access facciamo un nuovo progetto>Database vuoto>scegliete nome e crea poi clicchiamo su >Visualizza >Visualizzazione struttura e cambiate il nome della tabella1 che è il nome standard
dopodiché dobbiamo creare i campi il 1 campo dove ce scritto ID dovete levare l'indicizzazione come si fa? semplicissimo. facciamo un clic di selezione sulla prima riga di colonne e clicchiamo poi sulla chiave primaria in alto così si leva l'indicizzazione.. dopodiché creiamo 2 campi Username e Password così:
screen1 : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (per visualizzare la struttura)
screen2 : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (per creare la tabella)
screen3 : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (per la rimozione dell'indicizzazione)
Bene ora una volta creato il database salvatelo in formato (.mdb) come fare? se avete Access 2013 allora basta andare in FILE>Salva con nome e cliccate su formato access 2002 - 2003 cambiate la redirect di salvataggio che sia desktop o cartelle ma non mettetela troppo lontana bene ora lavoriamo con visual studio 2010
allora prima di tutto aprite visual studio 2010 >nuovo progetto>windows form application>e date ok
form1 = rinominatelo chiamandolo Reigstrazione
textbox1= txtUsername
textbox2 = txtPassword
Button1 = BtnAccesso
nelle proprietà text:
Form1= Registrazione
Textbox1= non scrivete nulla
Textbox2= non scrivete nulla
nella proprietà della textbox2 rendete true (USERSYSTEMPASSWORDCHAR)
bene dopo questo andiamo in lato codice )))
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Prima però andiamo in MyProject>Riferimenti>aggiungi riferimenti>andate nella voce "COM"> scegliete questo riferimento>Microsoft ADO Ext.6.0 for DDL and Security
screen esempio : Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'LATO CODICE
Imports ADOX
Imports system.data.oledb
Public Class Registrazione
Dim Miconnetto As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "Database.mdb") 'questo codice non è altro che la connessione al database che si trova nel desktop volendo potete anche metterlo in cartella e modificare +/cartella/Database.mdb
Private Sub Registrazione_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inseritore as string
inseritore = String.Format("INSERT INTO [NOME TAVOLA] (CAMPI) VALUES ('{0}', '{1}')", TextBox1.Text, TextBox2.Text) '{0}',{1} questa stringa permette la sostituzione dei campi da te scelti nelle seguenti textbox1.text e due supponiamo che c'era una terza textbox li andava anche {3} ma anche {4} ecc...
Dim comandi As New OleDbCommand(inseritore, Miconnetto)
Miconnettpen()
cmd.ExecuteNonQuery()
MsgBox("Registrazione avvenuta con successo", vbInformation, "Completo")
End Sub
End Class
Screen risultato= Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting
Benissimo ora procediamo con il LOGIN il login è leggermente più rompi----co..................................... 1 perché dobbiamo prima leggere i dati nel database poi con l'istruzione IF vediamo se il risultato è positivo o negativo in senso se l'utente esiste allora tu accedi alla textbox else fai comparire un messaggio d'errore vediamo come
'importiamo prima di tutto le componenti principali quindi :
'-------------------------------------------------------------------------------------------------
Imports ADOX
Imports system.data.oledb
Public Class Form2
Dim Miconnetto2 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "/Database.mdb")
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim variabile As OleDbDataReader = Nothing
Dim comandi As New OleDbCommand("SELECT * FROM Utenti WHERE Username='" + TextBox1.Text + "'" + "AND Password='" + TextBox2.Text + "'", Miconnetto)
Miconnettpen()
variabile = comandi.ExecuteReader()
If variabile.Read = True Then
MsgBox("Accesso eseguito con successo", vbInformation, "Accesso eseguito")
Form3.Show()
Miconnetto.Close() 'sempre altrimenti vi genera un eccezione
Else
MsgBox("L'account non esiste registrare un account", vbCritical, "Errore d'accesso")
Miconnetto.Close() 'ricordate chiudete sempre la connessione
End If
End Sub
End Class
screen1 = Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting
screen2 = Image - TinyPic - Free Image Hosting, Photo Sharing & Video Hosting (accesso eseguito)
bene se avete seguito questa guida per bene allora è sicuro all'100% che avrete imparato qualcosa che dirvi se avete problemi o cose varie scrivete nei commenti vi risponderò sicuramente oppure un bel PM bene io vi salutooo a presto giovaniii buon divertimento
AH: PICCOLO AGGIORNAMENTO PENSO CHE PER CHI INVECE VOGLIA USARE L'ESTENSIONE .ACCDB PUO' FARLO TRANQUILLAMENTE IN QUESTO MODO : dim miconnetto as new oledbconnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + system.environment.getfolderpath(system.environment.specialfolder.Desktop) + "/Database.accdb")
in caso vorreste mettere la password quindi mettete la password tramite Access tipo 123 allora basta fare così
dove sta la stringa "/Database.accdb;Jet OLEDB: Database Password=123"
Aggiornemnto fatto ADESSO (per dimenticanza)
CIAO INFORGEEEE